! TITLE: pin.mac (CU09644005) ! !----------------------------------------------------------------------- ! Rev - 08/26/2002 D. Edwards !----------------------------------------------------------------------- ! ! Boeing Pick-up pin analysis, P/N CU09644005 ! ! ! CSpin0: Cartesian pin Coordinate System ! CSpin1: Cylindrical pin Coordinate System ! CSpin2: Spherical pin 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 ! prepare database for assembly ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> ! pin.parm ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate System >>>>>>>>>>>>>>>>>>>>> ! mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 3. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! k,km+1,x1,y1,z1 ! km + 1 k,km+2,x2,y2,z2 ! km + 2 k,km+3,x3,y3,z3 ! km + 3 k,km+4,x4,y4,z4 ! km + 4 k,km+5,x5,y5,z5 ! km + 5 k,km+6,x6,y6,z6 ! km + 6 k,km+7,x7,y7,z7 ! km + 7 k,km+8,x8,y8,z8 ! km + 8 k,km+9,x9,y9,z9 ! km + 9 k,km+10,x10,y10,z10 ! km + 10 k,km+11,x11,y11,z11 ! km + 11 (center) k,km+12,x12,y12,z12 ! km + 12 k,km+13,x13,y13,z13 ! km + 13 k,km+14,x14,y14,z14 ! km + 14 k,km+15,x15,y15,z15 ! km + 15 (center) k,km+16,x16,y16,z16 ! km + 16 k,km+17,x17,y17,z17 ! km + 17 L,km+1,km+2 ! lm + 1 L,km+3,km+4 ! lm + 2 L,km+5,km+6 ! lm + 3 L,km+7,km+8 ! lm + 4 L,km+6,km+9 ! lm + 5 larc,km+9,km+10,km+11,r1 ! lm + 6 L,km+12,km+10 ! lm + 7 L,km+13,km+14 ! lm + 8 L,km+1,km+12 ! lm + 9 L,km+13,km+1 ! lm + 10 L,km+14,km+12 ! lm + 11 larc,km+7,km+4,km+15,r2 ! lm + 12 L,km+16,km+3 ! lm + 13 L,km+16,km+17 ! lm + 14 L,km+17,km+5 ! lm + 15 L,km+8,km+5 ! lm + 16 L,km+2,km+3 ! lm + 17 view,'iso' ! ! Create each pin area ! ! Center area lsel,selv,loc,x,0,x1 al,all ! Course region lsel,selv,loc,x,x1,1.2*x9 lsel,u,line,,lm+2 lsel,u,line,,lm+12 lsel,u,line,,lm+4 lsel,u,line,,lm+16 al,all ! Refined area around fillet lsel,selv,loc,x,x16,x5 lsel,r,loc,y,y3,y5 al,all *get,afine,area,0,num,max alls ! ! Create volumes ! init_entity_num revolve_aset,13,14,90,1 csys,CSpin0 norm_cut_pln_ct,'y',y11 ! Cut at sph radius center for load nummrg,kp init_entity_num vplot ! !========================= MESHING ==================================== ! mfine=r2/2 !r2/4 mruf=4*r2 !2*r2 ! (1) (2) (3) (4) (5) (6) (7) !ROTATE_VOLM_MSH, actcs, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, ! elmxl, mtrl, rl, ecs, radrot, varcang, ell ! ! Mesh fillet region ! create_cs,1,'CSpinz1',1,13,2,kp(0,0,-x2) csys,CSpin0 asel,s,area,,afine rotate_volm_msh,CSpinz1,0,0,-2,1,2,mfine,mfine,mpin,,,x5,90 ! ! Mesh remainder of revolved portion ! csys,CSpin0 asel,selv,loc,z,0 asel,r,loc,x,x1,5*x1 asel,u,area,,afine asel,u,loc,y,y6,5*y6 rotate_volm_msh,CSax0,0,0,elszohof,1,2,mruf,mruf,mpin,,,x5,90 asel,selv,loc,z,0 asel,r,loc,x,x1,5*x1 asel,r,loc,y,y6,5*y6 rotate_volm_msh,CSax0,0,0,elszohof,1,2,mruf,mruf,mpin,,,x5,90 ! ! Mesh center cylinder ! csys,CSpinz1 lsel,selv,loc,z,y11 lsel,r,loc,x,0,x1 asll,s,1 !rotate_volm_msh,CSax0,0,0,elszohof,1,2,0.150,0.150,1,,,1,90,ellhndof msh_standrd,3,0,,,1,2,mruf,mruf,mpin csys,CSpin0 vsymm,x,all !nsel,s,loc,x,0 !asel,s,loc,x,0 nummrg,all finalize_model