通达信顶底背离源码副图

[复制链接]
查看216 | 回复0 | 2021-8-21 08:01:24 | 显示全部楼层 |阅读模式

以下是通达信顶底背离源码副图(无源码的请下载附件导入)

P:=5;
 VAR1:=(2*CLOSE+HIGH+LOW)/4;
 VAR2:=EMA(EMA(EMA(VAR1,4),4),4);
 J:(VAR2-REF(VAR2,1))/REF(VAR2,1)*100, COLORWHITE;


 AA1:=REF(J,P)=HHV(J,2*P+1);
 BB1:=FILTER(AA1,P);
 CC1:=BACKSET(BB1,P+1);
 DD1:=FILTER(CC1,P);{高点}
AA2:=REF(J,P)=LLV(J,2*P+1);
 BB2:=FILTER(AA2,P);
 CC2:=BACKSET(BB2,P+1);
 DD2:=FILTER(CC2,P);{低点}

前期高点:REF(J,BARSLAST(DD1)),COLORFF00FF,NODRAW;
前期低点:REF(J,BARSLAST(DD2)),COLOR00FF00,NODRAW;

相对能量:(J-前期低点)/(前期高点-前期低点)*100,COLORYELLOW,NODRAW;
 R11:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
 S11:=R11>REF(R11,1);
 DRAWLINE(DD1,J,S11,J,1),COLORYELLOW;
 T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
 U11:=T11>REF(T11,1);

 STICKLINE(C>0,前期低点,前期低点,1,0),COLOR00FF00;
 STICKLINE(C>0,前期高点,前期高点,1,0),COLORFF00FF; 
 DRAWICON(CROSS(J,前期高点),J,1);

42033421.jpg

42033421.jpg

420111514.jpg

420111514.jpg

419466801.rar (3.06 KB, 下载次数: 0, 售价: 3 金钱)
回复

使用道具 举报

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

本版积分规则