由于股票的停牌是公司有某些重大事件(如重组、扩股等)致使,所以停复牌对散户来说也是一次投机的机会。 一、 {引用} 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; |
