黑马启动】捕捉大牛股的牛角(图源码)通达信公式

2017-07-26    来源:网络    编辑:翔博软件
周期:=220; 自动C:=INDEXC; 自动O:=INDEXO; 自动H:=INDEXH; 自动L:=INDEXL; 指定O:=SH999999$O; 指定H:=SH999999$H; 指定L:=SH999999$L; 指定C:=SH999999$C; 大盘低:=CONST(LLV

周期:=220;
自动C:=INDEXC;
自动O:=INDEXO;
自动H:=INDEXH;
自动L:=INDEXL;

指定O:="SH999999$O";
指定H:="SH999999$H";
指定L:="SH999999$L";
指定C:="SH999999$C";

大盘低:=CONST(LLV(指定L,周期));
大盘高:=CONST(HHV(指定H,周期));
大盘差:=大盘高-大盘低;
当前低:=CONST(LLV(L,周期));
当前高:=CONST(HHV(H,周期));
当前差:=当前高-当前低;
比:=当前差/大盘差;

变C:=当前低+(指定C-大盘低)*比;
变H:=当前低+(指定H-大盘低)*比; 
变L:=当前低+(指定L-大盘低)*比; 
变O:=当前低+(指定O-大盘低)*比;

{灰色K线}
STICKLINE(CURRBARSCOUNT<周期,变H,变L,0,0),COLOR333333;
 STICKLINE(CURRBARSCOUNT<周期,变O,变C,3,0),COLOR333333;
 STICKLINE(CURRBARSCOUNT<周期 AND 变C>=变O,变O,变C,3,1),COLOR333333;


 {立体彩K}
 STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,1 ),COLOR5B5BFF;
 STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2.7,0 ),COLOR0000CC;
 STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2,0 ),COLOR0E0EFF;
 STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,1.2,0 ),COLOR4848FF;
 STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.6,0 ),COLOR7878FF;
 STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.1,0 ),COLORA1A1FF;
 STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0,0 ),COLORCACAFF;

 STICKLINE(CLOSE< OPEN,HIGH,LOW,0,1 ),COLORCYAN;
 STICKLINE(CLOSE< OPEN,OPEN,CLOSE,2.7,0 ),COLOR990000;
 STICKLINE(CLOSE< OPEN,OPEN,CLOSE,2,0 ),COLORCC0000;
 STICKLINE(CLOSE< OPEN,OPEN,CLOSE,1.2,0 ),COLORFF4400;
 STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.6,0 ),COLORFF8800;
 STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.1,0 ),COLORFFCC00;
 STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0,0 ),COLORCYAN;

{妖股龙头}
妖股线:=EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3);
妖股龙头:DRAWTEXT(CROSS(妖股线,15),L-0.12,'←妖股'),COLORMAGENTA;
 {黑马启动}
A:=(3*C+H+L+O)/6;
 PJ:=(10*A+9*REF(A,1)+8*REF(A,2)+7*REF(A,3)+6*REF(A,4)+5*REF(A,5)+4*REF(A,6)+3*REF(A,7)+2*REF(A,8)+REF(A,9))/55;
 E30:=EMA(PJ,30),COLORGRAY;
 E35:=EMA(PJ,35),COLORGRAY;
 E40:=EMA(PJ,40),COLORGRAY;
 E45:=EMA(PJ,45),COLORGRAY;
 E50:=EMA(PJ,50),COLORGRAY;
 E60:=EMA(PJ,55),COLORGRAY;
选股:CROSS(E30,E50) {AND CROSS(E40,E60)};
 DRAWTEXT(选股,LOW-0.05,'←黑马启动'),COLORWHITE;
假阴线:DRAWTEXT(O>MA(C,20) AND (O-C)/O*100>0.01 AND VOL/CAPITAL*100 >=3 AND C>REF(C,1),H+0.08,'←洗'),COLORWHITE;
揉搓线:=(REF(H,1)-MAX(REF(C,1),REF(O,1)))/(REF(H,1)-REF(L,1))>0.7 AND (MIN(O,C)-L)/(H-L)>0.7,COLORLIGRAY;
 DRAWTEXT(揉搓线,(L-0.48),'←揉搓线'),COLORLIGRAY; 
 

1
3
点击进入翔博软件旗下官方微店--指标超市