通达信停牌标记副图公式
看到多人求助股票停牌公式，特把本人在几年前写的一个指标公式发布在这里。你想参考就下载。
当光标移动时，在公式顶行显示的是离“当前光标”位置最近的停牌信息。
（注：本公式只是在K线图上把停牌信息标记出来，与股票买卖点无关！）
停牌标记公式，要调用BarNo公式（见后），别忘记建立它。
源码
{停牌标记}
DRAWKLINE(H,O,L,C);
BAR:=CALCSTOCKINDEX('399001','BARNO',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(DATE,FPB+1),NODRAW,COLORYELLOW; {次日停牌}
最近复牌日期:IF(TODAY,DRAWNULL,REF(DATE,FPB)),NODRAW,COLORYELLOW;
停牌自然日日数:REF(ZRRS,FPB),NODRAW,COLOR00AAFF;
停牌交易日数:REF(JYRS,FPB),NODRAW,COLOR00AAFF;
DRAWICON(FP,L*0.95,34);
DRAWTEXT(FP,H*1.15,VAR2STR(REF(DATE,1),0)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(FP,H*1.09,VAR2STR(DATE,0)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(FP,H*1.03,VARCAT(VARCAT(VAR2STR(ZRRS,0),', '), VAR2STR(JYRS,0))),COLOR00AAFF,DRAWABOVE;
未来函数检测结果如下：
该公式没有未来函数
定制指标公式、软件请联系QQ或微信同号：88652583
BAR赋值:指标引用
ZRRS1赋值:日期对应的转换天数-1日前的日期对应的转换天数-1
JYRS1赋值:1日前的BAR-BAR-1
TODAY赋值:是否最后一个周期 AND 成交量(手)=0
JYRS赋值:如果TODAY,返回JYRS1+1,否则返回JYRS1
ZRRS赋值:如果TODAY,返回ZRRS1+1,否则返回ZRRS1
FP赋值:JYRS>0
FPB赋值:上次FP距今天数
输出最近停牌日期:FPB+1日前的日期,NODRAW,画黄色
输出 最近复牌日期:如果TODAY,返回无效数,否则返回FPB日前的日期,NODRAW,画黄色
输出停牌自然日日数:FPB日前的ZRRS,NODRAW,COLOR00AAFF
输出 停牌交易日数:FPB日前的JYRS,NODRAW,COLOR00AAFF
当满足条件FP时,在最低价*0.95位置画34号图标
当满足条件FP时,在最高价*1.15位置书写文字,画黄色,显示在位置之上
当满足条件FP时,在最高价*1.09位置书写文字,画黄色,显示在位置之上
当满足条件FP时,在最高价*1.03位置书写文字,COLOR00AAFF,显示在位置之上
