我心飞翔 2008-5-1 10:47
我从博庭下载的历史流通盘公式
//用循环语句写成的历史流通盘公式
//说明:本公式,无法计算增发、职工股上市等情形,公式原型为原子兄用VBS设计的代码
var1:=splitdata(1)+splitdata(2);
cap:=c;
cap[datacount]:=1;
for i=datacount downto 2 do cap[i-1]:=cap[i]/(1+var1[i]/10);
capi:=cap*capital/100;
历史流通盘∥万股:capi;
drawnumber(cap>ref(cap,1) or barscount(c)=1,capi,capi,0);
[[i] 本帖最后由 hx817 于 2008-5-4 23:57 编辑 [/i]]