通达信成本筹码线主图指标公式

动态成本:=DMA(CLOSE,vol/CAPITAL),COLORLIMAGENTA;
谷:=20;
最低:=TROUGHBARS(C,谷,1);{调整之字幅度找到低位起点}
低价:=REF(C,BArslAST(最低=0));
低价线:=DRAWLINE(最低=0,C,ISLASTBAR,低价,0);
现价线:=DRAWLINE(最低=0,C,ISLASTBAR,C,0);
低点至今涨幅:(C-低价线)/低价线*100,COLORFF00FF,NODRAW;
DRAWBAND(低价线,RGB(255,00,255),低价线,0);
DRAWBAND(现价线,RGB(255,00,255),现价线,0);
DRAWTEXT(CURRBARSCOUNT=CONST(最低+9),CONST(低价线),
STRCAT(CON2STR(低点至今涨幅,2),'％')),COLORFF00FF;
CM1:=INTPART(PPART(1)*100);
CM2:=INTPART(PPART(2)*100);
CM3:=INTPART(PPART(3)*100);
CM4:=INTPART(PPART(4)*100);
CM5:=INTPART(PPART(5)*100);
CM6:=INTPART(PPART(6)*100);
CM7:=INTPART(PPART(7)*100);
CM8:=INTPART(PPART(8)*100);
CM9:=INTPART(PPART(9)*100);
CM10:=INTPART(PPART(10)*100);
IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT CM11:=INTPART(PPART(11)*100);
CM12:=INTPART(PPART(12)*100);
CM13:=INTPART(PPART(13)*100);
CM14:=INTPART(PPART(14)*100);
CM15:=INTPART(PPART(15)*100);
CM16:=INTPART(PPART(16)*100);
CM17:=INTPART(PPART(17)*100);
CM18:=INTPART(PPART(18)*100);
CM19:=INTPART(PPART(19)*100);
CM20:=INTPART(PPART(20)*100);
IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT CM21:=INTPART(PPART(21)*100);
CM22:=INTPART(PPART(22)*100);
CM23:=INTPART(PPART(23)*100);
CM24:=INTPART(PPART(24)*100);
CM25:=INTPART(PPART(25)*100);
CM26:=INTPART(PPART(26)*100);
CM27:=INTPART(PPART(27)*100);
CM28:=INTPART(PPART(28)*100);
CM29:=INTPART(PPART(29)*100);
CM30:=INTPART(PPART(30)*100);
IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT CM31:=INTPART(PPART(31)*100);
CM32:=INTPART(PPART(32)*100);
CM33:=INTPART(PPART(33)*100);
CM34:=INTPART(PPART(34)*100);
CM35:=INTPART(PPART(35)*100);
CM36:=INTPART(PPART(36)*100);
CM37:=INTPART(PPART(37)*100);
CM38:=INTPART(PPART(38)*100);
CM39:=INTPART(PPART(39)*100);
CM40:=INTPART(PPART(40)*100);
IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT CM41:=INTPART(PPART(41)*100);
CM42:=INTPART(PPART(42)*100);
CM43:=INTPART(PPART(43)*100);
CM44:=INTPART(PPART(44)*100);
CM45:=INTPART(PPART(45)*100);
CM46:=INTPART(PPART(46)*100);
CM47:=INTPART(PPART(47)*100);
CM48:=INTPART(PPART(48)*100);
CM49:=INTPART(PPART(49)*100);
CM50:=INTPART(PPART(50)*100);
IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT CM51:=INTPART(PPART(51)*100);
CM52:=INTPART(PPART(52)*100);
CM53:=INTPART(PPART(53)*100);
CM54:=INTPART(PPART(54)*100);
CM55:=INTPART(PPART(55)*100);
CM56:=INTPART(PPART(56)*100);
CM57:=INTPART(PPART(57)*100);
CM58:=INTPART(PPART(58)*100);
CM59:=INTPART(PPART(59)*100);
CM60:=INTPART(PPART(60)*100);
IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT IF(CURRBARSCOUNT 红色:IF(CURRBARSCOUNT 白色:CONST(红色*1.03),COLORWHITE,LINETHICK6;
黄色:IF(CURRBARSCOUNT 橙色:CONST(黄色*1.03),COLOR015BFD,LINETHICK6;
成本重心线1:IF(CURRBARSCOUNT 成本重心线2:IF(CURRBARSCOUNT DRAWKLINE(H,O,L,C);
{年月日星期}
DAA:=YEAR AND MONTH AND DAY;
AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEkdAY=1,'星期一',IF(WEEKDAY=2,'星期二',
IF(WEEKDAY=3,'星期三',IF(WEEKDAY=4,'星期四',IF
(WEEKDAY=5,'星期五',IF(WEEKDAY=6,'星期六','星期日')))))));
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】');
DRAWTEXT_FIX(DAA,0.84,0.01,0,AA),COLORWHITE;
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,FGBLOCK);
Z3:=STRCAT(Z2,DYBLOCK);
Z4:=STRCAT(Z3,' ');
HSL:=V/CAPITAL*100;
DRAWNUMBER(CURRBARSCOUNT=1 AND HSL,C,HSL),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.99,0,STRCAT(Z4,GNBLOCK)),COLORGREEN;
DRAWTEXT_FIX(1,0,0.88,0,STRCAT('【自定板块】：',ZDBLOCK)),COLORYELLOW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'罗振文操盘工作室 QQ 126 369 3699');
A111:=FINANCE(42);
A211:=DATETODAY(CONST(DATE));
A311:=A211-A111;
XDATE:=DAYTODATE(A311)+19000000;
上市日期:=STRCAT(' 上市日期: ',CON2STR(XDATE,0));
DRAWTEXT_FIX(ISLASTBAR,0.5,0,0,上市日期),COLORMAGENTA;
{涨停统计}
W:=EMA(C,1);
涨停:=W/REF(W,1)>=1.095;
ZTCS:=COUNT(涨停,BARSSINCE(涨停)+1);
SSTS1:=STRCAT('上市',CON2STR(FINANCE(42),0));SSTS2:=STRCAT(SSTS1,'天');
NTZZT1:=STRCAT('　 距今',CON2STR(CONST(BARSLAST(涨停)),0));
NTZZT2:=STRCAT(NTZZT1,'天有涨停');
GZT1:=STRCAT('　 共涨停',CON2STR(ZTCS,0));GZT2:=STRCAT(GZT1,'次');
ZTTJ1:=STRCAT(SSTS2,GZT2);
ZTTJ2:=STRCAT(ZTTJ1,NTZZT2);ZTTJ:=STRCAT('【涨停统计】',ZTTJ2);
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.618,0.99,0,ZTTJ),COLORCYAN;
DRAWKLINE(H,O,L,C);