通达信主控筹码周月板副图指标

获利分界线1:=50;

创多日高收:=120;

指涨跌小于:=-1;

100,COLORRED;

90,COLOR400080,DOTLINE;

80,COLOR400080,DOTLINE;

70,COLOR0000FF,LINETHICK3;

0,COLORGREEN;

获利分界线1,COLORGREEN,DOTLINE;

归零比例:WINNER(CLOSE)*100,COLORWHITE;

成本90:(COST(95)-COST(5))/(COST(99.99999))*100,COLORRED,NODRAW;

成本70:(COST(85)-COST(15))/(COST(99.99999))*100,COLORRED,NODRAW;

指数涨跌:=(INDEXC-REF(INDEXC,1))/REF(INDEXC,1)*100;

组合:C=HHV(C,创多日高收) AND BARSSINCE(C)>创多日高收 AND 指数涨跌<=指涨跌小于,COLORWHITE,NODRAW;

STICKLINE(组合,0,90,2,0),COLORBLUE;

价A:=ZTPRICE(REF(C,1),0.1);

价B:=ZTPRICE(REF(C,1),0.2);

价C:=DTPRICE(REF(C,1),0.1);

价D:=DTPRICE(REF(C,1),0.2);

ZTJ:=IF(STR2CON(CODE)>=687999,价B,IF(CODELIKE('30')=0,价A,IF((YEAR*10000+MONTH*100+DAY)>=20200824,价B,价A)));

DTJ:=IF(STR2CON(CODE)>=687999,价D,IF(CODELIKE('30')=0,价C,IF((YEAR*10000+MONTH*100+DAY)>=20200824,价D,价C)));

ZT:=C>=ZTJ AND C=H AND COUNT(C< ZTJ,BARSSINCE(C))>=1;

主均线:=MA(C,60);

打拐:(ZT) AND 主均线>REF(主均线,1) AND REF(主均线<=REF(主均线,1),1),COLORRED,NODRAW;

STICKLINE(打拐,0,90,2.6,0),COLORRED;

年:=YEAR;

月:=MONTH;

日:=DAY;

同年同月:=年=REFX(年,1) AND 月=REFX(月,1);

同年增月:=年=REFX(年,1) AND 月< REFX(月,1);

跨年缩月:=年 < REFX(年,1) AND 月 > REFX(月,1);

星期变小:=WEEkdAY>=REFX(WEEKDAY,1);

停牌过七:=同年同月 AND REFX(日,1)>(日+7);

月转变大:=同年增月 AND (日-REFX(日,1))<=7;

跨年变小:=跨年缩月 AND (日-REFX(日,1))<=7;

周末:=星期变小 OR 停牌过七 OR 月转变大 OR 跨年变小;

月末:=同年增月 OR (年 < REFX(年,1) AND 月 > REFX(月,1));

TTZ:=REF(BArslAST(周末),1)+1;

TTY:=REF(BARSLAST(月末),1)+1;

月价:=IF(月末,C,0);

TIMEY3:=REF(SUMBARS(月末,3),1)+1;

月4和:=SUM(月价,TIMEY3);

月5均:=(C+REF(月4和,TTY))/5;

前月5:=REF(月5均,TTY),NODRAW;

板月拐:ZT AND 月5均>前月5 AND REF(月5均< 前月5,TTY),COLORYELLOW,NODRAW;

STICKLINE(板月拐,0,70,1,0),COLORLIMAGENTA;

DRAWTEXT(板月拐,52,'月'),COLORYELLOW;

周价:=IF(周末,C,0);

TIMEZ3:=REF(SUMBARS(周末,3),1)+1;

周4和:=SUM(周价,TIMEZ3);

周5均:=(C+REF(周4和,TTZ))/5;

TIMEZ8:=REF(SUMBARS(周末,8),1)+1;

周9和:=SUM(周价,TIMEZ8);

周10均:=(C+REF(周9和,TTZ))/10;

板周金:ZT AND crOSS(周5均,周10均),COLORFF00FF,NODRAW;

STICKLINE(板周金,0,70,1,0),COLORFF00FF;

