/com  Modal check on Vibration Fixture CU01715076-T78, SH 3 
/com  Flat plate bolted to shaker table.

!  Requires ANSYS 5.6 or later  /DEE 02-04-00



fini
/clear,all

/prep7

/title,AAAV DAHA Vibration Fixture

/pnum,KP,1
/pnum,LINE,1
/pnum,area,1


ET,1,SHELL63

KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,0
KEYOPT,1,5,0
KEYOPT,1,6,0
KEYOPT,1,7,0
KEYOPT,1,8,0
KEYOPT,1,9,0

R,1,2.5, , , , , ,

UIMP,1,EX, , ,10.5e6,
UIMP,1,NUXY, , ,.33,
UIMP,1,DENS, , ,.101/386,


K,1,-9.081369,15.02077,0.
K,2,-9.081369,-4.979233,0.
K,3,10.91863,15.02077,0.
K,5,10.91863,-4.979233,0.
K,13,8.918631,7.104426,0.
K,18,8.918631,2.937366,0.
K,23,-7.081369,2.937366,0.
K,28,-7.081369,7.104426,0.
K,33,0.9186312,-1.479234,0.
K,38,-3.081369,-1.479234,0.
K,43,0.9186312,11.52077,0.
K,48,-3.081369,11.52077,0.
K,53,-7.081369,-1.479234,0.
K,58,4.918631,-1.479234,0.
K,63,8.918631,11.52077,0.
K,68,4.918631,11.52077,0.
K,73,-7.081369,11.52077,0.
K,78,8.918631,-1.479234,0.
K,83,0.9186312,7.520766,0.
K,88,4.918631,7.020766,0.
K,93,-3.581369,7.520766,0.
L,1,2
L,3,1
L,5,3
L,2,5
!,LFILLT,9,10,0.39850,
!,LFILLT,10,9,0.39850,
!,LFILLT,14,15,0.39850,
!,LFILLT,15,14,0.39850,
!,LFILLT,19,20,0.39850,
!,LFILLT,20,19,0.39850,
!,LFILLT,24,25,0.39850,
!,LFILLT,25,24,0.39850,
!,LFILLT,29,30,0.39850,
!,LFILLT,30,29,0.39850,
!,LFILLT,34,35,0.39850,
!,LFILLT,35,34,0.39850,
!,LFILLT,39,40,0.39850,
!,LFILLT,40,39,0.39850,
!,LFILLT,44,45,0.39850,
!,LFILLT,45,44,0.39850,
!,LFILLT,49,50,0.39850,
!,LFILLT,50,49,0.39850,
!,LFILLT,54,55,0.39850,
!,LFILLT,55,54,0.39850,
!,LFILLT,59,60,0.39850,
!,LFILLT,60,59,0.39850,
!,LFILLT,64,65,0.39850,
!,LFILLT,65,64,0.39850,
!,LFILLT,69,70,0.39850,
!,LFILLT,70,69,0.39850,
!,LFILLT,74,75,0.39850,
!,LFILLT,75,74,0.39850,
!,LFILLT,79,80,0.39850,
!,LFILLT,80,79,0.39850,
!,LFILLT,84,85,0.39850,
!,LFILLT,85,84,0.39850,
!,LFILLT,89,90,0.39850,
!,LFILLT,90,89,0.39850,

numcmp,kp
a,1,2,4,3
a,17,12,11,16,15,5,6,18,14,9,10,13,7,8

asba,1,2,,,keep
numcmp,area



!*do,i,5,18
!    nkpt,i,i
!*enddo

aesize,all,.5
amesh,all

ksel,u,kp,,1,4      ! Unselect the out the plate boundary kp's 
ksel,u,kp,,19,21    ! Unselect the three bolt center kp's within the housing permimiter

dk,all,ux
dk,all,uy
dk,all,uz

alls

!*go,:skip

FINISH
/SOLU

/out,outer,out
ANTYPE,2
MODOPT,SUBSP,5
EQSLV,FRONT
MXPAND,5, , ,0
LUMPM,0
PSTRES,0
!*  
MODOPT,SUBSP,5,0,0, ,OFF
RIGID,
SUBOPT,8,4,9,0,0,ALL
!*  
/STATUS,SOLU
SOLVE
/out

:skip