通达信竞价篇之【竞价热度】竞价选股预警 源码分享

{竞价热度}

{去杂}
去ST:=IF(NAMELIKE('退市') OR NAMELIKE('*ST'),0,1 );
去退市:=IF(NAMELIKE('ST') OR NAMELIKE('退市*'),0,1 );
去KCB:=IF(CODELIKE('68'),0,1);
去CYB:=IF(CODELIKE('30'),0,1);
去BJS:=IF(CODELIKE('80'),0,1);
去次新:=BARSCOUNT(C)>30;
去除停牌:=NOT(DYNAINFO(7))=0;
TJ:=去除停牌   AND 去退市 AND 去ST   AND 去KCB AND 去CYB AND 去BJS  AND IF(INBLOCK('银行'),0,1) AND IF(INBLOCK('证券'),0,1);
开幅%:=(O-REF(C,1))/REF(C,1)*100;
ZTB1:=IF(NAMELIKE('ST') OR NAMELIKE('*ST') OR  NAMELIKE('SST')
OR NAMELIKE('S*ST') OR NAMELIKE('S ST') ,(C>=ZTPRICE(REF(CLOSE,1),0.0495) AND C=H),
IF((CODELIKE('688') OR (CODELIKE('300') AND DATE>=1200824)),(C>=ZTPRICE(REF(CLOSE,1),0.195) AND C=H)
,(C>=ZTPRICE(REF(CLOSE,1),0.095) AND C=H)));

CT:=BARSLASTCOUNT(ZTB1);
昨日连板数:=REF(CT,1);
X_1:=IF(BARSTATUS=2,OPEN,O);
X_2:=(0.36095*X_1-0.03309*REF(CLOSE,1)-0.04242*REF(CLOSE,2)-0.02674*REF(CLOSE,3)-0.00701*REF(CLOSE,4)-0.00265*REF(CLOSE,5)-0.00084*REF(CLOSE,6)-0.00029*REF(CLOSE,7)-0.000096*REF(CLOSE,8)-0.000032*REF(CLOSE,9)-0.000011*REF(CLOSE,10)-0.000004*REF(CLOSE,11)-0.000001*REF(CLOSE,12))/(1-0.75224);
X_3:=BETWEEN(开幅%,-9,7);
X_4:=DYNAINFO(15)/OPEN/FINANCE(46)*100;

竞价热度:(X_2-X_1)/X_1*1000>55 AND X_3 AND X_4>1 AND REF(C/REF(CLOSE,1)>1.05,1)  AND TJ AND 昨日连板数=1;