! TITLE: str_tube_slev_375a068-2.mac (ISS) ! !--------------------------------------------------------------------------- ! Rev - 05/03/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates the stator tube sleeve, 375A068, used in the ! ISS (International Space Station) end unit CU09616051. The analysis ! is for stresses due to dynamic loading in the overall assembly of the ! unit. ! ! CSstr0: Cartesian Stator Tube Coordinate System ! CSstr1: Cylindrical Stator Tube Coordinate System ! CSstr2: Spherical Stator Tube Coordinate System ! ! !******************************* TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 3. Material and Element Type ! 4. Solid Model ! 4.1 Cross-Sectional Area ! 4.1.1 Partition Area ! 4.1.2 Create Areas ! 5. FE Model ! ! Finalize Model Data Storage ! ! 6. Loading and Constraints ! 7. Preparation for Solve ! !***************************** END Table of Contents ************************ ! ! ! !************************** Model Assembly Preparation ********************** ! ! mod_assemb_prep,1 ! prepare database for assembly ! ! /title,Stator Tube Sleeve 375A068 ! ! /units,bin ! British/inch units ! ! !**************************** End Model Preparation ************************* ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! str_tube_slev_375a068.parm ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! ! mod_coord_system,0,0.00,0.00,0.00,0,0,0 ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! ! !---------------------- Material Properties -------------------- ! UIMP,1,EX, , ,29.4E6, ! Material: INCONEL 718 UIMP,1,DENS, , ,.286/386.4, UIMP,1,NUXY, , ,0.29, ! !--------------------------------------------------------------- ! ! !------------------------- Element Type ------------------------ ! ET,1,shell93 ET,2,solid95 ! !--------------------------------------------------------------- ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! !---------------------- 4.1 Cross-Sectional Area --------------------- ! csys,CSstr1 ! k,,r1,0,h1 k,,r3,0,h1 k,,r3,0,h2 k,,r2,0,h2 k,,r2,0,(h2+h3) ! k,,r3,0,(h2+h3) k,,r3,0,h5 k,,r5+rfil1,0,h5 k,,r5+rfil1,0,(h5+h6) k,,r5,0,(h5+h6) ! k,,r5,0,2*h5 k,,r8,0,2*h5 k,,r8,0,(h5+h8) k,,r9,0,(h5+h8) k,,r9,0,(h5+h11) ! k,,r6,0,(h5+h11) k,,r6,0,h12 k,,0,0,h12 k,,0,0,h13 k,,r7,0,h13 ! k,,r7,0,(h5-h10) k,,r1,0,(h5-h10) ! create_lines ! ax1=km-4 ax2=km-3 ! lfillt,lm-15,lm-16,rfil4 lfillt,lm-17,lm-18,rfil5 lfillt,lm-19,lm-18,rfil5 lfillt,lm-13,lm-12,rfil1 lfillt,lm-11,lm-10,rfil2 ! lfillt,lm-3,lm-2,rfil3 lfillt,lm-8,lm-7,rfil6 lfillt,lm-7,lm-6,rfil6 lfillt,lm,lm-1,rfil7 ! nummrg,kp,.001,.001 ! init_entity_num ! chamfer_area,1,lm-30,lm-29,chmf1 chamfer_area,1,lm-16,lm-15,chmf2 chamfer_area,1,lm-25,lm-24,chmf3 ! init_entity_num ! isolate_lines ! al,all ! init_entity_num ! lplot ! !------------------------- 4.1.1 Tube Volumes ------------------------ ! ! revolve_aset,ax1,ax2,4*rtangle,4 ! ! !----------------------- 4.1.2 Flange Volumes ------------------------ ! flng_ptrn_2,CSstr1,rbp,h5,nh,0,rtangle,dbh,rbf,rff,r5+rfil1,rbh ! init_entity_num ! csys,CSstr1 ! max_enty_dim,'l' ! k,,5*max_leng,0,h5 k,,5*max_leng,180,h5 ! create_lines ! k,,5*max_leng,90,h5 k,,5*max_leng,270,h5 ! create_lines ! lsel,s,line,,lm-1,lm,1 cm,lset1,line ! isolate_areas ! asbl,all,lset1,,delete,delete ! init_entity_num ! isolate_areas ! extrude_aset,h6 ! init_entity_num ! nummrg,kp ! init_entity_num ! lplot ! finalize_model_data