有限元法基础与程序设计 truss.for（Basic and program design of finite element method truss.for）.doc

下载文档 降价啦

6
0
约2.74千字
约 10页
2017-07-24 发布于河南
举报
版权申诉
保障服务

有限元法基础与程序设计 truss.for（Basic and program design of finite element method truss.for）.doc

1、本文档共10页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

有限元法基础与程序设计 truss.for（Basic and program design of finite element method truss.for）

有限元法基础与程序设计 truss.for（Basic and program design of finite element method truss.for） C -------桁架。---（桁架问题）-------------------- 维禄（3,2），国泰航空（3）、环磷酰胺（3）、（3）、铝等等（3）、地区（3）， 1 GK（6,6），F（6），FF（3）常见的神经网络，NE，Nd，nfix，E C ----------------------------------------------------------- 打开（5、文件= t1 .txt”，地位=老）打开（6、文件= outt1。”）阅读（5，*）NN，NE，Nd，nfix，E 写（6105）NN，NE，Nd，nfix，E 105格式（2x，nn NE和E / 4i5 nfix，e11.4）读（5，*）（LOC（i，1），LOC（i，2），区域（i），i = 1，NE）写作（6108） 108格式（/ 1，element Node1 NODE2地区）写入（6110）（i，LOC（i，1），LOC（i，2），区域（i），i = 1，NE） 110格式（1X，3i6，e12.4）读（5，*）（CX（j），赛扬（j），j = 1，NN）写作（6112） 112格式（/ 3X，node x-coord y-coord”）写入（6115）（J，CX（j），赛扬（j），j＝1，NN） 115格式（3X，i3,3x，2e12.4）阅读（5，*）（iFIX（K），K = 1，nfix）写（6118）（iFIX（K），K = 1，nfix） 118格式（/ 1，ifix = ，5i4） C ----------------------------------------------------------- 做10 I＝1，ND 10 f（i）＝0 f（2）＝10000 C ----------------------------------------------------------- 调用CST（LOC，CX，CY，iFix，AL地区，GK，F，FF）写作（6120） 120格式（/ 3X，node，6X，x-disp，8X的y-disp”）写（6125）（I、F（2×I-1），F（2 *），i = 1，NN） 125格式（1X，i5,2e15.4）写作（6130） 130格式（/ 1，element，5X，力量”）写入（6135）（i，FF（i），i = 1，NE） 135格式（1X，i5，e15.4）停止结束 C ----------------------------------------------------------- 子程序CST（LOC，CX，CY，iFix，AL地区，GK，F，FF）维禄（NE，2）、CX（NN），CY（NN），iFIX（nfix）、Al（NE）， 1地区（NE），GK（ND，ND），F（ND）、FF（NE），EK（4,4），XX（4）常见的神经网络，NE，Nd，nfix，E C ----------------------------------------------------------- 做10 I＝1，ND 做10 j＝1，ND 10 GK（i，j）＝0 C ----------------------------------------------------------- 做100 I = 1，NE I1＝LOC（I，1） I2 = LOC（i，2） X12 = cx（I2）- CX（I1） Y12 = CY（I2）- CY（I1） Al（i）= SQRT（X12××2＋Y12×2） CS = X12 /铝（我） Sn = Y12铝（我） A0 =区域（i） AL（i） A1 = aa * cs A2＝＊＊＊＊＊＊ A3 EK（1,1）= A1 EK（2,2）= A2 EK（3,3）= A1 EK（4,4）= A2 EK（1,2）= A3 EK（1,3）= 1 EK（1,4）= A3 EK（2,3）= A3 EK（2,4）= A2 EK（3,4）= A3 50二= 2 做50个JJ = 1，1 50 EK（II，JJ）= EK（JJ，II）做55 k = 1 55 = 1 C ----------------------------------------------------------- 用C写的（6140）I，K，L，EK（K，L） 140格式（1X，我，K，L，EK，3i4，E12.5） 55继续 C ---------------------------