!Ӧʵ3-4
!===Բܷ===
FINI
/CLE

/FILNAME,EX3-4
/TITLE,EX3-4
*AFUN,DEG  
!======================
!========ǰ========
!======================
/PREP7
ET,1,93              		!SHELL93

R,1,44              		!ǡӰ

MP,EX,1,2.094E5          	!ǲģ
MP,PRXY,1,0.262        		!ǲϲɱ
MP,DENS,1,7.83E-6     		!ǲܶ

CSYS,1               		!
K,1,7850,90            		!ؼ1
K,2,7850,0            		!ؼ2
K,3,7850,-30           		!ؼ3
K,100				!ؼ100
L,1,2		     		!ӹؼ2,1Բ1
L,2,3		     		!ӹؼ1,3Բ2
AROTAT,1,2,,,,,1,100,360	!ת360Բ

AESIZE,ALL,1000			!趨ϵԪߴΪ1000
CSYS
MSHAPE,0
MSHKEY,1
AMESH,ALL

OMEGA=2
!GUI庯߽WIND,أΪWIND
SFA,ALL,,PRES,%WIND%		!ʩغ
ALLS				!ѡԪ
!======================
!==============
!======================
NSEL,S,LOC,Y,7850*SIN(-30)	!ѡ²Բнڵ
D,ALL,UX
D,ALL,UY
D,ALL,UZ
ALLS

/SOLU		
ANTYPE,4			!ָΪ˲̬ѧ
TRNOPT,FULL			!˲̬ѧFULL

KBC,0
TIME,3*2*3.14/OMEGA
NSUB,3*12
OUTRES,BASIC,ALL		!ÿһ

ALLS
SOLVE
SAVE

!-------------------
!----ͨú-----
!-------------------
FINI
/POST1
SET,LAST			!ӽļһӲ
PLNSOL, U,SUM, 0,1.0     	!ʾλͼ
PLNSOL, U,X, 0,1.0	     	!ʾXλͼ
PLNSOL, U,Y, 0,1.0	     	!ʾYλͼ

!ǲֺ
PLNSOL, S,EQV, 0,1.0     	!ʾEQUIVALENT STRESS
ETABLE,Q_MX, SMISC, 4    	!XصԪ
ETABLE,Q_MY, SMISC, 5    	!Y
ETABLE,Q_TX, SMISC, 1    	!X
ETABLE,Q_TY, SMISC, 2    	!Y

PLETAB,Q_MX,NOAV         	!ʾXͼ
PLETAB,Q_MY,NOAV         	!ʾYͼ
PLETAB,Q_TX              	!ʾXͼ
PLETAB,Q_TY              	!ʾYͼ

!-------------------
!--ʱ̺---
!-------------------
FINI
/POST26
NSEL,S,LOC,X,0			!ѡԲĽڵ
NSEL,R,LOC,Z,0
TOP_N=NODE(0,7850,0)		!ȡڵ

NSOL,2,TOP_N,U,X,UX_UP  	!ȡڵXλ
NSOL,3,TOP_N,U,Y,UY_UP  	!ȡڵYλ
NSOL,4,TOP_N,U,Z,UZ_UP  	!ȡڵZλ

DERIV,5,2,1,,VX_UP		!ԶڵXλ΢㣬õXٶ
DERIV,6,3,1,,VY_UP		!ԶڵYλ΢㣬õYٶ
DERIV,7,4,1,,VZ_UP		!ԶڵZλ΢㣬õZٶ

PLVAR,2,5			!ʾڵXλʱ仯
PLVAR,3,6			!ʾڵYλʱ仯
PLVAR,4,7			!ʾڵZλʱ仯

