至强e3 酷睿i7:探讨个股指数公式的编写（源码共享） - 〖指标公式交流〗 - MACD股市技术分析俱乐部 ...

探讨个股指数公式的编写（源码共享）

        证券交易所的指数已经失真,尝试编写一个比较真实的指数公式。因编写一个指数公式需要参阅和涉及的资料较多，有些资料一时查找比较困难，还是按原来设想，先编写一个简陋的指数公式。为了让新学编写公式的朋友也看的懂，对公式的语句加了注释。抛砖引玉，请各位朋友的不啻赐教，发表高见，使指数公式能够更加完善。

以下为“个股指数”公式源码，匆匆编写，错误难免，请各位朋友测试校验并告知，以便改正。
--------------------------------------------------------------------------------
分红:=SPLITDATA(4)*0.1;      //得到当时每一股分红几元
分红累计:sum(if(date<1010101,分红,分红*0.8),0); //得到从上市至今每股分红的累计金额
送股:=SPLITDATA(1)*0.1;      //得到当时每一股送几股
配股:=SPLITDATA(2)*0.1;      //得到当时每一股配几股
配股价:=SPLITDATA(3);        //得到当时的配股价格
配股金额累计:sum(配股价*配股,0);//得到从上市至今每股配股的累计金额
sp:=送股+配股;
//pjj:=AMOUNT/vol/100,PRECISION3,LINETHICK0;//求当天的成交平均价
//pjj1:=pjj[1];            //得到上市第一天的成交平均价
//rc:=c;                   //收盘价赋值给rc
//c1:=rc[1];               //得到上市第一天的收盘价
sp1:=sp;                 //sp赋值给sp1
sp1[datacount]:=1;
for i=datacount downto 2 do sp1[i-1]:=sp1[i]/(1+sp[i]);//从今往前计算除权系数
ltp:=sp1*capital/100;     //还原除权的流通盘（对于A股得到流通A股，B股得到B股总股本，指数为0）
hyc:=c/sp1;                //还原除权的收盘价
hyc1:=hyc[1];           //还原除权的上市第一天的收盘价
d:=hhv(ltp,0);           //今天的流通盘（对于A股得到流通A股，B股得到B股总股本，指数为0）
d1:=hyc*d;                 //今天的流通盘市值
x:=d[1];                 //得到上市第一天的流通盘
x1:=hyc1*x;                //得到上市第一天的流通盘市值
涨跌幅度{百分比}:(d1-x1)/x1*100;//按上市第一天收盘价买入至今的涨跌幅度,以0为起点
0;
-----------------------------------------------------------------------------------
1:jc:=c+分红累计-配股金额累计;//（拟用此修整C，还未考虑周全,请各位朋友多指教）
2:原设想用上市第一天的成交平均价来得到上市第一天的流通盘市值，二者误差太大，未及仔细查找原因，故　用上市第一天的收盘价来得到上市第一天的流通盘市值，我想二者必有一方错误，也请各位朋友测试，查找　原因°

以下几个因素对流通股数据的影响，公式中未考虑，待查证清楚后修整，请知道的朋友告知
1:92年沪市股票拆细（是否对流通股数据有影响，不清楚,未查证）
2:内部职工股上市  （是否对流通股数据有影响，不清楚,未查证）
3:增发新股        （肯定对流通股数据有影响，拟用F10数据采集处理，请告知有此内容的F10资料）
4:可转换债券转换股票     （好象还未发生过）
5:缩股                   （好象有过,请知道的各位朋友告知）
6:上市公司给股东的分红开始实行征收个人所得税执行时间

注：“增发新股” 如武钢股份2004年7月5日增发新股上市，新增上市流通股：56,400万股，在鹏搏资讯和万国测评的F10资料都看不到。

其他影响流通股数据正确的因素肯定还有，一时未能考虑周全，烦请各位朋友告知，谢谢！

修整:
考虑不周,流通盘还原而收盘价未还原,影响了数据的正确性,在数据的曲线上产生了突变,今已修整。2005/04/26

[[i] Last edited by 时价 on 2005-4-26 at 20:16 [/i]]



附件2005-4-25 23:48
11.gif (158.8 KB)
 
2005-4-25 23:48
1.gif (107.14 KB)