同花顺超强背离王选股指标公式源码

同花顺超强背离王选股指标公式源码

源码正文：

A1:=FORCAst(ema(CLOSE,5),5){XG51};
A2:=FORCAST(Ema(CLOSE,8),5){XG51};
A3:=FORCAST(EMA(CLOSE,11),5){XG51};
A4:=FORCAST(EMA(CLOSE,14),5){XG51};
A5:=FORCAST(EMA(CLOSE,17),5){XG51};
B:=A1+A2+A3+A4-4*A5{XG51};
towERC:=EMA(B,2){XG51};
VAR1L:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,20)-LLV(LOW,10)),5)-20{XG51};
VAR2L:=2*Abs(VAR1L){XG51};
AMOV:=B;//www.88gs.com
MN:=(AMOV-LLV(AMOV,20))/(HHV(AMOV,20)-LLV(AMOV,20))*15.97{XG51};
NOTEXT1:IF(C>=MN,MN*5,DRAWNULL),LINETHICK1,COLOR0000FF{XG51};
NOTEXT2:IF(C<MN,MN*5,DRAWNULL),LINETHICK1,colorgray{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorred{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorgreen{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorred{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorred{XG51};
STICKLINE(TOWERC>=REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorred{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorgreen{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorgreen{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorgreen{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),NOTEXT1,VAR2L,0,0),colorgreen{XG51};
N:=13{XG51};
VAR1:4*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,5,1),3.2,1),coloryellow,LINETHICK0{XG51};
VAR2:8,colorgreen,LINETHICK0,NODRAW{XG51};
上升在即: IF(crOSS(VAR1,VAR2),50,0),STICK,COLOR0000CC,LINETHICK2{XG51};
专吸庄血: IF(VAR1<=8,25,0),STICK,colorwhite,LINETHICK2{XG51};
DRAWICON(CROSS(VAR1,VAR2),8,1){XG51};
VARO5:=LLV(LOW,27){XG51};
VARO6:=HHV(HIGH,34){XG51};
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25{XG51};
建仓区: IF((VARO7<10),80,100) ,COLOR0080FF,LINETHICK1{XG51};
DRAWICON(CROSS(100,VAR1),100,2){XG51};
DRAWICON((100-VAR1<3 AND 100-VAR1>0),100,2){XG51};
Y:=IF((55-VAR1)>=0,-1,1),colorgreen{XG51};
持有:Y=1,colorred,NODRAW{XG51};
观望:Y=-1,colorgreen,NODRAW{XG51};
DRAWTEXT(CROSS(VAR1,建仓区),VAR1,'终'){XG51};
DRAWTEXT(CROSS(VAR2,VAR1),VAR2,'始'),COLOR00FFFF{XG51};
kd1B:=IF(LOW=LLV(LOW,3),1,0){XG51};
DLB:=IF(REF(KD1B,2)=1 AND REF(KD1B,1)=0 AND KD1B=0,REF(LOW,2),REF(LOW,2+BArslAST(REF(KD1B,2)=1
AND REF(KD1B,1)=0 AND KD1B=0))){XG51};
LVB:=L<DLB AND L<REF(L,1) {XG51};
DPB:=BARSLAST(LVB){XG51};
AMOVB2:=DPB{XG51};
MNB2:=(AMOVB2-LLV(AMOVB2,20))/(HHV(AMOVB2,20)-LLV(AMOVB2,20))*15.97{XG51};
NOTEXT1B2:IF(C>=MNB2,MNB2*5,DRAWNULL),LINETHICK2,COLORFF0000{XG51};
绿军: IF(VAR1L<0,VAR2L,0), LINESTICK ,COLOR00FF00{XG51};
KD1:=IF(LOW=LLV(LOW,30),1,0){XG51};
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1
AND REF(KD1,1)=0 AND KD1=0))){XG51};
LV:=L<DL AND L<REF(L,1) {XG51};
DP:=BARSLAST(LV){XG51};
AMOV2:=DP{XG51};
MN2:=(AMOV2-LLV(AMOV2,20))/(HHV(AMOV2,20)-LLV(AMOV2,20))*15.97{XG51};
NOTEXT12:IF(C>=MN2,MN2*5,DRAWNULL),LINETHICK1,COLORFFFF00{X.G!5~1.C.N.{};