!   TITLE:  oga_pump_stator.mac (ISS)
!
!---------------------------------------------------------------------------
!       Rev -   08/25/2000      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the elevation resolver stator, lamination stack
!   and wire assembly:
!
!               P/N C550074899
!
!       UPPER ASSEMBLY:     C550081592
!
!   This is used in the ISS assembly, end unit CU09616051
!
!   ctstat:         Cartesian Stator Lamination Coordinate System
!   cylstat:        Cylindrical Stator Lamination Coordinate System
!   sphstat:        Spherical Stator Lamination Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Material and Element Type
!   4.  Solid Model
!       4.1  Lamination Stack
!       4.2  Stator Wire
!   5.  FE model
!
!
!************************** Model Assembly Preparation **********************
!
!
mod_assemb_prep                 ! prepare database for assembly
!
!
/title,OGA Recirc Pump Stator / 550A095
!
!
/units,bin                      ! British/inch units
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
oga_pump_stator.parm                    ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,CShs0,0.00,0.00,l200,0,0,0
!
!
!<<<<<<<<<<<<<<<<<<<< 3.  Material and Element Type >>>>>>>>>>>>>>>>>>>
!
!
!---------------------- Material Properties --------------------
!
UIMP,4,EX, , ,29.0E6,           ! Material:  STATOR ASSEMBLY
UIMP,4,DENS, , ,rho_stat,
UIMP,4,NUXY, , ,0.27,
!
!------------------------- Element Type ------------------------
!
ET,1,SHELL93
ET,2,SOLID95
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 4.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------ 4.1  Lamination Stack -----------------------
!
csys,ctstat
!
k,,0,0,0        ! create axis rotation points
k,,0,0,1
!
init_entity_num
!
axp1=km-1
axp2=km
!
k,,0,r1,l1      ! points 1 thru 4
k,,0,r1,0
k,,0,r2,0
k,,0,r2,l1
!
create_area
!
lplot
!
!--------------------------- 4.2  Stator Wire -------------------------
!
csys,ctstat
!
k,,0,r3,l1      ! points 1 thru 4
k,,0,r4,l1
k,,0,r4,l1+l2
k,,0,r3,l1+l2
!
create_lines
!
lfillt,lm-2,lm-1,0.2*((r2-r3)-(r2-r4))
lfillt,lm-1,lm,0.2*((r2-r3)-(r2-r4))
!
isolate_lines
al,all
init_entity_num
!
k,,0,r4,0       ! points 5 thru 8
k,,0,r3,0
k,,0,r3,-l2
k,,0,r4,-l2
!
create_lines
!
lfillt,lm-2,lm-1,0.2*((r2-r3)-(r2-r4))
lfillt,lm-1,lm,0.2*((r2-r3)-(r2-r4))
!
isolate_lines
al,all
init_entity_num
!
aglue,am-2,am-1,am
!
init_entity_num
!
lplot
!
!------------------------- 4.3  Create Volumes ------------------------
!
revolve_aset,axp1,axp2,4*rtangle,4
!
kdele,axp1,axp2
!
init_entity_num
!
lplot
!
!---------------------- 5.  Density Calculations ----------------------
!
vsum
!
*get,v_stat,volu,,volu
!
rho_stat=w_stat/v_stat
!
!----------------------------------------------------------------------
!
finalize_model_data