Tải bản đầy đủ (.pdf) (3 trang)

LX Thuy_Chuyên ngành Cơ kỹ thuật, cơ học ứng dụng: Tính toán tấm đồng nhất chịu tải trọng tĩnh, sử dụng ngôn ngữ lập trình ansys

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (106.97 KB, 3 trang )

Tính toán tấm đồng nhất đẳng hướng chịu tác dụng của tải trọng tĩnh

Tấm chịu tải trọng tập trung tại giữa tấm. Chiều dài tấm L = 8m, chiều rộng B = 3m, chiều
dày tấm th = 0,05m. Tấm làm từ thép.
Chương trình tính:
/PREP7
smrt,off
/TITLE, STATIC ANALYSIS OF PLATE
!/TITLE, WRITED BY LE XUAN THUY –
!--------------------------JULY 2013--------------------------------------KEYW,PR_SET,1
KEYW,PR_STRUC,1
/GO
/VIEW,1,1,1,1
/VUP,1,Z
/REPLOT
!------------------THONG SO HINH HOC TAM----------------L=8
!m - LENGTH OF PALTE
B=3
!m - WIDTH OF PALTE
TH=0.05
!m - THICKNESS OF PLATE
!----------------CHON DIEU KIEN BIEN CHO TAM------------!BIEN=1
!4CANH NGAM
!BIEN=2
!2CANH Y=CONST NGAM,2CANH X=CONST TU DO
BIEN=3
!2CANH X=CONST NGAM,2CANH Y=CONST TU DO
!BIEN=4
!4CANH CHIU LIEN KET BAN LE
!BIEN=5
!2CANH Y=CONST BAN LE,2CANH X=CONST TU DO


!BIEN=6
!2CANH X=CONST BAN LE,2CANH Y=CONST TU DO
!........................................................
ET,1,SHELL63,,,,,,2
R,1,TH
MP,EX,1,2.1E11
!N/m2
MP,NUXY,1,0.3
!MP,ALPX,1,0.1E-5
!MP,DENS,1,7.850E3
!Kg/m3
K,1,0,0,0
K,2,0,B,0
K,3,L,B,0
K,4,L,0,0
A,1,2,3,4
!AL,ALL
ESIZE,0.25
AMESH,ALL


MESHING
!----------------------DIEU KIEN BIEN--------------------*IF,BIEN,EQ,1,THEN
NSEL,S,LOC,X,0
D,ALL,ALL
NSEL,S,LOC,X,L
D,ALL,ALL
NSEL,S,LOC,Y,0
D,ALL,ALL
NSEL,S,LOC,Y,B

D,ALL,ALL
*ELSEIF,BIEN,EQ,2,THEN
NSEL,S,LOC,Y,0
D,ALL,ALL
NSEL,S,LOC,Y,B
D,ALL,ALL
*ELSEIF,BIEN,EQ,3,THEN
NSEL,S,LOC,X,0
D,ALL,ALL
NSEL,S,LOC,X,L
D,ALL,ALL
*ELSEIF,BIEN,EQ,4,THEN
NSEL,S,LOC,X,0
D,ALL,UX
D,ALL,UY
D,ALL,UZ
NSEL,S,LOC,X,L
D,ALL,UX
D,ALL,UY
D,ALL,UZ
NSEL,S,LOC,Y,0
D,ALL,UX
D,ALL,UY
D,ALL,UZ
NSEL,S,LOC,Y,B
D,ALL,UX
D,ALL,UY
D,ALL,UZ
*ELSEIF,BIEN,EQ,5,THEN
NSEL,S,LOC,Y,0

D,ALL,UX
D,ALL,UY
D,ALL,UZ
NSEL,S,LOC,Y,B
D,ALL,UX
D,ALL,UY
D,ALL,UZ
*ELSEIF,BIEN,EQ,6,THEN
NSEL,S,LOC,X,0
D,ALL,UX
D,ALL,UY
D,ALL,UZ
NSEL,S,LOC,X,L
D,ALL,UX
D,ALL,UY
D,ALL,UZ
*ENDIF
ALLSEL
FINISH
!-----------------------DAT TAI VA GIAI--------------------/SOLU


ANTYPE,0
OUTPR,BASIC,LAST
!NLGEOM,ON
/UNITS,USER
F,257,FZ,-2E5
!SFA,1,,PRES,15
SOLVE




×