通达信【擒牛捉妖记】主副图指标 潜伏狙击涨停 源码

{捉妖记主图源码如下}

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;

原理解析：
{捉妖记主图源码如下}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)))
当满足条件ISLASTBAR时,在横轴0.00纵轴0.0位置书写文字
A0赋值:(3*C+L+O+H)/6
X赋值:(20*A0+19*1日前的A0+18*2日前的A0+17*3日前的A0+16*4日前的A0+15*5日前的A0+ 14*6日前的A0+13*7日前的A0+12*8日前的A0+11*9日前的A0+10*10日前的A0+9*11日前的A0+8*12日前的A0 +7*13日前的A0+6*14日前的A0+5*15日前的A0+4*16日前的A0+3*17日前的A0+2*18日前的A0+ 20日前的A0)/210
MTM赋值:C-1日前的C
筹码盈利:=STRCAT(STRCAT('筹码盈利:',CON2STR(DYNAINFO(7计算的获利盘比例)*100,1)),'%')
当满足条件1时,在横轴0纵轴0.12位置书写文字
STICKLINE(C< 0.905*1日前的C,C,O,2.5,0),画绿色
VAW1赋值:CLOSE的13日指数移动平均,13)
控盘赋值:(VAW1-1日前的VAW1)/1日前的VAW1*1000
无庄控盘赋值:控盘< 0
有庄控盘赋值:控盘>1日前的控盘 AND 控盘>0
JJ赋值:均价
P赋值:21
S赋值:8
M1赋值:3
财赋值:(CLOSE的S日指数移动平均-CLOSE的P日指数移动平均)*50
神赋值:财的M1日指数移动平均
ABC1赋值:(C-JJ)/JJ< -0.03
ABC11:=(C-JJ)/JJ< -0.03
ABC12:=LAST(JJ>=1日前的JJ,5,1) AND (C-JJ)/JJ< 0.005
ACB1赋值:(C-JJ)/JJ>0.005
ACB01赋值:控盘< 1日前的控盘 AND 控盘>0.5
ACB02赋值:控盘>0
ABC2赋值:控盘>1日前的控盘 AND 控盘< -0.2
ABC22:=控盘>1日前的控盘 AND 控盘< 0
ABC3赋值:财上穿神 AND 财< -0.3
ABC32:=财上穿神 AND 财< -0.1
ACB31赋值:神上穿财
ACB32赋值:神上穿财 AND 财>1.618
ABC81赋值:ABC1 AND ABC2 AND ABC3的13过滤
ABC811:=ABC11 AND ABC2 AND ABC3的13过滤
ABC82赋值:ABC12 AND ABC22 AND ABC32的13过滤
ACB81赋值:ACB1 AND ACB01 AND ACB31的13过滤
ACB82赋值:ACB02 AND ACB32 的13过滤
ACB83赋值:ACB81 AND ACB82
当满足条件ACB83时,在H*1.002和'↓ 卖出'位置书写文字
当满足条件ACB83时,在H+0.003和6之间画图标
庄赋值: ABC11 AND ABC2 AND ABC3
有庄赋值:庄的30过滤
当满足条件有庄时,在L-0.0011和'↖买入'位置书写文字
当满足条件有庄时,在L*0.999和5之间画图标
输出生命线:CLOSE的8日简单移动平均,画黄色 线宽为2
LS赋值:C/1日前的C>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,6),2.1*FORCAST(V,6))
拉升赋值:LS的14过滤
输出多方线:CLOSE的60日简单移动平均, 画蓝色 线宽为2
当满足条件拉升时,在最低价*0.995和9之间画图标
当满足条件拉升时,在最低价*0.995和' ↘抓妖'位置书写文字
AA1赋值:(C-1日前的C)/1日前的C>=0.058 AND (C-1日前的C)/1日前的C< 0.095
AA2赋值:(C-1日前的C)/1日前的C>=0.098
MA54赋值:CLOSE的54日简单移动平均
MA120赋值:CLOSE的120日简单移动平均
STICKLINE(C/1日前的C>=1.096 AND H=C,O,C,2,0),画黄色
BAC8赋值:(3日前的CLOSE-CLOSE)/3日前的CLOSE*100>5
BAC9赋值:BAC8的10过滤
BAC10赋值:上次BAC9距今天数
BAC11赋值:BAC10+2日前的最高价
BAC12赋值:BAC10+1日前的最高价
BAC13赋值:BAC10日前的最高价
BAC14赋值:BAC11和BAC12较大值
BAC15赋值:BAC14和BAC13较大值
BAC16赋值:(CLOSE-1日前的CLOSE)/1日前的CLOSE*100>5
BAC17赋值:BAC10< 150
BAC18赋值:(OPEN-BAC15)/BAC15*100< 30
BAC19赋值:(CLOSE-BAC10日内最低价最低值)/BAC10日内最低价最低值*100< 50
BAC20赋值:(CLOSE-5日前的OPEN)/5日前的OPEN*100< 30
BAC21赋值:成交量/成交量的5日简单移动平均< 3.5
BAC22赋值:(CLOSE-89日前的CLOSE)/89日前的CLOSE*100< 80
BAC25赋值:BAC16 AND BAC17 AND BAC18 AND BAC19 AND BAC20 AND BAC21 AND BAC22
暴利赋值:BAC25的15过滤
PL1:=(((CLOSE-MA54)/MA54)< 0.1)
PL2:=(((CLOSE-生命线)/生命线)< 0.3)
偏离率赋值:(((PL1=1) AND (PL2=1))*0.2)
平台突破赋值:((((偏离率=0) AND (1日前的偏离率=0.2)) AND (REF((COUNT((偏离率=0.2),10)=10),1)=1))*-0.1)
妖股突破赋值:平台突破=-0.1
XDF:=(暴利 OR 妖股突破)
CBAA赋值:D成交额/成交量/100的成交量/CAPITAL日简单移动平均
CBAAA:=现价/(1日前的CLOSE)>1.05 AND (现价/O>1.05)
FLIGA赋值:(成交量/1日前的成交量>1.2 AND 统计1日满足CLOSE>OPEN的天数) OR (最低价>1日前的最高价 AND 统计1日满足OPEN>CLOSE的天数 AND 成交量/1日前的成交量>1.2)
妖股赋值:XDF AND C/1日前的C>1.095 AND FLIGA AND CBAAA,NODRAW
当满足条件妖股时,在H*1和25之间画图标
当满足条件妖股时,在H*1和' ↙妖股'位置书写文字
{捉妖记副图指源码如下}ABC1赋值:INTPART(0的V日累和/CAPITAL)
ABC2赋值:ABC1>1日前的ABC1 OR BARSSINCE(CLOSE)=0
ABC3赋值:上次ABC2距今天数+1
ABC4赋值:ABC3< 1日前的ABC3
ABC5赋值:IF(ABC4,1日前的ABC3+1,ABC3)
ABC6赋值:0的ABC4日累和
ABC7赋值:D成交额/成交量/100的成交量/CAPITAL日简单移动平均
ABC8赋值:CLOSE/(1日前的CLOSE)>1.05 AND (最高价/CLOSE< 1.01)
游资进场赋值:(ABC8>0的34过滤AND 开盘价>0)*8,画黄色
ABC9赋值:5
LS赋值:C/1日前的C>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,6),2.1*FORCAST(V,6))
拉升赋值:LS的14过滤
当满足条件拉升时,在0和16之间画柱状线
当满足条件拉升时,在16.2和9之间画图标
ABC10:=((3.48*CLOSE+最高价+最低价的绝对值/4-CLOSE的10日指数移动平均)/CLOSE的10日指数移动平均)
ABC11:=DMA(((2.15*CLOSE+最低价+最高价)/4),ABC10)
金线王赋值:ABC11的5日指数移动平均*1
金线王2:=ABC11的200日指数移动平均*1.118
条件赋值:(C-1日前的C)/1日前的C*100>8
金K线赋值:C上穿金线王 AND 条件
指标抓牛赋值:金K线,
当满足条件拉升时,在+10和0之间画柱状线
当满足条件拉升时,在10和' ★抓妖'位置书写文字