|
以下是通达信量能平台《主图专家》指标公式（无源码的请下载附件导入）
ND:=10;
PTD:=CONST(LLVBARS(V,ND));
TDPX:IF(CURRBARSCOUNT<=ND,CONST(IF(PTD=0,O,REF(O,PTD))),DRAWNULL),COLORFF0000;
IF(CURRBARSCOUNT=PTD+1,TDPX,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
DRAWTEXT(ISLASTBAR,TDPX,' 【地平线】'),COLORFF0000;
N250:=250;
PT250:=CONST(HHVBARS(V,N250));
T250:IF(CURRBARSCOUNT<=N250,CONST(IF(PT250=0,C,REF(C,PT250))),DRAWNULL),COLOR990000;
IF(CURRBARSCOUNT=PT250+1,T250,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;
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;
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;
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;
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;
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;
IF(CURRBARSCOUNT=PT5+1,T5,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=N5,T5,'5'),COLORFFFFFF;
{K线}
DRAWKLINE(H,O,L,C);
涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0);
跌停:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0);
STICKLINE(涨停,H,L,0,0),COLORFF00FF;
STICKLINE(涨停,O,C,3,0),COLORAA00AA;
STICKLINE(涨停,O,C,2.4,0),COLORBB00BB;
STICKLINE(涨停,O,C,1.8,0),COLORCC00CC;
STICKLINE(涨停,O,C,1.2,0),COLORDD00DD;
STICKLINE(涨停,O,C,0.6,0),COLOREE00EE;
STICKLINE(涨停,O,C,0.1,0),COLORFF00FF;
STICKLINE(跌停,H,L,0,0),COLORFF0000;
STICKLINE(跌停,O,C,3,0),COLORAA0000;
STICKLINE(跌停,O,C,2.4,0),COLORBB0000;
STICKLINE(跌停,O,C,1.8,0),COLORCC0000;
STICKLINE(跌停,O,C,1.2,0),COLORDD0000;
STICKLINE(跌停,O,C,0.6,0),COLOREE0000;
STICKLINE(跌停,O,C,0.1,0),COLORFF0000;
{立桩量}
V2:=IF(CURRBARSCOUNT=1,VOL*240/MINUTE/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
STICKLINE(V2>=1,C,(O+C)/2,3.4,0),COLOR00AAAA;
STICKLINE(V2>=1,C,(O+C)/2,2.4,0),COLOR00BBBB;
STICKLINE(V2>=1,C,(O+C)/2,1.8,0),COLOR00CCCC;
STICKLINE(V2>=1,C,(O+C)/2,1.2,0),COLOR00DDDD;
STICKLINE(V2>=1,C,(O+C)/2,0.6,0),COLOR00EEEE;
STICKLINE(V2>=1,C,(O+C)/2,0.1,0),COLOR00FFFF;
海浪5:=REF(C,1)=T5 AND C>T5;
DRAWTEXT(海浪5,H,' ↙ 【海浪】'),COLORFFFFFF;
海浪10:=(REF(C,1)=T10 AND C>T10);
DRAWTEXT(海浪10,H*1.02,' ↙ 【海浪】'),COLOR00FFFF;
84377851.png
|
