!   TITLE:  elev_reslvr_rotor.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   07/12/2000      J. Rinaldi
!       Rev A   06/05/2002      D. Edwards
!               Added weight, volume and density calculation
!---------------------------------------------------------------------------
!
!   This macro creates the elevation resolver rotor, lamination stack
!   and wire assembly:
!
!               P/N C551074041
!
!       UPPER ASSEMBLY:     C551052986
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
!   CSsl0:     Cartesian Elevation Resolver Stator Lam. Coordinate System
!   CSsl1:   Cylindrical Elevation Resolver Stator Lam. Coordinate System
!   CSsl2:   Spherical Elevation Resolver Stator Lam. Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!       3.1  Lamination Stack
!       3.2  Stator Wire
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2       ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
elev_reslvr_rotor.parm                  ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------ 3.1  Lamination Stack -----------------------
!
csys,CSr0
!
k,,0,r1,l1      ! points 1 thru 4
k,,0,r1,0
k,,0,r2,0
k,,0,r2,l1
!
create_area
!
lplot
!
!--------------------------- 3.2  Rotor Wire -------------------------
!
csys,CSr0
!
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))
!
create_area-lines
!
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))
!
create_area-lines
!
aglue,am-2,am-1,am
!
init_entity_num
!
lplot
!
!------------------------- 4 Material Properties ---------------------------
!
csys,CSr0
!
!vol_revolved_area,'V','y'
V=0.57841
!
create_mat_prop,'mp_err','ex',E,'nuxy',nu,'dens',(W/V)/g_bin
!
!-------------- Create Volume from Revolved Cross Section ------------------
!
*if,subassm_,ne,1,then
    csys,CSr0

    k
    k,,0,0,1

    init_entity_num

    /psymb,cs,1
    revolve_aset,km-1,km,360,4
*endif
!
!
finalize_model