时间序列预测超高手,编程实现spss的功能,

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

本人想搞数据分析预测,可惜这方面的源代码实现少见,希望有找到同道之人,大家把代码放出来看看啦,我想搞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

文件上传不了,烦!

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：时间序列预测 时间序列 SPSS PSS Select 时间 预测 SPSS 序列 功能

没有了？好久前的了