ZK1:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1+(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)),DOT,COLORBLUE;
ZD1:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,LINETHICK2,COLORRED;
ZD2:EMA(ZD1,25),LINETHICK2;
FILLRGN(ZD1>ZD2,ZD1,ZD2,RGB(55,0,0));
FILLRGN(ZD1<ZD2,ZD1,ZD2,RGB(0,91,0));
DRAWKLINE1(H,O,L,C);
STICKLINE1(ZD1>LOW AND ZD1<HIGH,ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE1(ZD1>MIN(C,O) AND ZD1<MAX(C,O),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE1(ZD1>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE1(ZD1>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*REFX1(MA(REFX1(MA((C-REF(C,1)),6),3),6),3)/REFX1(MA(REFX1(MA(ABS((C-REF(C,1))),6),3),6),3);
回调买:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=ZD1>HIGH AND 回调买 AND L<=ZD1;
DRAWTEXT(XG,L,'▲买入'),COLORRED;
EXIST(XG,3),SOUND('A');

JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
CAPITAL:=GETPRICE1('流通股本');
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK1;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);
V5:=SMA(V2*120/FROMOPEN*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
DY:=CURRBARSCOUNT=1 AND C<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<ZK1;
DRAWTEXT(XG2 AND L<ZD1,L,'↖牛暴涨'),COLORRED;
EXIST(XG2 AND L<ZD1,3),SOUND('A');

ZJ1953:=ZIGZAG(C,15,1);
粉丝:=MA(ZJ1953,3);
DRAWTEXT(CROSS(ZJ1953,粉丝),LOW*1.025,'↖基金入场 '),COLORMAGENTA;
DRAWTEXT(CROSS(粉丝,ZJ1953),HIGH*0.998,'←基金清仓 '),COLORFFFFFF;

EXIST(CROSS(ZJ1953,粉丝),3),SOUND('A');
EXIST(CROSS(粉丝,ZJ1953),3),SOUND('A');


阻力价:HHV(HIGH,19),COLORGREEN,LINETHICK1,NODRAW;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
主力成本线:EMA(X,13),COLORMAGENTA,NODRAW;
UR:=2;
LR:=4;
TC1:=IF(H=HHV(H,8*UR),H,NULL);
TC2:=REFX1(BARSLAST(TC1=H),10000)+1;
UPPER:=REFX1(IF(TC2=1,H,REF(H,TC2-1)),10000);
BC1:=IF(L=LLV(L,8*LR),L,NULL);
BC2:=REFX1(BARSLAST(BC1=L),10000)+1;
LOWER:=REFX1(IF(BC2=1,L,REF(L,BC2-1)),10000);
LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;
{低点定位}
HP:=CURRBARSCOUNT<=TC2 AND H=UPPER;
{高点定位}
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));
{用时}
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),REFX1(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1)),10000),NULL),POINTDOT,COLOR93BDA8,NODRAW;
{近点}{隐藏}
LR2:=SLOPE(C,NOD+1);
LR3:=REFX1(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)),10000);
FP:=NP-LR3*(NOD),POINTDOT,COLOR93BDA8,NODRAW;
EQU:=(NP+FP)/2,POINTDOT,COLOR93BDA8,NODRAW;
AD:=ABS(NP-FP);
DBL:=BARSLAST(NOT(ISNULL(BC1)) )+1;
DBH:=BARSLAST(NOT(ISNULL(TC1)) )+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=REFX1(BARSLAST(AT1-LRL=AT2),10000);
AT4:=REFX1(IF(AT3=0,H,REF(H,AT3)),10000);
AT5:=REFX1(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)),10000);
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=REFX1(BARSLAST(LRL-UT1=UT2),10000);
UT4:=REFX1(IF(UT3=0,H,REF(H,UT3)),10000);
UT5:=REFX1(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)),10000);
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,REFX1(REF(ATL,MIN(BC2,TC2)-11),10000));
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,REFX1(REF(UTL,MIN(BC2,TC2)-11),10000));
中轨:IF(NP>FP,IF(LRL<=RH,LRL,NULL),IF(LRL>=RL,LRL,NULL)),COLOR666666,LINETHICK2;
上轨:IF(NP>FP,IF(ATL<=RH,ATL,NULL),IF(ATL>=RL,ATL,NULL)),COLOR666666,LINETHICK2;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,NULL),IF(UTL>=RL,UTL,NULL)),COLOR666666,LINETHICK2;
VAR1:=(C+H+O+L)/4;
顶阴影线:=MA(VAR1,20)*(1+1/8),COLORGREEN,LINETHICK1;
DRAWTEXT(CROSS(HIGH,顶阴影线),HIGH*0.9990,'↙逃'),COLORGREEN;
EXIST(CROSS(HIGH,顶阴影线),3),SOUND('A');

