!   TITLE:  rotor_assemb_551a134.mac (ISS)
!
!---------------------------------------------------------------------------
!       Rev -   RELEASED    03/01/2001      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the 3D E-mag model of rotor and stator of the ISS
!   motor to calculate the axial load generated by the rotor axial position
!   offset.
!
!   rtrCS00:    Cartesian Rotor Coordinate System
!   rtrCS10:    Cylindrical Rotor Coordinate System
!   rtrCS20:    Spherical Rotor Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!
!************************** Model Assembly Preparation **********************
!
!
mod_assemb_prep     ! prepare database for assembly
!
!
/title,ISS Rotor Assembly / 551A134
!
!
/units,bin
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
rotor_assemb_551a134.parm           ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,0,1,2,3,0,0,0
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Lamination Volumes ----------------------
!
csys,rtrCS00
!
k,,0,Dr07/2,0
k,,0,Dr07/2,-Dz01
k,,0,Dr06/2,-Dz01
k,,0,Dr06/2,-Dz02
k,,0,Dr05/2,-Dz02
!
k,,0,Dr05/2,-(Dz02-Dz03)
k,,0,Dr02/2,-(Dz02-Dz03)
k,,0,Dr02/2,-Dz02
k,,0,(Dr02/2)+0.25*(Dr03-Dr02),-Dz02
k,,0,(Dr02/2)+0.25*(Dr03-Dr02),0
!
k,,0,Dr02/2,0
k,,0,Dr02/2,-Dz03
k,,0,Dr05/2,-Dz03
k,,0,Dr05/2,0
!
create_lines
!
lfillt,lm-9,lm-8,R01
lfillt,lm-8,lm-7,R01
lfillt,lm-3,lm-2,R01
lfillt,lm-2,lm-1,R01
!
k,,0,0,0                ! rotation keypoint 1
k,,0,0,1                ! rotation keypoint 2
!
create_area-lines
!
isolate_areas
!
revolve_aset,km-1,km,360,4
!
vsel,s,volu,,vm-3,vm,1
cm,rotor,volu
!
init_entity_num
!
lplot
!
!----------------------- 3.1.2  Outer Rotor Area ----------------------
!
csys,rtrCS10
!
create_circle,Dr01/2
!
create_area-lines
!
create_circle,(Dr02/2)+0.25*(Dr03-Dr02)
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
rtr_area=am
!
lplot
!
!------------------------ 3.1.2.1  Magnet Seats -----------------------
!
csys,rtrCS10
!
create_cs,0,'mag_cs',0,Dr03/2,0,0,-90,0,0
!
magnet,Dx01,Dy01,Dc01
!
create_area-lines
!
csys,rtrCS10                    ! map areas around perimeter
!
asel,s,area,,am
!
cir_ara_pattern,12
!
asel,s,area,,am-11,am
cm,mag_area,area
!
init_entity_num
!
asba,rtr_area,mag_area,,delete,delete
!
init_entity_num
!
lplot
!
!----------------------- 3.2  Create Magnet Areas ---------------------
!
csys,mag_cs
!
magnet,Dx01,Dy01,Dc01
!
create_area-lines
!
csys,rtrCS10                    ! map areas around perimeter
!
asel,s,area,,am
!
cir_ara_pattern,12
!
isolate_areas
!
aglue,all
!
cm,aset1,area
!
init_entity_num
!
lplot
!
!--------------------- 3.2.1  Grind Magnet Shapes ---------------------
!
csys,rtrCS10
!
create_circle,1.5*Dr04/2
!
create_area-lines
!
create_circle,Dr04/2
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
asba,aset1,am,,delete,delete
!
init_entity_num
!
lplot
!
!------------------------- 3.2.2  Rotor Volumes -----------------------
!
isolate_areas
!
extrude_aset,-Dz02
!
nummrg,kp
!
init_entity_num
!
lplot
!
!-------------------- 3.3  Remove Magnet Sections ---------------------
!
csys,rtrCS10
!
norm_cut_pln_cyl,-Dz04
!
norm_cut_pln_cyl,-(Dz02-Dz05)
!
vsel,s,loc,x,Dr03/2,(Dr03/2)+Dy01
vsel,r,loc,z,-Dz04,-(Dz02-Dz05)
!
vdele,all,,,1
!
init_entity_num
!
lplot
!
!-------------------------- 3.4  Rotor Sleeve -------------------------
!
csys,rtrCS10
!
create_circle,Dr08/2,-Dz04
!
create_area-lines
!
create_circle,Dr01/2,-Dz04
!
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
asel,s,loc,z,-Dz04
asel,u,loc,x,Dr03/2,(Dr03/2)+Dy01
!
aglue,all
!
isolate_areas
!
extrude_aset,-(Dz02-Dz05-Dz04)
!
nummrg,kp
!
init_entity_num
!
lplot
!
!------------------------- 3.5  Section Model -------------------------
!
csys,rtrCS00
!
norm_cut_pln_ct,'x',0
norm_cut_pln_ct,'y',0
!
lplot
!
finalize_model_data