Question

我是个FORTRAN新手，一个连加的公式不知如何表达，望高手指点，谢谢

Answer 1

假设n=10
w(x,y)=x+y
先定义一个函数
function w(x,y)
implicit none
real w,x,y
w=x+y
end function w

program adddd
implicit none
real f
integer n,i
real w(10),y(10),d(10)
n=10
y(1)=1.
y(2)=...
...
y(10)=...
d(1)=...
...
d(10)=...
f=0.
do i=2,n
f=f+(w(x,y(i))+w(x,y(i-1)))*d(i)
end do
print*,f