13
4
0
入门
书本中的例子
使用道具 举报
Vim
168
2
1
大师
!ans=0 这个ans的位置错误 X(4) = B(4)/A(4,4) X(3) = (B(3)-A(3,4)*X(4))/A(3,3) X(2) = (B(2)-A(2,4)*X(4)-A(2,3)*X(3))/a(2,2) do j=3,1,-1 ans = 0 !应该在这里 do i=j+1,4,1 ans = ans + A(j,i)*X(i) end do X(j) = (B(j)-ans)/A(j,j) end do
Transpose 发表于 2024-3-28 13:55 [mw_shl_code=fortran,true] !ans=0 这个ans的位置错误 X(4) = B(4)/A(4,4) X(3) = (B(3)-A(3,4 ...
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给完成“有规有矩”任务的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-9 21:47
Powered by Tencent X3.4
© 2013-2024 Tencent