DRAWTEXT(板周金,63,'周'),COLORFF00FF;

 

原理解析：
获利分界线1赋值:50
创多日高收赋值:120
指涨跌小于赋值:-1
100,画红色
90,COLOR400080,DOTLINE
80,COLOR400080,DOTLINE
70,COLOR0000FF, 线宽为3
0,画绿色
获利分界线1,画绿色,DOTLINE
输出归零比例:收盘价计算的获利盘比例*100,画白色
输出成本90:(获利盘为95%的成本分布-COST(5))/(COST(99.99999))*100,画红色,NODRAW
输出成本70:(获利盘为85%的成本分布-COST(15))/(COST(99.99999))*100,画红色,NODRAW
指数涨跌赋值:(INDEXC-1日前的INDEXC)/1日前的INDEXC*100
输出组合:C=创多日高收日内C最高值 AND BARSSINCE(C)>创多日高收 AND 指数涨跌<=指涨跌小于,画白色,NODRAW
当满足条件组合时,在0和90之间画柱状线
价A赋值:ZTPRICE(1日前的C,0.1)
价B赋值:ZTPRICE(1日前的C,0.2)
价C赋值:DTPRICE(1日前的C,0.1)
价D赋值:DTPRICE(1日前的C,0.2)
ZTJ赋值:IF(STR2CON(CODE)>=687999,价B,IF(CODELIKE('30')=0,价A,IF((YEAR*10000+MONTH*100+DAY)>=20200824,价B,价A)))
DTJ赋值:IF(STR2CON(CODE)>=687999,价D,IF(CODELIKE('30')=0,价C,IF((YEAR*10000+MONTH*100+DAY)>=20200824,价D,价C)))
ZT赋值:C>=ZTJ AND C=H AND COUNT(C< ZTJ,BARSSINCE(C))>=1
主均线赋值:C的60日简单移动平均
输出打拐:(ZT) AND 主均线>1日前的主均线 AND 1日前的主均线<=1日前的主均线,画红色,NODRAW
当满足条件打拐时,在0和90之间画柱状线
年赋值:YEAR
月赋值:MONTH
日赋值:DAY
同年同月赋值:年=REFX(年,1) AND 月=REFX(月,1)
同年增月赋值:年=REFX(年,1) AND 月< REFX(月,1)
跨年缩月赋值:年 < REFX(年,1) AND 月 > REFX(月,1)
星期变小赋值:WEEKDAY>=REFX(WEEKDAY,1)
停牌过七赋值:同年同月 AND REFX(日,1)>(日+7)
月转变大:=同年增月 AND (日-REFX(日,1))<=7
跨年变小:=跨年缩月 AND (日-REFX(日,1))<=7
周末赋值:星期变小 OR 停牌过七 OR 月转变大 OR 跨年变小
月末:=同年增月 OR (年 < REFX(年,1) AND 月 > REFX(月,1))
TTZ赋值:REF(上次周末距今天数,1)+1
TTY赋值:REF(上次月末距今天数,1)+1
如果月末返回C否则返回0
TIMEY3赋值:1日前的月末累加至3的天数+1
月4和:=TIMEY3的月价日累和
月5均:=(C+TTY日前的月4和)/5
前月5:=TTY日前的月5均,NODRAW
板月拐:ZT AND 月5均>前月5 AND TTY日前的月5均< 前月5,画黄色,NODRAW
当满足条件板月拐时,在0和70之间画柱状线
当满足条件板月拐时,在52和'月'位置书写文字
如果周末返回C否则返回0
TIMEZ3赋值:1日前的周末累加至3的天数+1
周4和赋值:TIMEZ3的周价日累和
周5均赋值:(C+TTZ日前的周4和)/5
TIMEZ8赋值:1日前的周末累加至8的天数+1
周9和赋值:TIMEZ8的周价日累和
周10均赋值:(C+TTZ日前的周9和)/10
输出板周金:ZT AND 周5均上穿周10均,COLORFF00FF,NODRAW
当满足条件板周金时,在0和70之间画柱状线
当满足条件板周金时,在63和'周'位置书写文字