通达信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 || 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;