/com  File: hous-res.mac
/com  Housing, Elevation, Resolver, P/N C314002582
/com  Applied lateral load, used to determine spring rate of housing
/com  DEE 02-05-00


!*go,:skip

fini
/clear,all

/title,C314002582 - Housing, Elevation, Resolver - Deflection due to 100 lb lateral load

/prep7

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

F = 100         ! [lbf] Applied load to resolver cover
flangey=.375

K,1,0.7735060,1.175000,0.
K,2,0.2532842,1.175000,0.
K,3,1.593500,0.4549999,0.
K,4,1.250000,0.4549999,0.
K,5,1.593500,flangey,0.
K,6,1.285000,0.3750000,0.
K,7,0.2922500,-0.3033174E-07,0.
K,8,0.1749999,0.,0.
K,9,1.285000,0.2499999,0.
K,14,1.250000,0.9790620,0.
K,17,0.2722496,0.3250001,0.
K,18,0.2722495,0.3630000,0.
K,19,0.3122497,0.3630000,0.
K,20,0.3122497,0.8140003,0.
K,21,0.3750000,0.8140003,0.
K,22,0.3750000,1.095000,0.
K,23,0.7235166,1.095000,0.
K,24,1.083500,0.9469723,0.
K,26,1.083500,0.5940002,0.
K,27,1.103500,0.5940002,0.
K,28,1.103500,0.3250002,0.
K,29,1.200000,0.3250001,0.
K,30,1.200000,0.2499999,0.
K,32,0.1749999,1.096716,0.
K,46,0.2922500,0.3250002,0.
K,49,0.,0.,0.
K,50,0.,1.175000,0.
L,1,2
L,3,4
L,5,6
L,7,8
L,9,6
L,5,3
L,4,14
L,14,1
!L,17,18    ! Thread relief diameter
L,19,20
L,21,22
L,23,24
L,24,26
!L,27,28
L,29,30
L,2,32
L,8,32
L,20,21
L,22,23

!L,26,27    ! Horizontal step for stator stack
L,26,28     ! Added line (hypotenuse of step)

L,28,29
!L,18,19    ! Thread relief (upper side)
!L,17,46    ! Thread relief (lower side)
L,19,46     ! Added diagonal for thread relief

L,7,46
!L,49,50    ! Centerline
L,9,30

et,1,shell93
et,2,solid95

mp,EX,1,28.5e6
mp,NUXY,1,.28

al,all

desize,,,,,,,.04

lesize,9,,,7,1,
!lesize,17,,,20,1,
lesize,20,,,1,1,
lesize,21,,,6,1,

amesh,all

type,2
esize,,9
vrotat,all,,,,,,49,50,180,2

aclear,1

numcmp,all

asel,s,loc,z,0
da,all,symm

asel,s,area,,18
asel,a,area,,41
da,all,ux,0
da,all,uz,0

asel,s,loc,y,flangey
da,all,uy,0

:skip

/com Apply 100 equivalent pounds to the part in the lateral direction
! Calculate the pressure required to generate F/2 pounds on the model half.
! Apress = (pi/2)*(rL)
! Aproj = rL

asel,s,area,,8
asum,fine
*get,Apress,area,0,area
Aproj = Apress*(2/3.1415)
press = (F/2)/Aproj
/PSF,PRES,NORM,2,0
/PBF,DEFA, ,1
sfa,all,1,PRES,press

alls