猛彪缠论通达信公式 主图 源码附图请一起讨论改指标 买字开始

KX:='CHANLUN@KXIAN';

KXG:='CHANLUN@KXG';

KXD:='CHANLUN@KXD';

KXFX:='CHANLUN@KXFX';

笔:='CHANLUN@BI';

笔周期:'CHANLUN@BILAST',LINETHICK1, COLORFF00FF;

BILAST:='CHANLUN@BILAST';{笔周期};

段:='CHANLUN@DUAN';

段周期:'CHANLUN@DUANLAST', LINETHICK1, COLORFFFFFF;

DUANLAST:='CHANLUN@DUANLAST'; {段周期};

中枢:='CHANLUN@ZS';

ZSZG:='CHANLUN@ZSZG';

ZSZD:='CHANLUN@ZSZD';

ZSGG:='CHANLUN@ZSGG';

ZSDD:='CHANLUN@ZSDD';

ZSZZ:='CHANLUN@ZSZZ';

ZSKS:='CHANLUN@ZSKSLAST';

ZSJS:='CHANLUN@ZSJSLAST';

BIFX:=-REF(笔,BILAST);

DUANFX:=-REF(段,DUANLAST);  

KXQJ:='CHANLUN@KXQJ';

{画中枢BEGIN} {以背景方式画}

STICKLINE(ZSZG>ZSZD AND DUANFX=1, ZSZG, ZSZD, 10, 1),COLOR8E236B;

STICKLINE(ZSZG>ZSZD AND DUANFX=-1, ZSZG, ZSZD, 10, 1), COLOR007700;

{中枢震荡监视器}

DRAWLINE(ZSKS=1, ZSZZ, ZSJS=1, ZSZZ, 0), COLORFFFFFF;

{画中枢END}  

{顶底分型}

STICKLINE(KX>0, KXG, KXD, 5, 1),COLOR007700,LINETHICK2;

STICKLINE(KX<0, KXG, KXD, 5, 1),COLOR00FFFF,LINETHICK2;

{笔段}

STICKLINE(笔=1, KXG, KXD, 5, 1), COLORGREEN, LINETHICK2;

STICKLINE(笔=-1, KXG, KXD, 5, 1), COLORRED, LINETHICK2;

STICKLINE(段=1, KXG, KXD, 5, 0), COLOR007700, LINETHICK2;

STICKLINE(段=-1, KXG, KXD, 5, 0), COLOR0000CC, LINETHICK2;

{画K线END}

{画笔段}

DRAWLINE(笔=1,H,笔=-1,L,0),COLORBLUE,LINETHICK2;

DRAWLINE(笔=-1,L,笔=1,H,0),COLORFF00FF ,LINETHICK2;

DRAWLINE(段=1,H,段=-1,L,0),COLOR007700, LINETHICK2;

DRAWLINE(段=-1,L,段=1,H,0),COLORRED, LINETHICK2;

{笔高低点 周期 力度 提示}

DRAWTEXT(笔=1, H*1.038,H),COLORRED;

DRAWTEXT(笔=-1, L*0.96, L),COLORFFFFFF;

VAR3:=LLV(H,240);

VAR4:=100*(C-VAR3)/VAR3;

VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;

VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;

VAR7:=0;

VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;

VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;

VAR10:=IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0);

VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);

VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);

VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);

VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);

VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);

VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);

VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);

VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);

VAR19:=EMA(C,2)-EMA(C,150);

买１:=VAR10;

买２:=(VAR11+VAR13+VAR15+VAR17);

卖１:=(VAR12+VAR14+VAR16+VAR18);

DRAWTEXT(买１>0 OR 买２>0,L*0.985,'买'),COLOR00FFFF;

DRAWTEXT(卖１>0,H*1.01,'卖'),COLOR00FFFF;

APP:=(VOL)/((H-L)*(2)-ABS(C-O));

