通达信巳蛇草上飞未加密选股指标公式源码

通达信巳蛇草上飞未加密选股指标公式源码

源码正文：

A1:=(ema((OPEN+HIGH+LOW+CLOSE)/4,3)+Ema((OPEN+HIGH+LOW+CLOSE)/4,6)+EMA((OPEN+HIGH+LOW+CLOSE)/4,9))/3{XG51};
A2:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,5)+EMA((OPEN+HIGH+LOW+CLOSE)/4,10)+EMA((OPEN+HIGH+LOW+CLOSE)/4,20))/3{XG51};
A3:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,7)+EMA((OPEN+HIGH+LOW+CLOSE)/4,14)+EMA((OPEN+HIGH+LOW+CLOSE)/4,28))/3{XG51};
A4:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,9)+EMA((OPEN+HIGH+LOW+CLOSE)/4,18)+EMA((OPEN+HIGH+LOW+CLOSE)/4,36))/3{XG51};
A5:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,11)+EMA((OPEN+HIGH+LOW+CLOSE)/4,22)+EMA((OPEN+HIGH+LOW+CLOSE)/4,44))/3{XG51};
A6:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,13)+EMA((OPEN+HIGH+LOW+CLOSE)/4,26)+EMA((OPEN+HIGH+LOW+CLOSE)/4,52))/3{XG51};
A7:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,21)+EMA((OPEN+HIGH+LOW+CLOSE)/4,34)+EMA((OPEN+HIGH+LOW+CLOSE)/4,68))/3{XG51};
VAR1:=FORCAst(A1,6){XG51};
VAR2:=FORCAST(A2,6){XG51};
VAR3:=FORCAST(A3,6){XG51};
VAR4:=FORCAST(A4,6){XG51};
VAR5:=FORCAST(A5,6){XG51};
VAR6:=FORCAST(A6,6){XG51};
VAR7:=FORCAST(A7,6){XG51};
IF(VAR1>REF(VAR1,1),VAR1,DRAWNULL),POINTDOT,COLORFF00FF{XG51};
IF(VAR1<REF(VAR1,1),VAR1,DRAWNULL),POINTDOT,COLOR00FF00{XG51};
IF(VAR2>REF(VAR2,1),VAR2,DRAWNULL),POINTDOT,COLORFF00FF{XG51};
IF(VAR2<REF(VAR2,1),VAR2,DRAWNULL),POINTDOT,COLOR00FF00{XG51};
IF(VAR3>REF(VAR3,1),VAR3,DRAWNULL),POINTDOT,COLORFF00FF{XG51};
IF(VAR3<REF(VAR3,1),VAR3,DRAWNULL),POINTDOT,COLOR00FF00{XG51};
IF(VAR4>REF(VAR4,1),VAR4,DRAWNULL),POINTDOT,COLORFF00FF{XG51};
IF(VAR4<REF(VAR4,1),VAR4,DRAWNULL),POINTDOT,COLOR00FF00{XG51};
IF(VAR5>REF(VAR5,1),VAR5,DRAWNULL),POINTDOT,COLORFF00FF{XG51};
IF(VAR5<REF(VAR5,1),VAR5,DRAWNULL),POINTDOT,COLOR00FF00{XG51};
IF(VAR6>REF(VAR6,1),VAR6,DRAWNULL),POINTDOT,COLORFF00FF{XG51};
IF(VAR6<REF(VAR6,1),VAR6,DRAWNULL),POINTDOT,COLOR00FF00{XG51};
IF(VAR7>REF(VAR7,1),VAR7,DRAWNULL),LINETHICK2,COLORFF00FF{XG51};
IF(VAR7<REF(VAR7,1),VAR7,DRAWNULL),LINETHICK2,COLOR00FF00{XG51};
towERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6){XG51};
DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1)){XG51};
DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1)){XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,DIRECTIONMAX,4,0),COLOR0000FF{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMIN,4,0),COLOR00FF00{X~G_5-1~C~N~{};

通达信减仓买入未加密选股指标公式源码

源码正文：

N:=80;M:=5{XG51};
高1:=REF(HHV(H,150),3){XG51};
低1:=REF(LLV(L,150),3){XG51};
H1:=高1-(高1-低1)*0.191{XG51};
H2:=高1-(高1-低1)*0.382{XG51};
H3:=高1-(高1-低1)*0.5{XG51};
H4:=高1-(高1-低1)*0.618{XG51};
H5:=高1-(高1-低1)*0.809{XG51};
%19:REFDATE(H1,DATE),POINTDOT,COLORBLUE,LINETHICK3{XG51};
%38:REFDATE(H2,DATE),POINTDOT,COLORmaGENTA,LINETHICK3{XG51};
%50:REFDATE(H3,DATE),POINTDOT,COLORBLACK,LINETHICK3{XG51};
%61:REFDATE(H4,DATE),POINTDOT,COLORWHITE,LINETHICK3{XG51};
%80:REFDATE(H5,DATE),POINTDOT,COLORRED,LINETHICK3{XG51};
AA05:MA(C,5),LINETHICK3,COLOR0099CC{XG51};
五日乖离率:=(C-AA05)/AA05*100{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(ema((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1){XG51};
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW{XG51};
IF(BB05>30 AND AA05>REF(AA05,1), AA05,DRAWNULL),LINETHICK3,COLORWHITE{XG51};
AA10:MA(C,10);AA20:=MA(C,20){XG51};
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416{XG51};
IF(BB05<0 AND AA05<REF(AA05,1), AA05,DRAWNULL),LINETHICK3,COLORCYAN{XG51};
AA30:MA(C,30){XG51};
三拾日乖离率:(C-AA30)/AA30*100,NODRAW{XG51};
VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1){XG51};
VAR2:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1){XG51};
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416{XG51};
IF(BB30>15 AND AA30>REF(AA30,1), AA30,DRAWNULL),LINETHICK3,COLORFF00FF{XG51};
强势狙击:=FILTER(BB30>30 AND BB10>45 AND crOSS(BB05,60),10){XG51};
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) {XG51};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND AA05<REF(AA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10<REF(AA10,1),10){XG51};
DRAWTEXT(加仓 ,LOW*0.98,'&larr;加仓'),COLORWHITE{XG51};
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) {XG51};
减仓:=FILTER(JC,10){XG51};
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30{XG51};
买入:=FILTER(MR,10){XG51};
DRAWTEXT(减仓,HIGH*1.02,'&larr;减仓'),COLORGREEN{XG51};
DRAWTEXT(买入,LOW*0.98,'&larr;买入'),COLORBLUE{XG51};
VAR21:=MAX(Abs(HIGH-AMOUNT/vol/100),ABS(AMOUNT/VOL/100-LOW)){XG51};
VAR3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100){XG51};
MV:=(VAR21+VAR3)/AMOUNT*VOL*100*50{X-G!5-1-C-N-{};