通达信五线谱“九首版”主图源码

那个第一阻力和第二阻力 黄金分割 修改成 百分比
 最高位和最低的的画线不变 新增三条线
 要求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;