!   TITLE:  gimb_brg_cp_al.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   RELEASED    09/01/2001      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This part macro creates the AAAV gimbal bearing cap: SK324A005
!
!   CSgbc0:     Cartesian Gimbal Bearing Cap Coordinate System
!   CSgbc1:     Cylindrical Gimbal Bearing Cap Coordinate System
!   CSgbc2:     Spherical Gimbal Bearing Cap 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimb_brg_cp_al.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!---------------------------- 3.1 Main Body ---------------------------
!
csys,CSgbc1
!
create_arcs,rcapi,,,1,0,Da01/2
!
create_arcs,rcapo,,,1,0,(Da01/2)-1
!
csys,CSgbc0
!
k,,Dx01,(rcapo+rcapi)/2,0
k,,Dx01,Dy01/2,0
!
k,,Dx01,Dy01/2,0
k,,0,Dy01/2,0
!
k,,0,Dy01/2,0
k,,0,rcapi,0
!
k,,rcapo,0,0
k,,rcapi,0,0
!
ln_series
!
profile_close
!
ln_fillet,km,rfilcap
!
create_vol-lines,Dz01
!
vsymm,y,vm,,,,1,0
!
init_entity_num
!
vadd,vm-1,vm
!
init_entity_num
!
lplot
!
!finalize_model



Dr01=2.5628/2

csys,CSgbc1
create_circle,Dr01
create_vol-lines,-3
vsbv,vm-1,vm,,delete,delete
init_entity_num
lplot
!
msh_standrd,4,,,,,3,0.1,0.1
!
csys,CSgbc1
nsel,s,loc,y,90,270
dsym,symm,y,CSgbc1
!
csys,CSgbc0
nsel,s,loc,x,0
nsel,r,loc,y,Dr01
nsel,r,loc,z,0
!
d,all,all
!
csys,CSgbc0
nsel,s,loc,x,0
nsel,r,loc,y,Dr01
nsel,r,loc,z,-Dz01
!
d,all,ux
!
init_entity_num
!
radial_asel,'s',CSgbc1,Dr01,Dr01,270,90+360,0,-Dz01
sfa,all,,pres,10
!
init_entity_num
!
eplot
!
/solu
eqslv,iter,5,3
solve
!
FINISH
/POST1
/EFACE,1
AVPRIN,0,0,
!
/title,Gimbal Bearing Cap / AL 6061 / SK324A005 / Radial Delection
rsys,CSgbc1
PLNSOL,U,X,2,1
!
create_image
!
/EFACE,1
AVPRIN,0,0,
/title,Gimbal Bearing Cap / AL 6061 / SK324A005 / Stress
!
PLNSOL,S,EQV,0,1
!
create_image