文档仅供参考
c FEM2D programm end [算例结果]：
chengxu.for所输出的数据文件DATA.OUT数据内容如下：
=========PLANE STRESS PROBLEM========
* * * * * RESULTS BY FEM2D * * * * *
--DISPLACEMENT OF NODE--
NODE NO X-DISP Y-DISP
1 .000000E+00 -.525275E+01 2 .000000E+00 -.225275E+01 3 -.108791E+01 -.137363E+01 4 .000000E+00 .000000E+00 5 -.824176E+00 .000000E+00 6 -.182418E+01 .000000E+00
--STRESSES OF ELEMENT-- ELEMENT NO.= 1
STX=-.108791E+01 TXY= .439560E+00 ELEMENT NO.= 2
STX=-.824176E+00
2020年4月19日
STY=-.300000E+01
STY=-.225275E+01
25
文档仅供参考
TXY= .000000E+00 ELEMENT NO.= 3
STX=-.108791E+01 TXY= .307692E+00 ELEMENT NO.= 4
STX=-.100000E+01 STY=-.137363E+01 TXY=-.131868E+00
STY=-.137363E+01
--STRESSES OF NODE-- NODE NO.= 1
STX=-.108791E+01 TXY= .439560E+00 NODE NO.= 2
STX=-.100000E+01 TXY= .249084E+00 NODE NO.= 3
STX=-.105861E+01 TXY= .205128E+00 NODE NO.= 4
STX=-.824176E+00 TXY= .000000E+00 NODE NO.= 5
26
2020年4月19日
STY=-.300000E+01
STY=-.220879E+01
STY=-.191575E+01
STY=-.225275E+01
文档仅供参考
STX=-.970696E+00 TXY= .586081E-01 NODE NO.= 6
STY=-.166667E+01
STX=-.100000E+01 STY=-.137363E+01 TXY=-.131868E+00
[结论与体会]:
经过本次的课程设计，我对有限元的概念有了更加深刻的理解，同时也弥补了平时学习是疏忽的地方，充实了有限元知识。经过编程及对chengxu.for的调试进一步巩固了FORTRAN语言知识，也锻炼了自我，使自己在学习工作中更具耐心、细心。 [参考数目]：
《FORTRAN语言》清华大学出版社 谭浩强，田淑清 《弹性力学》 高等教育出版社 徐芝纶 《有限元分析及其应用》清华大学 曾攀
27
2020年4月19日
