通达信主力异动价加牛线主图 开源不加密 附图

M5:=5;

M10:=10;

M22:=22;

M120:=120;

ZF:=(C-REF(C,1))/REF(C,1)*100;

EMA5:=EMA(C,M5),;

EMA10:=EMA(C,M10);

EMA22:=EMA(C,M22);

JFH:=EMA5>=EMA10 && EMA10>=EMA22;

FHW:=EMA22>=EMA10 && EMA10>=EMA5;

RSVK:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

XZQ:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100; 

ZLL:=(EMA(XZQ,3)-50)*5,; 

K1:=SMA(RSVK,10,1);

D1:=SMA(K1,5,1);

KK:=EMA(K1,2);

DD:=EMA(D1,2);

TFXXS:=KK+DD;

TGLXS:=(TFXXS-REF(TFXXS,1))*10;

TYCFX:=TFXXS+TGLXS;

XS2:=TGLXS>69;

XS3:=COUNT(ZLL>40,2)>0;

XS4:=XS2 AND XS3;

主力异动:=REF(XS4,1)=0 AND XS4 AND C>O;

主力异动1:=CROSS(主力异动,0.9);



STICKLINE(C,REF(C,BARSLAST(主力异动1)),REF(L,BARSLAST(主力异动1)),6,0),COLORC08080;

STICKLINE(C,REF(C,BARSLAST(主力异动)),REF(C,BARSLAST(主力异动)),4,1),COLORRED;



TT0:=BARSLAST(CURRBARSCOUNT=CONST(主力异动));

DRAWTEXT(TT0=0,REF(H,TT0)*1.003,VARCAT(VARCAT('牛线等突破 :   ',VAR2STR(REF(H,TT0),2)),'元'))COLORWHITE;

EMA120:EMA(CLOSE,M120);

DRAWKLINE(H,O,L,C);

DRAWICON(CROSS(EMA5,EMA10),L,1);

DRAWICON(CROSS(EMA10,EMA5),H,2);

STICKLINE(JFH>REF(JFH,1),OPEN,CLOSE,2,0),COLOR4080FF;

STICKLINE(主力异动,OPEN,CLOSE,2,0),COLORYELLOW;

STICKLINE(ZF<-9.8,O,C,3,0),COLORGREEN;

STICKLINE(LOW >REF(HIGH,1),LOW,REF(HIGH,1),5,1),COLORRED;

STICKLINE(C<REF(C,1) AND REF(L,1)>H,REF(L,1),H,5,1),COLORMAGENTA;

DRAWTEXT(主力异动,EMA22,'主力异动'),COLORYELLOW,LINETHICK2;

VVAR1:=2*MA(LLV((C+L)/2,8)*1.1,13)-EMA((C+L)/2,3)-((C+L)/2)*0.1; 

VVAR2:=IF((EMA((C+L)/2,3)-VVAR1)*5>0,POW((EMA((C+L)/2,3)-VVAR1)*5,2)/10,-1*POW((EMA((C+L)/2,3)-VVAR1)*5,2)/10); 

VVAR3:=IF(VVAR2>0,VVAR2-0,0); 

STICKLINE(VVAR3>0 AND REF(VVAR3,1)=0 AND (C+L)/2>MA((C+L)/2,8),OPEN,CLOSE,2,0),COLORFF00FF;



高不破价:=REF(C,BARSLAST(主力异动));

低不破价:=REF(L,BARSLAST(主力异动));

单阳不破:=CURRBARSCOUNT<100 AND BARSLAST(主力异动)<11 AND (LLV(L,BARSLAST(主力异动))>低不破价 OR LLV(L,BARSLAST(主力异动))=低不破价);

STICKLINE(单阳不破,低不破价-低不破价*0.0005,低不破价,4,0),COLORGREEN;

STICKLINE(单阳不破,高不破价,高不破价,4,0),COLORRED;



XGH:=CROSS(主力异动,0.9);

QF:=BACKSET(XGH=1,主力异动+1);

QFT:=BARSLAST(CROSS(QF=1,0.5));

NOTEXT:IF(QF=1,L,DRAWNULL),COLORGREEN;

STICKLINE(QFT>=0,REF(H,QFT),REF(H,QFT),4,-1),COLORYELLOW;

DRAWTEXT(QFT=0,H*1.03,VARCAT(VARCAT('异动价等突破：',VAR2STR(REF(H,QFT),2)),'元'))COLORYELLOW;



LLT:=LLVBARS(L,60);

LTLT:=BARSLAST(CURRBARSCOUNT=CONST(LLT)+1);

HGT:=FINDHIGHBARS(H,LLT+1,60,1);

牛线:DRAWLINE(CURRBARSCOUNT=CONST(HGT)+1,H,ISLASTBAR,REF(H,HGT),0),COLORFF80FF,LINETHICK2;

牛线1:DRAWLINE(CURRBARSCOUNT=CONST(HGT)+1,H,ISLASTBAR,REF(H,HGT),0),COLORYELLOW,LINETHICK4,POINTDOT;

TGT0:=BARSLAST(CURRBARSCOUNT=CONST(HGT)+1);

DRAWTEXT(TGT0=0,REF(H,TGT0)*1.003,VARCAT(VARCAT('牛等突破 :   ',VAR2STR(REF(H,TGT0),2)),'元'))COLORWHITE;

