通达信百万魔鬼通道主图指标 源码

SHORT:=26;LONG:=12;M:=9;P1:=19;P2:=120;K:=-40;G:=-26;
{STICKLINE(C>0,-1,1,6,0),COLOR330066;}
DIF:=((EMA(CLOSE,SHORT)-EMA(CLOSE,LONG)))*-1;
DEA:=EMA(DIF,M),COLORFF00FF;
MACD:=2*(DIF-DEA);
HH:=MA(CLOSE,10);
GG:=MA(CLOSE,12);
上:=EMA((MA(HIGH,3) * 1.05),30);
下:=EMA((MA(LOW,3) * 0.96),30);
{决战:=STICKLINE((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF < 0)),DIF,0.4,3,0),COLOR0000FF;}
{DRAWICON((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF < 0)),0.4,0);}
{DRAWTEXT((((CROSS(DIF,DEA) AND ((下 - REF(下,1)) > 0)) AND (MACD >= REF(MACD,1))) AND (DIF <= 0)),0.4,'DIFF金叉'),COLOR0000FF;}
{STICKLINE(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0,0.5,3,0),COLOR00FF00;}
{DRAWICON(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),0.5,0);}
DRAWTEXT(FILTER(((((MACD >= REF(MACD,5)) AND ((下 - REF(下,1)) > 0)) AND (MACD <= 0)) AND ((GG - REF(GG,1)) >= 0)),3),L-0.38,'绝佳买入'),COLOR00FF00;
多头趋势:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空头趋势:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);
UP:=FILTER(多头趋势,13);
DRAWTEXT(UP,H+0.15,'¤多头'),COLORRED;
PU :=FILTER(空头趋势,13);
DRAWTEXT(PU,H+0.15,'¤空头'),COLORFF8800;
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
{STICKLINE(低位金叉,0,0.08,6,0),COLORYELLOW;}
DRAWTEXT(低位金叉,L-0.2,' 低位金叉'),COLORWHITE;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
{STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;}
{DRAWICON(二次金叉,DEA*1.04,1) ;}
DRAWTEXT(二次金叉,L-0.5,' 二次金叉'),COLORYELLOW;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
{STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;}
{DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK1;}
DRAWTEXT(底背离,L-0.32,' 底背离'),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
{DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK1;}
DRAWTEXT(顶背离,H+0.3,' ★顶背离'),COLORYELLOW;
缩头:=IF(MACD>0 AND REF(MACD,1)>REF(MACD,2) AND MACD< REF(MACD,1),1,0);
缩脚:=IF(MACD<0 AND REF(MACD,1)< REF(MACD,2) AND MACD>REF(MACD,1),1,0);
阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0);
支撑:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0);
做多:=IF(CROSS(MACD,DIF) AND DIF>0 AND MACD>0,1,0);
放空:=IF(CROSS(DIF,MACD) AND DIF<0 AND MACD<0,1,0);
{DRAWTEXT(FILTER(缩头,3) AND 缩头,MACD,'▼'),COLORFF00FF;}
DRAWTEXT(FILTER(缩头,3) AND 缩头,H+0.2,'缩头'),COLORFF00FF;
{DRAWTEXT(FILTER(缩脚,3) AND 缩脚,MACD,'△'),COLOR00FF00;}
DRAWTEXT(FILTER(缩脚,3) AND 缩脚,L-0.2,'缩脚'),COLOR00FF00;
DRAWTEXT(FILTER(阻力,16) AND MACD>=0,H+0.31,'¤阻力'),COLOR00FFFF;
DRAWTEXT(FILTER(支撑,16) AND MACD<0,L-0.13,'¤支撑'),COLORFFFFFF;
DIFF2:=(EMA(CLOSE,2) - EMA(OPEN,5));
操盘手:=DIFF2;
DRAWTEXT(((CROSS(操盘手,MACD) AND (LOW <= 下)) AND (MACD <= (0 - 0.11))),L-0.40,'短线5%'),COLORB7D16F;
DRAWTEXT(((CROSS(MACD,DIF) AND (MACD >= (0 - 0.05))) AND (MACD <= 0.02)),L-0.23,'金叉'),LINETHICK4,COLORFFFFFF;
VAR1:=1;
VAR2:=MA(CLOSE,18);
VAR3:=(((CLOSE - VAR2) / VAR2) * 100);
VAR4:=MA(VAR3,1);
升跌:=(VAR4 * VAR1);
VAR5:=BARSLAST((CROSS((0 - 10),VAR4) = 1));
VAR6:=BARSLAST((CROSS(VAR4,10) = 1));
VAR7:=((VAR4 < (0 - 10)) AND (VAR5 >= 5));
VAR8:=((VAR4 > 10) AND (VAR6 >= 5));
{C1:(0.01 * (IF(((VAR4 < (0 - 10)) AND (VAR5 >= 5)),VAR4,0) * VAR1)),LINETHICK1,COLOR0000FF;
C2:=C1;}
C3:=(IF(((VAR4 > 10) AND (VAR6 >= 5)),VAR4,0) * VAR1);
C4:=C3;
D1:=((((升跌 > REF(升跌,1)) AND VAR7) * 0.2) * VAR1);
中期底部:=LLV(CLOSE,30);
D:=(FILTER(((((((升跌 > REF(升跌,1)) AND (LOW <= 中期底部)) AND (CLOSE > 中期底部)) AND VAR7) * 0.5) * VAR1),3) * 0.5),COLOR0000FF;
DRAWTEXT((D >= 0.25),L-0.1,'★铁底'),COLOR00FFFF;
VCF1:=LLV(LOW,5);
VCF2:=HHV(HIGH,5);
VCF3:=EMA((((CLOSE - VCF1) / (VCF2 - VCF1)) * 100),4);
VCF4:=EMA(((0.667 * REF(VCF3,1)) + (0.333 * VCF3)),2);
VCF5:=((HIGH + LOW) / 2);
VCF6:=DMA(VCF5,(VOL / SUM(VOL,5)));
VCF7:=DMA(VCF5,(VOL / SUM(VOL,13)));
VCF8:=DMA(VCF5,(VOL / SUM(VOL,34)));
VCF9:=DMA(VCF5,(VOL / SUM(VOL,75)));
VCFA:=EMA(WINNER((0.9 * CLOSE)),5);
VCFB:=(1 - EMA(WINNER((1.2 * CLOSE)),5));
VCFC:=EMA(WINNER(CLOSE),5);
VCFD:=((100 * (CLOSE - VCF6)) / VCF6);
VCFE:=((100 * (CLOSE - VCF7)) / VCF7);
VCFF:=((100 * (MIN(CLOSE,OPEN) - VCF8)) / VCF8);
VCF10:=BARSLAST(((VCF8 > VCF9) AND (REF(VCF8,1) <= REF(VCF9,1))));
VCF11:=((((COUNT(((WINNER(CLOSE) < 0.11) AND (EMA(WINNER(CLOSE),5) < 0.15)),2) > 0) OR (((1 - WINNER((1.2 * CLOSE))) >= 0.8) AND (WINNER(CLOSE) < 0.05))) AND (COUNT((VCFE < (0 - 16)),2) > 0)) AND (COUNT((VCFF < (0 - 20)),2) > 0));
VCF12:=((((COUNT((VCFD < (0 - 10)),2) > 0) AND (COUNT((VCFE < (0 - 15)),2) > 0)) AND (COUNT((VCFF < (0 - 15)),2) > 0)) AND (COUNT((VCFA > 0.8),VCF10) = 0));
VCF13:=(((COUNT((VCF11 OR VCF12),2) > 0) AND (VCF3 > REF(VCF3,1))) AND (((1 - WINNER((1.15 * CLOSE))) * 100) > 80));
出击1:=IF((VCF13 AND (COUNT(VCF13,3) <= 1)),0.1,0);
黑马出击:=IF((VCF13 AND (COUNT(VCF13,3) <= 1)),0.37,0),LINETHICK3,COLOR0000FF;
{DRAWICON((黑马出击 > 0),0.37,1);}
DRAWTEXT((黑马出击 > 0),H+0.15,'★黑马'),COLORFFFFFF;
{DRAWTEXT((黑马出击 > 0),0.15,'出击'),COLOR00FF00;};
VAR10:=(((CLOSE - MA(CLOSE,58)) / MA(CLOSE,58)) * 100);
VAR11:=((((VAR10 > (1 * REF(VAR10,1))) AND (VAR10 < K)) AND (VAR10 > G)) * 1.5);
VAR12:=((VOL / CAPITAL) * 100);
VAR13:=LLVBARS(LOW,50);
VAR14:=SUM(VOL,VAR13);
VAR15:=HHVBARS(HIGH,50);
VAR16:=SUM(VOL,VAR15);
VAR17:=(((CLOSE - REF(OPEN,VAR15)) / REF(OPEN,VAR15)) * 100);
VAR18:=((VAR16 / CAPITAL) * 100);
VAR19:=(((CLOSE - REF(OPEN,VAR13)) / REF(OPEN,VAR13)) * 100);
VAR20:=((VAR14 / CAPITAL) * 100);
VAR21:=MA(CLOSE,3);
VAR22:=(REF(CLOSE,2) * 0.865);
VAR23:=(REF(CLOSE,13) * 0.772);
VAR24:=MIN(VAR22,VAR23);
VAR25:=MA(CLOSE,13);
抄底1:=(IF((((((CLOSE - VAR24) / CLOSE) < 0.03) AND (VAR17 < (-35))) AND ((SUM(VAR12,5) / 5) < 1.8)),1,0) * 0.4),LINETHICK3,COLORFF0000;
DRAWTEXT((抄底1 > 0),L-0.16,'★抄底'),LINETHICK3,COLORFFFFFF;
{DRAWTEXT((抄底1 > 0),抄底1,'成功90%'),LINETHICK3,COLOR00FF00;};