同花顺天地量能平台线副图源码

HH:=HHV(VOL,100);
 T:=BARSLAST(HH=VOL);
 LL:=LLV(VOL,100);
 T1:=BARSLAST(LL=VOL);
 DRAWLINE(T=0,C,REF(T=0,1),REF(C,1),1),colorgreen;
 DRAWLINE(T1=0,C,REF(T1=0,1),REF(C,1),1),colorred;
 aa:=CLOSE/REF(C,1)>=1.09;
 STICKLINE(aa,O,C,3,0),coloryellow;
 STICKLINE(aa,L,H,0,0),coloryellow;
 A:IF(CLOSE>SAR(4,2,20),SAR(4,2,20),DRAWNULL),CIRCLEDOT,colorred;
 B:IF(CLOSE<SAR(4,2,20),SAR(4,2,20),DRAWNULL),CIRCLEDOT,colorcyan;
 N250:=250;
 PT250:=CONST(HHVBARS(V,N250));
 T250:IF(CURRBARSCOUNT<=N250,CONST(IF(PT250=0,C,REF(C,PT250))),DRAWNULL),COLOR990000,LINETHICK2;
 IF(CURRBARSCOUNT=PT250+1,T250*1.01,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000;
 N120:=120;
 PT120:=CONST(HHVBARS(V,N120));
 T120:IF(CURRBARSCOUNT<=N120,CONST(IF(PT120=0,C,REF(C,PT120))),DRAWNULL),COLORAAAA00,LINETHICK2;
 IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00;
 N60:=60;
 PT60:=CONST(HHVBARS(V,N60));
 T60:IF(CURRBARSCOUNT<=N60,CONST(IF(PT60=0,C,REF(C,PT60))),DRAWNULL),COLOR00BB00,LINETHICK2;
 IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00;
 N30:=30;
 PT30:=CONST(HHVBARS(V,N30));
 T30:IF(CURRBARSCOUNT<=N30,CONST(IF(PT30=0,C,REF(C,PT30))),DRAWNULL),COLOR0000CC,LINETHICK2;
 IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC;
 N20:=20;
 PT20:=CONST(HHVBARS(V,N20));
 T20:IF(CURRBARSCOUNT<=N20,CONST(IF(PT20=0,C,REF(C,PT20))),DRAWNULL),COLORDD00DD,LINETHICK2;
 IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD;
 N10:=10;
 PT10:=CONST(HHVBARS(V,N10));
 T10:IF(CURRBARSCOUNT<=N10,CONST(IF(PT10=0,C,REF(C,PT10))),DRAWNULL),COLOR00EEEE,LINETHICK2;
 IF(CURRBARSCOUNT=PT10+1,T10,DRAWNULL),CIRCLEDOT,COLOR00FFFF,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N10,T10,'10'),COLOR00EEEE;
 N5:=5;
 PT5:=CONST(HHVBARS(V,N5));
 T5:IF(CURRBARSCOUNT<=N5,CONST(IF(PT5=0,C,REF(C,PT5))),DRAWNULL),COLORFFFFFF,LINETHICK2;
 IF(CURRBARSCOUNT=PT5+1,T5,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N5,T5,'5'),COLORFFFFFF;
 DRAWKLINE(H,O,L,C);