原理解析：
M5赋值:5
M10赋值:10
M22赋值:22
M120赋值:120
ZF赋值:(C-1日前的C)/1日前的C*100
EMA5赋值:C的M5日指数移动平均,
EMA10赋值:C的M10日指数移动平均
EMA22赋值:C的M22日指数移动平均
JFH赋值:EMA5>=EMA10 && EMA10>=EMA22
FHW赋值:EMA22>=EMA10 && EMA10>=EMA5
RSVK赋值:(收盘价-15日内最低价最低值)/(15日内最高价最高值-15日内最低价最低值)*100
XZQ赋值:(收盘价-8日内最低价最低值)/(8日内最高价最高值-8日内最低价最低值)*100

ZLL赋值:(XZQ的3日指数移动平均-50)*5,
RSVK的10日[1日权重]移动平均
K1的5日[1日权重]移动平均
KK赋值:K1的2日指数移动平均
DD赋值:D1的2日指数移动平均
TFXXS赋值:KK+DD
TGLXS赋值:(TFXXS-1日前的TFXXS)*10
TYCFX赋值:TFXXS+TGLXS
XS2赋值:TGLXS>69
XS3赋值:统计2日满足ZLL>40的天数>0
XS4赋值:XS2 AND XS3
主力异动赋值:1日前的XS4=0 AND XS4 AND C>O
主力异动1:=主力异动上穿0.9

STICKLINE(C,REF(C,上次主力异动1距今天数),REF(L,上次主力异动1距今天数),6,0),COLORC08080
STICKLINE(C,REF(C,上次主力异动距今天数),REF(C,上次主力异动距今天数),4,1),画红色

TT0赋值:上次 到最后交易的周期=CONST(主力异动距今天数)
DRAWTEXT(TT0=0,TT0日前的H*1.003,VARCAT(VARCAT('牛线等突破 : ',VAR2STR(TT0日前的H,2)),'元'))画白色
输出EMA120:收盘价的M120日指数移动平均
DRAWKLINE(H,O,L,C)
DRAWICON(EMA5上穿EMA10,L,1)
DRAWICON(EMA10上穿EMA5,H,2)
STICKLINE(JFH>1日前的JFH,开盘价,收盘价,2,0),COLOR4080FF
当满足条件主力异动时,在开盘价和收盘价之间画柱状线
当满足条件ZF<-9.8时,在O和C之间画柱状线
STICKLINE(最低价 >1日前的最高价,最低价,1日前的最高价,5,1),画红色
STICKLINE(C<1日前的C AND 1日前的L>H,1日前的L,H,5,1),画洋红色
当满足条件主力异动时,在EMA22和'主力异动'位置书写文字
VVAR1赋值:2*MA(LLV((C+L)/2,8)*1.1,13)-EMA((C+L)/2,3)-((C+L)/2)*0.1

VVAR2赋值:IF((EMA((C+L)/2,3)-VVAR1)*5>0,POW((EMA((C+L)/2,3)-VVAR1)*5,2)/10,-1*POW((EMA((C+L)/2,3)-VVAR1)*5,2)/10)
如果VVAR2>0返回VVAR2-0否则返回0

STICKLINE(VVAR3>0 AND 1日前的VVAR3=0 AND (C+L)/2>MA((C+L)/2,8),开盘价,收盘价,2,0),COLORFF00FF

高不破价赋值:REF(C,上次主力异动距今天数)
低不破价赋值:REF(L,上次主力异动距今天数)
单阳不破赋值: 到最后交易的周期<100 AND 上次主力异动距今天数<11 AND (LLV(L,上次主力异动距今天数)>低不破价 OR LLV(L,上次主力异动距今天数)=低不破价)
当满足条件单阳不破时,在低不破价-低不破价*0.0005和低不破价之间画柱状线
当满足条件单阳不破时,在高不破价和高不破价之间画柱状线

XGH赋值:主力异动上穿0.9
QF赋值:BACKSET(XGH=1,主力异动+1)
QFT:=上次QF=1上穿0.5距今天数
如果QF=1返回L否则返回DRAWNULL
STICKLINE(QFT>=0,QFT日前的H,QFT日前的H,4,-1),画黄色
DRAWTEXT(QFT=0,H*1.03,VARCAT(VARCAT('异动价等突破：',VAR2STR(QFT日前的H,2)),'元'))画黄色

LLT赋值:LLVBARS(L,60)
LTLT赋值:上次 到最后交易的周期=CONST(LLT距今天数+1)
HGT赋值:FIND最高价BARS(H,LLT+1,60,1)
输出牛线:DRAWLINE( 到最后交易的周期=CONST(HGT)+1,H,ISLASTBAR,HGT日前的H,0),COLORFF80FF, 线宽为2
牛线1:DRAWLINE( 到最后交易的周期=CONST(HGT)+1,H,ISLASTBAR,HGT日前的H,0),画黄色,LINETHICK4,POINTDOT
TGT0赋值:上次 到最后交易的周期=CONST(HGT距今天数+1)
DRAWTEXT(TGT0=0,TGT0日前的H*1.003,VARCAT(VARCAT('牛等突破 : ',VAR2STR(TGT0日前的H,2)),'元'))画白色