章萌主 发表于 2023-5-5 11:29:57

通达信背离王公式副图源码

以下是通达信背离王公式副图源码测试图）（无源码的请下载附件导入）

N:=3;
A1:=FORCAST(EMA(CLOSE,5),6);
A2:=FORCAST(EMA(CLOSE,8),6);
A3:=FORCAST(EMA(CLOSE,11),6);
A4:=FORCAST(EMA(CLOSE,14),6);
A5:=FORCAST(EMA(CLOSE,17),6);
B:=A1+A2+A3+A4-4*A5;
TOWERC:=EMA(B,2);
B1:FORCAST(EMA(B,3),6),POINTDOT,COLORGREEN;
B2:FORCAST(EMA(B,4),6),POINTDOT,COLORGREEN;
B3:FORCAST(EMA(B,5),6),POINTDOT,COLORGREEN;
B4:FORCAST(EMA(B,6),6),POINTDOT,COLORGREEN;
B5:FORCAST(EMA(B,7),6),POINTDOT,COLORGREEN;
B6:FORCAST(EMA(B,8),6),POINTDOT,COLORGREEN;
B7:FORCAST(EMA(B,9),6),POINTDOT,COLORGREEN;
B8:FORCAST(EMA(B,10),6),POINTDOT,COLORGREEN;
B9:FORCAST(EMA(B,11),6),POINTDOT,COLORGREEN;
B10:FORCAST(EMA(B,12),6),POINTDOT,COLORGREEN;
B11:FORCAST(EMA(B,13),6),POINTDOT,COLORGREEN;
B12:FORCAST(EMA(B,14),6),POINTDOT,COLORGREEN;
B13:=FORCAST(EMA(B,15),6),POINTDOT,COLORGREEN;
B14:FORCAST(EMA(B,16),6),POINTDOT,COLORGREEN;
B15:FORCAST(EMA(B,17),6),POINTDOT,COLORGREEN;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
STICKLINE(TOWERC STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
STICKLINE(TOWERC>=REF(TOWERC,1),TOWERC,REF(TOWERC,1),N,0),COLORRED;
STICKLINE(TOWERC STICKLINE(TOWERC STICKLINE(TOWERC STICKLINE(TOWERC BSUM:=(B1+B2+B3+B4+B5+B6+B7+B8+B9+B10+B11+B12+B13+B14+B15)/15;
BMAX1:=MAX(MAX(B1,B2),MAX(B3,B4));
BMAX2:=MAX(MAX(B5,B6),MAX(B7,B8));
BMAX3:=MAX(MAX(B9,B10),MAX(B11,B12));
BMAX4:=MAX(MAX(B13,B14),B15);
BMAX:=MAX(MAX(BMAX1,BMAX2),MAX(BMAX3,BMAX4));
BMIN1:=MIN(MIN(B1,B2),MIN(B3,B4));
BMIN2:=MIN(MIN(B5,B6),MIN(B7,B8));
BMIN3:=MIN(MIN(B9,B10),MIN(B11,B12));
BMIN4:=MIN(MIN(B13,B14),B15);
BMIN:=MIN(MIN(BMIN1,BMIN2),MIN(BMIN3,BMIN4));
BAX:=ABS(BMAX-(TOWERC+REF(TOWERC,1))/2);
BAN:=ABS(BMIN-(TOWERC+REF(TOWERC,1))/2);
BFIN:=IF(BAX>BAN,BMAX,BMIN);
C1:=BFIN-BMAX=0 AND REF(BFIN,1)-REF(BMIN,1)=0;
C2:=BFIN-BMIN=0 AND REF(BFIN,1)-REF(BMAX,1)=0;
BFINAL:=IF(C1 OR C2,(BMAX+BMIN)/2,BFIN),NODRAW;
HC:TOWERC-REF(TOWERC,1),NODRAW;
KC:HC-REF(HC,1),NODRAW;
绿柱变大:IF(HC<=0 AND KC<=0,BFINAL,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK3;
绿柱变小:IF(HC<0 AND KC>0,BFINAL,DRAWNULL),POINTDOT,COLORMAGENTA,LINETHICK3;
红柱变大:IF(HC>0 AND KC>=0,BFINAL,DRAWNULL),POINTDOT,COLORRED,LINETHICK3;
红柱变小:IF(HC>0 AND KC<0,BFINAL,DRAWNULL),POINTDOT,COLORLIBLUE,LINETHICK3;
DRAWTEXT_FIX(ISLASTBAR AND HC<=0 AND KC<0,1,0,1,'绿柱变大 '),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND HC<=0 AND KC>0,1,0,1,'绿柱变小 '),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND HC>=0 AND KC>0,1,0,1,'红柱变大 '),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR AND HC>=0 AND KC<0,1,0,1,'红柱变小 '),COLORWHITE;
SEL:=REF(KC,4)>0 AND REF(KC,3)>0 AND REF(KC,2)<0 AND REF(KC,1)<0 AND KC<0;
BU:=REF(KC,4)<0 AND REF(KC,3)<0 AND REF(KC,2)>0 AND REF(KC,1)>0 AND KC>0;
DRAWTEXT(SEL,MAX(TOWERC,REF(TOWERC,1)),'降'),COLORWHITE;
DRAWTEXT(BU,MIN(TOWERC,REF(TOWERC,1)),'升'),COLORWHITE;
74077831.png

胡焜耀 发表于 2023-5-17 08:56:41

感谢感谢！楼主功德无量，哈哈！

双夜识 发表于 2023-6-4 02:23:27

感谢分享好资源

房洛文 发表于 2023-6-20 02:08:31

点赞楼主！

明明2017 发表于 2023-7-18 22:14:42

my god！好东西！

Aim_yuan 发表于 2023-7-28 22:20:24

感谢分享好资源

123457466 发表于 2023-10-5 19:36:51

多多点赞好好学习

铁血_斩蛇 发表于 2023-10-21 20:41:19

内容真的很不错

棉花糖宝贝儿 发表于 2023-12-27 09:04:22

一切尽在不言中，谢谢！

下沙消掉 发表于 2024-2-8 02:53:44

thanks
页: [1]
查看完整版本: 通达信背离王公式副图源码