VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;
A1:=(EMA(VAR1,3)+EMA(VAR1,6)+EMA(VAR1,12)+EMA(VAR1,24))/4;
A2:=EMA(A1,2);
A3:=EMA(A2,2);
A4:=EMA(A3,2);
A5:=EMA(A4,2);
A6:=EMA(A5,2);
A7:=EMA(A6,2);
A8:EMA(VAR1,2.78)*1.028,COLORMAGENTA;
A9:MA(OPEN,3.2)*1.028,COLORYELLOW,DOTLINE;
A:=(3*C+H+L+O)/6;
XJ:=(A+0.618*REF(A,1)+0.382*REF(A,2)+0.236*REF(A,3)+0.146*REF(A,4))/2.382,COLORMAGENTA;
MAA:=MA(XJ,3),COLORYELLOW,DOTLINE;
PJ:=(10*A+9*REF(A,1)+8*REF(A,2)+7*REF(A,3)+6*REF(A,4)+5*REF(A,5)+4*REF(A,6)+3*REF(A,7)+
2*REF(A,8)+REF(A,9))/55;
A2I:=SUM(IF(C>REF(C,1),V*C,0),0);
A3I:=SUM(IF(C<REF(C,1),V*C,0),0);
A4I:=SUM(IF(C=REF(C,1),V*C,0),0);
B1万元:=DVOL*DCLOSE/100;
B1差:=B1万元-REF(B1万元,1);
净流入万元:=(A2I-A3I-0.5*A4I),COLOR0088FF,NODRAW;
PM:=MA(净流入万元,1);
PMA:=PM/REF(PM,1)>1;
PMB:=REF(PMA,1)<1 AND PMA;
密码:=(EMA(MA(B1万元,2),2))/100000;
二日比:=密码/REF(密码,1);
选股:PMB AND 密码>REF(密码,1) AND 二日比>1,COLORWHITE,NODRAW;
均价:=AMOUNT/V/100;
均价2:=MA(均价,3);
均价5:=MA(均价,5);
均价10:=MA(均价,10);
均价30:=MA(均价,30);
突破:C>均价2 AND 均价2<REF(均价2,1) AND REF(均价2,1)<REF(均价2,2)AND
REF(均价2,2)<REF(均价2,3) AND 选股,COLORYELLOW,NODRAW;
选票:REF(MA(C,5)<MA(C,10),1)AND CROSS(C,MA(C,5))AND CROSS(二日比,1.01),COLORMAGENTA,NODRAW;
高:=REF(HHV(XJ,80),3);
顶点:REFDATE(高,DATE),COLORBROWN,NODRAW;
低:=REF(LLV(XJ,80),3);
低点:REFDATE(低,DATE),COLORGRAY,DOTLINE;
中:(顶点+低点)/2,COLORGRAY,DOTLINE;
流入:=BARSLAST(PM/REF(PM,1)<1);
入:=EMA(EMA(流入,2),2);
入MA:=MA(入,3);
流入强度:(入-入MA),NODRAW;
STICKLINE(流入强度>0,中,中+流入强度/4,0,0),COLORRED;
STICKLINE(流入强度<0,中,中+流入强度/4,0,0),COLORCYAN;
STICKLINE(流入强度<0 AND 流入强度>REF(流入强度,1),中,中+流入强度/4,0,0),COLORLIRED;
A05:=EMA(PJ,11),COLORWHITE;
XJ金叉:REF(XJ<A05,1)AND CROSS(XJ,MAA),COLORRED,NODRAW;
{资金低位金叉}
OA:=VOL*C;
OB:=SUM(OA,1)/SUM(VOL,1);
B1:=EMA(OB,17);
资金:=(OB-B1)/OB*100;
FA:=EMA(资金,5)-EMA(资金,34);
AA:=EMA(FA,9);
资低金叉:(CROSS(FA,AA) AND FA<-0.1),COLORWHITE,NODRAW;
DI:=EMA(C,6)-EMA(C,13),;
DE:=EMA(DI,5),;
MACD:=2*(DI-DE),;
OA1:=BARSLAST(REF(CROSS(DI,DE),1));
底背离:=REF(C,OA1+1)>C AND DI>REF(DI,OA1+1) AND CROSS(DI,DE);
STICKLINE(底背离,中,中+流入强度/4,0.1,0),COLORLIRED;
DRAWTEXT(底背离,中+流入强度/4,' 底背离'),COLORLIRED;
OA2:=BARSLAST(REF(CROSS(DE,DI),1));
顶背离:=REF(C,OA2+1)<C AND REF(DI,OA2+1)>DI AND CROSS(DE,DI);
STICKLINE(顶背离,中,中+流入强度/4,0.1,0),COLORLIBLUE;
DRAWTEXT(顶背离,中+流入强度/4,'顶背离'),COLORCYAN;
DRAWTEXT(CROSS(85,RSI),XJ,'落袋'),COLORCYAN;
{DRAWTEXT(CROSS(DE,DI) AND DI>0,中+流入强度/3,'死叉'),COLORCYAN;}
STICKLINE(资低金叉,低点,中,0,0),COLORWHITE;
DRAWTEXT(资低金叉,低点+0.02,'资金叉'),COLORWHITE;
STICKLINE(突破=1,C,O,2,0),COLORYELLOW;
STICKLINE(选票=1,C,O,2,0),COLORMAGENTA;
STICKLINE(选股=1,C,O,2,0),COLORWHITE;
LX:=REF(XJ,1);
ZD:=(SMA(MAX(XJ-LX,0),5,1)/SMA(ABS(XJ-LX),5,1))*100;
KX1:=C>=O AND ZD>=50;
KX2:=C<O AND ZD>=50;
KX3:=C>=O AND ZD<50;
KX4:=C<O AND ZD<50;
STICKLINE(KX1,A8,A9,1,0),COLOR0000CC;
STICKLINE(KX2,A8,A9,1,0),COLOR008888;
STICKLINE(KX3,A8,A9,1,0),COLORLIRED;
STICKLINE(KX4,A8,A9,1,0),COLORLICYAN,;
R1:IF(A1<REF(A1,1),A1,A1),COLOR008200,LINETHICK1;
Q1:IF(A1>REF(A1,1),A1,DRAWNULL),COLORRED,LINETHICK1;
R2:IF(A2<REF(A2,1),A2,DRAWNULL),COLOR008C00,LINETHICK1;
Q2:IF(A2>REF(A2,1),A2,DRAWNULL),COLOR000085,LINETHICK1;
R3:IF(A3<REF(A3,1),A3,DRAWNULL),COLOR009B00,LINETHICK1;
Q3:IF(A3>REF(A3,1),A3,DRAWNULL),COLOR00006C,LINETHICK1;
R4:IF(A4<REF(A4,1),A4,DRAWNULL),COLOR00BB00,LINETHICK1;
Q4:IF(A4>REF(A4,1),A4,DRAWNULL),COLOR00007D,LINETHICK1;
R5:IF(A5<REF(A5,1),A5,DRAWNULL),COLOR00CC00,LINETHICK1;
Q5:IF(A5>REF(A5,1),A5,DRAWNULL),COLOR00009F,LINETHICK1;
R6:IF(A6<REF(A6,1),A6,DRAWNULL),COLOR00CC00,LINETHICK1;
Q6:IF(A6>REF(A6,1),A6,DRAWNULL),COLOR00009F,LINETHICK1;
R7:IF(A7<REF(A7,1),A7,DRAWNULL),COLOR00CC00,LINETHICK1;
Q7:IF(A7>REF(A7,1),A7,DRAWNULL),COLOR00009F,LINETHICK1;
DRAWTEXT(突破=1,L,'突破'),COLORYELLOW;
DRAWTEXT(选票=1,C,'选票'),COLORMAGENTA;
DRAWTEXT(选股=1,A8,'选股'),COLORWHITE;
DRAWICON(XJ金叉=1,L-0.02,1);