局部低点预选A:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);
局部低点预选B:=BACKSET(局部低点预选A=0 AND REF(局部低点预选A,1)=1,2);
局部低点预选C:=IF(局部低点预选B=1 AND REF(局部低点预选B,1)=0,-1,0);
局部高点预选A:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);
局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);
局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0);
缺口判断:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));
距前高天:=BARSLAST(局部高点预选C=1);
距前低天:=BARSLAST(局部低点预选C=-1);
小值周期:=LLVBARS(L,100);
大值周期:=HHVBARS(H,100);
低保留AA:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)<REF(LLV(L,距前高天+1),1),-1,0);
低保留AB:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2)<REF(LLV(L,距前低天+1),1)),-1,0);
低保留S:=IF((低保留AA=-1 OR 低保留AB=-1) AND L<REF(H,距前高天+1),-1,0);
预判:=IF((距前低天<4 AND HHV(缺口判断,距前低天)<>1) OR REF(低保留S,距前低天)=0,1,0);
判断:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND 预判=1 AND 大值周期>REF(小值周期,距前低天+1) AND 大值周期>REF(小值周期,距前低天) AND 大值周期>REF(大值周期,距前高天),1,0);
高保留A:=IF(局部高点预选C=1 AND REF(距前低天,1)>REF(距前高天,1) AND HHV(H,距前低天+1)>REF(HHV(H,距前低天+1),1),1,0);
高保留B:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND REF(低保留S,距前低天)=-1 AND (距前低天>=4 OR HHV(缺口判断,距前低天)=1),1,0);
高保留:=IF((高保留A=1 OR 高保留B=1 OR 判断=1) AND H>REF(L,距前低天+1),1,0);
预判A:=IF((距前高天<4 AND HHV(缺口判断,距前高天)<>1) OR REF(高保留,距前高天)=0,1,0);
判断A:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND 预判A=1 AND 小值周期>REF(大值周期,距前高天+1) AND 小值周期>REF(大值周期,距前高天) AND 小值周期>REF(小值周期,距前低天),-1,0);
低保留A:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)<REF(LLV(L,距前高天+1),1),-1,0);
低保留B:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR 判断A=-1),-1,0);
低保留:=IF((低保留A=-1 OR 低保留B=-1) AND L<REF(H,距前高天+1),-1,0);
距前高天A:=BARSLAST(高保留=1);
距前低天A:=BARSLAST(低保留=-1);
预判X:=IF((距前低天A<4 AND HHV(缺口判断,距前低天A)<>1) OR REF(低保留,距前低天A)=0,1,0);
判断X:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND 预判X=1 AND 大值周期>REF(小值周期,距前低天A+1) AND 大值周期>REF(小值周期,距前低天A) AND 大值周期>REF(大值周期,距前高天A),1,0);
高保留XA:=IF(局部高点预选C=1 AND REF(距前低天A,1)>REF(距前高天A,1) AND HHV(H,距前低天A+1)>REF(HHV(H,距前低天A+1),1),1,0);
高保留XB:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND REF(低保留,距前低天A)=-1 AND (距前低天A>=4 OR HHV(缺口判断,距前低天A)=1),1,0);
高保留X:=IF((高保留XA=1 OR 高保留XB=1 OR 判断X=1) AND H>REF(L,距前低天A+1),1,0);
预判XA:=IF((距前高天A<4 AND HHV(缺口判断,距前高天A)<>1) OR REF(高保留XA,距前高天A)=0,1,0);
判断XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND 预判XA=1 AND 小值周期>REF(大值周期,距前高天A+1) AND 小值周期>REF(大值周期,距前高天A) AND 小值周期>REF(小值周期,距前低天A),-1,0);
低保留XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)>REF(距前低天A,1) AND LLV(L,距前高天A+1)<REF(LLV(L,距前高天A+1),1),-1,0);
低保留XB:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND (距前高天A>=4 OR LLV(缺口判断,距前高天A)=-1 OR 判断XA=-1),-1,0);
低保留X:=IF((低保留XA=-1 OR 低保留XB=-1) AND L<REF(H,距前高天A+1),-1,0);
距前高天YA:=BARSLAST(高保留X=1);
距前低天YA:=BARSLAST(低保留X=-1);
预判YX:=IF((距前低天YA<4 AND HHV(缺口判断,距前低天YA)<>1) OR REF(低保留X,距前低天YA)=0,1,0);
判断YX:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND 预判YX=1 AND 大值周期>REF(小值周期,距前低天YA+1) AND 大值周期>REF(小值周期,距前低天YA) AND 大值周期>REF(大值周期,距前高天YA),1,0);
高保留YXA:=IF(局部高点预选C=1 AND REF(距前低天YA,1)>REF(距前高天YA,1) AND HHV(H,距前低天YA+1)>REF(HHV(H,距前低天YA+1),1),1,0);
高保留YXB:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND REF(低保留X,距前低天YA)=-1 AND (距前低天YA>=4 OR HHV(缺口判断,距前低天YA)=1),1,0);
高保留YX:=IF((高保留YXA=1 OR 高保留YXB=1 OR 判断YX=1) AND H>REF(L,距前低天YA+1),1,0);
预判YXA:=IF((距前高天YA<4 AND HHV(缺口判断,距前高天YA)<>1) OR REF(高保留YXA,距前高天YA)=0,1,0);
判断YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND 预判YXA=1 AND 小值周期>REF(大值周期,距前高天YA+1) AND 小值周期>REF(大值周期,距前高天YA) AND 小值周期>REF(小值周期,距前低天YA),-1,0);
低保留YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)>REF(距前低天YA,1) AND LLV(L,距前高天YA+1)<REF(LLV(L,距前高天YA+1),1),-1,0);
低保留YXB:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND (距前高天YA>=4 OR LLV(缺口判断,距前高天YA)=-1 OR 判断YXA=-1),-1,0);
低保留YX:=IF((低保留YXA=-1 OR 低保留YXB=-1) AND L<REF(H,距前高天YA+1),-1,0);
AAAD:=IF(高保留YX=1 AND 低保留YX=-1 AND H>REF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND L<REF(L,REF(距前低天YA,1)+2),-1,0));
极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD);
局部极点:IF(极点保留=-1,L,IF(极点保留=1,H,NULL)) ,CIRCLEDOT ,COLORYELLOW;
DRAWLINE(极点保留=-1,局部极点,极点保留=1,局部极点,0),COLORRED;
DRAWLINE(极点保留=1,局部极点,极点保留=-1,局部极点,0),COLORYELLOW;
DD1:=BARSLAST(ABS(极点保留)<>1);


