Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 子程序Wik运行失败，这个地方i一直在改变，但是x没有赋 ...

子程序Wik运行失败，这个地方i一直在改变，但是x没有赋值

查看数: 449 | 评论数: 2 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

本主题由 fcode 于 2023-12-22 16:07 添加图章已解决

huhelong

发布时间: 2023-12-21 10:45

正文摘要:

本帖最后由 huhelong 于 2023-12-21 10:46 编辑 [Fortran] 纯文本查看复制代码Module m_gauss Contains Subroutine lineq(Wik,ft,F,N)!!解线性方程组高斯列主元消去法Ax=b Implicit ...

huhelong 发表于 2023-12-21 16:00:45

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))

谢谢已解决

necrohan 发表于 2023-12-21 13:04:23

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天的时间就足够学会了。

子程序Wik运行失败，这个地方i一直在改变，但是x没有赋值

正文摘要:

回复