通达信彩龙分时自编分时副图源码

[复制链接]
查看443 | 回复0 | 2021-8-26 22:41:22 | 显示全部楼层 |阅读模式

以下是通达信彩龙分时自编分时副图源码(无源码的请下载附件导入)

A1:=AMOUNT/VOL/100;
 A2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
 A3:=SUM(AMOUNT,40)/A1/100;
 A4:=SUM(AMOUNT,80)/A1/100;
 B1:=DMA(A2,VOL/A3);
 B2:=DMA(A2,VOL/A4);
 B3:=(CLOSE-B1)/B1*100;
 B4:=(CLOSE-B2)/B2*100;
现价:C,NODRAW;
均价:SUM(现价*V,240)/SUM(V,240),COLORYELLOW,NODRAW;
回调认同:EMA(EXPMA(C,20),13),NODRAW;
分时压力:MA(REF(HHV(C,30),1),2),NODRAW;
分时支撑:MA(REF(LLV(C,30),1),2),NODRAW;
 STICKLINE(B4>0,0,B4,1,0),COLORYELLOW;
 STICKLINE(B3>0,0,B3,1,0),COLORRED;
 STICKLINE(B3<=0,0,B3,1,0),COLORGREEN;

WR1:=100*(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20));
 WR2:=100*(HHV(HIGH,20)-HIGH)/(HHV(HIGH,20)-LLV(LOW,20));
偏离:(CLOSE/MA(CLOSE,120)-1)*50;
反弹:=IF(WR1>97 ,偏离,0);
调整:=IF(WR1<3 ,偏离,0);
 STICKLINE(调整,调整,-1.5,1,0),COLORBLUE;
 STICKLINE(反弹,反弹,-1,1,0),COLORBROWN;
 Z:=MA(C,120);
 VAR1:=(MA(C,5)-Z)/Z;
 VAR2:=MA((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100,3);
 VAR3:=(MA(AMOUNT,5)/MA(VOL,5)/100-MA(AMOUNT,120)/MA(VOL,120)/100)/(MA(AMOUNT,5)/MA(VOL,5)/100);
 D:DRAWTEXT(CLOSE>Z AND REF(VAR2,1)<30 AND VAR2>REF(VAR2,1) AND REF(VAR2,1)<REF(VAR2,2) ,-1 ,'★B'),COLORCYAN;
 ZJ:=(O+H+L+C)/4;
 YZ:=IF(BARSCOUNT(C)>60,VOL/SUM(VOL,60),VOL/SUM(VOL,BARSCOUNT(C)));
 CYC12:=DMA(ZJ,YZ/0.125);
 CYC25:=DMA(ZJ,YZ/0.25);
 CYC50:=DMA(ZJ,YZ/0.5);
 CYC0:=DMA(ZJ,YZ);
 N:=CYC0;
 (CLOSE>CYC12 AND CYC12>CYC50 AND CYC50>CYC0)*1,COLORMAGENTA,LINETHICK3;
 (CLOSE<N AND CYC50<CYC0 )*-1,COLORBLUE;
 (CLOSE<N AND NOT(CYC50<CYC0))*-1.5,COLORGREEN;
日时转换:=IF(PERIOD=5,120,240);
 QZS:=(EMA(CLOSE,10)+EMA(CLOSE,32))/2;
 VA1:=(EMA(CLOSE,30)+EMA(CLOSE,72))/2;
 VA2:=(EMA(VOL,10)+EMA(VOL,32))/2;
 VA3:=(VA1+VA2)/2;
 VA4:=EMA(VA3,30);
 VA5:=EMA(VA3,60);
 VA6:=EVERY(VA1>REF(VA1,1),5) AND EVERY(VA4>REF(VA4,1),5);
趋势关注:=IF(CROSS(VA1,EMA(VA1,60)) AND VA6,1,0),NODRAW,COLORRED;
量价关注:=IF(CROSS(VA3,VA5) AND VA6,1,0),NODRAW,COLORWHITE;
 DRAWICON(趋势关注=1,-1,13);
 DRAWTEXT(量价关注=1,-1,'L0V'),COLORWHITE;

黄色柱为强势时段,金色柱为调整,蓝色注注意了。有些东东要自己体会必有结果。

1010588069.gif

1010588069.gif
 

回复

使用道具 举报

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

本版积分规则