高点:=10;
低点:=10;
高点选择:=1;
低点选择:=1;
波浪尺1:=0;
波浪尺2:=1;
PURC:=REFX1(HHVBARS(H,高点选择),10000);
PLZ:=REFX1(BARSLAST(PURC=H),10000)+1;
顶X:=REFX1(IF(PLZ=1,H,REF(H,PLZ-1)),10000);
QQT:=REFX1(LLVBARS(L,低点选择),10000);
PLL:=REFX1(BARSLAST(QQT=L),10000)+1;
低X:=REFX1(IF(PLL=1,L,REF(L,PLL-1)),10000);
DRAWKLINE1(H,O,L,C);
顶点:顶X,COLORRED;
底点:低X,COLORRED;
波动速率:=100*((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))/(PLL-PLZ),NODRAW,COLORMAGENTA;
波动幅度:=((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))*100;
波动价位:=(顶X-低X)*(IF(PLL>PLZ,1,-1));
BPURC:=REFX1(HHVBARS(H,波浪尺2),10000);
BPLZ:=REFX1(BARSLAST(BPURC=H),10000)+1;
BQQT:=REFX1(LLVBARS(L,波浪尺2),10000);
BPLL:=REFX1(BARSLAST(BQQT=L),10000)+1;
BLC1:=REFX1(HHVBARS(H,波浪尺2),10000);
BLC2:=REFX1(BARSLAST(BPURC=H),10000)+1;
BLC顶X:=REFX1(IF(BPLZ=1,H,REF(H,BPLZ-1)),10000);
BLC3:=REFX1(LLVBARS(L,波浪尺2),10000);
B6C4:=REFX1(BARSLAST(BQQT=L),10000)+1;
BLC低X:=REFX1(IF(BPLL=1,L,REF(L,BPLL-1)),10000);
BASE:=IF(波动速率<0,BLC顶X,BLC低X),COLORRED;
BLCX:=IF(波动速率<0,-1,1);
BLCZ:=(顶点-底点)*(IF(PLL>PLZ,1,-1));
B618:=BASE+(BLCZ*0.618),COLORRED,DOT;
B382:=BASE+(BLCZ*0.382),COLORRED,DOT;
B05:=BASE+(BLCZ*0.5),COLORRED,DOT;
B809:=BASE+(BLCZ*0.809),COLORRED,DOT;
B191:=BASE+(BLCZ*0.191),COLORRED,DOT;
B100:=BASE+(BLCZ*1),COLORRED;
B200:=BASE+(BLCZ*2),COLORRED;
B11:=BASE+(BLCZ*1.191),COLORRED;
B12:=BASE+(BLCZ*1.382),COLORRED;
B13:=BASE+(BLCZ*1.5),COLORRED;
B14:=BASE+(BLCZ*1.618),COLORRED;
B15:=BASE+(BLCZ*1.809),COLORRED;
BZ1:=BASE+(BLCZ*0.236),COLORRED;
BZ2:=BASE+(BLCZ*1.236),COLORRED;
BZ3:=BASE+(BLCZ*2.236),COLORRED;
B11B:=BASE+(BLCZ*2.191),COLORRED;
B12B:=BASE+(BLCZ*2.382),COLORRED;
B13B:=BASE+(BLCZ*2.5),COLORRED;
B14B:=BASE+(BLCZ*2.618),COLORRED;
B15B:=BASE+(BLCZ*2.809),COLORRED;
B300:=BASE+(BLCZ*3),COLORRED;
XZDD:=IF(PLL>PLZ,BPLL,BPLZ);
QADQ:=IF(PLL>PLZ,PLL,PLZ);
QADH:=IF(PLL>PLZ,PLZ,PLL);
QHL1:=IF(PLL>PLZ,L,H);
QHL2:=IF(PLL>PLZ,H,L);
DRAWLINE1(CURRBARSCOUNT=QADQ,QHL1,CURRBARSCOUNT=QADH,QHL2,0),COLORRED;
DRAWLINE1(CURRBARSCOUNT=QADH,QHL2,CURRBARSCOUNT=XZDD,QHL1,0),COLORRED;

