! TITLE: piston_ring_h_tail.mac (BLACKHAWK) ! !--------------------------------------------------------------------------- ! Rev - 02/28/2002 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates the slip-clutch ring component used in the Blackhawk ! project. ! ! CSscr0: Cartesian Slip-Clutch Ring Coordinate System ! CSscr1: Cylindrical Slip-Clutch Ring Coordinate System ! CSscr2: Spherical Slip-Clutch Ring Coordinate System ! ! !************************** TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 3. Solid Model ! !********************* Model Assembly Preparation ********************** ! mod_assemb_prep,arg1,arg2,arg3 ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! piston_ring_h_tail.parm ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate System >>>>>>>>>>>>>>>>>>>>> ! mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! !-------------------------- 3.1 Ring Profile ------------------------- ! csys,CSscr0 ! view,'f' ! create_circle,Dd01 create_area-lines ! create_circle,Dd02 create_area-lines ! asba,am-1,am,,delete,delete ! init_entity_num ! lplot ! !-------------------------- 3.2 Slot Profile ------------------------- ! csys,CSscr0 ! k,,-Dd01,0,0 k,,0,0,0 k,,0,Dy01/2,0 k,,Dd01,Dy01/2,0 k,,Dd01,-Dd01,0 ! k,,-Dd01,-Dd01,0 ! create_area ! asba,am-1,am,,delete,delete ! init_entity_num ! ara_create_part,CSscr0,90,0 ! lplot ! !----------------------------- 4. Meshing ---------------------------- ! ! ! (1) (2) (3) (4) (5) (6) (7) (8) (9) ! MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, lszmsh, mat, real, ecs ! msh_area,1,,,el,el ! lplot ! !------------------------ 5. Loads/Constraints ----------------------- ! csys,CSscr0 ! nsel,s,loc,y,0 d,all,uy,,,,,uz ! nsel,s,loc,x,-Dd01 nsel,r,loc,y,0 d,all,all ! init_entity_num csys,0 !csys,CSscr1 ! !lsel,s,loc,x,Dd02 !sfl,all,pres,10 dk,16,uy,disp_ ! init_entity_num ! /title,Piston Ring Assembly, Horizontal Tail / Parker P/N: 362394 / disp = %disp_% ! /solu eqslv,iter,5,3 solve ! ! /POST1 /EFACE,1 AVPRIN,0,0, ! PLNSOL,S,EQV,0,1 /EFACE,1 AVPRIN,0,0, ! PLNSOL,S,EQV,2,1 /EFACE,1 AVPRIN,0,0, ! PLNSOL,S,EQV,1,1