有哪些信誉好的足球投注网站- 1、本文档共8页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
fortran算例.doc
目录
平面深梁有限元前处理信息
1、1有限元模型
1、2源程序
1、3输出结果及分析
2、 矩阵求逆子程序调试
2、1 考题
2、2 源程序（主程序+子程序）
2、3 子程序验证
1、平面深梁有限元前处理信息
1、1有限元模型
长为4m被分为16份，宽为1m被分为4份
4
8 12
16 …… 124
128 3
7 11
15 …… 123
127 2
6 10
14 …… 122
126 1
5 9
13 …… 121
125 1、2源程序
DIMENSION XY(85,2) ,IJK(128,3)
OPEN(1,FILE=XYIJK.DAT,STATUS=UNKNOWN)
DO I=1,17
DO J=1,5
M=(I-1)*5+J
XY(M,1)=(I-1)*4./16
XY(M,2)=(J-1)/4.
END DO
END DO
DO I=1,85
WRITE(1,10) I,XY(I,1),XY(I,2)
END DO
10 FORMAT(1X,I4,2X,2F5.2)
DO I=1,16
DO J=1,4
NS=(I-1)*8+J
NX=(I-1)*8+4+J
IJK(NS,1)=(I-1)*5+J
IJK(NS,2)=I*5+J+1
IJK(NS,3)=(I-1)*5+J+1
IJK(NX,1)=(I-1)*5+J
IJK(NX,2)=I*5+J
IJK(NX,3)=I*5+J+1
END DO
END DO
DO I=1,128
WRITE(1,20) I,IJK(I,1),IJK(I,2),IJK(I,3)
END DO
20 FORMAT(1X,I4,3X,3I4)
PAUSE
END
1、3输出结果及分析
1、输出结果
结点坐标：
1 .00 .00
2 .00 .25
3 .00 .50
4 .00 .75
5 .00 1.00
6 .25 .00
7 .25 .25
8 .25 .50
9 .25 .75
10 .25 1.00
11 .50 .00
12 .50 .25
13 .50 .50
14 .50 .75
15 .50 1.00
16 .75 .00
17 .75 .25
18 .75 .50
19 .75 .75
20 .75 1.00
21 1.00 .00
22 1.00 .25
23 1.00 .50
24 1.00 .75
25 1.00 1.00
26 1.25 .00
27 1.25 .25
28 1.25 .50
29 1.25 .75
30 1.25 1.00
31 1.50 .00
32 1.50 .25
33 1.50 .50
34 1.50 .75
35 1.50 1.00
36 1.75 .00
37 1.75 .25
38 1.75 .50
39 1.75 .75
40 1.75 1.00
41 2.00 .00
42 2.00 .25
43 2.00 .50
44 2.00 .75
45 2.00 1.00
46 2.25 .00
47 2.25 .25
48 2.25 .50
49 2.25 .75
50 2.25 1.00
51 2.50 .00
52 2.50 .25
53 2.50 .50
54 2.50 .75
55 2.50 1.00
文档评论（0）