JRH:=HHV(C,2);
JRL:=LLV(C,2);
MA3:=MA(C,3);
YTSL:=(3*C+L+O+H)/6;
Z1D:=C>=REF(C,1);
Z1X:=C<=REF(C,1);
Z2D:=C>=REF(C,2);
Z2X:=C<=REF(C,2);
X1D2:=Z1X AND Z2D;
D1X2:=Z1D AND Z2X;
R1:=Z1D AND Z2D;
R2:=REF(R1,1) AND X1D2;
R3:=REF(R2,1) AND D1X2;
R4:=REF(R3,1) AND X1D2;
R5:=REF(R4,1) AND D1X2;
R6:=REF(R5,1) AND X1D2;
R7:=REF(R6,1) AND D1X2;
R8:=REF(R7,1) AND X1D2;
R9:=REF(R8,1) AND D1X2;
RA:=REF(R9,1) AND X1D2;
RB:=REF(RA,1) AND D1X2;
RC:=REF(RB,1) AND X1D2;
RD:=Z1X AND Z2X;
RE:=REF(RD,1) AND D1X2;
RF:=REF(RE,1) AND X1D2;
R10:=REF(RF,1) AND D1X2;
R11:=REF(R10,1) AND X1D2;
R12:=REF(R11,1) AND D1X2;
R13:=REF(R12,1) AND X1D2;
R14:=REF(R13,1) AND D1X2;
R15:=REF(R14,1) AND X1D2;
R16:=REF(R15,1) AND D1X2;
R17:=REF(R16,1) AND X1D2;
R18:=REF(R17,1) AND D1X2;
R19:=((REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1)) AND R1);
R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD);

