! TITLE: aaav_shell_hous.mac (AAAV) ! !--------------------------------------------------------------------------- ! Rev - 08/02/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro is a shell model of the AAAV housing. It will be calibrated ! against the 3D element model. ! ! CShou0: Cartesian Housing Coordinate System ! CShou1: Cylindrical Housing Coordinate System ! CShou2: Spherical Housing 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 Left Side Wall ! 4.2 Right Side Wall ! 4.3 Top Side Wall ! 4.4 Rear Side Wall ! 4.5 Beveled Surfaces ! 4.5.1 Left Surface ! 4.5.2 Right Surface ! 4.6 Top Center Hole ! ! !*********************** END Table of Contents ************************ ! ! ! !******************** Model Assembly Preparation ********************** ! ! mod_assemb_prep ! prepare database for assembly ! ! /title,AAAV Housing / Aluminum ! ! /units,bin ! British/inch units ! ! !*********************** End Model Preparation ************************ ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! aaav_shell_hous.parm ! name of parameter file ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! ! mod_coord_system,0,10.00,20.00,30.00,0,-90,0 ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! ! !---------------------- Material Properties -------------------- ! UIMP,XX,EX, , ,10.3E6, ! Material: XXXXX UIMP,XX,DENS, , ,.097/386.4, UIMP,XX,NUXY, , ,0.33, ! !--------------------------------------------------------------- ! ! !------------------------- Element Type ------------------------ ! ET,1,shell93 ! !--------------------------------------------------------------- ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! !------------------------- 4.1 Left Side Wall ------------------------ ! csys,CShou0 ! create_cs,0,'lftwalcs',0,l5,l3,-h1,rtangle,rtangle,0 ! k,,0,0,0 k,,0,h1,0 k,,-l2,h1,0 k,,-l1,0,0 ! create_area ! lplot ! !------------------------ 4.2 Right Side Wall ------------------------ ! csys,CShou0 ! create_cs,0,'rtwalcs',0,-l6,l3,-h1,-rtangle,rtangle,0 ! k,,0,0,0 k,,l1,0,0 k,,l2,h1,0 k,,0,h1,0 ! create_area ! lplot ! !------------------------- 4.3 Top Side Wall ------------------------- ! csys,CShou0 ! k,,l5,-(l2-l3),0 k,,l5,l3,0 k,,-l6,l3,0 k,,-l6,-(l2-l3),0 ! create_area ! lplot ! !------------------------ 4.4 Rear Side Wall ------------------------- ! csys,CShou0 ! create_cs,0,'rwalcs',0,0,l3,-h1,0,rtangle,0 ! k,,l5,0,0 k,,l5,h1,0 k,,-l6,h1,0 k,,-l6,0,0 ! create_area ! nummrg,kp ! init_entity_num ! lplot ! !------------------------ 4.5 Beveled Surfaces ----------------------- ! ! !------------------------- 4.5.1 Left Surface ------------------------ ! csys,CShou0 ! create_cs,0,'lftbevcs',0,l5,l3,0,0,0,0 ! k,,-l7,0,0 k,,0,-l7,0 k,,0,0,-l7 ! create_area ! lftbevar=am ! csys,rwalcs asel,selv,loc,z,0 get_max_entity a1=am init_entity_num ! csys,CShou0 asel,selv,loc,z,0 get_max_entity a2=am init_entity_num ! csys,lftwalcs asel,selv,loc,z,0 get_max_entity a3=am init_entity_num ! aptn,lftbevar,a1 aptn,lftbevar,a2 aptn,lftbevar,a3 ! init_entity_num ! csys,lftbevcs ! asel,s,loc,x,0,-l7 asel,r,loc,y,0,-l7 asel,r,loc,z,0,-l7 asel,u,area,,lftbevar ! adele,all,,,1 ! init_entity_num ! lplot ! !------------------------ 4.5.2 Right Surface ------------------------ ! csys,CShou0 ! create_cs,0,'rtbevcs',0,-l6,l3,0,0,0,0 ! k,,l7,0,0 k,,0,-l7,0 k,,0,0,-l7 ! create_area ! rtbevar=am ! csys,rwalcs asel,selv,loc,z,0 get_max_entity a1=am init_entity_num ! csys,CShou0 asel,selv,loc,z,0 get_max_entity a2=am init_entity_num ! csys,rtwalcs asel,selv,loc,z,0 get_max_entity a3=am init_entity_num ! aptn,rtbevar,a1 aptn,rtbevar,a2 aptn,rtbevar,a3 ! init_entity_num ! csys,rtbevcs ! asel,s,loc,x,0,l7 asel,r,loc,y,0,-l7 asel,r,loc,z,0,-l7 asel,u,area,,rtbevar ! adele,all,,,1 ! init_entity_num ! lplot ! !------------------------- 4.6 Top Center Hole ----------------------- ! csys,CShou1 ! asel,selv,loc,z,0 get_max_entity a1=am init_entity_num ! *do,i,0,3*rtangle,rtangle k,,r1,i,0 *enddo ! create_area,1 ! asba,a1,am,,delete,delete ! init_entity_num ! lplot ! !ara_fillet,1,18,16,,20,12,,1.0 ! ! (1) (2) (3) (4) (5) (6) (7) (8) ! MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa, etpv, ! ! elmnl, elmxl, mtrl, rl, ecs, volsel, sprat, radrot, varcang ! (9) (10) (11) (12) (13) (14) (15) (16) (17) ! !MSH_ALGORITHM,1,1,,,,,1,,0.25,0.3,,,,,,, !finalize_model