分享多元线性回归fortran程序

lqouc

ybw 发表于 2014-5-4 08:09
forall(i=1:N)
ANS(i)=ANS(i)/B(i,i)
end forall  

你不把错误说清楚，没人能告诉你怎么办。还有这段求解方程组的子程序也不是我写的。

ybw

lqouc 发表于 2014-5-4 08:17
你不把错误说清楚，没人能告诉你怎么办。还有这段求解方程组的子程序也不是我写的。

forall(i=1:N) 这句话的错误提示是：

C:\Users\Administrator.WIN-7MH8JNBN1I3\Desktop\multi-reg.f90(25): error FOR2934: lexical error: Unrecognized statement、

end forall 这句话的错误提示是：

C:\Users\Administrator.WIN-7MH8JNBN1I3\Desktop\multi-reg.f90(27): error FOR2934: lexical error: Unrecognized statement

end subroutine Gauss_Jordan这句话的错误提示是：
C:\Users\Administrator.WIN-7MH8JNBN1I3\Desktop\multi-reg.f90(29): warning FOR4265: symbol I referenced but not set

ybw

lqouc 发表于 2014-5-4 08:17
你不把错误说清楚，没人能告诉你怎么办。还有这段求解方程组的子程序也不是我写的。

谢谢楼主！！

lqouc

ybw 发表于 2014-5-4 08:53
forall(i=1:N) 这句话的错误提示是：

C:\Users\Administrator.WIN-7MH8JNBN1I3\Desktop\multi-reg.f90 ...

你用的什么编译器啊？forall是个数组的内部函数，怎么会不识别呢？
实在搞不定就把forall改成do循环好了，估计你也用不到并行运算，这两种写法区别不大。

ybw

lqouc 发表于 2014-5-4 09:04
你用的什么编译器啊？forall是个数组的内部函数，怎么会不识别呢？
实在搞不定就把forall改成do循环好 ...

好的！！我试试！！太感谢你了~

ybw

lqouc 发表于 2014-5-4 09:04
你用的什么编译器啊？forall是个数组的内部函数，怎么会不识别呢？
实在搞不定就把forall改成do循环好 ...

改完也不行。。。。唉

lqouc

ybw 发表于 2014-5-4 09:41
改完也不行。。。。唉

那不行的原因呢？这个程序写了挺久了，你还是第一个出现错误的。

地球系统

谢谢分享！

陌上花开123456

请问这个多元回归的高斯消去求解线性回归方程的，跟魏凤英老师的最小二乘法是不一样的求解方法，那结果一样么？

chuanchuan

感谢分享！