红色持股:=R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,COLOR0000FF,NODRAW;
离场:=IF(红色持股,JRL,NULL);
明离场价:=离场,COLORFF99FF,NODRAW;
今离场价:REF(离场,1),COLORGREEN,NODRAW;
青色观望:=RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,COLORFFFF00,NODRAW;
进:=IF(青色观望,JRH,NULL);
明进场价:=进,COLOR33AACC,NODRAW;
今进场价:REF(明进场价,1),COLORRED,NODRAW;
短买:R19,COLORRED,NODRAW;
STICKLINE1(ISLASTBAR AND (红色持股 OR REF(红色持股,1)=1),今离场价,今离场价,30,1),COLOR0000FF;
STICKLINE1(ISLASTBAR AND (青色观望 OR REF(青色观望,1)=1),今进场价,今进场价,30,1),COLOR00FF00;
QLIFE:=(EMA(CLOSE,60)+EMA(CLOSE,90))/2,POINTDOT,COLORGREEN,LINETHICK4;
TT:=240/FROMOPEN;
比:=TT;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
AAA:=REFX1(HHV(H,90),10000);
BBB:=REFX1(LLV(L,100),10000);
DRAWKLINE1(H,O,L,C);



升:=EMA(C,2),COLOR000000;
降:=EMA(SLOPE(C,12)*20+C,30),COLOR000000;
买:=CROSS(升,降);
卖:=CROSS(降,升);


BUY1:=ZIGZAG(C,10,1);
SELL1:=MA(BUY1,2);
DRAWICON(CROSS(BUY1,SELL1),L-0.3,7);
DRAWICON(CROSS(SELL1,BUY1),H+0.2,8);
STICKLINE1(BUY1>SELL1 AND O>=C,C,O,3,0),COLORRED;
STICKLINE1(BUY1>SELL1 AND O>=C,L,H,0,0),COLORRED;
STICKLINE1(BUY1<SELL1 AND O<=C,O,C,3,1),COLORCYAN;
STICKLINE1(BUY1<SELL1 AND O<=C,O,L,0,1),COLORCYAN;
STICKLINE1(BUY1<SELL1 AND O<=C,C,H,0,1),COLORCYAN;


VAR2:=HIGH-REF(HIGH,1);
VAR3:=REF(LOW,1)-LOW;
VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);
VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);
VAR6:=VAR4*100/VAR1;
VAR7:=VAR5*100/VAR1;
VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,15);
VAR9:=(VAR8+REF(VAR8,15))/2;

B:=ZIGZAG(C,5,1)*100;
G:=MA(B,2);
D:=CROSS(B,G);
W:=CROSS(G,B);
VAR11:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR12:=SMA(VAR11,3,1);
VAR13:=SMA(VAR12,3,1);
VAR14:=VAR13 AND VAR13<20;
DRAWTEXT(FILTER(D=1,5),LOW-0.1,'↖买'),COLORYELLOW;
DRAWTEXT(W=1,HIGH*1.02,'逃'),COLORGREEN;

EXIST(FILTER(D=1,5),3),SOUND('A');
EXIST(W=1,3),SOUND('A');


STICKLINE1(W=1,O,C,3,0),COLORBLUE;
STICKLINE1(D=1,O,C,3,0),COLORYELLOW;



