通达信【潜龙再跃战法】精准买入时机捕捉策略 主图 源码

MA51:MA(H,5);

MA5:MA(C,5);

MA10:MA(C,10);

涨停:=CLOSE>=ZTPRICE(REF(CLOSE,1),0.1);

跌停:=CLOSE<=DTPRICE(REF(CLOSE,1),0.1);

STICKLINE(涨停,O,C,3,0),COLORYELLOW;

STICKLINE(跌停,O,C,3,0),COLORGREEN;

BK1:=STRCAT(STRSPACE(DYBLOCK),HYBLOCK);

BK2:=STRCAT(STRSPACE(BK1),GNBLOCK);

BK3:=STRCAT(STRSPACE(BK2),FGBLOCK);

BK4:=STRCAT(STRSPACE(BK3),ZHBLOCK);

DRAWTEXT_FIX(1,0.09,1,0,BK4),COLORWHITE;

HS:=100*DYNAINFO(8)/CAPITAL;

ZHWS:=STRCAT(VAR2STR(DYNAINFO(8)/10000,2),'万手');

JHS:=STRCAT('今换手：',STRCAT(VAR2STR(HS,2),'%'));

JHS1:=STRCAT(JHS,'  ≈  ');

DRAWTEXT_FIX(1,0.67,0.05,0,STRCAT(JHS1,ZHWS))COLORYELLOW;

CJE:=DYNAINFO(8)*DYNAINFO(11);

DW:=IF(CJE/1000000>1,'亿','万');

AB:=IF(CJE/1000000>1,CJE/1000000,CJE/100);

DRAWTEXT_FIX(1,0.2,0.15,0,STRCAT(STRCAT('成交额：',CON2STR(AB,2)),DW))COLORYELLOW;

JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;

JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');

JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));

JJJE1:=STRCAT(JJJE,JJJEDW);

JJ:=STRCAT('竞价：',STRCAT(CON2STR(JJCJL,0),'手'));

JJ1:=STRCAT(JJ,' = ');DRAWTEXT_FIX(1,0.2,0.05,0,STRCAT(JJ1,JJJE1))COLORMAGENTA;

ZTT:=CLOSE/REF(CLOSE,1)>=1.0987;STICKLINE(ZTT,(REF(C,1)+C)/2,(REF(C,1)+C)/2,24,0);

WYZB1:=HHV(H,5);

WYZB2:=LLV(L,5);

WYZB3:=(WYZB1-WYZB2)/WYZB2>0.3;

WYZB4:=BARSLAST(WYZB3);

WYZB5:=BETWEEN(WYZB4,0,2);

WYZB6:=REF(MA(C,5),1)>REF(MA(C,5),5);

WYZB7:=EMA(CLOSE,12)-EMA(CLOSE,26);

WYZB8:=EMA(WYZB7,9);WYZB9:=(WYZB7-WYZB8)*2;

WYZB10:=WYZB9<REF(WYZB9,1);

WYZB11:=LLV(LOW,10);

WYZB12:=HHV(HIGH,25);

WYZB13:=EMA((CLOSE-WYZB11)/(WYZB12-WYZB11)*4,4);WYZB14:=WYZB13<REF(WYZB13,1) ;

WYZB15:=L>MA(C,10);WYZB16:=C<MA(C,5);

WYZB17:=C*1.06>MA(C,5);

WYZB18:=REF(WYZB5,1)>0 AND WYZB6 AND WYZB10 AND WYZB14 AND WYZB15 AND WYZB16 AND WYZB17;

WYZB20:=C>O*1.028;WYZB21:=O<LLV(L,3)*1.05;

WYZB22:=REF(WYZB18,1) AND WYZB20 AND WYZB21 AND COUNT(C<O AND V>REF(V,1)*1.2,WYZB4)=0;

XG:=FILTER(WYZB22,20);

DRAWTEXT(XG,L*0.958,'<--潜龙回头'),COLORYELLOW;

DRAWICON(XG,L,7);

DIF:=EMA(C,12)-EMA(C,26),;

DEA:=EMA(DIF,9);

MACD:=2*(DIF-DEA),COLORSTICK;

ABC1:=MACD<REF(MACD,1) AND MACD>0;

ABC2:=EVERY(ABC1,3);

潜龙再跃:=REF(ABC2,1) AND MACD>REF(MACD,1);

STICKLINE(潜龙再跃,H,L,0,1),COLORYELLOW;

STICKLINE(CROSS(潜龙再跃,0.5),C,O,1,0),COLORMAGENTA;

DRAWICON(潜龙再跃,L,9);

DRAWTEXT(潜龙再跃,L*0.990,' ↙潜龙再跃战法'),COLORYELLOW;

