!   TITLE:  elev_torq_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 torquer rotor, lamination stack
!   and wire assembly:
!
!               P/N     551A066
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
!   CSetr0:   Cartesian Elevation Torquer Rotor Coordinate System
!   CSetr1:   Cylindrical Elevation Torquer Rotor Coordinate System
!   CSetr2:   Spherical Elevation Torquer Rotor 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_torq_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  Rotor Cross-Section Profile ------------------
!
csys,CSetr0
!
create_circle,r2
!
create_area-lines
!
k,,l1*cos(45*rconv),0,0
k,,0,l1*cos(45*rconv),0
k,,-l1*cos(45*rconv),0,0
k,,0,-l1*cos(45*rconv),0
!
create_area
!
aovlap,am-1,am
!
init_entity_num
!
create_circle,r1
!
create_area-lines
!
asba,am-2,am,,delete,delete
!
init_entity_num
!
ara_create_part,csetr0,0,0
ara_create_part,csetr0,90,0
!
lplot
!
!------------------------- 3.2  Rotor Volumes -------------------------
!
csys,CSetr0
!
extrude_aset,l2-l3
!
radial_asel,'s',CSetr1,0,l1*cos(45*rconv),0,360,l2-l3,l2-l3
!
extrude_aset,l3
!
nummrg,kp
init_entity_num
!
lplot
!
!------------------------- 4 Material Properties ---------------------------
!
csys,CSetr0
!
!vol_revolved_area,'V','y'
V=0.49072
!
create_mat_prop,'mp_etr','ex',E,'nuxy',nu,'dens',(W/V)/g_bin
!
!
finalize_model