通达信灾后自救之三主图源码附图

以下是通达信灾后自救之三主图源码附图

{主图}

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));
亏损:(REF(C,TT+1)-REF(C,T))/REF(C,T)*100 NODRAW;
 ZF:=(C-REF(C,T+1))/REF(C,T+1)*100;
 JJ:=AMOUNT/VOL/100;
 VH:=BARSLAST(VOL=HHV(VOL,TT+1));
强支撑:DRAWLINE(CURRBARSCOUNT=CONST(VH)+1,REF(JJ,VH),ISLASTBAR,REF(JJ,VH),0),COLORWHITE;
回本:ZF COLORMAGENTA,NODRAW;
高位价:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,HH,ISLASTBAR,REF(HH,T),0),COLORYELLOW;
 NOTEXT1:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.382+XL,ISLASTBAR,REF((HH-XL)*0.382+XL,T),0),DOTLINE,COLORGREEN;
 NOTEXT2:DRAWLINE(CURRBARSCOUNT=CONST(T)+1,(HH-XL)*0.618+XL,ISLASTBAR,REF((HH-XL)*0.618+XL,T),0),DOTLINE,COLORLIMAGENTA;
低位价: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;
涨幅:(C-REF(C,TT+1))/REF(C,TT+1)*100 NODRAW;
 STICKLINE(T1=0,C,O,2,0),COLORYELLOW;
 STICKLINE(T1=0,H,L,0,0),COLORYELLOW;