|
回覆: [問題]我想做一個選股的選曲當日盤中有漲停的股票
引用:
最初由 沁天 發表
請問管理員!請問有關於自動選股選出盤中有漲停的股票!!
該公式如何編寫???
測試中的 v.5.1 版
有提供漲跌停價資訊的函數 DYNAINFO(53) 和 DYNAINFO(54)
可以直接用該函數做為判斷
目前版本(v5.0) 僅能用估算的
估算的有時不會等於實際的 (因為漲跌幅限制與開盤競價基準差異)
估算寫法如下:
漲跌停:0; //漲停=1, 跌停=-1
CKSTK:=STKINBLOCK(STKLABEL,'上櫃股票');
if CKSTK=0 then exit; //非上市股票不算
最新:=DYNAINFO(7);
MinW:=if(最新<10,0.01,if(最新<50,0.05,if(最新<100,0.1,if(最新>500,0.5,if(最新<1000,1,5)))));
昨收:=DYNAINFO(3);
漲幅:(最新/昨收-1)*100;
昨收:=FLOOR(昨收/0.01)*0.01;
//固定以 7% 來做估算 (未考量:漲跌幅限制因素與開盤競價基準的差異)
UUS:FLOOR(昨收*1.07/MinW)*MinW;
UUS:=FLOOR(UUS*100+0.5)/100; //四捨五入到小數第2位
MinU:if(UUS<10,0.01,if(UUS<50,0.05,if(UUS<100,0.1,if(UUS>500,0.5,if(UUS<1000,1,5)))));
漲停價:=FLOOR(UUS/MinU)*MinU; //再向下捨入
DDS:CEILING(昨收*0.93/MinW)*MinW;
DDS:=FLOOR(DDS*100+0.5)/100; //四捨五入到小數第2位
MinD:=if(DDS<10,0.01,if(DDS<50,0.05,if(DDS<100,0.1,if(DDS>500,0.5,if(DDS<1000,1,5)))));
跌停價:=CEILING(DDS/MinD)*MinD; //再向上捨入
漲跌停:=(最新=漲停價)-(最新=跌停價);
|
2012-12-27 23:31
