! TITLE: torq_statr_lam.mac (AAAV) ! !--------------------------------------------------------------------------- ! Rev - 01/22/2001 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates the torquer stator lamination assembly. ! ! P/N SK550A093 ! ! UPPER ASSEMBLY: CB06631005 ! ! cttsl: Cartesian Torquer Stator Lamination Coordinate System ! cyltsl: Cylindrical Torquer Stator Lamination Coordinate System ! sphtsl: Spherical Torquer Stator Lamination Coordinate System ! ! !******************************* TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 2. Material and Element Type ! 4. Solid Model ! 5. FE model ! ! !************************** Model Assembly Preparation ********************** ! ! ! mod_assemb_prep,2 ! prepare database for assembly ! ! /title,Torquer Stator Lamination / 550A093 ! ! /units,bin ! British/inch units ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! torq_statr_lam.parm ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! ! mod_coord_system,cttms,0.00,0.00,l3-l4,0,0,0 ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! ! !---------------------- Material Properties -------------------- ! UIMP,3,EX, , ,28.5E6, ! Material: ASTM A582 TYPE 416 COND A UIMP,3,DENS, , ,.28/386.4, UIMP,3,NUXY, , ,0.27, !alpha=5.9E-6 in/in/F ! !------------------------- Element Type ------------------------ ! ET,1,SOLID95 ET,2,SHELL93 ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! !------------------------ 4.1 Lamination Stack ----------------------- ! csys,cttsl ! 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,cttsl ! 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 ! finalize_model