益盟操盘手庄散动向源码

回报论坛和大家的支持，再转发个我觉得不错的指标----庄散动向指标。愿大家不再做傻户！对不认识的原作者表示感谢！
DDD:=DATE;
期限:=1100930;

STICKLINE(C>0,0,49.5,12,0),COLOR282200;
kk:=COUNT(CLOSE>OPEN OR CLOSE<=OPEN,0);
DRAWTEXT(FILTER(kk,51),13.8,'我是小股民,但不做傻户'),COLOR350015;

STICKLINE(C>0,100,100,5,1),COLOR583000;
STICKLINE(C>0,5,5,5,1),COLOR550000;
PolyLINE(C>0,10),COLOR555533;
AA4:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
AA5:=SMA(AA4,13,7);
庄家:CEILING(SMA(AA5,13,7)),COLOR9900DD{www.qill.cnCOLORMAGENTA};
傻户:SMA((HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100,2,1),COLOR00bb00,LINETHICK1;
快速:100*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60)),color6666ee;

A:=(EMA((CLOSE-ref(c,1))/ref(c,1)*10-
(INDEXC-ref(INDEXC,1))/ref(INDEXC,1)*10,5))*30+50;
STICKLINE(A>50 and DDD<=期限,50,A,8,0),COLOR6050df;
STICKLINE(A>50 and DDD<=期限,50,A,5,0),COLOR8070ef;
STICKLINE(A>50 and DDD<=期限,50,A,3,0),COLORa090ff;
STICKLINE(A>50 and DDD<=期限,50,A,0.5,0),colorFFEDFF;

stickline(A<50,50,A,8.4,0),color564400;
stickline(A<50,50,A,7,0),color776600;
stickline(A<50,50,A,5,0),color998800;
stickline(A<50,50,A,3,0),colorBBAA00;
stickline(A<50,50,A,1,0),colorDDEE00;
STICKLINE(A<50,50,A,1,0),colorFFFB90;

VAR01:=(H+L+O+C*2)/5;
VAR02:=EMA(VAR01,21);
VAR03:=STD(VAR01,23);
VAR04:=EMA(VAR01,2);
VARA:=(VAR01-VAR02)*100/VAR03;
AJ:=(EMA(VARA,23)+100)/2-3,COLORBLACK;
B:=SMA(AJ,5,1),COLORBLACK;
DZJ:=4*AJ-3*B;
ab:=ref(dzj,1)<=-6.5 and dzj>ref(dzj,1) and ref(dzj,1)<ref(dzj,2);
cd:=FILTER(ab,3);
XG:cd AND c/ref(c,1)<1.07 AND DDD<=期限,colorffffFF;
STICKLINE(XG,19,26,4,0),COLOR3300bb;
STICKLINE(XG,0,31,6,1),COLORFFFFFF;
STICKLINE(XG,0,20,7,0),COLOR000000;

PolyLINE(((庄家>=0 or 庄家<0) and DDD<=期限),庄家),COLORMAGENTA;
PolyLINE(((傻户>=0 or 傻户<0) and DDD<=期限),傻户),COLOR00bb00;
PolyLINE(快速>=0 AND DDD<=期限,快速),COLOR6666ee;

Q:=((CLOSE)/(REF(CLOSE,1))>1.023) AND (CLOSE=HIGH) AND BETWEEN(FORCAST(VOL,4),(0.2)*(FORCAST(VOL,12)),(2.1)*(FORCAST(VOL,12)));
W:=FILTER(Q,26) AND REF(庄家,1)>REF(庄家,2)
AND (REF(A,1)>0 OR REF(A,2)>0) AND DDD<=期限;
DRAWLINE(W,庄家+25,w,庄家-11.7,0),color0000ee,linethick3;
HJ:W ,COLOR0000DD;

STICKLINE(W,庄家+1.9,庄家-9.45,12,0),COLORwhite;
DRAWLINE(W,庄家+14.2,w,庄家,0),colorwhite,linethick5;
DRAWLINE(W,庄家-9,w,庄家+1,0),color004230,linethick7;{www.qill.cncolorff4811}
DRAWLINE(W,庄家-9.3,w,庄家-9.8,0),colorred,linethick5;
DRAWLINE(W,庄家+11.5,w,庄家+10.9,0),color502000,linethick1;
DRAWLINE(W,庄家+9.3,w,庄家+8.8,0),color502000,linethick1;
DRAWLINE(W,庄家+7.3,w,庄家+6.8,0),color502000,linethick1;
DRAWLINE(W,庄家+5.25,w,庄家+4.68,0),color502000,linethick1;