! TITLE: elevation_torquer.mac (AAAV) ! !--------------------------------------------------------------------------- ! Rev - RELEASED 05/23/2001 J. Rinaldi ! Rev A 05/01/2002 D. Edwards ! Update to CU01715097 configuration !--------------------------------------------------------------------------- ! ! This macro creates the elevation axis torquer & torquer end assembly: ! ! ! Parts for assembly: ! ! ELEV_TORQ_MSLV / SK375A066 ! ELEV_TORQ_BRNG / 490A045-106 ! ELEV_TORQ_RETAIN / A343A594 ! ELEV_TORQ_ROTOR / C551A066 ! ELEV_TORQ_STATOR / SK550A093-01 ! ELEV_TORQ_CAP / SK324A012 ! ! ! This is used in the AAAV assembly, end unit CU01715076/097. ! ! !******************************* Model Assembly *************************** ! ! !--------------------------- Bearing & Retainer --------------------------- ! elev_torq_brng,2 ! 490A045-106 ! elev_torq_retain ! A343A594 ! ! subassy_revolve,CSetb0 ! revolve cross-sections ! !--------------------------------- Rotor ---------------------------------- ! elev_torq_rotor,1 ! 551A066 ! !-------------------- Motor Sleeve, Stator & Rotor Cap -------------------- ! elev_torq_mslvD,2 ! SK375A092 (was SK375A066) ! elev_torq_stator ! SK550A093-01 ! elev_torq_cap ! SK324A012 (was SK324A006) ! subassy_revolve,CStms0 ! revolve cross-sections ! ! Add drilled holes to torquer sleeve ! csys,CStms0 ! create_cs,0,,0,0,0,0,0,0,180 ! parm_val,'trq_ms','hdf','hdf' parm_val,'trq_ms','r5','r5' parm_val,'trq_ms','l6','l6' parm_val,'trq_ms','r2','r2' ! D01=2*hdf*(((r5-l6)-r2)/2) ! parm_val,'trq_ms','nh','nh' parm_val,'trq_ms','l2','l2' parm_val,'trq_ms','l3','l3' ! asel,s,loc,z,0 vsla,s,0 aslv ! drill_pattern,csn+1,(r5-l6+r2)/2,0,nh,,360/(2*nh),,D01,'c',0.8*(l2-l3),120 ! lplot ! !----------------------------------- Meshing ------------------------------ ! *if,f_mesh,eq,1,then ! NEEDS TO BE UPDATED TO ACCOUNT FOR DRILLED HOLES rotate_volm_msh,CSerh1,0,0,5,1,2,0.2,0.2 *endif