Chương trình tính toán tấm làm từ vật liệu thép, chịu tác dụng của tải trọng tập trung được lập trình trên nền ngôn ngữ lập trình ANSYS. So với lập trình tính toán trên Matlab, lập trình trên nền ANSYS cho phép giải quyết bài toán nhanh gọn hơn. Với việc sử dụng ngôn ngữ lập trình, có thể dễ dàng khảo sát các yếu tố ảnh hưởng đến khả năng làm việc của tấm như bề dày tấm, chiều dài, chiều rộng, cơ tính tấm, điều kiện biên (thông qua biến BIEN trong chương trình). Bài toán tĩnh này là cơ sở phát triển lên tính toán cho bài toán động, hoặc những bài toán kết cấu có hình dạng phức tạp hơn.
Trang 1Tí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 – thuylxmta@gmail.com
! -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 -
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
Trang 2MESHING
! -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
Trang 3ANTYPE,0
OUTPR,BASIC,LAST
!NLGEOM,ON
/UNITS,USER
F,257,FZ,-2E5
!SFA,1,,PRES,15 SOLVE