ZL:=IF((H>O),(APP)*(H-L),IF((L<O),(APP)*(H-O+C-L),(VOL)/(2)));

SF:=IF((H>O),0-(APP)*(H-C+O-L),IF((L<O),0-(APP)*(H-L),0-(VOL)/(2)));

库存能量:=MA(ZL+SF,2);

库存平均:=MA(ZL+SF,5);

GET:ZIG(3,5),COLORYELLOW,LINETHICK3;

PL5:=ZIG(3,5);

EN1:=PL5>REF(PL5,1) AND REF(PL5,1)<=REF(PL5,2) AND REF(PL5,2)<=REF(PL5,3);

EX1:=PL5<REF(PL5,1) AND REF(PL5,1)>=REF(PL5,2) AND REF(PL5,2)>=REF(PL5,3);

PL10:=ZIG(3,10);

EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3);

EX2:=PL10<REF(PL10,1) AND REF(PL10,1)>=REF(PL10,2) AND REF(PL10,2)>=REF(PL10,3);

PL20:=ZIG(3,20);

EN3:=PL20>REF(PL20,1) AND REF(PL20,1)<=REF(PL20,2) AND REF(PL20,2)<=REF(PL20,3);

EX3:=PL20<REF(PL20,1) AND REF(PL20,1)>=REF(PL20,2) AND REF(PL20,2)>=REF(PL20,3);

走强1:=BARSLAST(PL5<REF(PL5,1));

走弱1:=BARSLAST(PL5>REF(PL5,1));

走强2:=BARSLAST(PL10<REF(PL10,1));

走弱2:=BARSLAST(PL10>REF(PL10,1));

走强3:=BARSLAST(PL20<REF(PL20,1));

走弱3:=BARSLAST(PL20>REF(PL20,1));

ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);

ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);

DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);

DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);

ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);

ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);

DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);

DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);

DRAWTEXT(EN2 AND DTJZ10=1,L*0.96,'[类二买]'),COLORFFFFFF;

DRAWTEXT(EN3 AND ZTJZ10=1,L*0.95,'[一买]'),COLORFF00FF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.04,'[二卖]'),COLORFFFF00,LINETHICK2;

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.94,'[二买]'),COLORFFFF00,LINETHICK2;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.03,'[一卖]'),COLOR00FF00,LINETHICK3;

DRAWTEXT_FIX(ISLASTBAR,0.15,0.029,0,'历史最高价='),COLORFF00FF;

DRAWTEXT_FIX(ISLASTBAR,0.15,0.058,0,'历史最低价='),COLORAFFF00;

DRAWTEXT_FIX(ISLASTBAR,0.15,0.087,0,'20日最高价='),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,0.15,0.116,0,'20日最低价='),COLORAFFF00;

DRAWNUMBER_FIX(ISLASTBAR,0.199,0.029,0,HHV(HIGH,0)),COLORFF00FF;

DRAWNUMBER_FIX(ISLASTBAR,0.199,0.058,0,LLV(LOW,0)),COLORAFFF00;

DRAWNUMBER_FIX(ISLASTBAR,0.199,0.087,0,HHV(HIGH,20)),COLORRED;

DRAWNUMBER_FIX(ISLASTBAR,0.199,0.116,0,LLV(LOW,20)),COLORAFFF00;

原理解析：
KX赋值:'CHANLUN@KXIAN'


KXG:='CHANLUN@KXG'


KXD:='CHANLUN@KXD'


KXFX:='CHANLUN@KXFX'


笔赋值:'CHANLUN@BI'


笔周期:'CHANLUN@BILAST',LINETHICK1, COLORFF00FF


BILAST赋值:'CHANLUN@BILAST'
{笔周期}


段赋值:'CHANLUN@DUAN'


段周期:'CHANLUN@DUANLAST', LINETHICK1, COLORFFFFFF


DUANLAST赋值:'CHANLUN@DUANLAST'
{段周期}


