资源描述:
《通达信CYC成本均线主图源码 贴图》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、通达信CYC成本均线主图源码贴图PC:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;JJJ:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3));DDD:=(DYNAINFO(5)<0.01
2、
3、DYNAINFO(6)<0.01);JJJT:=IF(DDD,1,(JJJ<(DYNAINFO(5)+0.01)&&JJJ>(DYNAINFO(6)-0.01)));CYC5:IF(JJJT,0.01*EXPMA(AMOUNT,5)/
4、EXPMA(AMOUNT/(100*PC),5),EMA((HIGH+LOW+CLOSE)/3,5));CYC13:IF(JJJT,0.01*EXPMA(AMOUNT,13)/EXPMA(AMOUNT/(100*PC),13),EMA((HIGH+LOW+CLOSE)/3,13));CYC34:IF(JJJT,0.01*EXPMA(AMOUNT,34)/EXPMA(AMOUNT/(100*PC),34),EMA((HIGH+LOW+CLOSE)/3,34));CYC500:IF(JJJT,0.01*EXPMA(AMOUNT,500)/EXPMA(AMOU
5、NT/(100*PC),500),EMA((HIGH+LOW+CLOSE)/3,500)),COLORRED;CYC∞:IF(JJJT,DMA(PC,100*VOL/FINANCE(7)),EMA((HIGH+LOW+CLOSE)/3,120)),COLORGREEN;倍量:=VOL>=REF(V,1)*1.91ANDC>O;缩量:=REF(V,1)>=VOL*1.91ANDC<O;STICKLINE(倍量,OPEN,CLOSE,2,0),COLORRED;STICKLINE(缩量,OPEN,CLOSE,2,0),COLORGRE
6、EN;C2:=REF(C,1);涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);跌停:=IF((C2-C)*100/C2>=(10-0.01*100/C2),1,0);STICKLINE(涨停,OPEN,CLOSE,2,0),COLORMAGENTA;STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;筹码峰值均价:SSRP.SSRP,COLOR40408F,LINETHICK1,COLORYELLOW,CROSSDOT;DRAWTEXT_FIX(1,0.00,0.00,0,
7、'主题投资:')COLOR0000FF;DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLOR0000FF;DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务:'),COLORMAGENTA;DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2)),COLORMAGENTA;DRAWTEXT_FIX(C>0,0.00,0.16,0,STRCAT('所属概念:',GNBLOCK)),COLORYELLOW;DRAWTEXT_FIX(C>0,0.00,0.24,0,
8、STRCAT('所属行业:',HYBLOCK)),COLORYELLOW;GJ:=(C+H+L+O)/4;明阻:=L+(GJ-L)+(C-L)+0.03;明撑:=L+(C-GJ)+0.01;今阻:REF(明阻,1),NODRAW;今撑:REF(明撑,1),NODRAW;KLH:=IF(PERIOD=5,0.015,0);前天均价:=REF(AMOUNT,1)/REF(VOL*100,1),LINETHICK0;STICKLINE(CURRBARSCOUNT=1,今阻+KLH,今阻,6,0),COLORGREEN;STICKLINE(CURRBARSCOU
9、NT=1,今撑,今撑-KLH,6,0),COLORRED;