VisualFortran顺序消元法.doc_第1页
VisualFortran顺序消元法.doc_第2页
VisualFortran顺序消元法.doc_第3页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

顺序消元法4. 用顺序消元法解线性方程组 并比较计算结果的精度(方程组准确解为X1=X2=X3=X4=1)解题程序:PROGRAM XIAOYUANFA INTEGER M,NREAL I,JDIMENSION A(20,20),B(20),X(20),Q(20,20),W(20)PARAMETER(N=4,M=4) OPEN(1,FILE=D:DATA.TXT,STATUS=UNKNOWN)OPEN(2,FILE=D:DATA1.TXT,STATUS=UNKNOWN)OPEN(3,FILE=D:output.TXT,STATUS=UNKNOWN)READ(1,*) (A(i,j),j=1,4),i=1,4)DO I=1,4 READ(2,*) B(I)ENDDODO I=2,4 C=A(1,1) Q(I,1)=A(I,1)/CENDDODO I=2,4B(I)=B(I)-Q(I,1)*B(1)DO J=2,4 A(I,J)=A(I,J)-Q(I,1)*A(1,J) ENDDOENDDODO I=3,4C=A(2,2)Q(I,2)=A(I,2)/CEND DODO I=3,4B(I)=B(I)-Q(I,2)*B(2)DO J=3,4 A(I,J)=A(I,J)-Q(I,2)*A(2,J)ENDDOENDDOC=A(3,3)Q(4,3)=A(4,3)/CA(4,4)=A(4,4)-Q(4,3)*A(3,4)B(4)=B(4)-Q(4,3)*B(3)X4=B(4)/A(4,4)W(3)=B(3)-A(3,4)*X4X3=W(3)/A(3,3)W(2)=B(2)-A(2,4)*X4-A(2,3)*X3X2=W(2)/A(2,2)W(1)=B(1)-A(1,4)*X4-A(1,3)*X3-A(1,2)*X2X1=W(1)/A(1,1)WRITE(3,10) X1,X2,X3,X410 FORMAT(3X,X1=,F10.7, X2=,F10.7, X3=,F10.7, X4=,F10.7)END输入输出文件为:DATA.txt中数据为:1.1348,3.8326,1.1651,3.40170.5301,1.7875,2.5330,1.54353.4129,4.9317,8.7643,1.31421.2371,4.9998,10.6721,0.0147DATA1.txt中数据为:9.53426.394118.423116.9237OUTPUT.txt中数据为: X1= 1

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论