软件名称：[B]也谈停复牌提示 （通达信 主图 源码 贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2016-10-27 00:59:40
软件简介:

  由于股票的停牌是公司有某些重大事件（如重组、扩股等）致使，所以停复牌对散户来说也是一次投机的机会。
最近看到 @郑裕林 的求助帖“敬请老师做个停复牌副图指标选股公式”，然后找到源码的原作者 @云枫添外 的“停复牌大旗 ”。由于是副图，所以会占用一些版面，本人根据 @云枫添外 老师的源码进行整合到主图中，即节省版面又直观。下面源码分享给同学们，供大家共同学习、优化！
    说明：本指标要建两个！首先建立一个：“引用”（一定要用这两个字）公式，就把一句源码粘贴进去就行；其次再建一个公式：“停复牌”（名称可以随你便），把主图源码粘贴进去就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>0;
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;

[url=http://www.70822.com/soft/sort013/sort05/down-104143.html]也谈停复牌提示 （通达信 主图 源码 贴图）[/url]