中枢赋值:'CHANLUN@ZS'


ZSZG赋值:'CHANLUN@ZSZG'


ZSZD赋值:'CHANLUN@ZSZD'


ZSGG赋值:'CHANLUN@ZSGG'


ZSDD赋值:'CHANLUN@ZSDD'


ZSZZ赋值:'CHANLUN@ZSZZ'


ZSKS赋值:'CHANLUN@ZSKSLAST'


ZSJS赋值:'CHANLUN@ZSJSLAST'


BIFX赋值:-BILAST日前的笔


DUANFX赋值:-DUANLAST日前的段
 

KXQJ:='CHANLUN@KXQJ'
当满足条件ZSZG>ZSZD AND DUANFX=1时,在 ZSZG和 ZSZD之间画柱状线
当满足条件ZSZG>ZSZD AND DUANFX=-1时,在 ZSZG和 ZSZD之间画柱状线


{中枢震荡监视器}

DRAWLINE(ZSKS=1, ZSZZ, ZSJS=1, ZSZZ, 0), COLORFFFFFF
当满足条件KX>0时,在 KXG和 KXD之间画柱状线
当满足条件KX<0时,在 KXG和 KXD之间画柱状线
当满足条件笔=1时,在 KXG和 KXD之间画柱状线
当满足条件笔=-1时,在 KXG和 KXD之间画柱状线
当满足条件段=1时,在 KXG和 KXD之间画柱状线
当满足条件段=-1时,在 KXG和 KXD之间画柱状线


{画K线END}

{画笔段}

DRAWLINE(笔=1,H,笔=-1,L,0), 画蓝色, 线宽为2


DRAWLINE(笔=-1,L,笔=1,H,0),COLORFF00FF , 线宽为2


DRAWLINE(段=1,H,段=-1,L,0),COLOR007700, 线宽为2


DRAWLINE(段=-1,L,段=1,H,0),画红色, 线宽为2
当满足条件笔=1时,在 H*1.038和H位置书写文字
当满足条件笔=-1时,在 L*0.96和 L位置书写文字


VAR3赋值:240日内H最低值


VAR4赋值:100*(C-VAR3)/VAR3


VAR5赋值:(C-528日内L最低值)/(528日内H最高值-528日内L最低值)*100


VAR6赋值:(C-530日内C最低值)/(530日内C最高值-530日内C最低值)*100


VAR7赋值:0


VAR8赋值:SMA(收盘价-1日前的收盘价和0较大值,34,1)/SMA(收盘价-1日前的收盘价的绝对值,7,1)*100


VAR9赋值:SMA(收盘价-1日前的收盘价和0较大值,13,1)/SMA(收盘价-1日前的收盘价的绝对值,13,1)*100


VAR10赋值:IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0)


VAR11赋值:ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3)


VAR12赋值:ZIG(3,6)=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3)


VAR13赋值:ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3)


VAR14赋值:ZIG(3,22)=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3)


VAR15赋值:ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3)


VAR16赋值:ZIG(3,51)=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3)


VAR17赋值:ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3)


VAR18赋值:ZIG(3,72)=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3)


VAR19赋值:C的2日指数移动平均-C的150日指数移动平均


买１赋值:VAR10


买２赋值:(VAR11+VAR13+VAR15+VAR17)


卖１赋值:(VAR12+VAR14+VAR16+VAR18)
当满足条件买１>0 OR 买２>0时,在L*0.985和'买'位置书写文字
当满足条件卖１>0时,在H*1.01和'卖'位置书写文字


APP赋值:(成交量)/((H-L)*(2)-C-O的绝对值)


