通达信〖强势突破寻龙〗结合支撑阻力与评分高低决定是否介入主图源码
指标为多条件共振选股信号，综合均线、涨幅、量能、形态、MACD、KDJ及筹码等因素，输出“共振寻龙信号”作为买点参考，并绘制参考阻力、支撑位及“擒牛评分”辅助判断。使用时可在主图观察信号，出现共振寻龙提示后，结合支撑阻力与评分高低决定是否介入。
VARAA:=MA(CLOSE,10);
VARAB:=MA(CLOSE,54);
VARAC:=(REF(CLOSE,3)-CLOSE)/REF(CLOSE,3)*100>5;
VARAD:=FILTER(VARAC,10);
VARAE:=BARSLAST(VARAD);
VARAF:=REF(HIGH,VARAE+2);
VARAG:=REF(HIGH,VARAE+1);
VARAH:=REF(HIGH,VARAE);
VARAI:=MAX(VARAF,VARAG);
VARAJ:=MAX(VARAI,VARAH);
VARAK:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>5;
VARAL:=VARAE< 150;
VARAM:=(OPEN-VARAJ)/VARAJ*100< 30;
VARAN:=(CLOSE-LLV(LOW,VARAE))/LLV(LOW,VARAE)*100< 50;
VARAO:=(CLOSE-REF(OPEN,5))/REF(OPEN,5)*100< 30;
VARAP:=VOL/MA(VOL,5)< 3.5;
VARAQ:=(CLOSE-REF(CLOSE,89))/REF(CLOSE,89)*100< 80;
VARAR:=VARAK AND VARAL AND VARAM AND VARAN AND VARAO AND VARAP AND VARAQ;
VARAS:=FILTER(VARAR,15);
VARAT:=(CLOSE-VARAB)/VARAB< 0.1;
VARAU:=(CLOSE-VARAA)/VARAA< 0.3;
VARAV:=(VARAT=1 AND VARAU=1)*0.2;
VARAW:=(VARAV=0 AND REF(VARAV,1)=0.2 AND REF(COUNT(VARAV=0.2,10)=10,1)=1)*(-0.1);
VARAX:=VARAW=(-0.1);
VARAY:=VARAS OR VARAX;
VARAZ:=DYNAINFO(7)/REF(CLOSE,1)>1.05 AND DYNAINFO(7)/OPEN>1.05;
VARBA:=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);
VARBB:=VARAY AND CLOSE/REF(CLOSE,1)>1.095 AND VARBA AND VARAZ;
VARBC:=MA(CLOSE,5);
VARBD:=MA(CLOSE,10);
VARBE:=MA(CLOSE,3);
VARBF:=CLOSE>MA(CLOSE,10);
VARBG:=VARBE>REF(VARBE,1) AND VARBE>REF(VARBE,2) AND VOL>0;
VARBH:=REF(VARBG,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBI:=REF(VARBH,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBJ:=REF(VARBI,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBK:=REF(VARBJ,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBL:=REF(VARBK,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBM:=REF(VARBL,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBN:=REF(VARBM,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBO:=REF(VARBN,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBP:=REF(VARBO,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBQ:=REF(VARBP,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBR:=REF(VARBQ,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBS:=VARBE< REF(VARBE,1) AND VARBE< REF(VARBE,2);
VARBT:=REF(VARBS,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBU:=REF(VARBT,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBV:=REF(VARBU,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBW:=REF(VARBV,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBX:=REF(VARBW,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARBY:=REF(VARBX,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARBZ:=REF(VARBY,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARCA:=REF(VARBZ,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARCB:=REF(VARCA,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARCC:=REF(VARCB,1) AND VARBE<=REF(VARBE,1) AND VARBE>=REF(VARBE,2);
VARCD:=REF(VARCC,1) AND VARBE>=REF(VARBE,1) AND VARBE<=REF(VARBE,2);
VARCE:=REF(VARBS OR VARBT OR VARBU OR VARBV OR VARBW OR VARBX OR VARBY OR VARBZ OR VARCA OR VARCB OR VARCC OR VARCD,1) AND VARBG;
VARCF:=VARBG OR VARBH OR VARBI OR VARBJ OR VARBK OR VARBL OR VARBM OR VARBN OR VARBO OR VARBP OR VARBQ OR VARBR;
VARCG:=BARSLASTCOUNT(VARCF AND VARBF)=1;
VARCH:=VARBB AND VARCE AND VARBF;
共振寻龙信号:=VARCH;
STICKLINE(VARCH,OPEN,(HIGH+LOW)/2,2.8,0),COLORYELLOW;
STICKLINE(VARCH,OPEN,(HIGH+LOW)/2,2.8,0),COLORYELLOW;
STICKLINE(VARCH,OPEN,(HIGH+LOW)/2,2.8,0),COLORYELLOW;
STICKLINE(VARCH,OPEN,(HIGH+LOW)/2,2.8,0),COLORYELLOW;
STICKLINE(VARCH,OPEN,(HIGH+LOW)/2,2.8,0),COLORYELLOW;
DRAWTEXT(VARCH,LOW*1.00,' ?←共振寻龙'),COLORYELLOW;
DRAWICON(VARCH,LOW*1.002,25);
DRAWICON(VARCG,LOW*0.98,27);
VARCI:=IF((CLOSE>REF(CLOSE,1)),88,0);
VARCJ:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)< 1.01) AND (VARCI>0),91,0);
VARCK:=FILTER((VARCJ>90),45);
VARCL:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VARCM:=2*VARCL-LOW;
VARCN:=2*VARCL-HIGH;
DRAWTEXT_FIX(CLOSE!=0,0.90,0.85,0,STRCAT('参考阻力：',STRCAT(CON2STR(VARCM,2),' '))),COLORFFFF00;
DRAWTEXT_FIX(CLOSE!=0,0.90,0.95,0,STRCAT('参考支撑：',STRCAT(CON2STR(VARCN,2),' '))),COLOR8E8EFF;
VARCO:=IF(MA(CLOSE,5)>MA(CLOSE,10),20,0);
VARCP:=IF(MA(CLOSE,20)>MA(CLOSE,60),10,0);
VARCQ:=IF(KDJ.J>KDJ.K,10,0);
VARCR:=IF(MACD.DIF>MACD.DEA,10,0);
VARCS:=IF(MACD.MACD>0,10,0);
VARCT:=IF(VOL>MA(VOL,60),10,0);
VARCU:=IF(WINNER(CLOSE)>0.5,10,0);
VARCV:=IF(CLOSE/REF(CLOSE,1)>1.03,10,0);
VARCW:=VARCO+VARCP+VARCQ+VARCR+VARCS+VARCT+VARCU+VARCV;
DRAWTEXT_FIX(VOL>OPEN,0.80,0.02,0,STRCAT('擒牛评分：',STRCAT(CON2STR(VARCW,2),' '))),COLORRED;
未来函数检测结果如下：
该公式包含未来函数:WINNER
该公式包含未来函数:DYNAINFO
定制指标公式、软件请联系QQ或微信同号：88652583
VARAA赋值:收盘价的10日简单移动平均
VARAB赋值:收盘价的54日简单移动平均
VARAC赋值:(3日前的收盘价-收盘价)/3日前的收盘价*100>5
VARAD赋值:VARAC的10日过滤
VARAE赋值:上次VARAD距今天数
VARAF赋值:VARAE+2日前的最高价
VARAG赋值:VARAE+1日前的最高价
VARAH赋值:VARAE日前的最高价
VARAI赋值:VARAF和VARAG的较大值
VARAJ赋值:VARAI和VARAH的较大值
VARAK赋值:(收盘价-1日前的收盘价)/1日前的收盘价*100>5
VARAL赋值:VARAE< 150
VARAM赋值:(开盘价-VARAJ)/VARAJ*100< 30
VARAN赋值:(收盘价-VARAE日内最低价的最低值)/VARAE日内最低价的最低值*100< 50
VARAO赋值:(收盘价-5日前的开盘价)/5日前的开盘价*100< 30
VARAP赋值:成交量(手)/成交量(手)的5日简单移动平均< 3.5
VARAQ赋值:(收盘价-89日前的收盘价)/89日前的收盘价*100< 80
VARAR赋值:VARAK AND VARAL AND VARAM AND VARAN AND VARAO AND VARAP AND VARAQ
VARAS赋值:VARAR的15日过滤
VARAT赋值:(收盘价-VARAB)/VARAB< 0.1
VARAU赋值:(收盘价-VARAA)/VARAA< 0.3
VARAV赋值:(VARAT=1 AND VARAU=1)*0.2
VARAW赋值:(VARAV=0 AND 1日前的VARAV=0.2 AND 1日前的统计10日中满足VARAV=0.2的天数=10=1)*(-0.1)
VARAX赋值:VARAW=(-0.1)
VARAY赋值:VARAS OR VARAX
VARAZ赋值:现价/1日前的收盘价>1.05 AND 现价/开盘价>1.05
VARBA赋值:成交量(手)/1日前的成交量(手)>1.2 AND 统计1日中满足收阳线的天数 OR (最低价>1日前的最高价 AND 统计1日中满足收阴线的天数 AND 成交量(手)/1日前的成交量(手)>1.2)
VARBB赋值:VARAY AND 收盘价/1日前的收盘价>1.095 AND VARBA AND VARAZ
VARBC赋值:收盘价的5日简单移动平均
VARBD赋值:收盘价的10日简单移动平均
VARBE赋值:收盘价的3日简单移动平均
VARBF赋值:收盘价>收盘价的10日简单移动平均
VARBG赋值:VARBE>1日前的VARBE AND VARBE>2日前的VARBE AND 成交量(手)>0
VARBH赋值:1日前的VARBG AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBI赋值:1日前的VARBH AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBJ赋值:1日前的VARBI AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBK赋值:1日前的VARBJ AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBL赋值:1日前的VARBK AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBM赋值:1日前的VARBL AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBN赋值:1日前的VARBM AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBO赋值:1日前的VARBN AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBP赋值:1日前的VARBO AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBQ赋值:1日前的VARBP AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBR赋值:1日前的VARBQ AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBS赋值:VARBE< 1日前的VARBE AND VARBE< 2日前的VARBE
VARBT赋值:1日前的VARBS AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBU赋值:1日前的VARBT AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBV赋值:1日前的VARBU AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBW赋值:1日前的VARBV AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBX赋值:1日前的VARBW AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARBY赋值:1日前的VARBX AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARBZ赋值:1日前的VARBY AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARCA赋值:1日前的VARBZ AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARCB赋值:1日前的VARCA AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARCC赋值:1日前的VARCB AND VARBE<=1日前的VARBE AND VARBE>=2日前的VARBE
VARCD赋值:1日前的VARCC AND VARBE>=1日前的VARBE AND VARBE<=2日前的VARBE
VARCE赋值:1日前的VARBSORVARBTORVARBUORVARBVORVARBWORVARBXORVARBYORVARBZORVARCAORVARCBORVARCCORVARCD AND VARBG
VARCF赋值:VARBG OR VARBH OR VARBI OR VARBJ OR VARBK OR VARBL OR VARBM OR VARBN OR VARBO OR VARBP OR VARBQ OR VARBR
VARCG赋值:条件连续成立次数=1
VARCH赋值:VARBB AND VARCE AND VARBF
共振寻龙信号赋值:VARCH
当满足条件VARCH时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为2.8,0不为0则画空心柱.,画黄色
当满足条件VARCH时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为2.8,0不为0则画空心柱.,画黄色
当满足条件VARCH时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为2.8,0不为0则画空心柱.,画黄色
当满足条件VARCH时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为2.8,0不为0则画空心柱.,画黄色
当满足条件VARCH时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为2.8,0不为0则画空心柱.,画黄色
当满足条件VARCH时,在最低价*1.00位置书写文字,画黄色
当满足条件VARCH时,在最低价*1.002位置画25号图标
当满足条件VARCG时,在最低价*0.98位置画27号图标
VARCI赋值:如果(收盘价>1日前的收盘价),返回88,否则返回0
VARCJ赋值:如果((收盘价)/(1日前的收盘价)>1.05)AND((最高价)/(收盘价)<1.01)AND(VARCI>0),返回91,否则返回0
VARCK赋值:(VARCJ>90)的45日过滤
VARCL赋值:(最高价+最低价+开盘价+2*收盘价)/5
VARCM赋值:2*VARCL-最低价
VARCN赋值:2*VARCL-最高价
当满足条件收盘价不等于0时,在横轴0.90纵轴0.85位置书写文字,COLORFFFF00
当满足条件收盘价不等于0时,在横轴0.90纵轴0.95位置书写文字,COLOR8E8EFF
VARCO赋值:如果收盘价的5日简单移动平均>收盘价的10日简单移动平均,返回20,否则返回0
VARCP赋值:如果收盘价的20日简单移动平均>收盘价的60日简单移动平均,返回10,否则返回0
VARCQ赋值:如果KDJ的J>KDJ的K,返回10,否则返回0
VARCR赋值:如果平滑异同平均线的DIF>平滑异同平均线的DEA,返回10,否则返回0
VARCS赋值:如果平滑异同平均线的MACD>0,返回10,否则返回0
VARCT赋值:如果成交量(手)>成交量(手)的60日简单移动平均,返回10,否则返回0
VARCU赋值:如果以收盘价计算的获利盘比例>0.5,返回10,否则返回0
VARCV赋值:如果收盘价/1日前的收盘价>1.03,返回10,否则返回0
VARCW赋值:VARCO+VARCP+VARCQ+VARCR+VARCS+VARCT+VARCU+VARCV
当满足条件成交量(手)>开盘价时,在横轴0.80纵轴0.02位置书写文字,画红色
