|
以下是通达信短线抽底源码（无源码的请下载附件导入）
ZFA:=(CLOSE-REF(CLOSE,1))*100/REF(CLOSE,1);
ZFB:=(CLOSE-OPEN)*100/OPEN;
ZF:MAX(ZFB,ZFA),NODRAW;
MA21:=MA(CLOSE,21);
MA22:=SMA(MA21,3,1);
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);
M55:=IF(MA55>REF(MA55,1),1,0);
MA56:=SMA(MA55,3,1);
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;
VA:=(CLOSE+OPEN+LOW+HIGH)/4;
RSV:=(VA-LLV(VA,13))/(HHV(VA,13)-LLV(VA,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);
VAA1:=LLV(LOW,100)+(HHV(HIGH,100)-LLV(LOW,100))/2+(HHV(HIGH,100)-LLV(LOW,100))/2*SIN(3.141596*537/1800);
VAA2:=LLV(LOW,100)+(HHV(HIGH,100)-LLV(LOW,100))/2-(HHV(HIGH,100)-LLV(LOW,100))/2*SIN(3.141596*536/1800);
VA3:=(VAA1-VAA2)*100/(VAA1+VAA2);
VA4:=VA3-REF(VA3,1);
VA5:=IF(VA4>0,VA4*90,0);
VA6:=IF(VA5>170,170,VA5);
VAR16:=COST(95);
AB2:=COST(5);
VAR17:=(VAR16-AB2)*100/(VAR16+AB2);
VAR18:=VAR17-REF(VAR17,1);
VAR19:=IF(VAR18>0,VAR18*90,0);
VAR20:=IF(VAR19>=170,170,VAR19);
ZFX:(OPEN-LOW)*100/LOW,NODRAW;
XG:=IF(VA6>=50 OR VAR20>=40 AND JB<(-30) AND (UPJ>=2 OR BARSLAST(UPJ>=2)<34),3,IF(VA6>=30 OR VAR20>=20 AND JJ<(-50) AND (UPJ>=2 OR BARSLAST(UPJ>=2)<34),3,0));
短线抽底:IF(MA55>MA56 AND MA90>MA91 AND (OPEN>MA55 AND LOW<MA55 OR (OPEN>MA90 AND LOW<MA90)) AND ZFX>7 AND REF(ZFB,1)<0 AND ZF<0,ZFX+1,IF(MA120>MA121 AND MA90>MA91 AND (OPEN>MA120 AND LOW<MA120 OR (OPEN>MA90 AND LOW<MA90) OR (OPEN<MA90 AND LOW>MA120)) AND ZFX>7 AND REF(ZFB,1)<(-1),ZFX+1,IF(XG>=1 AND ZFX>=7 AND REF(ZFX,1)>5 AND JB<(-50),ZFX+1,IF(XG>=1 AND ZFX>=5 AND REF(ZF,1)<(-8) AND JB<(-50),ZFX+1,0))));
{-----------------------------------}
80344573.jpg
|
