以文本方式查看主题 - Fortran中文网 (http://www.fortran.cn/bbs/index.asp) -- Fortran语言开发经验交流 (http://www.fortran.cn/bbs/list.asp?boardid=3) ---- 一个平面框架程序测试,喜欢结构力学的进~~!! (http://www.fortran.cn/bbs/dispbbs.asp?boardid=3&id=804) |
-- 作者:sicheng6699 -- 发布时间:2007/5/31 19:04:51 -- 一个平面框架程序测试,喜欢结构力学的进~~!! 大家好,最近我有一个设计,需要编一个平面框架的计算程序,静力计算,还有动力分析 软件初步已经成型,优化的地方还有很多 简单介绍: 定义节点(需要输入:X,Y) 定义材料(需要输入:面积A,弹性模量E,惯性矩I) 通过节点,和材料,可以定义单元 (需要输入:两端节点,材料属性) 定义约束情况(需要输入:所在节点,约束类型) 集中荷载(需要输入:作用单元,方向,大小) 均布荷载(需要输入:作用单元,方向,大小) 温度效应(需要输入:作用单元,截面高度h,温度影响系数,alf_T,单元两侧的温度大小Tu,To) 支座沉降(需要输入:作用节点,沉降方向,大小) 定义好之后,就可以进行静力计算,察看弯矩图M,轴力图N,剪力图Q,位移图D。 动力分析部分,还在修改中,目前可以通过输入均布质量(对于每一种材料来说),定义频率最小的几个振型,得到相应的动态图。 另外还添加了打印功能,保存为PS文件,可以通过Photoshop转换为600分辨率高清晰结构图。 程序还在修改当中,如有任何建议和问题,欢迎来Email,进入程序按F1即可看到。希望大家能给予一点好的建议。 程序下载: 框架静力与动力分析 SD 2007 http://zhousicheng.googlepages.com/a_039 静力计算,以及振型分析测试 http://zhousicheng.googlepages.com/a_044
[此贴子已经被作者于2007-6-2 17:16:31编辑过]
|
-- 作者:lm_lxt -- 发布时间:2007/5/31 22:23:39 -- 不错!希望能和楼主交流哈.很关注tcl/tk,据说ansys就是用它做的界面! |
-- 作者:sicheng6699 -- 发布时间:2007/5/31 23:35:21 -- 谢谢,我也很希望交流,虽然写出来了,但还是感觉用的不流畅,经常发现有些小技巧可以发挥大作用。 说实话,我的问题倒是一大堆。 好比说,我下载了一个lapack动态链接库,3兆,为了计算特征值,不得不用。比我编译的程序还大。。。。 但是直接拿源程序来编译,怎么也编译不通,老是说找不到程序 (我用G95编译的) 想自己安装一个Lapck,说出来怕不好意思,怎么也看不懂。。。。 不知道版主有什么好主意。 另:你有感兴趣的地方,也尽管提出来,大家可以讨论讨论 |
-- 作者:lm_lxt -- 发布时间:2007/6/4 23:17:27 -- 这两天一直忙,同时在看你这个程序,其实也给了不少启发... 原来在用intel visual fortran的,感觉要弄出一个灵活的界面还是比较困难. 楼主能否谈谈国外的fortran应用情况? |
-- 作者:lm_lxt -- 发布时间:2007/6/4 23:22:34 -- 还有,既然楼主已经有这个模板,应该很好地坚持,不断完善! 比如有的地方用动态联接库不方便的话,还是值得自己去写一个,或许能够做一些优化... 还有,数据文件的格式能不能再明确一些?因为里面全部是一些数据,大家可能不太清楚 那些数据是什么意思. |
-- 作者:sicheng6699 -- 发布时间:2007/6/6 3:30:19 -- 谢谢斑竹关心 现在我还在德国读书,我上学期上了“结构动力学”,介绍了单自由度和多自由度的的动力分析,其中类似Newmark,直接差分发的程序都是助教用Fortran77写出来的。我只能说,学校里Fortran算是一个很好的工具。 说实话,Tcl/Tk感觉挺灵活,正是如此,这个程序不敢说有什么模板可言。 至于那些数据,我的本意是有人能用,保存就好了,就像保存Word,不需要知道怎么保存的,而且通常也没人关心。只要打开能看就好了。
|
-- 作者:yin18 -- 发布时间:2007/6/27 20:07:07 -- 强!!!赞楼主一个!如滔滔江水般的佩服啊 |
-- 作者:mycatboys -- 发布时间:2007/8/10 21:44:25 -- 江水般的佩服啊 -------------------------------------------- 我有一个生活的家在广州机场路;一个工作的家也在员村,有域名空间,和域名注册服务。工作疲倦回到生活的家休息,养精蓄锐回到工作的家创业发展。无论碰到什么困难,这两个家都是我的依靠 |