时间序列预测超高手,编程实现spss的功能,-经管之家官网！

免费学术公开课,扫码加入

本人想搞数据分析预测,可惜这方面的源代码实现少见,希望有找到同道之人,大家把代码放出来看看啦,我想搞ARIMA的预测模型,不过我找到附件中的论文,发现他们的方法更好,放上来供大家分析研究,好投入到应用中来,希望高手们快点写出代码,搞出一点成就来!!

下面是我的求相关系数的fox代码,也希望各高手粘些代码上来供大家参考分享,谢谢

*/自相关

o=thisform select 1 use tbl_main

t_year=o.Spinner1.value t_qs=o.Spinner2.value

*/自相关 mm=1 select * from tb22 where no=mm into table t use select 3 select a.n7-b.step as res,b.year,b.qs from tbl_main a,t b where a.year=b.year and a.qs=b.qs and a.year=t_year order by b.year,b.qs into table tt use

select res from tt into array arr_res use

*select sum(res) from tt into array sum_all use

t_alen=alen(arr_res,1)

*/lag是以哪个位置的相关,所以数据比较的个数==数列的总数--lag

for t_lag=1 to 10

t_avg=0 for mm=1 to t_alen-t_lag t_avg=t_avg+arr_res[mm] next

*/求平均数 */平均数X X_avg=t_avg/(t_alen-t_lag)

t_avg=0 for mm=t_lag+1 to t_alen t_avg=t_avg+arr_res[mm] next */平均数Y Y_avg=t_avg/(t_alen-t_lag)

*/公式上面的 t_up_sum=0 for mm=1 to t_alen-t_lag t_up_sum=t_up_sum+(arr_res[mm]-X_avg)*(arr_res[mm+t_lag]-Y_avg) next

*/公式下左面的 t_down_L=0 for mm=1 to t_alen-t_lag t_down_L=t_down_L+(arr_res[mm]-X_avg)*(arr_res[mm]-X_avg) next t_down_L=sqrt(t_down_L)

*/公式下右面的 t_down_R=0 for mm=t_lag+1 to t_alen t_down_R=t_down_R+(arr_res[mm]-Y_avg)*(arr_res[mm]-Y_avg) next t_down_R=sqrt(t_down_R)

*/得到相关系数 R=t_up_sum/(t_down_L*t_down_R)

t_str='Lag:'+str(t_lag,2)+' R:'+str(R,7,3) o.list1.additem(t_str)

next

文件上传不了,烦!

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP