黄金背离选背离的公式通达信公式 主图 源码附图

来函数检测结果如下：
该公式没有未来函数

日:=150;昨前:=3;

高1:=REF(HHV(H,日),昨前);

低1:=REF(LLV(L,日),昨前);

H1:=高1-(高1-低1)*0.191;

H2:=高1-(高1-低1)*0.382;

H3:=高1-(高1-低1)*0.5;

H4:=高1-(高1-低1)*0.618;

H5:=高1-(高1-低1)*0.809;

顶:REFDATE(高1,DATE),COLORGREEN,CROSSDOT,LINETHICK2;

零点191:REFDATE(H1,DATE),COLORCYAN;

零点382:REFDATE(H2,DATE),COLORYELLOW;

零点5:REFDATE(H3,DATE),COLORRED;

零点618:REFDATE(H4,DATE),COLORYELLOW;

零点809:REFDATE(H5,DATE),COLORCYAN;

低:REFDATE(低1,DATE),COLORRED,CROSSDOT,LINETHICK2;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:=EMA(DIFF,8);

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);

DRAWTEXT(IF(B1>0,1,0),L-0.1,'MACD底背'),COLORYELLOW;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

A2:=BARSLAST(REF(CROSS(K,D),1));

B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);

DRAWTEXT(IF(B2>0,1,0),L-0.25,'KDJ底背'),COLORYELLOW;

LC:=REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;

A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));

B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);

DRAWTEXT(IF(B3>0,1,0),L-0.4,'RSI底背'),COLORFF00FF;

C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));

D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);

DRAWTEXT(IF(D1>0,1,0),H+0.1,'MACD顶背'),COLORYELLOW;

C2:=BARSLAST(REF(CROSS(D,K),1));

D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);

DRAWTEXT(IF(D2>0,1,0),H+0.25,'KDJ顶背'),COLORWHITE;

C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));

D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);

DRAWTEXT(IF(D3>0,1,0),H+0.4,'RSI顶背'),COLORFF00FF;

JJ:=(H+L+3*C)/5;

VAR21:=EMA(JJ,5);VAR22:=EMA(JJ,13);VAR23:=EMA(JJ,21);VAR24:=EMA(JJ,34);H1A:=(VAR21+VAR22+VAR23+VAR24)/4;

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

LL:=LLV(C,100);

TJ:=IF((C-REF(C,1))/REF(C,1)>0.025,1,0);

STICKLINE(C>REF(O,BARSLAST(TJ =1)),REF(O,BARSLAST(TJ =1)),REF(O,BARSLAST(TJ =1)),10,0),COLORGREEN;

VAR4:=(LOW+HIGH+CLOSE)/3;

 

原理解析：
日赋值:150
昨前赋值:3
高1赋值:REF(日日内H最高值,昨前)
低1赋值:REF(日日内L最低值,昨前)
H1赋值:高1-(高1-低1)*0.191
H2赋值:高1-(高1-低1)*0.382
H3赋值:高1-(高1-低1)*0.5
H4赋值:高1-(高1-低1)*0.618
H5赋值:高1-(高1-低1)*0.809
输出顶:REFDATE(高1,DATE),画绿色,CROSSDOT,LINETHICK2
输出零点191:REFDATE(H1,DATE),画青色
输出零点382:REFDATE(H2,DATE),COLORYELLOW
输出零点5:REFDATE(H3,DATE),COLORRED
输出零点618:REFDATE(H4,DATE),COLORYELLOW
输出零点809:REFDATE(H5,DATE),画青色
输出低:REFDATE(低1,DATE),COLORRED,CROSSDOT,LINETHICK2
DIFF赋值:收盘价的12日指数移动平均 - 收盘价的26日指数移动平均
DEA赋值:DIFF的8日指数移动平均
A1赋值:上次1日前的DIFF上穿DEA距今天数
B1赋值:A1+1日前的C>C AND A1+1日前的DIFF如果B1>0返回1否则返回0
RSV赋值:(收盘价-9日内最低价最低值)/(9日内最高价最高值-9日内最低价最低值)*100
RSV的3日[1日权重]移动平均
K的3日[1日权重]移动平均
A2赋值:上次1日前的K上穿D距今天数
B2赋值:A2+1日前的C>C AND A2+1日前的K如果B2>0返回1否则返回0
LC赋值:1日前的收盘价
RSI1赋值:SMA(收盘价-LC和0较大值,6,1)/SMA(收盘价-LC的绝对值,6,1)*100
RSI2赋值:SMA(收盘价-LC和0较大值,12,1)/SMA(收盘价-LC的绝对值,12,1)*100
A3赋值:上次1日前的RSI1上穿RSI2距今天数
B3赋值:A3+1日前的C>C AND A3+1日前的RSI1如果B3>0返回1否则返回0
C1赋值:上次1日前的DEA上穿DIFF距今天数
D1:=C1+1日前的CDIFF AND DEA上穿DIFF
如果D1>0返回1否则返回0
C2赋值:上次1日前的D上穿K距今天数
D2:=C2+1日前的CK AND D上穿K
如果D2>0返回1否则返回0
C3赋值:上次1日前的RSI2上穿RSI1距今天数
D3:=C3+1日前的CRSI1 AND RSI2上穿RSI1
如果D3>0返回1否则返回0
JJ赋值:(H+L+3*C)/5
VAR21赋值:JJ的5日指数移动平均
VAR22赋值:JJ的13日指数移动平均
VAR23赋值:JJ的21日指数移动平均
VAR24赋值:JJ的34日指数移动平均
H1A:=(VAR21+VAR22+VAR23+VAR24)/4
RSI赋值:SMA(收盘价-LC和0较大值,6,1)/SMA(收盘价-LC的绝对值,6,1)*100
LL赋值:100日内C最低值
TJ赋值:IF((C-1日前的C)/1日前的C>0.025,1,0)
STICKLINE(C>REF(O,上次TJ =1距今天数),REF(O,上次TJ =1距今天数),REF(O,上次TJ =1距今天数),10,0),画绿色
VAR4赋值:(最低价+最高价+收盘价)/3