necrohan 发表于 2023-12-21 13:04
Integer::a=0,b=0,L=1,i,k,j,N=11
Do i=1,N
   x(i)=(L/2)*(1-cos(((i-1)/(N-1))*pi))

谢谢已解决

Integer::a=0,b=0,L=1,i,k,j,N=11
Do i=1,N
   x(i)=(L/2)*(1-cos(((i-1)/(N-1))*pi))
END Do
这里 L 是整数1，L/2=0，所以计算结果一直是0。如果要不是0，L需要声明为实数。
程序里对y，z的循环也一样，如果y，z和x相同，可以直接赋值 y=x; z=x;

另外，大哥，求你先学一点fortran的基础知识，先找本书看看，我看了你的其他提问，都特别基础，有1天的时间就足够学会了。