
注册领666大礼包
/BATCH
/COM,ANSYS RELEASE 8.1 UP20040329 15:31:00 05/24/2007
/input,menust,tmp,'',,,,,,,,,,,,,,,,1
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1
WPSTYLE,,,,,,,,0
/REPLOT,RESIZE
/PREP7
!定义单元、材料及实常数
ET,1,SHELL63
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2.06e5
MPDATA,PRXY,1,,0.3
R,1,4, , , , , ,
RMORE, , , ,
RMORE
RMORE, ,
!显示工作平面。
WPSTYLE,,,,,,,,1
!创建30°圆弧。
CYL4,0,0,30
KL,3,1/3, ,
LSTR, 5, 1
LSBL, 3, 5
!网格划分。
FLST,5,5,4,ORDE,5
FITEM,5,1
FITEM,5,-2
FITEM,5,4
FITEM,5,6
FITEM,5,-7
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,3, , , , , , ,1
!*
MSHAPE,0,2D
MSHKEY,0
!*
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!边界约束。
elist,all,,,1,0
LPLOT
FLST,2,2,4,ORDE,2
FITEM,2,1
FITEM,2,4
!*
/GO
DL,P51X, ,ALL,
!30°圆弧加载。
DL,P51X, ,ALL,
FLST,2,7,1,ORDE,3
FITEM,2,18
FITEM,2,34
FITEM,2,-39
!*
/GO
F,P51X,FZ,-2000/8
!求解。
FINISH
/SOL
/STATUS,SOLU
SOLVE
是的,实际上你将载荷加在线上的话,ANSYS求解是还是将载荷转到节点进行求解的!对于你说的,载荷就加在3个节点上就行了!
TOP