通达信弘历趋势王未加密选股指标公式源码

源码正文：

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^{};

源码正文：

Var1:=(HIGH+LOW+CLOSE)/3{XG51};
Var2:=(Var1-ma(Var1,14))/(0.015*AVEDEV(Var1,14)){XG51};
Var3:=(Var1-MA(Var1,70))/(0.015*AVEDEV(Var1,70)){XG51};
Var4:=IF(Var2>=150 AND Var2<200 AND Var3>=150 AND Var3<200,-10,0){XG51};
Var5:=IF(Var2<=-150 AND Var2>-200 AND Var3<=-150 AND Var3>-200,10,0){XG51};
天线:IF(BARSCOUNT(CLOSE)<70,120,IF(Var3>=200 AND Var2>=150,-15,Var4)+120),Linethick2,colorccff66{XG51};
地线:IF(BARSCOUNT(CLOSE)<70,-120,IF(Var3<=-200 AND Var2<=-150,15,Var5)-120),Linethick2,colorff99cc{XG51};
Var6:=SMA((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100,4,1){XG51};
SMA((Var6-50)*2,3,1),Linethick2,colorff0033{XG51};
Var7:=SMA((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11))*100,4,1){XG51};
SMA((Var7-50)*2,3,1),Linethick2,colorff2233{XG51};
(SMA((Var7-50)*2,3,1)+SMA((Var6-50)*2,3,1))/2,Linethick2,colorff4433{XG51};
Var8:=SMA((CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12))*100,4,1){XG51};
SMA((Var8-50)*2,3,1),Linethick2,colorff6633{XG51};
(SMA((Var8-50)*2,3,1)+SMA((Var7-50)*2,3,1))/2,Linethick2,colorff8833{XG51};
Var9:=SMA((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100,4,1){XG51};
Vara:SMA((Var9-50)*2,3,1),Linethick2,colorff9933;
(SMA((Var9-50)*2,3,1)+SMA((Var8-50)*2,3,1))/2,Linethick2,colorffaa33{XG51};
Var10:=SMA((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14))*100,4,1){XG51};
SMA((Var10-50)*2,3,1),Linethick2,colorffbb33{XG51};
Var11:=SMA((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100,4,1){XG51};
波浪线:SMA((Var11-50)*2,3,1)+SMA((Var10-50)*2,3,1)/2,Linethick2,colorgreen{XG51};
(SMA((Var10-50)*2,3,1)+SMA((Var9-50)*2,3,1))/2,Linethick2,colorffcc33{XG51};
波浪线,colorstICK,color888888{XG51};
Var12:=(Var11-50)*6-2*SMA((Var11-50)*2,3,1){XG51};
Var13:=FILTER(波浪线>ref(波浪线,1)AND 波浪线<-20,10){XG51};
Var14:=FILTER(波浪线<ref(波浪线,3)and 波浪线>ref(波浪线,1)and 波浪线<-10,7){XG51};
Var15:=FILTER(波浪线<REF(波浪线,1),10){XG51};
Var16:=FILTER(波浪线<REF(波浪线,1)AND 波浪线>110,10){XG51};
Var17:=Var11<REF(Var11,3)AND Var11>REF(Var11,2)AND Var11<30{XG51};
DRAWICON(FILTER(Var13 OR Var14 OR Var17,5)AND Vara>REF(Vara,1),波浪线,1){XG51};
DRAWICON(FILTER(crOSS(波浪线,Var12)OR Var15,5)AND Var12>60,波浪线*1.05,2){XG51};
DRAWTEXT(FILTER(CROSS(100,波浪线)OR Var16,3),110,'顶部'),COLOR00FF00{XG51};
DRAWTEXT(CROSS(波浪线,地线),地线,'抄底'),COLORWHITE{X+G*5.1+C+N+{};