原理解析：
输出MA51:H的5日简单移动平均
输出MA5:C的5日简单移动平均
输出MA10:C的10日简单移动平均
涨停赋值:收盘价>=ZTPRICE(1日前的收盘价,0.1)
跌停赋值:收盘价<=DTPRICE(1日前的收盘价,0.1)
当满足条件涨停时,在O和C之间画柱状线
当满足条件跌停时,在O和C之间画柱状线
BK1赋值:STRCAT(STRSPACE(DYBLOCK),HYBLOCK)
BK2赋值:STRCAT(STRSPACE(BK1),GNBLOCK)
BK3赋值:STRCAT(STRSPACE(BK2),FGBLOCK)
BK4赋值:STRCAT(STRSPACE(BK3),ZHBLOCK)
当满足条件1时,在横轴0.09纵轴1位置书写文字
HS赋值:100*DYNAINFO(8)/当前流通股本
ZHWS赋值:STRCAT(VAR2STR(DYNAINFO(8)/10000,2),'万手')
JHS赋值:STRCAT('今换手：',STRCAT(VAR2STR(HS,2),'%'))
JHS1:=STRCAT(JHS,' ≈ ')
DRAWTEXT_FIX(1,0.67,0.05,0,STRCAT(JHS1,ZHWS))画黄色
CJE赋值:DYNAINFO(8)*均价
如果CJE/1000000>1返回'亿'否则返回'万'
如果CJE/1000000>1返回CJE/1000000否则返回CJE/100
DRAWTEXT_FIX(1,0.2,0.15,0,STRCAT(STRCAT('成交额：',CON2STR(AB,2)),DW))画黄色
JJCJL赋值:开盘金额/开盘价/100
JJJEDW赋值:IF(开盘金额>10000,'万元','元')
JJJE赋值:IF(开盘金额>10000,CON2STR(开盘金额/10000,1),CON2STR(开盘金额,1))
JJJE1:=STRCAT(JJJE,JJJEDW)
JJ赋值:STRCAT('竞价：',STRCAT(CON2STR(JJCJL,0),'手'))
JJ1:=STRCAT(JJ,' = ')
DRAWTEXT_FIX(1,0.2,0.05,0,STRCAT(JJ1,JJJE1))画洋红色
ZTT赋值:收盘价/1日前的收盘价>=1.0987
STICKLINE(ZTT,(1日前的C+C)/2,(1日前的C+C)/2,24,0)
WYZB1赋值:5日内H最高值
WYZB2赋值:5日内L最低值
WYZB3赋值:(WYZB1-WYZB2)/WYZB2>0.3
WYZB4赋值:上次WYZB3距今天数
WYZB5赋值:BETWEEN(WYZB4,0,2)
WYZB6赋值:REF(C的5日简单移动平均,1)>REF(C的5日简单移动平均,5)
WYZB7赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
WYZB8赋值:WYZB7的9日指数移动平均
WYZB9赋值:(WYZB7-WYZB8)*2
WYZB10:=WYZB9<1日前的WYZB9
WYZB11:=10日内最低价最低值
WYZB12:=25日内最高价最高值
WYZB13:=EMA((收盘价-WYZB11)/(WYZB12-WYZB11)*4,4)
WYZB14:=WYZB13<1日前的WYZB13
WYZB15:=L>C的10日简单移动平均
WYZB16:=C WYZB17:=C*1.06>C的5日简单移动平均
WYZB18:=1日前的WYZB5>0 AND WYZB6 AND WYZB10 AND WYZB14 AND WYZB15 AND WYZB16 AND WYZB17
WYZB20:=C>O*1.028
WYZB21:=O<3日内L最低值*1.05
WYZB22:=1日前的WYZB18 AND WYZB20 AND WYZB21 AND COUNT(C1日前的V*1.2,WYZB4)=0
XG赋值:WYZB22的20过滤
当满足条件XG时,在L*0.958和'<--潜龙回头'位置书写文字
当满足条件XG时,在L和7之间画图标
DIF赋值:C的12日指数移动平均-C的26日指数移动平均,
DEA赋值:DIF的9日指数移动平均
MACD赋值:2*(DIF-DEA),COLORSTICK
ABC1:=MACD<1日前的MACD AND MACD>0
ABC2:=ABC1最近3日一直存在
潜龙再跃赋值:1日前的ABC2 AND MACD>1日前的MACD
当满足条件潜龙再跃时,在H和L之间画柱状线
STICKLINE(潜龙再跃上穿0.5,C,O,1,0),画洋红色
当满足条件潜龙再跃时,在L和9之间画图标
当满足条件潜龙再跃时,在L*0.990和' ↙潜龙再跃战法'位置书写文字