材料力学.txt（Mechanics of materials.Txt）.docVIP

下载本文档

8
0
约5.57千字
约 17页
2017-10-07 发布于河南
举报
版权申诉

材料力学.txt（Mechanics of materials.Txt）.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

材料力学.txt（Mechanics of materials.Txt）

材料力学.txt（Mechanics of materials.Txt） (11). a continuous ww (3) = p open (11, file = wwt.status = new) write (11.65) nc.pc ww (2). write (11 *) xd. write (11.75) (xd (k), k = 1.nx) write (11 *) of: write (11.75) of (k), k = 1.nz) write (11 *) men. write (11.75) (res (k), k = 1.nq) write (11 *) -------------------------. -----------------. (1). 35 format (2x. national 1 = =.i4..i4. ;.i4) 45 format (2x. k.i3.) nc (=.i4.i3.) =.i4) 55 (1x.ei5.7) format. format (1x.a1.i4.f6.1). format (1x.10f6.2). stop endp (c) subroutine qec (k.i.j.nc1.nz1.nx2.nkk.wn.pp.x.z.um) the real process of x (5) (5) (5).sq im.wn (nkk) (4) do 20k2 = 1.5. do 20k2 = 1.5. um (k1, k2) = 0. 20 continues if ((x (1).ne.x (3).and. (x (2).ne.x (4)). 13 = (z z z z z z z z z z z z (3) (1) / (x x x x x x x x x x x x x x (3) - (4)). a24 = (z z z z z z z z z z z z (4)) (2) / (x (2) x (2)) b13 = 13 * x x x x x x x (1 + z) (1) b24 = - a24 * x x x x x x x (2) + z (2) x (5) = (b24 (b13) / (13 - a24) z (5) = (b24 * a13 - b13 * a24) / (13 - a24) elseif (x (1).eq.x (3)). x x x x x x x x x x x x x x (5) (1) a24 = (z z z z z z z z z z z z (4)) (2) / (x (2) x (2)) b24 = - a24 * x x x x x x x (2) + z (2) z (5) = a24 * x x x x x x x (5) + b13 endif do 30i1 = 1.4. k1 = 1 k2 = i1 + * 1nt (i1 / 4) s1 = x (k) z z z z z z z z z z z z (4) - (5) - z (k) s * z = x (k1) (5) x (5) * z (k1). s3 = x (k1), (k2) x x x x x x x * z (k1), (k2) 81 sq (i1) = 2 * (abs (s1 - s2 + s3)) bi = z z z z z z z z z z z z (k), (5) bk = z z z z z z z z z z z z (k1), (k2). (5) = x x x x x x x x x x x x x x (k). c = x x x x x x x x x x x x x x (k1) (5) ck = x x x x x x x x x x x x x x (k1, k2). s1 - sq (i10 * wn (k) * (k) - brown um (k1, k1) = mu (k1, k1) + 0.5 * (b * bi + cjcj) / sq (j1) + 0.2 * s1. um, k2, k2, k2, k2) = mu (b) + 0.5 * * bi + cjcj) / sq (j1) + 0.2 * s1. um (5.5) = mu (5.5) + 0.5 * (b * bi + cjcj) / sq (j1) + 0.2 * s1. sk1 = 0.5 * (bi, bj + * * c) / sq (j) + 1 sk2 = 0.5 * (bi, bj + * * c) / sq (j) + 1 sk3 = 0.5 * (bi, bj + * * c) / sq (j