ansys弹簧建模有限元分析
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
ET,1,COMBIN14,,,2 ! UX AND UY DOF ELEMENT(单元类型)
ET,3,COMBIN40,,,,,,2 ! ALL MASS IS AT NODE J, UX DOF ELEMENT
ET,4,COMBIN40,,,2,,,2 ! ALL MASS IS AT NODE J, UY DOF ELEMENT R,1,1 ! SPRING STIFFNESS = 1（刚度）
R,2,8 ! SPRING STIFFNESS = 8
/COM USE COMBIN40 MASS, K, AND DAMPING C, TO APPROX. CRITICAL DAMPING R,3,,1.41,1 ! C = 1.41, M = 1（实常数）
R,4,,2,1 ! C = 2, M = 1
N,1（创建节点）
N,2,,10
N,3,,20
N,4,-1,10
N,5,,9
LOCAL,11,0,0,0,0,45（设置局不坐标）
NROTAT,2 （移动工作坐标系） ! ROTATE NODE SO LOAD CAN BE DIRECTLY APPLIED
E,1,2 （连接1,2单元被赋予实常数） ! ELEMENT 1 IS SPRING ELEMENT WITH STIFFNESS 1
REAL,2
E,2,3 （连接2,3并且赋值） ! ELEMENT 2 IS SPRING ELEMENT WITH STIFFNESS 8
TYPE,3（单元3）
REAL,3（实常数3）
E,4,2 （连接4,2并且赋值） ! ELEMENT 3 IS COMBINATION ELEMENT WITH C = 1.41
TYPE,4
REAL,4
E,5,2 ! ELEMENT 4 IS COMBINATION ELEMENT WITH C = 2
NSEL,U,NODE,,2（无效果）
D,ALL,ALL（在node定义自由度出约束定义节点自由度约束）NSEL,ALL
FINISH
/SOLU
ANTYPE,TRANS ! FULL TRANSIENT DYNAMIC ANALYSIS NLGEOM,ON ! LARGE DEFLECTION
KBC,1 ! STEP BOUNDARY CONDITION
F,2,FX,7.071068 ! FORCE IS IN ROTATED NODAL COORDINATE SYSTEM AUTOTS,ON
NSUBST,20
OUTPR,,20
OUTPR,VENG,20
TIME,15 ! ARBITRARY TIME FOR SLOW DYNAMICS
SOLVE
FINISH
/POST1
SET,,,,,15 ! USE ITERATION WHEN TIME = 15
ETABLE,SENE,SENE ! STORE STRAIN ENERGY
SSUM ! SUM ALL ACTIVE ENTRIES IN ELEMENT STRESS TABLE
*GET,ST_EN,SSUM,,ITEM,SENE
PRNSOL,U,COMP ! PRINT DISPLACEMENTS IN GLOBAL COORDINATE SYSTEM
*GET,DEF_X,NODE,2,U,X
*GET,DEF_Y,NODE,2,U,Y
*DIM,LABEL,CHAR,3,2
*DIM,VALUE,,3,3
LABEL(1,1) = 'STRAIN E','DEF_X (C','DEF_Y (C'
LABEL(1,2) = ', N-cm ','m) ','m) '
*VFILL,VALUE(1,1),DATA,24.01,8.631,4.533
*VFILL,VALUE(1,2),DATA,ST_EN ,DEF_X,DEF_Y
*VFILL,VALUE(1,3),DATA,ABS(ST_EN/24.01), ABS(8.631/DEF_X),
ABS(DEF_Y/4.533 )
/COM
/OUT,vm9,vrt
/COM,------------------- VM9 RESULTS COMPARISON --------------------- /COM,
/COM, | TARGET | ANSYS | RATIO
/COM,
*VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3)
(1X,A8,A8,' ',F10.3,' ',F10.3,' ',1F5.3)
/COM,----------------------------------------------------------------
/OUT
FINISH
*LIST,vm9,vrt