万变不离其宗 (源码、副图、通达信 贴图)分时

[复制链接]
查看58 | 回复0 | 2022-6-27 20:48:08 | 显示全部楼层 |阅读模式

说明:
1、代码完全开源,拒绝不正当获利。
2、代码含未来函数,不喜欢者远离。
3、可单独使用,也可以与其它副图叠加作为背景提示(注意代码放在其他代码首位,核心算法之一,简单高效只占一个输出)。

DI3:=DYNAINFO(3);DI5:=DYNAINFO(5);DI6:=DYNAINFO(6);
DBS0:=XMA(XMA(XMA(C,9),8),7)*100;
DBS1:=(MAX(DI3,DI5)+MIN(DI3,DI6))/2;
DBS2:=MIN(DI3,DI6)+8*(MAX(DI3,DI5)-MIN(DI3,DI6))/9;
DBS3:=MIN(DI3,DI6)+(MAX(DI3,DI5)-MIN(DI3,DI6))/18;

DBS4:=CONST(IF((DBS0<REF(DBS0,1) AND C>=DBS3) OR (DBS0>=REF(DBS0,1) AND C>=DBS2),150,0));
DBS5:=CONST(IF((DBS0<REF(DBS0,1) AND C<DBS1) OR (DBS0>=REF(DBS0,1) AND C>=DBS1),150,IF(DBS0>=REF(DBS0,1) AND C<DBS1,50,0)));
DBS6:=CONST(IF((DBS0<REF(DBS0,1) AND (C>=DBS1 OR C<DBS3)) OR (DBS0>=REF(DBS0,1) AND C>=DBS1 AND C<DBS2),50,IF(DBS0>=REF(DBS0,1) AND C<DBS1,150,0)));
DBS7:=CONST(IF(C>DBS1,150,0));{分析家公式网www.70822.com}
DBS8:=CONST(IF(C<DBS3,50,IF(C>=DBS2,0,150)));
DBS9:=CONST(IF(C>DBS2,50,IF(C<DBS2 AND C>=DBS1,0,50)));
DRAWGBK(1,RGB(DBS4,DBS5,DBS6),RGB(DBS7,DBS8,DBS9),1,0,0);


201922321253470740.jpg

201922321253470740.jpg

201922321302830273.jpg

201922321302830273.jpg

p201922321302830273.jpg

p201922321302830273.jpg

201922321303567879.rar

2.31 KB, 下载次数: 0

售价: 2 金钱  [记录]  [购买]

201922321303567879.rar

回复

使用道具 举报

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

本版积分规则