以下是通达信五线谱“九首版”主图源码
那个第一阻力和第二阻力 黄金分割 修改成 百分比
最高位和最低的的画线不变 新增三条线
要求1； 最高＋最低 除以2 显示中间价格画线
2 画线显示上 3分之1的价格 和下3分之一的价格
公式修改后，能够更加清楚的掌控所持个股从大跌以来到反弹到再次回踩，现在股价处于哪个位置。五条线最高价 最低价 2分位 2/3分为位 1/3分位组合在一起更像一个线谱组合，取名“五线谱”这些K线更像是跳动的音符，希望大家能够从中根据音乐规律找到个股跳动的规律。
{主图}
HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
T:=HHVBARS(HH,0);
TT:=BARSLAST(L=LLV(L,T+1));
T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
XL:=REFX(L,BARSNEXT(T1=0));
高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;
NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)/2+XL,ISLASTBAR,REF((HH-XL)/2+XL,T),0),DOTLINE,COLORGREEN;
NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*2/3+XL,ISLASTBAR,REF((HH-XL)*2/3+XL,T),0),DOTLINE,COLORLIMAGENTA;
NOTEXT3:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)/3+XL,ISLASTBAR,REF((HH-XL)/3+XL,T),0),DOTLINE,COLORBROWN;
低位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,XL,ISLASTBAR,REF(L,T1),0),COLORRED;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT1*1.04,VARCAT(VARCAT('中间价：',VAR2STR(NOTEXT1,2)),'元')),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT2*1.04,VARCAT(VARCAT('上阻力价：',VAR2STR(NOTEXT2,2)),'元')),COLORLIMAGENTA;
DRAWTEXT(CURRBARSCOUNT=CONST(T)+1,NOTEXT3*1.04,VARCAT(VARCAT('下阻力价：',VAR2STR(NOTEXT3,2)),'元')),COLORBROWN;
STICKLINE(T1=0,C,O,2,0),COLORYELLOW;
STICKLINE(T1=0,H,L,0,0),COLORYELLOW;
