全部悬赏
发布悬赏
专家入驻
注册领666大礼包
一个厚度为一毫米的圆盘,用SHELL63单元,请问建立模型是建立厚度为1毫米的圆柱体还是建立一个圆面
照此做即可!/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,SHELL63MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,EX,1,,2.06e5 MPDATA,PRXY,1,,0.3 !定义圆面实常数(4即为厚度)。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,SOLUSOLVE
¥199
¥9.9
¥50
¥15
免费
¥30
¥5
¥150
¥70
¥99
¥58
¥80
¥10
TOP
照此做即可!
/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
!定义圆面实常数(4即为厚度)。
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