通达信【擒牛捉妖记】主副图指标 潜伏狙击涨停 源码
通达信【擒牛捉妖记】主副图指标 潜伏狙击涨停 源码
{捉妖记主图源码如下}
TAX:=HORCALC(HYBLOCK,105,1,DRAWNULL);
TAA:=STRCAT(HYBLOCK,' 排名 ：');
DRAWTEXT_FIX(ISLASTBAR,0.70,0.005,0,STRCAT(TAA,CON2STR(TAX,0)));
所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT('【行业】',HYBLOCK),STRCAT('【地区】',DYBLOCK)),STRCAT('【概念】',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.00,0.0,0,所属板块),COLORRED;
A0:=(3*C+L+O+H)/6;
X:=(20*A0+19*REF(A0,1)+18*REF(A0,2)+17*REF(A0,3)+16*REF(A0,4)+15*REF(A0,5)+ 14*REF(A0,6)+13*REF(A0,7)+12*REF(A0,8)+11*REF(A0,9)+10*REF(A0,10)+9*REF(A0,11)+8*REF(A0,12) +7*REF(A0,13)+6*REF(A0,14)+5*REF(A0,15)+4*REF(A0,16)+3*REF(A0,17)+2*REF(A0,18)+ REF(A0,20))/210;
MTM:=C-REF(C,1);
筹码盈利:=STRCAT(STRCAT('筹码盈利:',CON2STR(WINNER(DYNAINFO(7))*100,1)),'%');
DRAWTEXT_FIX(1,0,0.12,0,筹码盈利),COLORRED;
STICKLINE(C< 0.905*REF(C,1),C,O,2.5,0),COLORGREEN;
VAW1:=EMA(EMA(CLOSE,13),13);
控盘:=(VAW1-REF(VAW1,1))/REF(VAW1,1)*1000;
无庄控盘:=控盘< 0;
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
JJ:=DYNAINFO(11);
P:=21;
S:=8;
M1:=3;
财:=(EMA(CLOSE,S)-EMA(CLOSE,P))*50;
神:=EMA(财,M1);
ABC1:=(C-JJ)/JJ< -0.03;
ABC11:=(C-JJ)/JJ< -0.03;
ABC12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ< 0.005;
ACB1:=(C-JJ)/JJ>0.005;
ACB01:=控盘< REF(控盘,1) AND 控盘>0.5;
ACB02:=控盘>0;
ABC2:=控盘>REF(控盘,1) AND 控盘< -0.2;
ABC22:=控盘>REF(控盘,1) AND 控盘< 0 ;
ABC3:=CROSS(财,神) AND 财< -0.3;
ABC32:=CROSS(财,神) AND 财< -0.1;
ACB31:=CROSS(神,财);
ACB32:=CROSS(神,财) AND 财>1.618;
ABC81:=FILTER(ABC1 AND ABC2 AND ABC3,13);
ABC811:=FILTER(ABC11 AND ABC2 AND ABC3,13);
ABC82:=FILTER(ABC12 AND ABC22 AND ABC32,13);
ACB81:=FILTER(ACB1 AND ACB01 AND ACB31,13);
ACB82:=FILTER(ACB02 AND ACB32 ,13);
ACB83:=ACB81 AND ACB82;
DRAWTEXT(ACB83,H*1.002,'↓ 卖出'),COLORGREEN;
DRAWICON(ACB83,H+0.003,6);
庄:= ABC11 AND ABC2 AND ABC3;
有庄:=FILTER(庄,30);
DRAWTEXT(有庄,L-0.0011,'↖买入'),COLORYELLOW;
DRAWICON(有庄,L*0.999,5);
生命线:MA(CLOSE,8),COLORYELLOW LINETHICK2;
LS:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,6),2.1*FORCAST(V,6));
拉升:=FILTER(LS,14);
多方线:MA(CLOSE,60),COLORBLUE LINETHICK2;
DRAWICON(拉升,LOW*0.995,9);
DRAWTEXT(拉升,LOW*0.995,' ↘抓妖'),COLORYELLOW;
AA1:=(C-REF(C,1))/REF(C,1)>=0.058 AND (C-REF(C,1))/REF(C,1)< 0.095 ;
AA2:=(C-REF(C,1))/REF(C,1)>=0.098 ;
MA54:=MA(CLOSE,54);
MA120:=MA(CLOSE,120);
STICKLINE(C/REF(C,1)>=1.096 AND H=C,O,C,2,0),COLORYELLOW;
BAC8:=(REF(CLOSE,3)-CLOSE)/REF(CLOSE,3)*100>5;
BAC9:=FILTER(BAC8,10);
BAC10:=BARSLAST(BAC9);
BAC11:=REF(HIGH,BAC10+2);
BAC12:=REF(HIGH,BAC10+1);
BAC13:=REF(HIGH,BAC10);
BAC14:=MAX(BAC11,BAC12);
BAC15:=MAX(BAC14,BAC13);
BAC16:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>5;
BAC17:=BAC10< 150;
BAC18:=(OPEN-BAC15)/BAC15*100< 30;
BAC19:=(CLOSE-LLV(LOW,BAC10))/LLV(LOW,BAC10)*100< 50;
BAC20:=(CLOSE-REF(OPEN,5))/REF(OPEN,5)*100< 30;
BAC21:=VOL/MA(VOL,5)< 3.5;
BAC22:=(CLOSE-REF(CLOSE,89))/REF(CLOSE,89)*100< 80;
BAC25:=BAC16 AND BAC17 AND BAC18 AND BAC19 AND BAC20 AND BAC21 AND BAC22;
暴利:=FILTER(BAC25,15);
PL1:=(((CLOSE-MA54)/MA54)< 0.1);
PL2:=(((CLOSE-生命线)/生命线)< 0.3);
偏离率:=(((PL1=1) AND (PL2=1))*0.2);
平台突破:=((((偏离率=0) AND (REF(偏离率,1)=0.2)) AND (REF((COUNT((偏离率=0.2),10)=10),1)=1))*-0.1);
妖股突破:=平台突破=-0.1;
XDF:=(暴利 OR 妖股突破);
CBAA:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
CBAAA:=DYNAINFO(7)/(REF(CLOSE,1))>1.05 AND (DYNAINFO(7)/O>1.05);
FLIGA:=(VOL/REF(VOL,1)>1.2 AND COUNT(CLOSE>OPEN,1)) OR (LOW>REF(HIGH,1) AND COUNT(OPEN>CLOSE,1) AND VOL/REF(VOL,1)>1.2);
妖股:=XDF AND C/REF(C,1)>1.095 AND FLIGA AND CBAAA,NODRAW;
DRAWICON(妖股,H*1,25);
DRAWTEXT(妖股,H*1,' ↙妖股'),COLORMAGENTA;
{捉妖记副图指源码如下}
ABC1:=INTPART(SUM(V,0)/CAPITAL);
ABC2:=ABC1>REF(ABC1,1) OR BARSSINCE(CLOSE)=0;
ABC3:=BARSLAST(ABC2)+1;
ABC4:=ABC3< REF(ABC3,1);
ABC5:=IF(ABC4,REF(ABC3,1)+1,ABC3);
ABC6:=SUM(ABC4,0);
ABC7:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
ABC8:=CLOSE/(REF(CLOSE,1))>1.05 AND (HIGH/CLOSE< 1.01);
游资进场:=(FILTER(ABC8>0,34)AND DYNAINFO(4)>0)*8,COLORYELLOW;
ABC9:=5;
LS:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,6),2.1*FORCAST(V,6));
拉升:=FILTER(LS,14);
STICKLINE(拉升,0,16,0,0),COLORMAGENTA;
DRAWICON(拉升,16.2,9);
ABC10:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,10))/EMA(CLOSE,10));
ABC11:=DMA(((2.15*CLOSE+LOW+HIGH)/4),ABC10);
金线王:=EMA(ABC11,5)*1;
金线王2:=EMA(ABC11,200)*1.118;
条件:=(C-REF(C,1))/REF(C,1)*100>8;
金K线:=CROSS(C,金线王) AND 条件;
指标抓牛:=金K线,;
STICKLINE(拉升,+10,0,3,0),COLORYELLOW;
DRAWTEXT(拉升,10,' ★抓妖'),COLORYELLOW;
