通达信小改烧香拜佛 主图源码

[复制链接]
查看30 | 回复0 | 2022-7-24 04:44:59 | 显示全部楼层 |阅读模式

A1:HHV(FORCAST(C,7),7),COLORWHITE;
 A2:HHV(FORCAST(C,7),14),COLORLIBLUE;
 A3:HHV(FORCAST(C,7),21),COLORGREEN;
 RSV:=(((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13)))*100);
 K:=SMA(RSV,3,1);
 D:=SMA(K,3,1);
 J:=((3*K)-(2*D));
 RSV12:=(((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*100);
 K12:=SMA(RSV12,3,1);
 D12:=SMA(K12,3,1);
 J12:=((3*K12)-(2*D12));
 RSV24:=(((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55)))*100);
 K24:=SMA(RSV24,3,1);
 D24:=SMA(K24,3,1);
 J24:=((3*K24)-(2*D24));
底进:IF(CROSS(J,J24),LOW,REF(LOW,BARSLAST(CROSS(J,J24)))),COLORYELLOW;
顶出:IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J)))),COLORWHITE;
 ST:=(CLOSE/OPEN-1)*100;
 ZF:=(C/REF(C,1)-1)*100;
 SX1:=ST>3 AND ST=HHV(ST,6);
 SX2:=ZF>3 AND ZF=HHV(ZF,6);
 SX3:=ZF>=9 AND CLOSE=HIGH;
烧香:IF(SX1 OR SX2 OR SX3,1,0),COLOR0000FF,NODRAW;
 DYSJ:=BARSLAST(烧香);
跟踪:IF(DYSJ<=13 AND COUNT(C>REF(L,DYSJ),DYSJ)>=DYSJ-1,DYSJ,0),COLOR00FFFF,NODRAW;
关注:IF(DYSJ>=4 AND COUNT(C>REF(C,DYSJ),3)>=3,REF(C,DYSJ),REF(L,DYSJ)),COLORFFFFFF,NODRAW;
 BF1:=LOW<关注*1.01 AND COUNT(LOW<关注*1.01,跟踪)=1;
 BF2:=LOW<关注 AND COUNT(LOW<关注,跟踪)=1;
拜佛:IF(BF1 OR BF2,1,0),COLOR00FF00,NODRAW;
 DRAWICON(烧香,L*0.99,13);
 DRAWTEXT(烧香,LOW*0.96,'‖'),COLOR00FFFF;
 DRAWTEXT(拜佛,LOW*0.965,'≌'),COLOR00FF00;

636144235.jpg

636144235.jpg

回复

使用道具 举报

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

本版积分规则