资源描述：
《fortran算例程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、题目：《FORTRAN语言》算例程序专业：班级：学号：姓名：时间：12目录1.平面深梁有限元前处理信息生成1.1深梁有限元模型(3)1.2源程序(3)1.3输出结果和分析(4)2.矩阵求逆子程序调试2.1子程序源程序(9)2.2考题(11)2.2.1主程序(11)2.3考题及验证(11)121.平面深梁有限元前处理信息生成1.1深梁有限元模型54810121615........7511612080851241284379111514........7411511979841231273268101413........731141187883122126215791312
2、........7211311777821211251611717681每个小方格长和宽都为0.25。1.2源程序cprogramdimensionxy(85,2),ijk(128,3)open(1,file="xyijk.dat",status="unknown")doi=1,17doj=1,5m=(i-1)*5+jxy(m,1)=0.25*(i-1)xy(m,2)=0.25*(j-1)12enddoenddodoi=1,85write(1,*)i,(xy(i,j),j=1,2)enddodoi=1,16doj=1,4ns=8*(i-1)+jnx=ns+4ijk(ns,1
3、)=(i-1)*5+jijk(ns,2)=ijk(ns,1)+6ijk(ns,3)=ijk(ns,1)+1ijk(nx,1)=ijk(ns,1)ijk(nx,2)=ijk(ns,1)+5ijk(nx,3)=ijk(ns,1)+6enddoenddodoi=1,128write(1,*)i,(ijk(i,j),j=1,3)enddoclose(1)end1.3输出结果及分析10.000000E+000.000000E+0020.000000E+002.500000E-0130.000000E+005.000000E-0140.000000E+007.500000E-0150.
4、000000E+001.00000062.500000E-010.000000E+0072.500000E-012.500000E-0182.500000E-015.000000E-0192.500000E-017.500000E-01102.500000E-011.000000115.000000E-010.000000E+00125.000000E-012.500000E-01135.000000E-015.000000E-01145.000000E-017.500000E-01155.000000E-011.000000167.500000E-010.000000E+
5、00177.500000E-012.500000E-01187.500000E-015.000000E-01197.500000E-017.500000E-0112207.500000E-011.000000211.0000000.000000E+00221.0000002.500000E-01231.0000005.000000E-01241.0000007.500000E-01251.0000001.000000261.2500000.000000E+00271.2500002.500000E-01281.2500005.000000E-01291.2500007.50
6、0000E-01301.2500001.000000311.5000000.000000E+00321.5000002.500000E-01331.5000005.000000E-01341.5000007.500000E-01351.5000001.000000361.7500000.000000E+00371.7500002.500000E-01381.7500005.000000E-01391.7500007.500000E-01401.7500001.000000412.0000000.000000E+00422.0000002.500000E-01432.0000
7、005.000000E-01442.0000007.500000E-01452.0000001.000000462.2500000.000000E+00472.2500002.500000E-01482.2500005.000000E-01492.2500007.500000E-01502.2500001.000000512.5000000.000000E+00522.5000002.500000E-01532.5000005.000000E-01542.5000007.500000E-01552.5000001.
