通达信【超级分时BS】分时主图指标公式(含源码),支持手机电脑使用

admin

朋友们，今天我要分享的这个指标是【超级分时BS】，核心是把分时高低点量化成“B买S卖”两枚信号，一眼锁定低吸高抛。


【指标说明】  
1. 适配：通达信电脑端与手机端通用，导入即用，0门槛。  
2. 视觉：主图实时叠加“底部线＋顶部线”，两条色带像护城河，价格触碰即提醒。  
3. 信号：  
   • B点＝低位确认＋量能翻红，分时急跌后出现；  
   • S点＝高位滞涨＋量能背离，分时急拉后出现。  


【使用说明】  
• 当分时价格回踩底部线且出现B点，可视为第一低吸位；  
• 若B点后量能持续放大，可加仓做二次拉升；  
• 价格冲击顶部线＋S点出现，立即高抛锁定利润；  
• 若S点后量能萎缩却横盘，需警惕假摔，设好止损；  




【超级分时BS】

DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.99,TIME),COLORYELLOW;

DRAWTEXT_FIX(C>0,0.09,0.78,0,DYBLOCK),COLORYELLOW,LINETHICK2;

DRAWTEXT_FIX(C>0,0.35,0.78,0,HYBLOCK),COLORYELLOW,LINETHICK2;

DRAWTEXT_FIX(C>0,0.09,1,0,GNBLOCK),COLORCYAN,LINETHICK2;

DRAWICON(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C,1);

DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.99,TIME),COLORWHITE;

GPZHGS:HHV(H,480),DOTLINE,COLORCYAN;

STICKLINE(FILTER(CROSS(C,REF(GPZHGS,1)),10) AND C>REF(GPZHGS,1),C*0.998,C,1,0),COLORWHITE;

DRAWICON(FILTER(CROSS(C,REF(GPZHGS,1)),10) AND C>REF(GPZHGS,1),C*0.995,25);

GPZB:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;

ZBGS:=BARSLAST((GPZB-REF(GPZB,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;

ZYG01:=REF(C,ZBGS);ZYG02:=REF(ZYG01,ZBGS);ZYG03:=REF(ZYG02,ZBGS);ZYG04:=REF(ZYG03,ZBGS);

ZYG05:=REF(ZYG04,ZBGS);ZYG6:=REF(ZYG05,ZBGS);ZYG7:=REF(ZYG6,ZBGS);ZYG8:=REF(ZYG7,ZBGS);

ZYG9:=REF(ZYG8,ZBGS);H1:=MAX(DYNAINFO(3),DYNAINFO(5));L1:=MIN(DYNAINFO(3),DYNAINFO(6));

P1:=H1-L1;阻力1+P1*8/9,COLORLIRED,DOTLINE;支撑1+P1*0.5/9,COLORGREEN,DOTLINE;

GPZB哥:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE));

主力:=EXPMA(CLOSE/GPZB哥,20);大户:=EXPMA(CLOSE/GPZB哥,60);

散户:=EXPMA(CLOSE/GPZB哥,120);底:=1;中:=1.022,NODRAW;

高:=1.033;DRAWICON(LONGCROSS(支撑 ,C,2),C-0.01,7);

STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORCYAN;

DRAWICON(LONGCROSS(C,阻力,2)AND C< ZTPRICE(REF(CLOSE,1),0.1),C+0.01,8);

STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORRED;

DRAWTEXT_FIX(1,0.60,0.78,0,STRCAT(STRCAT('流通市值：',CON2STR(FINANCE(46)*C/100000000,2)),'亿元'))COLORYELLOW;竞价1:=DYNAINFO(15)/DYNAINFO(4)/100;

竞价2:=IF(DYNAINFO(15)>10000,'万元','元');

J竞价3:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));

J竞价31:=STRCAT(J竞价3,竞价2);

竞价6:=STRCAT('竞价量额：',STRCAT(CON2STR(竞价1/10000,2),'万手'));

竞价61:=STRCAT(竞价6,' = ');

DRAWTEXT_FIX(1,0.09,0.65,0,STRCAT(竞价61,J竞价31))COLORMAGENTA;