软件上一般显示的均线是价咯移动均线，也就是MA。但是该指标最大的缺陷就是只注重价咯变化，而忽视了成交量变化。而CYC成本均线，可以真实的反映最后持股人的成本，同时，也反映标的价咯变化趋势。所以，CYC指标能过滤掉很多MA指标中误导性的因素，从而提高操作成功率。在通达信软件中，CYC指标在前复权后变形严重，如果想要恢复正常，就得在软件中将成交量设定为复权状态。但是，将成交量设定为复权状态后，换手率又会出现失真现像。偶然在网上看到一修改过的CYC指标，很好的解决了前复权后图形严重变形的情况。个人将此主图指标进行了一些优化，以下是化化后的CYC主图指标源码，其中新加进了一条红色的500天成本均线，属大周期级别的牛熊线。另外，加进了筹码峰值均价线，以小叉线显示。加进了涨跌停K线提示，涨停K线以洋红色实体显示，跌停K线以绿色实体显示。还加进了倍量提示，成交量放倍量和缩倍量时K线以加重实体显示，最后还加进了当日股价支撑位和压力位价咯预测并分别在当日K线上下方做出红绿色小直线提示。
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 || 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)/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(AMOUNT/(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.91 AND C>O;
缩量:=REF(V,1)>=VOL*1.91 AND C<O;
STICKLINE(倍量,OPEN,CLOSE,2,0),COLORRED;
STICKLINE(缩量,OPEN,CLOSE,2,0),COLORGREEN;
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,'主题投资：')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,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(CURRBARSCOUNT=1,今撑,今撑-KLH,6,0),COLORRED; |
