!   TITLE:  az_torq_stator.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   06/04/2001  D. Edwards
!       Rev A   06/04/2002  D. Edwards
!               Add density based on measured weight of part
!---------------------------------------------------------------------------
!
!   This macro creates the elevation resolver stator, lamination stack
!   and wire assembly:
!
!                   P/N SK550A094
!
!       UPPER ASSEMBLY:     SKCB06631006
!
!   This is used in the AAAV assembly, end unit CU01715076.
!
!   CSsta0: Cartesian Elevation Resolver Stator Lam. Coordinate System
!   CSsta1: Cylindrical Elevation Resolver Stator Lam. Coordinate System
!   CSsta2: Spherical Elevation Resolver Stator Lam. Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!   4.  Material Properties
!   5.  FE model
!
!
!************************** Model Assembly Preparation **********************
!
!
mod_assemb_prep,arg1,arg2,arg3          ! prepare database for assembly
!
!
/title,Stator, Azimuth Torquer  (P/N SK550A094)
!
!
/units,bin                      ! British/inch units
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
az_torq_stator.parm             ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------ 3.1  Lamination Stack -----------------------
!
csys,CSsta0
!
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  Stator Wire -------------------------
!
csys,CSsta0
!
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,all
!
init_entity_num
!
lplot
!
!------------------------- 4.0 Material Properties ---------------------
!
csys,CSsta0

!vol_revolved_area,'V','y'
V=2.7937

create_mat_prop,'mp_sta','ex',E,'nuxy',nu,'dens',(W/V)/g_bin

*if,subassm_,ne,1,then
    /psymb,cs,1

    k,,0,0,0
    k,,0,0,1

    revolve_aset,km+1,km+2,360,4
*endif

init_entity_num

finalize_model