以下是通达信线上双涨停源码副图(无源码的请下载附件导入)
ZFA:=(CLOSE-REF(CLOSE,1))*100/REF(CLOSE,1);
ZFB:=(CLOSE-OPEN)*100/OPEN;
ZF:MAX(ZFB,ZFA),NODRAW;
MA5:=EMA(EMA(EMA(EMA(EMA(EMA(EMA(EMA(CLOSE,2),2),2),2),2),2),2),2);
MA6:=SMA(MA5,3,1);
MA13:=MA(CLOSE,13);
MA21:=MA(CLOSE,21);
M21:=IF(MA21>REF(MA21,1),1,0);
MA34:=MA(CLOSE,34);
MA35:=SMA(MA34,3,1);
M34:=IF(MA34>REF(MA34,1),1,0);
MA55:=MA(CLOSE,55);
MA56:=SMA(MA55,3,1);
M55:=IF(MA55>REF(MA55,1),1,0);
MA90:=MA(CLOSE,90);
MA91:=SMA(MA90,3,1);
M90:=IF(MA90>REF(MA90,1),1,0);
MA120:=MA(CLOSE,144);
MA121:=SMA(MA120,3,1);
M120:=IF(MA120>REF(MA120,1),1,0);
M1:=MA(CLOSE,240);
M250:=IF(M1>REF(M1,1),1,0);
UPJ:=M90+M120+M250;
UPA:=M21+M34+M55;
AA3:=MAX(MA90,MAX(MA120,M1));
AA4:=MIN(MA90,MIN(MA120,M1));
KK:=(AA3-AA4)*100/AA4;
XD5:=MA(REF(HHV(CLOSE,2),1),2);
VAA:=(OPEN+CLOSE+LOW+HIGH)/4;
RSB:=(VAA-LLV(VAA,27))/(HHV(VAA,27)-LLV(VAA,27))*200-100;
DA:=SMA(SMA(RSB,5,1),5,1)*1.3;
RSV:=(VAA-LLV(VAA,13))/(HHV(VAA,13)-LLV(VAA,13))*200-100;
K:=SMA(RSV,5,1);
D:=SMA(K,5,1);
DD:=D*1.4;
JJ:=3*K-2*D;
J:=SMA(JJ,3,1);
JA:=SMA(J,3,1);
JB:=SMA(JA,3,1);
RSD:=(VAA-LLV(VAA,89))/(HHV(VAA,89)-LLV(VAA,89))*200-100;
DF:=SMA(SMA(RSD,5,1),5,1)*1.3;
BBJ:=REF(BARSLAST(ZF>=9.6),1);
BBK:=REF(CLOSE,BBJ+1);
KX:=(CLOSE-BBK)*100/BBK;
线上双涨停:IF(BBJ>=4 AND BBJ<=10 AND ABS(KX)<=12 OR (BBJ>10 AND BBJ<=21 AND ABS(KX)<=14) OR (BBJ>21 AND BBJ<=35 AND ABS(KX)<=15) OR (BBJ>35 AND BBJ<=55 AND ABS(KX)<=16) OR (BBJ>55 AND BBJ<=89 AND ABS(KX)<=17) AND COUNT(ZF>=9.6,4)=1 AND ZF>=9.6 AND (UPA>=2 AND UPJ>=2 OR (UPA>=1 AND UPJ>=3)),UPJ+UPA+2,0);
BBJA:=REF(BARSLAST(ZF>=7),1);
BBKA:=REF(CLOSE,BBJA+1);
KXA:=(CLOSE-BBKA)*100/BBKA;
线上双中阳:=IF(BBJA>=3 AND BBJA<=21 AND ABS(KXA)<=8 OR (BBJA>21 AND BBJA<=50 AND ABS(KXA)<=10) AND COUNT(ZF>=N,4)=1 AND ZF>=N AND ZF<9.6 AND (UPA>=2 AND UPJ>=2 OR (UPA>=1 AND UPJ>=3)),UPJ+UPA+2,0);
AA:=MA(CLOSE,IF(BARSSINCE(CLOSE>0)<17,BARSSINCE(CLOSE>0),17));
FS:=2*AA-REF(AA,1);
BBX:=IF(AA<FS,FS,AA);
BBY:=SMA(BBX,4,1);
线上涨停:=IF(FILTER(UPJ>=2 AND (BARSLAST(BARSLASTCOUNT(MA5>REF(MA5,1))=1)<=4 AND MA5>REF(MA5,1) OR (BARSLAST(BARSLASTCOUNT(BBX>REF(BBX,1))=1)<=4 AND BBX>REF(BBX,1)) OR (BARSLAST(BARSLASTCOUNT(MA13>REF(MA13,1))=1)<=4 AND MA13>REF(MA13,1)) OR (BARSLAST(BARSLASTCOUNT(MA21>REF(MA21,1))=1)<=4 AND MA21>REF(MA21,1))) AND ZF>=9.6,8),UPJ+UPA,0);
线上中阳:=IF(FILTER(UPJ>=2 AND (BARSLAST(BARSLASTCOUNT(MA5>REF(MA5,1))=1)<=5 AND MA5>REF(MA5,1) OR (BARSLAST(BARSLASTCOUNT(BBX>REF(BBX,1))=1)<=4 AND BBX>REF(BBX,1)) OR (BARSLAST(BARSLASTCOUNT(MA13>REF(MA13,1))=1)<=4 AND MA13>REF(MA13,1)) OR (BARSLAST(BARSLASTCOUNT(MA21>REF(MA21,1))=1)<=4 AND MA21>REF(MA21,1))) AND ZF>=N AND ZF<9.6,5),UPJ+UPA,0);
低价:=IF(MA55>MA56 OR MA90>MA91 OR MA120>MA121 AND CROSS(JJ,J) AND (J<(-50) OR JA<(-30) OR JB<(-20)),UPJ+UPA,0);
低位XD:=IF(MA55>MA56 AND CROSS(CLOSE,MA55) AND (JJ<(-90) OR JA<(-50) OR JB<(-30)),UPJ+UPA+1,IF(BBX>BBY AND MA55>MA56 AND COUNT(CLOSE>XD5,3)=1 AND CLOSE>XD5 AND (JJ<(-90) OR JA<(-50) OR JB<(-30)),UPJ+UPA+1,0));
上穿:=IF(BARSLASTCOUNT(UPJ>=2 AND (LOW<M1 AND HIGH>M1 OR (LOW<MA120 AND HIGH>MA120) OR (LOW<MA90 AND HIGH>MA90)) AND (ZF>5 OR IF(REF(ZF,1)>0 AND ZF>0 AND REF(ZF,1)<6 AND ZF<6,REF(ZF,1)+ZF,0)>=8 OR IF(REF(ZF,2)>0 AND REF(ZF,1)>0 AND ZF>0 AND REF(ZF,2)<6 AND REF(ZF,1)<6 AND ZF<6,REF(ZF,2)+REF(ZF,1)+ZF,0)>=8 OR IF(REF(ZF,3)>0 AND REF(ZF,2)>0 AND REF(ZF,1)>0 AND ZF>0 AND REF(ZF,3)<6 AND REF(ZF,2)<6 AND REF(ZF,1)<6 AND ZF<6,REF(ZF,3)+REF(ZF,2)+REF(ZF,1)+ZF,0)>=8))=1,UPJ+UPA,0);
穿越:=IF(KK<7.5 AND UPJ>=1 AND (M90=1 OR M120=1) AND COUNT(LOW<AA4,21)>=1 AND CROSS(XD5,AA3),UPJ+10,0);
{-----------------------------------}
92455649.jpg
|