ZL赋值:IF((H>O),(APP)*(H-L),IF((L

SF赋值:IF((H>O),0-(APP)*(H-C+O-L),IF((L

库存能量赋值:ZL+SF的2日简单移动平均


库存平均赋值:ZL+SF的5日简单移动平均
输出

GET:ZIG(3,5),画黄色, 线宽为3


PL5赋值:ZIG(3,5)


EN1赋值:PL5>1日前的PL5 AND 1日前的PL5<=2日前的PL5 AND 2日前的PL5<=3日前的PL5


EX1赋值:PL5<1日前的PL5 AND 1日前的PL5>=2日前的PL5 AND 2日前的PL5>=3日前的PL5


PL10赋值:ZIG(3,10)


EN2赋值:PL10>1日前的PL10 AND 1日前的PL10<=2日前的PL10 AND 2日前的PL10<=3日前的PL10


EX2赋值:PL10<1日前的PL10 AND 1日前的PL10>=2日前的PL10 AND 2日前的PL10>=3日前的PL10


PL20赋值:ZIG(3,20)


EN3赋值:PL20>1日前的PL20 AND 1日前的PL20<=2日前的PL20 AND 2日前的PL20<=3日前的PL20


EX3赋值:PL20<1日前的PL20 AND 1日前的PL20>=2日前的PL20 AND 2日前的PL20>=3日前的PL20


走强1赋值:上次PL5<1日前的PL5距今天数


走弱1赋值:上次PL5>1日前的PL5距今天数


走强2赋值:上次PL10<1日前的PL10距今天数


走弱2赋值:上次PL10>1日前的PL10距今天数


走强3赋值:上次PL20<1日前的PL20距今天数


走弱3赋值:上次PL20>1日前的PL20距今天数


ZTJZ5赋值:IF(PL10>1日前的PL10,统计走强2日满足EN1的天数,0)


ZTJD5赋值:IF(PL10>1日前的PL10,统计走强2日满足EX1的天数,0)


DTJZ5赋值:IF(PL10<1日前的PL10,统计走弱2日满足EN1的天数,0)


DTJD5赋值:IF(PL10<1日前的PL10,统计走弱2日满足EX1的天数,0)


ZTJZ10赋值:IF(PL20>1日前的PL20,统计走强3日满足EN2的天数,0)


ZTJD10赋值:IF(PL20>1日前的PL20,统计走强3日满足EX2的天数,0)


DTJZ10赋值:IF(PL20<1日前的PL20,统计走弱3日满足EN2的天数,0)


DTJD10赋值:IF(PL20<1日前的PL20,统计走弱3日满足EX2的天数,0)
当满足条件EN2 AND DTJZ10=1时,在L*0.96和'[类二买]'位置书写文字
当满足条件EN3 AND ZTJZ10=1时,在L*0.95和'[一买]'位置书写文字


DRAWTEXT(EX2 AND PL20>1日前的PL20 AND ZTJD10=1,H*1.04,'[二卖]'),COLORFFFF00, 线宽为2


DRAWTEXT(EN2 AND PL20>1日前的PL20 AND ZTJZ10=2,L*0.94,'[二买]'),COLORFFFF00, 线宽为2


DRAWTEXT(EX2 AND PL20>1日前的PL20 AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.03,'[一卖]'),COLOR00FF00, 线宽为3
当满足条件ISLASTBAR时,在横轴0.15纵轴0.029位置书写文字
当满足条件ISLASTBAR时,在横轴0.15纵轴0.058位置书写文字
当满足条件ISLASTBAR时,在横轴0.15纵轴0.087位置书写文字
当满足条件ISLASTBAR时,在横轴0.15纵轴0.116位置书写文字


DRAWNUMBER_FIX(ISLASTBAR,0.199,0.029,0,0日内最高价最高值),COLORFF00FF


DRAWNUMBER_FIX(ISLASTBAR,0.199,0.058,0,0日内最低价最低值),COLORAFFF00


DRAWNUMBER_FIX(ISLASTBAR,0.199,0.087,0,20日内最高价最高值),画红色


DRAWNUMBER_FIX(ISLASTBAR,0.199,0.116,0,20日内最低价最低值),COLORAFFF00