!   gimb_c_sol.mac
!
!gimbal_cres_cast
/prep7
!
csys,CSgim0
norm_cut_pln_ct,'x',0
vsel,s,loc,x,0,10
vdele,all,,,1
init_entity_num
lplot
!
gimbal_cres_mach.parm
!
!-------------------- 2.1.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
!
!----------------------- 2.1.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,CSgim1
asel,s,loc,z,-l1
aadd,all
init_entity_num
!
!
csys,CSrotax0
!
cir_bore,,d9,l17,0
!
csys,CSrotax0
!
norm_cut_pln_ct,'x',0
!
lplot
!
!
vsel,s,loc,x,0,10
vdele,all,,,1
!
init_entity_num
!
lplot
!
et,3,solid72
msh_standrd,4,,,,,3,0.1,0.1
!
asel,s,area,,am-22
!asel,s,area,,am-907
!asel,a,area,,am-36
!asel,a,area,,am-15
!asel,a,area,,am-8
!
sfa,all,,pres,-10
!
csys,CSgim1
nsel,s,loc,z,-l1
nsel,r,loc,x,0,dhubo/2
!
d,all,all
!
init_entity_num
!
lplot
!
csys,CSgim0
nsel,s,loc,x,0
d,all,ux
init_entity_num
!
lplot
!
/solu
eqslv,iter,5,3
solve
!
FINISH
/POST1
/EFACE,1
AVPRIN,0,0,
!
rsys,CSgim0
PLNSOL,U,Z,0,1
create_image
save,gimbal_c,db