通达信八线合一定牛熊主图源码

[复制链接]
查看109 | 回复0 | 2021-8-19 16:00:51 | 显示全部楼层 |阅读模式

以下是通达信八线合一定牛熊主图源码(无源码的请下载附件导入)

M:=(H+L+3*C+O)/6;
 M3:MA(M,3);
 M7:=MA(M,7);
 M14:=MA(M,14);
 M21:=MA(M,21);
 M28:=MA(M,28);
 M35:=MA(M,35);
 M42:=MA(M,42);
 M49:=MA(M,49);
 M56:=MA(M,56);
 MH7:=MA(H,7);
 MH14:=MA(H,14);
 MH21:=MA(H,21);
 MH28:=MA(H,28);
 MH35:=MA(H,35);
 MH42:=MA(H,42);
 MH49:=MA(H,49);
 MH56:=MA(H,56);
 ML7:=MA(L,7);
 ML14:=MA(L,14);
 ML21:=MA(L,21);
 ML28:=MA(L,28);
 ML35:=MA(L,35);
 ML42:=MA(L,42);
 ML49:=MA(L,49);
 ML56:=MA(L,56);
 MZ:(7*M7+14*M14+21*M21+28*M28+35*M35+42*M42+49*M49+56*M56)/252 LINETHICK3 COLORRED;
 MH:=(7*MH7+14*MH14+21*MH21+28*MH28+35*MH35+42*MH42+49*MH49+56*MH56)/252;
 ML:=(7*ML7+14*ML14+21*ML21+28*ML28+35*ML35+42*ML42+49*ML49+56*ML56)/252;
 GB:=H-MH;
 ZB:=C-MZ;
 DB:=L-ML;
 BZCZ:=SQRT(SUM(POW(ZB,2),20)/20);
 BZCH:=SQRT(SUM(POW(GB,2),20)/20);
 BZCL:=SQRT(SUM(POW(DB,2),20)/20);
 CVH:=BZCH/MH;
 CVL:=BZCL/ML;
 UPPER:MH*(1+CVH*(1+1/SQRT(20))) LINETHICK3 COLORBLUE;
 DOWN:ML*(1-CVL*(1+1/SQRT(20))) LINETHICK3 COLORGREEN;
 DRAWICON(CROSS(C,MZ),MZ,1);


53211791.png

53211791.png

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则