|
以下是通达信箱体趋势主图公式无未来（无源码的请下载附件导入）
MA1:MA(CLOSE,5);
VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
VAR6:=(VAR3+VAR4+VAR5)/3;
VAR7:=EMA(VAR6,5);
ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK;
VAR8:=IF(VAR6<=-20,10,0);
VAR9:=HHV(VAR8,10);
VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
HS:=VOL/100, COLORGREEN;
DRAWTEXT(VAR8=10 AND FILTER(VAR8=10,5),LOW*0.993,' 接近底部');
DRAWTEXT(VARA=20,LOW*0.995,'底部');
箱底:MA(REF(HHV(MA1,30),1),2),COLOR0000FF,LINETHICK2;
箱顶:MA(REF(LLV(MA1,30),1),2),COLORMAGENTA,LINETHICK2;
DRAWICON(CROSS(MA1,箱底),箱底,'B');
DRAWICON(CROSS(箱顶,MA1),MA1,'S'),COLORBLUE;
B1:=EMA(MA1,5);
STICKLINE(MA1-B1>0,MA1,B1,3,1),COLORRED;
STICKLINE(MA1-B1<0,MA1,B1,3,1),COLORGREEN;
648444099.gif
| 