PL5:=ZIGZAG(C,5,1);
EN1:=ZIGZAG(C,5,1)>REF(ZIGZAG(C,5,1),1) AND REF(ZIGZAG(C,5,1),1)<=REF(ZIGZAG(C,5,1),2) AND REF(ZIGZAG(C,5,1),2)<=REF(ZIGZAG(C,5,1),3);
EX1:=ZIGZAG(C,5,1)<REF(ZIGZAG(C,5,1),1) AND REF(ZIGZAG(C,5,1),1)>=REF(ZIGZAG(C,5,1),2) AND REF(ZIGZAG(C,5,1),2)>=REF(ZIGZAG(C,5,1),3);
PL10:=ZIGZAG(C,10,1);
EN2:=ZIGZAG(C,10,1)>REF(ZIGZAG(C,10,1),1) AND REF(ZIGZAG(C,10,1),1)<=REF(ZIGZAG(C,10,1),2) AND REF(ZIGZAG(C,10,1),2)<=REF(ZIGZAG(C,10,1),3);
EX2:=ZIGZAG(C,10,1)<REF(ZIGZAG(C,10,1),1) AND REF(ZIGZAG(C,10,1),1)>=REF(ZIGZAG(C,10,1),2) AND REF(ZIGZAG(C,10,1),2)>=REF(ZIGZAG(C,10,1),3);
PL20:=ZIGZAG(C,20,1);
EN3:=ZIGZAG(C,20,1)>REF(ZIGZAG(C,20,1),1) AND REF(ZIGZAG(C,20,1),1)<=REF(ZIGZAG(C,20,1),2) AND REF(ZIGZAG(C,20,1),2)<=REF(ZIGZAG(C,20,1),3);
EX3:=ZIGZAG(C,20,1)<REF(ZIGZAG(C,20,1),1) AND REF(ZIGZAG(C,20,1),1)>=REF(ZIGZAG(C,20,1),2) AND REF(ZIGZAG(C,20,1),2)>=REF(ZIGZAG(C,20,1),3);
PL40:=ZIGZAG(C,40,1);

走强1:=BARSLAST(PL5<REF(PL5,1));
走弱1:=BARSLAST(PL5>REF(PL5,1));
走强2:=BARSLAST(PL10<REF(PL10,1));
走弱2:=BARSLAST(PL10>REF(PL10,1));
走强3:=BARSLAST(PL20<REF(PL20,1));
走弱3:=BARSLAST(PL20>REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);
DRAWTEXT(EN1 AND DTJZ5=1,L*0.95,'A浪进'),COLORGREEN;
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'B浪空进'),COLORGREEN;
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.95,'C浪多进'),COLORGREEN;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴空进'),COLORYELLOW;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵多补仓'),COLORYELLOW;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶空进'),COLORYELLOW;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷多持有'),COLORYELLOW;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸空进'),COLORYELLOW;

EXIST(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,3),SOUND('A');
EXIST(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,3),SOUND('A');
EXIST(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,3),SOUND('A');
EXIST(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,3),SOUND('A');
EXIST(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,3),SOUND('A');


DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ多'),COLORFF00FF;
DRAWTEXT(EX2 AND DTJD10=2,H*1.01,'Ⅱ空'),COLORFF00FF;
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ多'),COLORFF00FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.06,'①空进'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.94,'②多补仓'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.06,'③空进'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.94,'④多持有'),LINETHICK3,COLOR00FFFF;


DRAWTEXT(极点保留=1&&BARSLAST(W=1)<BARSLAST(D=1),局部极点,'空'),COLORYELLOW,FONTSIZE20;
DRAWTEXT(极点保留=-1&&BARSLAST(D=1)<BARSLAST(W=1),局部极点,'多'),LINETHICK2,COLORYELLOW,FONTSIZE20,VALIGN0;



EXIST(EN2 AND DTJZ10=1  ,3),SOUND('A');
EXIST(EX2 AND DTJD10=2  ,3),SOUND('A');
EXIST(EN3 AND ZTJZ10=1  ,3),SOUND('A');
EXIST(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1  ,3),SOUND('A');
EXIST(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2  ,3),SOUND('A');
EXIST(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2  ,3),SOUND('A');
EXIST(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3  ,3),SOUND('A');
EXIST(极点保留=1&&BARSLAST(W=1)<BARSLAST(D=1)  ,3),SOUND('A');
EXIST(极点保留=-1&&BARSLAST(D=1)<BARSLAST(W=1)  ,3),SOUND('A');

作者 admin

九稳量化交易系统 是一套高胜率策略趋势跟踪系统,系统最大优势就是开仓位置精确,信号不漂移 不延迟 同步行情信号 拒绝马后面!www.gao998.cn 微信 fxfx668998

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注