! TITLE: weld_fillet2.mac (ISS) ! !--------------------------------------------------------------------------- ! Rev - RELEASED 09/02/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates the 2nd weld fillet, joining the rear cover and ! the housing sleeve. ! ! CSwf20: Cartesian Weld Fillet 1 Coordinate System ! CSwf21: Cylindrical Weld Fillet 1 Coordinate System ! CSwf22: Spherical Weld Fillet 1 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,Weld Fillet 2 / Rear Cover-Housing Sleeve ! ! /units,bin ! British/inch ! ! !**************************** End Model Preparation ************************* ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! weld_fillet2.parm ! name of parameter file ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! ! mod_coord_system,ctrearc,0,0,-w1,0,0,0 ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! ! !---------------------- Material Properties -------------------- ! UIMP,2,EX, , ,29.0E6, ! Material: 304L CRES UIMP,2,DENS, , ,.286/386.4, UIMP,2,NUXY, , ,0.27, ! !--------------------------------------------------------------- ! ! !------------------------- Element Type ------------------------ ! ET,1,SHELL93 ET,2,SOLID95 ! !--------------------------------------------------------------- ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! csys,CSwf20 ! ! ! (1) (2) (3) (4) (5) (6) (7) (8) ! WELD_PROFILE, wld_wdth, wld_dpth, xc, yc, zc, rotxy, rotyz, rotzx ! weld_profile,w1,l2,0,r1,0,0,0,90 ! k,,0,0,0 k,,0,0,1 ! init_entity_num ! axp1=km-1 axp2=km ! isolate_areas ! revolve_aset,axp1,axp2,360,4 ! lplot ! finalize_model_data