最新公告
  • 欢迎您光临九毛八公式指标网www.9m8.cn,本站全新改版试运行,期间内容全部免费,欢迎下载!欢迎加入本站VIP
  • 通达信也谈停复牌提示(主图源码贴图)

    正文概述    2024-04-07 09:57:54  

    由于股票的停牌是公司有某些重大事件(如重组、扩股等)致使,所以停复牌对散户来说也是一次投机的机会。
    最近看到 @郑裕林 的求助帖 敬请老师做个停复牌副图指标选股公式 ,然后找到源码的原作者 @云枫添外 的 停复牌大旗 。由于是副图,所以会占用一些版面,本人根据 @云枫添外 老师的源码进行整合到主图中,即节省版面又直观。下面源码分享给同学们,供大家共同学习、优化!
    说明:本指标要建两个!首先建立一个: 引用 (一定要用这两个字)公式,就把一句源码粘贴进去就行;其次再建一个公式: 停复牌 (名称可以随你便),把主图源码粘贴进去就OK了。
    效果看图,图中灰色的色带即为复牌当天的K线位置。

    一、
    {引用}
    CURRBARSCOUNT;

    二、
    {停复牌主图}
    MA5:MA(C,5);
    MA10:MA(C,10);
    MA60:MA(C,60);
    BAR:=CALCSTOCKINDEX('999999','引用',1);
    ZRRS1:=DATETODAY(DATE)-DATETODAY(REF(DATE,1))-1;
    JYRS1:=REF(BAR,1)-BAR-1;
    TODAY:=ISLASTBAR AND V=0;
    JYRS:=IF(TODAY,JYRS1+1,JYRS1);
    ZRRS:=IF(TODAY,ZRRS1+1,ZRRS1);
    FP:=JYRS
    FPB:=BARSLAST(FP);
    停牌自然日日数:=REF(ZRRS,FPB),NODRAW,COLOR00AAFF;
    停牌交易日数:=REF(JYRS,FPB),NODRAW,COLOR00AAFF;
    最近停牌:=VARCAT(VAR2STR(REF(DATE+19000000,1),0),' 次日起停牌');
    最近复牌:=VARCAT(VAR2STR(DATE+19000000,0),' 复牌');
    停牌日:=VARCAT(VARCAT('停牌',VAR2STR(停牌自然日日数,0)),'天,');
    交易日:=VARCAT(VARCAT('含',VAR2STR(停牌交易日数,0)),'个交易日');
    复牌天数:=IF(V 0,FPB+1,0),NODRAW;
    DPSQ:=INDEXC =REF(INDEXC,复牌天数);
    DPXQ:=INDEXC REF(INDEXC,复牌天数);
    大盘上幅:=IF(FP AND DPSQ,(INDEXC/REF(INDEXC ,复牌天数))*100-100,0);
    大盘下幅:=IF(FP AND DPXQ,(INDEXC/REF(INDEXC,复牌天数))*100-100,0);
    上幅:=VARCAT(VARCAT('大盘向上幅度:',VAR2STR(大盘上幅,2)),'%');
    下幅:=VARCAT(VARCAT('大盘向下幅度:',VAR2STR(大盘下幅,2)),'%');
    {最近停牌日期:=REF(DATE,FPB+1),NODRAW,COLORWHITE;} {次日停牌}
    {最近复牌日期:=IF(TODAY,DRAWNULL,REF(DATE,FPB)),NODRAW,COLORWHITE;
    现价涨幅:C/REF(C,复牌天数)*100-100,NODRAW;
    大盘涨幅:INDEXC/REF(INDEXC,复牌天数)*100-100,NODRAW;
    对比幅:现价涨幅-大盘涨幅,NODRAW,COLORLIGRAY;}
    STICKLINE(FP AND V 0,L-L*0.1,H+H*0.1,8,0),COLORGRAY;
    STICKLINE(FP AND V=0,O,C,8,0),COLORLIBLUE;
    DRAWKLINE(H,O,L,C);
    DRAWTEXT(FP AND V 0,H*1.12,最近停牌),COLORYELLOW;
    DRAWTEXT(FP AND V 0,H*1.09,最近复牌),COLORLIRED;
    DRAWTEXT(FP AND DPSQ,H*1.02,上幅),COLORLIMAGENTA;
    DRAWTEXT(FP AND DPXQ,H*1.02,下幅),COLORLIGREEN;
    DRAWTEXT(FP AND V 0,H*1.055,VARCAT(停牌日,交易日)),COLORWHITE;
    DRAWTEXT(FP AND V=0,H*1.12,最近停牌),COLORWHITE;
    DRAWTEXT(FP AND V=0,H*1.09,'尚未复牌'),COLORWHITE;
    DRAWTEXT(FP AND V=0,H*1.055,VARCAT(停牌日,交易日)),COLORWHITE;


    九毛八公式指标,一个优质的公式指标平台!
    九毛八公式指标 » 通达信也谈停复牌提示(主图源码贴图) 加入收藏