


全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
顺序消元法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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 山东省济宁金乡县联考2026届数学八上期末统考模拟试题含解析
- 云南省涧南彝族自治县2026届数学九年级第一学期期末检测试题含解析
- 2025【合同范本】抵押借款合同样本
- 江西省南康区2026届数学七上期末统考试题含解析
- 幼儿园科学实验活动的开展与指导
- 邮储银行双鸭山市尖山区2025秋招笔试言语理解题专练及答案
- 邮储银行周口市鹿邑县2025秋招笔试管理营销专练及答案
- 2025汽车维修技师劳动合同
- 邮储银行北京市通州区2025秋招英文结构化面试题库含答案
- 邮储银行广安市邻水县2025秋招笔试英语阅读选词题专练30题及答案
- 甲状腺结节术后护理
- 水泥标准培训课件
- 2025秋二年级上册语文上课课件 5 去外婆家
- 《植物组织培养》课件 项目3 无菌操作技术
- 2025届广东省广州市高三4月二模生物试题(原卷版+解析版)
- 《白银投资深度解析》课件
- 道德与法治课件《我们神圣的国土》课件(34张)
- 计算与人工智能概论(湖南大学)知到智慧树章节答案
- GB/T 44625-2024动态响应同步调相机技术要求
- 25《王戎不取道旁李》 教学设计
- 2024年咨询工程师继续教育城市轨道交通工程可行性研究报告编制方法考试答案
评论
0/150
提交评论