- 积分
- 0
- 注册时间
- 2008-3-24
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2008-4-28 17:05:04
|
显示全部楼层
来自 北京
回复 2# 的帖子
谢谢了
我用的是link1单元。实在不懂呀
源代码:
FINISH
/CLEAR,NOSTART
! (1) 设置工程的选项, 定义几何参数
/FileName, EX1.1
/TITLE, EX1.1, DEFLECTION OF A HINGED SUPPORT
*AFUN,DEG
THETA=30
A=10000
B=A/2*TAN(THETA)
! (2) 进入前处理模块, 定义节点
/PREP7
N,1
N,2,A/2,-B
N,3,A
! (3) 在前处理模块中,定义单元类型,材料参数和各个单元
ET,1,LINK1
R,1,1000
MP,EX,1,210E3
E,1,2
E,2,3
! (4) 在前处理模块中,定义位移约束
D,1,ALL,,,3,2
F,2,FY,-1000
OUTPR,,1 !输出第一个载荷步的基本计算结果
FINISH
! (5) 进入求解模块,开始求解
/SOLU
SOLVE
FINISH
! (6) 进入后处理模块,显示节点位移和杆件内力
/POST1
PLDISP,2
MID_NODE = NODE (A/2,-B,0 )
*GET,DISP,NODE,MID_NODE,U,Y
LEFT_EL = ENEARN (MID_NODE)
ETABLE,STRS,LS,1 !就是这个!!!!!
*GET,STRSS,ELEM,LEFT_EL,ETAB,STRS |
|