本帖最后由 gdyu_yu 于 2011-1-2 13:09 编辑
本人写了如下的代码,想实现卷尺竖直压弯折(大家可以想象吧),但是结果更像屈曲,不知哪位高人可以指点一下怎么改动实现呢?谢谢!
/FILNAME,SPRING
/TITLE,ANALYSIS OF TAP SPRING
/PREP7
ET,1,SHELL163
KEYOPT,1,1,10
KEYOPT,1,2,0
KEYOPT,1,3,0
KEYOPT,1,4,0
R,1,5/6,5,0.2
EDSHELL,20,-1,1,2,1,1
MP,DENS,1,7.8E-6
MP,EX,1,2.1E5
MP,NUXY,1,0.3
TB,BISO,1,,,,
TBDAT,1,0.3
TBDAT,2,10
CSYS,1
K,1,15,45
K,2,15,-45
L,1,2
K,100,
K,101,0,0,300
L,100,101
ADRAG,1,,,,,,2
LDELE,2,,,1
CSYS,0
ESIZE,2,
MSHAPE,0,2D
MSHKEY,1
AMESH,1
EDCGEN,ASSC,,,0.1,0.1
NSEL,S,LOC,Z,0
D,ALL,UZ,0,,,,
ALLSEL,ALL
NSEL,S,LOC,Z,300
D,ALL,UX,0,,,,UY,ROTX,ROTY,ROTZ
CM,PUSH,NODE
ALLSEL,ALL
*DIM,TIME,ARRAY,2,1,1,,,
*DIM,DISP,ARRAY,2,1,1,,,
*SET,TIME(2,1,1) , 2.1
*SET,DISP(2,1,1) , -100
EDLOAD,ADD,UZ,0,PUSH,TIME,DISP, 0
/SOLU
TIME,2
EDOPT,ADD,,ANSYS
EDRST,20
EDHTIME,20
EDDUMP,1
EDINT,5,4
EDMP,HGLS,1,5,0.1,1.5,0.06
SAVE
/STATUS,SOLU
SOLVE
FINISH |