Fortran Coder

标题: 求解线性方程组 [打印本页]

作者: 麦田守望者 时间: 2014-4-17 19:33
标题: 求解线性方程组

[Fortran] 纯文本查看 复制代码

SUBROUTINE SLBSI(A,B,D,N,MS,NX,MX)

DIMENSION A(NX,MX),B(NX),D(MX)

N1=N-1

DO K=1,N1

   C=A(K,1)

   K1=K+1

   IF((ABS(C)-0.000001).LE.0)THEN

   WRITE(6,2)K

2  FORMAT('*****SINGULARITY IN ROW',I5)

   STOP

   ELSE

   NI=K1+MS-2

   L=MIN(NI,N)

   DO J=2,MS

   D(J)=A(K,J)

   ENDDO

   DO J=K1,L

      K2=J-K+1

   A(K,K2)=A(K,K2)/C

   ENDDO

   B(K)=B(K)/C



   DO I=K1,L

   K2=I-K1+2

   C=D(K2)

   DO J=I,L

   K2=J-I+1

   K3=J-K+1

   A(I,K2)=A(I,K2)-C*A(K,K3)

   ENDDO

   B(I)=B(I)-C*B(K)

   ENDDO

ENDIF

ENDDO



IF((ABS(A(N,1))-0.000001).LE.0)THEN

WRITE(6,7)K

7     FORMAT('*****SINGULARITY IN ROW',I5)

STOP

ELSE

B(N)=B(N)/A(N,1)

DO I=1,N1

   K=N-I

   K1=K+1

   NI=K1+MS-2

   L=MIN(NI,N)

   DO J=K1,L

   K2=J-K+1

   B(K)=B(K)-A(K,K2)*B(J)

   ENDDO

ENDDO

ENDIF

RETURN

END

一个解线性方程组的程序，不知道有没有大神有空帮我看看，这是一个有限元的子程序，整个程序已经可以计算，但是结果就是不对，是一个解二维等带宽矩阵的程序吧，数学学得不行

HJstatic.DAT

368 Bytes, 下载次数: 4

输入数据

HJstatic.f90

7.13 KB, 下载次数: 6

RESULT.TXT

2.87 KB, 下载次数: 0

输出数据，错的

作者: aliouying 时间: 2014-4-17 19:51
如果单纯给代码，咱们没法给您看，没有任何说明，没有任何算法原理

最好给出输入文件，别人才好测试你的程序是否正确

作者: 麦田守望者 时间: 2014-4-17 19:55

aliouying 发表于 2014-4-17 19:51
如果单纯给代码，咱们没法给您看，没有任何说明，没有任何算法原理

最好给出输入文件，别人才好测试你的程 ...

恩，第一次发帖问问题，见谅哦，整体的代码有几百行，发上来也没人愿意看吧，这个应该是一个单独的方程组，所以想单独拿出来，看来也不行，我把代码和输入文件发附件您帮看看行吗？

作者: 麦田守望者 时间: 2014-4-17 19:58
求解结果，位移，轴力，合力几乎都是错误的

作者: aliouying 时间: 2014-4-17 20:55

麦田守望者发表于 2014-4-17 19:55
恩，第一次发帖问问题，见谅哦，整体的代码有几百行，发上来也没人愿意看吧，这个应该是一个单独的方程组 ...

我说的输入文件的意思是指矩阵，不是其他，不要拿专业的东西，能碰到同一个专业且热心帮你解决的可能性很小，应该从纯数学或者fortran程序的角度上描述问题

作者: 麦田守望者 时间: 2014-4-18 23:04

aliouying 发表于 2014-4-17 20:55
我说的输入文件的意思是指矩阵，不是其他，不要拿专业的东西，能碰到同一个专业且热心帮你解决的可能性很 ...

嗯，还是谢谢你了，那样的话我还得考虑下怎么描述

作者: aliouying 时间: 2014-4-19 10:22

麦田守望者发表于 2014-4-18 23:04
嗯，还是谢谢你了，那样的话我还得考虑下怎么描述

如果这个程序是以前别人写的，而且是对的，那么肯定是你的矩阵组装的时候或者单元矩阵有问题
一般解方程组的这些代码是公用的，经过测试了的

如果非要检查，可以把矩阵的行号、列号、非零值输出来，然后用matlab或者其他的求解器来对比，看求解方程组是否有问题，仅仅给定这个代码，没有算法，那是真心不好检查，只能自己猜测的事情没人愿意干。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)