看到多人求助股票停牌公式,特把本人在几年前写的一个指标公式发布在这里。你想参考就下载。 停牌标记公式,要调用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; ======================================== 被调用的"BarNo公式",只含1条语句,如下 {BarNo} CURRBARSCOUNT; |
