!
FINI
/CLE
/FILNAME,SOLID
*AFUN,DEG			!ʹýǶ
*SET,LL,100			!
*SET,BB,6			!
*SET,HH,6			!߶
*SET,NN,20			!ַ
*SET,SP,1000			!ֲغ
!ģ
/PREP7
ET,1,SOLID45
MP,EX,1,29E9
MP,NUXY,1,0.3
MP,DENS,1,2500
BLOCK,,LL,,BB,,HH
LESIZE,2,,,NN
LESIZE,1,,,2
LESIZE,9,,,2
VMESH,ALL
SAVE
FINI
!
/SOLU
ANTYPE,0
NSEL,S,LOC,X,0
D,ALL,ALL
ALLS
ACEL,0,9.8,0
ASEL,S,LOC,Y,HH
SFA,ALL,1,PRES,SP
SOLVE
FINI
!
/POST1
PLNSOL,S,EQV,0,1.0		!ЧӦ
!ͨƽ鿴ͼ
WPAVE,LL/2			!ƶƽе
WPROTA,,,90			!תƽ
/TYPE,1,1			!ʾΪ
/CPLANE,1			!ָΪƽи
PLNSOL,S,X,0,1.0		!XӦ
!ͨ鿴ͼ
!WPAVE,LL/2			!ƶƽе
!WPROTA,,,90			!תƽ
!/CPLANE,1			!ָΪƽи
SUCR,MIDSEC,CPLANE		!ΪMIDSEC
SUMAP,MIDPLOT,S,X		!ʾ
SUPL,MIDSEC,MIDPLOT		!ʾͼ
!ͨ·鿴ͼ
N1=NODE(LL/2,0,0)		!ڵ
N2=NODE(LL/2,0,BB)		!ڵ
N3=NODE(LL/2,HH,BB)		!ڵ
N4=NODE(LL/2,HH,0)		!ڵ
N5=NODE(LL/2,0,0)		!ڵ
PATH,MID,5
PPATH,1,N1
PPATH,2,N2
PPATH,3,N3
PPATH,4,N4
PPATH,5,N5
PDEF,MPATH,S,X,AVG		!Ӧӳ·
/PBC,PATH,,1                         
/REPLOT				!ʾ·
PLPATH,MPATH			!Ӧֲͼ
PRPATH,MPATH			!ĻӴӦ
PLPAGM,MPATH			!ͼ




