|
以下是通达信强庄起爆捉牛股妖股副图/选股预警 源码（无源码的请下载附件导入）
强庄起爆捉牛股妖股副图指标 源码 通达信 贴图
ZLCM:=EMA(WINNER(CLOSE)*70,3);
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
ZSHTL:=SHCM/(ZLCM+SHCM)*100;
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
STICKLINE(ZZLKP>75,-ZZLKP/5-10,-10,2,0),COLORFFFFFF;
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),14);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),14);
多头线:=DMP*100/MTR,COLORRED,LINETHICK2;
空头线:=DMM*100/MTR,COLORGREEN,LINETHICK2;
趋势线:=EXPMEMA(ABS(空头线-多头线)/(空头线+多头线)*100,6),COLORYELLOW,LINETHICK2;
强弱分界:30,COLORWHITE,DOTLINE,LINETHICK1;
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.03) AND((HIGH)/(CLOSE)<1.03) AND ((多头线-空头线)>10) AND 多头线>25 AND (趋势线>REF(趋势线,1)) AND (VAR3AA>0),91,0);
XG:=(FILTER((VAR4AA>90),21)),COLORYELLOW;
STICKLINE(XG,-1,-20,4,0),COLOR000099;
STICKLINE(XG,-1,-20,2,0),COLOR0000BB;
STICKLINE(XG,-1,-20,1,0),COLOR0000DD;
STICKLINE(XG,-1,-20,0.9,0),COLOR0000FF;
AHC1:=CLOSE*VOL;
AHC22:=EMA((EXPMA(AHC1,23)/EXPMA(VOL,23)+EXPMA(AHC1,54)/EXPMA(VOL,54)+EXPMA(AHC1,108)/EXPMA(VOL,108)+EXPMA(AHC1,316)/EXPMA(VOL,316))/4,34);
通道:=1.0668*AHC22;
起爆:=CROSS(C,通道) AND REF(C,1)*1.05-C<0.008 AND C>O*0.5;
RRF:=起爆;
A1:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,23))/EMA(CLOSE,23));
A2:=DMA(((2.15*CLOSE+LOW+HIGH)/4),A1);
金线王:=EMA(A2,200)*1.118;
金线王2:=EMA(A2,200)*1.118;
条件:=(C-REF(C,1))/REF(C,1)*100>8;
金K线:=CROSS(C,金线王) AND 条件;
STICKLINE(IF(RRF,-120,0),+12,0,5,0),COLOR000088;
STICKLINE(IF(RRF,-120,0),+12,0,5,0),COLOR0000AA;
STICKLINE(IF(RRF,-120,0),+12,0,5,0),COLOR0000CC;
STICKLINE(IF(RRF,-120,0),+12,0,5,0),COLOR0000EE;
STICKLINE(IF(RRF,-120,0),+12,0,5,0),COLOR0000EE;
STICKLINE(IF(RRF,-120,0),+12,0,5,0),COLORLIMAGENTA;
STICKLINE(IF(RRF,-120,0),+9,0,5,0),COLOR770077;
STICKLINE(IF(RRF,-120,0),+9,0,5,0),COLOR990099;
STICKLINE(IF(RRF,-120,0),+9,0,5,0),COLORBB00BB;
STICKLINE(IF(RRF,-120,0),+9,0,5,0),COLORDD00DD;
STICKLINE(IF(RRF,-120,0),+9,0,5,0),COLORFF00FF;
STICKLINE(IF(RRF,-120,0),+9,0,5,0),COLORDD00DD;
STICKLINE(IF(RRF,-120,0),+6,0,5,0),COLOR003300;
STICKLINE(IF(RRF,-120,0),+6,0,5,0),COLOR005500;
STICKLINE(IF(RRF,-120,0),+6,0,5,0),COLOR007700;
STICKLINE(IF(RRF,-120,0),+6,0,5,0),COLOR009900;
STICKLINE(IF(RRF,-120,0),+6,0,5,0),COLOR00CC00;
STICKLINE(RRF,0,3,5,0),COLOR008888;
STICKLINE(RRF,0,3,5,0),COLOR00AAAA;
STICKLINE(RRF,0,3,5,0),COLOR00CCCC;
STICKLINE(RRF,0,3,5,0),COLOR00FFFF;
STICKLINE(IF(金K线,-120,0),+12,0,4,0),COLOR000088;
STICKLINE(IF(金K线,-120,0),+12,0,4,0),COLOR0000AA;
STICKLINE(IF(金K线,-120,0),+12,0,4,0),COLOR0000CC;
STICKLINE(IF(金K线,-120,0),+12,0,4,0),COLOR0000EE;
STICKLINE(IF(金K线,-120,0),+12,0,4,0),COLOR0000EE;
STICKLINE(IF(金K线,-120,0),+12,0,4,0),COLORLIMAGENTA;
STICKLINE(IF(金K线,-120,0),+9,0,4,0),COLOR770077;
STICKLINE(IF(金K线,-120,0),+9,0,4,0),COLOR990099;
STICKLINE(IF(金K线,-120,0),+9,0,4,0),COLORBB00BB;
STICKLINE(IF(金K线,-120,0),+9,0,4,0),COLORDD00DD;
STICKLINE(IF(金K线,-120,0),+9,0,4,0),COLORFF00FF;
STICKLINE(IF(金K线,-120,0),+9,0,4,0),COLORDD00DD;
STICKLINE(IF(金K线,-120,0),+6,0,4,0),COLOR003300;
STICKLINE(IF(金K线,-120,0),+6,0,4,0),COLOR005500;
STICKLINE(IF(金K线,-120,0),+6,0,4,0),COLOR007700;
STICKLINE(IF(金K线,-120,0),+6,0,4,0),COLOR009900;
STICKLINE(IF(金K线,-120,0),+6,0,4,0),COLOR00CC00;
STICKLINE(IF(金K线,-120,0),+3,0,4,0),COLOR666666;
STICKLINE(IF(金K线,-120,0),+3,0,4,0),COLOR777777;
STICKLINE(IF(金K线,-120,0),+3,0,4,0),COLOR888888;
STICKLINE(IF(金K线,-120,0),+3,0,4,0),COLOR999999;
STICKLINE(IF(金K线,-120,0),+3,0,4,0),COLORDDDDDD;
STICKLINE(IF(金K线,-120,0),+3,0,4,0),COLORFFFFFF;
DRAWTEXT(RRF,10.5,'黑马一号'),COLORYELLOW;
{DRAWTEXT(RRF,8.5,'黑'),COLORYELLOW;}
DRAWTEXT(金K线,6,'黑马启动'),COLORYELLOW;
DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26)),DOTLINE;
DEAX:=EMA(DIFF,9),POINTDOT;
MACD2:=(2 * (DIFF - DEAX))*40;
STICKLINE((MACD2>=0),30,30+MACD2,2.8,-1),COLOR0000FF;
STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),30,30+MACD2,2,0),COLOR0090FF;
STICKLINE((MACD2<0),30,30+MACD2,2,0)COLORCYAN;
STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),30,30+MACD2,2.8,-1),COLORCYAN;
VARU1:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2);
VARU2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2);
STICKLINE(VARU1,76,85,2,0),COLORFF00FF,LINETHICK2;{高位红色}
STICKLINE(VARU1,76,85,2,0),COLORFF00FF,LINETHICK2;{高位红色}
STICKLINE(VARU1,76,85,1,0),COLORFF00FF,LINETHICK2;{高位红色}
STICKLINE(VARU2,76,85,2,0),COLORWHITE,LINETHICK2;{底位白色}
STICKLINE(VARU2,76,85,2,0),COLORWHITE,LINETHICK2;{底位白色};
FFD:=EMA((C - REF(C,1)) / REF(C,3),10) * 100;
KJHU:=EMA(EMA(EMA(EMA(FFD,2),2),2),3);
STICKLINE(KJHU >= REF(KJHU,1) AND KJHU>2,-36,-30,3,0),COLORFF00FF;
STICKLINE(KJHU < REF(KJHU,1) AND KJHU > EMA(KJHU,4) AND KJHU>2,-36,-30,2,0),COLOR00BBFF;
STICKLINE(KJHU < REF(KJHU,1) AND KJHU < EMA(KJHU,4) AND KJHU>2,-36,-30,3,0),COLORGREEN;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.95,0,0.5,FFD),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.85,0,0,'【FFD】 '),COLORYELLOW;
龙腾四海:=100-100*(HHV(HIGH,5*8)-CLOSE)/(HHV(HIGH,5*8)-LLV(LOW,5*8)),COLORWHITE;
STICKLINE(龙腾四海>=95,60,65,2,0),COLORGREEN;
STICKLINE(龙腾四海=100,65,70,3,0),COLORCC3366;
DRAWTEXT(龙腾四海=100,66,'100'),COLORWHITE;
N:=500;
BJQD:=100*CLOSE/INDEXC;
B:=SUM(BJQD,N)/N;
XDQD1:=BJQD/B;
XDQD:XDQD1/(SUM(XDQD1,60)/60)*50+20,COLORFF33FF,LINETHICK2;
B1:=0.9*50+20,COLORBLUE;
B2:=1.0*50+20,COLORFFAA00,LINETHICK2;
B3:1.12*50+20,COLORRED,LINETHICK2;
DRAWICON(CROSS(XDQD,B3),B3,5);
BF:=C>0.97*REF(C,BARSLAST(CROSS(B3,XDQD)+1)) AND (LONGCROSS(XDQD,B3,30));
STICKLINE(BF,B1,B3,1,0),COLORRED;
STICKLINE(LONGCROSS(B3,XDQD,20),B1,B3,1,0),COLORYELLOW;
DRAWTEXT(ISLASTBAR, XDQD,' 牛股线'),COLORFF33FF;
DRAWTEXT(ISLASTBAR, B3,' 主升浪'),COLORRED;
所属地域:DRAWTEXT_FIX(1,0.6,0,0,DYBLOCK),COLORMAGENTA,LINETHICK2;
所属行业:DRAWTEXT_FIX(ISLASTBAR ,0.7,0,0,HYBLOCK),COLORYELLOW;
所属概念:DRAWTEXT_FIX(ISLASTBAR ,0.75,0,0,GNBLOCK),COLORMAGENTA,LINETHICK2;
VAR1D:=EMA(CLOSE,2)-EMA(CLOSE,89);
VAR1E:=EMA(VAR1D,30);
VAR1F:=2*(VAR1D-VAR1E)*10;
VAR20:=POW(VAR1F,3)*0.1+POW(VAR1F,2);
VAR25:=IF(YEAR<2008 AND VAR1F>0.015,VAR20,0)/45;
VAR26:=EMA(CLOSE,2)-EMA(CLOSE,150);
VAR27:=EMA(VAR26,100);
VAR28:=2*(VAR26-VAR27);
VAR29:=POW(VAR28,3)*0.1+POW(VAR28,1);
AA:=IF( VAR28>0.1,VAR29,0)*5;
庄进场:AA,VOLSTICK;
MA35:MA(庄进场,35),COLORYELLOW;
上趋势:=MA(LOW,20)*1.2,COLOR0080FF,LINETHICK2;
次上趋势:=MA(LOW,20)*1.1,COLORYELLOW;
次下趋势:=MA(HIGH,20)*0.9,COLORWHITE;
下趋势:=MA(HIGH,20)*0.8,COLORGREEN,LINETHICK2;
趋势强度:=IF(C>次上趋势,IF(C>上趋势,4,3),IF(C>次下趋势 AND C<次上趋势,2,IF(C<下趋势,0,1)));
C1:=10000*C/INDEXC;
O1:=10000*O/INDEXO;
主力动向:=MA(C1,5),LINETHICK2,COLORCYAN;
STICKLINE(C1>=O1 AND C1>主力动向 AND STICKLINE(趋势强度=4,C,O,3,0),-0,-2,2,0),COLORFF00FF;
DRAWTEXT(ISLASTBAR, MA35,'MA35 '),COLORFF00FF;
倍数:=1.9;
倍量:=VOL>=REF(V,1)*倍数 AND (IF(C<O,C>REF(C,1),1)),COLORYELLOW,NODRAW;
STICKLINE(倍量, 0,AA,1,0),COLORYELLOW;
XA_1:=(CLOSE-LLV(CLOSE,10))/(HHV(CLOSE,10)-LLV(CLOSE,10));
强庄起爆:=CROSS(XA_1,0.05)*3 AND FILTER(CLOSE/REF(CLOSE,1)>1.048 AND C=H
AND BETWEEN(FORCAST(VOL,4),0.2*FORCAST(VOL,12),2.1*FORCAST(VOL,12)),28)
AND NOT(DYNAINFO(4)=0);
STICKLINE(强庄起爆,0,-1,2,0),COLORYELLOW;
DRAWICON(强庄起爆,-0.9,26);
DRAWTEXT(强庄起爆,-0.9,' 强庄起爆'),COLORYELLOW;
X_1:=EMA(CLOSE,9);
X_2:=(CLOSE+OPEN)/2;
X_3:=MA(CLOSE,3);
X_4:=MA(CLOSE,2*3);
X_5:=MA(CLOSE,3*3);
X_6:=MA(CLOSE,4*3);
X_7:=MA((X_3+X_4+X_5+X_6)/4,5);
主升浪1:EMA(X_1*1.14,5)*5,COLORGREEN;
主升浪4:EMA(CLOSE,3)*5,COLORRED;
DRAWICON(CROSS(主升浪4,主升浪1),主升浪4,1);
DRAWTEXT(ISLASTBAR,主升浪1,'主1'),COLORGREEN;
DRAWTEXT(ISLASTBAR,主升浪4,' 主4'),COLORRED;
VX1:=(C*2+H+L)/4*10;
VX2:=EMA(VX1,13)-EMA(VX1,34);
VX3:=EMA(VX2,5);
VX4:=2*(VX2-VX3)*5.5;
超大主力吃: IF(VX4>=0,VX4,0)*2-36,COLOR7F00FF,LINETHICK4;
8*2-36;
DRAWTEXT(ISLASTBAR,超大主力吃,'超大主力吃'),COLOR7F00FF;
DRAWTEXT(ISLASTBAR, -20,' 吃货线'),COLORWHITE;
1324488977.png
|
