趋势王副图指标源码(通达信)

趋势王副图指标源码(通达信)

源码正文：

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,3,0),COLOR0000FF{XG51};
STICKLINE(TOWERC<REF(TOWERC,1),TOWERC,DIRECTIONMIN,3,0),COLOR00FF00;

用法：使用周期——以周线为主。
主线为红——持股；主线为绿——持币。
图中：
1处为顶背离，背离卖出点
2处为穿越主线，穿越卖出点
3处为底背离，背离买入点
4处同3
5处为穿越主线，穿越买入点
6处为穿越卖出后补回点
7、8均为回调加仓点

{X~G^5-1~C~N~{}

熊市里就靠这指标赚的钱(通达信)

源码正文：

VARA:=REF(LOW,1){XG51};
VARB:=SMA(Abs(LOW-VARA),3,1)/Sma(MAX(LOW-VARA,0),3,1)*100{XG51};
VARC:=ema(IF(CLOSE*1.3,VARB*10,VARB/10),3){XG51};
VARD:=LLV(LOW,30){XG51};
VARE:=HHV(VARC,30){XG51};
VARF:=IF(MA(CLOSE,58),1,0){XG51};
VARG:=EMA(IF(LOW<=VARD,(VARC+VARE*2)/2,0),3)/618*VARF{XG51};
VARH:=IF(VARG>28,28,VARG){XG51};
吸筹:stICKLINE(VARH>-120,0,VARH,6,1),COLOR0FFFFF{XG51};
备钱:吸筹,COLOR0FFFFF;
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100){XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
X:=LLV(J,2)=LLV(J,8){XG51};
买入时机: IF(crOSS(J,3),65,0),COLORFF00FF,LINETHICK3{XG51};
DRAWTEXT(买入时机,70.1,' 跟庄'),COLOR00FF00{XG51};
VA:=(2*C+H+L)/4{XG51};
VB:=LLV(L,5){XG51};
VC:=HHV(H,5){XG51};
红线上穿买:EMA((VA-VB)/(VC-VB)*100,5),COLORWHITE{XG51};
红线下穿卖:EMA(红线上穿买,3),COLORFFFF00{XG51};
趋势:3*SMA((CLOSE- LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),COLOR00FFFF{XG51};
秘密买点: IF(趋势<=3,20,0),COLOR00FF00,LINETHICK3{XG51};
机构建仓: IF(趋势<5,40,0),COLORFFFFFF,LINETHICK3{X~G_5!1~C~N~{};