!   ghtest.mac
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimbal_cres_cast.parm
!Dx03=arg4
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 3.1  Center Hub Volume ---------------------
!
!
!------------------- 3.1.1  Center Circular Volume ------------------
!
csys,CSgim0
!
k,,0,0,0
K,,dhubo/2,0,0
K,,dhubo/2,0,-(l1+l2)
K,,Dx02,0,-(Dz02+l1)
K,,Dx03,0,-(Dz03+l1)
!
K,,Dx03,0,-(Dz04+l1)
K,,Dx04,0,-(Dz04+l1)
K,,Dx04,0,-(l4+l1)
k,,0,0,-(l4+l1)
!
create_lines
!
ln_fillet,km-4,Rf01
ln_fillet,km-4,Rf02
ln_fillet,km-7,Rf03
!
create_area-lines
!
asel,s,area,,am
!
revolve_aset,km-14,km-6,360,2
!
init_entity_num
!
vadd,all
!
init_entity_num
!
lplot
!

!
!------------------- 3.8.1  Center Hub Top Machine ------------------
!
csys,CSgim1
!
create_circle,r_top
!
create_vol-lines,-l1
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!---------------------- 3.8.2  Center Hub Bores ---------------------
!
csys,CSgim1
!
create_cs,0,'CSBdatm1',1,0,0,-l1,0,0,0
!
ang_array,4,0,270,180,90
!
radius,11,r2,r2,r3,r4,r4,r5,r5,r6,r6,rb,rb
depth,12,0,d1,d2,d2,d3,d3,d4,d4,d5,d5,d5+1.00,d5+1.00
!
profile_bore,3,CSBdatm1
!
lplot
!






csys,CSgim0
!
norm_cut_pln_ct,'y',0
!
vdele,all
!
init_entity_num
!
csys,CSgim1
!
asel,u,loc,y,0
!
adele,all,,,1
init_entity_num
!
view,'f'
aplot


et,3,plane82,,,1,
!
msh_area,0,0,3,0.03,0.03
!msh_area,0,0,3,0.07,0.07       ! ansys ED
!


csys,CSgim0
!
lsel,s,loc,z,-l1
!
nsll,s,1
!
d,all,all
!
init_entity_num
!


!*go,:skip

csys,CSBdatm1
!
lsel,s,loc,z,-d3
lsel,r,loc,x,0,r3
sfl,all,pres,10
!
lsel,s,loc,z,-d5
lsel,r,loc,x,0,r6
sfl,all,pres,10
!
init_entity_num
!


/title,CRES 410 Hub Cross-Section / Dx03 = %Dx03%


aplot
!
/solu
eqslv,iter,5,3
solve
aplot

FINISH
/POST1
/EFACE,1
AVPRIN,0,0,
!
PLNSOL,U,Y,0,1
!
create_image


:skip