通达信收口布林副图叠加美国线指标公式

(Admin 2012年11月28日 浏览：3067次)

KMA:MA(CLOSE,1),POINTDOT;
MID:MA(CLOSE,20);
UPPER:MID+2*STD(CLOSE,20);
LOWER:MID-2*STD(CLOSE,20);
{STICKLINE(CLOSE,HIGH,LOW,0.1,1),COLOR0000FF;
STICKLINE(CLOSE,CLOSE,CLOSE,4,1),COLOR0000FF;}

BB:(C-LOWER)/(UPPER-LOWER),COLORWHITE,NODRAW;
BWIDTH:(UPPER-LOWER)/MID,COLORWHITE,NODRAW;
A1:=MA(C,5);
A2:=MA(C,15);
A3:=MA(C,30);
A4:=CROSS(A1,A2);
A5:=CROSS(A2,A3);
A6:=CROSS(A1,A3);
FD1:=A1>=MA(C,120) AND A2>=MA(C,120);
Q6:=ATAN((MA(C,120)/REF(MA(C,120),1)-1)*100)*57.3;
Q7:=ATAN((MA(C,250)/REF(MA(C,250),1)-1)*100)*57.3;

麻花:A6 AND COUNT(A4,3)>=1 AND COUNT(A5,3)>=1 AND FD1 AND Q6>0 AND Q7>0,NODRAW;
DRAWTEXT(麻花,MID,'A');

中轨:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
上轨:=中轨+3*STD(中轨,13); 
下轨:=中轨-3*STD(中轨,13);
收口大小:=(上轨-中轨)/中轨*100;
XD:=上轨>=REF(上轨,1) AND 下轨>=REF(下轨,1);
XE:=FILTER(XD=1 AND EXIST(收口大小<2.1,2) AND C>=REF(C,1)*0.981,7);
XF:=XD=1 AND EXIST(收口大小<2.1,2) AND C>=REF(C,1)*0.981;
XF2:=EXIST(XD=1,3) AND 收口大小<2 AND C>=中轨 AND C>=REF(C,1)*0.981;
收口:XF OR XF2,NODRAW;
DRAWTEXT(收口,LOWER,'I');
XV:CROSS(收口,0.1) AND REF(C,1)<=MID AND REF(C,2)<=MID,NODRAW;
DRAWTEXT(XV,MID,'I');
XO:CROSS(收口,0.1) AND CROSS(MID*1.001,REF(L,1)),NODRAW;
DRAWTEXT(XO,UPPER,'I');

又

搞了一个变色布林线的代码，想把K线变成美国线，最后一句是用K线显示的，想改成美国线显示，不知道哪位高手知道。
BOLL:MA(CLOSE,M);
UB:BOLL+2*STD(CLOSE,M);
LB:BOLL-2*STD(CLOSE,M);
{以上是BOLL原码,参数M自己搞}
{ 给布林线填充颜色的公式   开口红色 闭口绿色股}
X:=UB-LB;
XUB:=IF(X>REF(X,1),UB,DRAWNULL);
DRAWBAND(UB,RGB(0,80,20),LB,RGB(0,80,0));
DRAWBAND(XUB,RGB(100,0,20),LB,RGB(0,80,0));
NOTEXTB:BOLL,COLOR00FFFF,LINETHICK2;
NOTEXTU:UB,COLORFF00FF,LINETHICK2;
NOTEXTL:LB,COLORFFAA00,LINETHICK2;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);