! TITLE: ham-sun_assembly.mac (ISS) ! !--------------------------------------------------------------------------- ! Rev - 09/08/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This is the model of the Hamilton-Sunstrand assembly of the ISS pump ! motor. ! ! CShsa0: Cartesian Hamilton-Sunstrand Assembly Coordinate System ! CShsa1: Cylindrical Hamilton-Sunstrand Assembly Coordinate System ! CShsa2: Spherical Hamilton-Sunstrand Assembly Coordinate System ! ! !******************************* TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 3. Material and Element Type ! 4. Solid Model ! ! !***************************** END Table of Contents ************************ ! ! ! !************************** Model Assembly Preparation ********************** ! ! mod_assemb_prep ! prepare database for assembly ! ! /title,Hamilton-Sunstrand Assembly ! ! /units,bin ! British/inch ! ! !**************************** End Model Preparation ************************* ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ham-sun_assembly.parm ! name of parameter file ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! ! mod_coord_system,CSstr0,0,0,0,0,0,0 ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! ! !---------------------- Material Properties -------------------- ! REMOVED (See below) !--------------------------------------------------------------- ! ! !------------------------- Element Type ------------------------ ! ET,3,shell63 ET,4,solid45 ! !--------------------------------------------------------------- ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! *if,modl_num,ne,9,then csys,CShsa1 ! hole_pattern,CShsa1,rbp,h5,6,,0,,2*rbh ! init_entity_num ! asel,s,area,,am-5,am,1 cm,aset1,area ! init_entity_num ! hole_pattern,CShsa1,rbp,h5,6,,0,,dbh ! init_entity_num ! asel,s,area,,am-5,am,1 cm,aset2,area ! init_entity_num ! asba,aset1,aset2,,delete,delete ! init_entity_num ! lplot ! !----------------------------- 4.1 Cut Areas ---------------------------- ! csys,CShsa1 ! max_enty_dim,'l' ! k,,20*max_leng,0,h5 k,,20*max_leng,180,h5 ! create_lines ! isolate_areas ! asbl,all,lm,,delete,delete ! init_entity_num ! nummrg,kp ! init_entity_num ! isolate_areas ! extrude_aset,-0.010 ! init_entity_num ! lplot ! *endif ! !------------------------ 4.2 Cylindrical Areas ------------------------- ! csys,CShsa1 ! *do,i,0,270,90 k,,rbp+rbf,i,h5-0.010 *enddo ! create_area,1 ! *do,i,0,270,90 k,,r5+rfil1,i,h5-0.010 *enddo ! create_area,1 ! asba,am-1,am,,delete,delete ! init_entity_num ! max_enty_dim,'l' ! k,,1.5*max_leng,0,h5-0.010 k,,1.5*max_leng,180,h5-0.010 ! create_lines ! k,,1.5*max_leng,90,h5-0.010 k,,1.5*max_leng,270,h5-0.010 ! create_lines ! lsel,s,line,,lm-1,lm,1 cm,lset1,line ! isolate_areas ! asbl,all,lset1,,delete,delete ! init_entity_num ! asel,s,loc,z,h5-0.010 aovlap,all ! init_entity_num ! isolate_areas ! asel,u,area,,am-3,am,1 adele,all,,,1 ! init_entity_num ! nummrg,kp ! init_entity_num ! lplot ! !---------------------- 4.2 Cylindrical Volumes ------------------------- ! csys,CShsa1 ! isolate_areas ! asum ! *get,a_oga,area,,area ! l_oga=3.898 ! length of OGA volumes ! v_oga=a_oga*l_oga ! volume of assembly ! wgt_oga=20.476 ! reported weight of assembly ! rho_oga=wgt_oga/v_oga ! calculated value of density ! UIMP,5,EX, , ,29.0E6, ! Material: OGA pump assembly UIMP,5,DENS, , ,rho_oga/386.4, UIMP,5,NUXY, , ,0.27, ! msh_algorithm,1,1,0,1,,,3,4,0.25,0.3,5,,,,,, ! init_entity_num ! asel,s,loc,z,h5-0.010 ! vatt,5,,4 type,4 mat,5 esize,,7 ! extrude_aset,-l_oga ! init_entity_num ! lplot ! finalize_model_data