!   TITLE:  gimbal_al_slv.mac (AAAV)
!
!---------------------------------------------------------------------------
!   Rev -       10/07/2002      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the ALUMINUM azimuth axis gimbal for the AAAV, sleeved
!   version.
!
!   CSgim0: Cartesian Gimbal Coordinate System
!   CSgim1: Cylindrical Gimbal Coordinate System
!   CSgim2: Spherical Gimbal Coordinate System
!
!
!******************************* TABLE OF CONTENTS *************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Material and Element Type
!   3.  Solid Model - Casting
!       3.1  Center Hub Volume
!           3.1.1  Center Circular Volume
!           3.1.2  Center Square Volume
!               3.1.2.1  Remove Center Pocket
!       3.2  Left Side Volumes
!           3.2.1  Left Wing Volume
!               3.2.1.1  Left Wing Top Area
!               3.2.1.2  Top Area Extrude
!           3.2.2  Left Elevation Axis Journal
!               3.2.2.1  Bearing Cap
!               3.2.2.2  Journal Volume
!       3.3  Right Side Volumes
!           3.3.1  Right Wing Volume
!               3.3.1.1  Right Wing Planform
!           3.3.2  Right Elevation Axis Journal
!               3.3.2.1  Right Side Booleans
!                   3.3.2.1.1  Add Right Side Volumes
!                   3.3.2.1.2  Right Side Pocket
!       3.4  Left Side Support Web
!       3.5  Right Side Support Web
!       3.6  Counter-weight & Gyro Mount Volumes
!           3.6.1  Counter-Weight Mount Hub
!           3.6.2  Gyro Mount Hub
!           3.6.3  Combine Counter-Weight/Gyro Hub Volumes
!           3.6.4  Planar Web Connection Section
!           3.6.5  Mid-Section Web Contour
!           3.6.6  Mid-Section Contour Cut
!           3.6.7  Mid-Section Web Cut
!           3.6.8  Web Plane Surface Cut
!           3.6.9  Mid-Section Vertical Cut
!           3.6.10  Miscellaneous Model Clean-Up
!       3.7  Rear Stop Volume Profiles
!           3.7.1  Right Stop Volume Profile
!           3.7.2  Left Stop Volume Profile
!       3.8  Center Hub Machine Process
!           3.8.1  Center Hub Top Machine
!           3.8.2  Center Hub Bores
!           3.8.3  Center Hub Flat Cuts
!       3.9  Left Journal Volume Removal
!       3.10  Journal Bores
!   4.  Solid Model - Machining
!       4.1 End cuts
!
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
gimbal_al_slv.parm
!
!<<<<<<<<<<<<<<<<<<<< 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,-(l4+l1)
k,,0,-dhubi/2,-(l4+l1)
k,,0,-dhubi/2,-(l3+l1)
k,,0,-dhubo/2,-(l2___+l1)
k,,0,-dhubo/2,0
!
k,,0,0,0
!
create_area
!
revolve_aset,km-5,km,360,4
!
init_entity_num
!
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.1.2  Center Square Volume -------------------
!
csys,CSgim0
!
k,,-(l11-l7),-(l6-(l9+l10)),-l1
k,,(l5-(l11-l7)),-(l6-(l9+l10)),-l1
k,,(l5-(l11-l7)),(l9+l10),-l1
k,,-(l11-l7),(l9+l10),-l1
!
create_volume,,-l2
!
a1=a_base
!
lplot
!
!------------------- 3.1.2.1  Remove Center Pocket ------------------
!
asel,selv,area,,a1+1
!
pocket_cut,l27,,,'normal',,,l2-l28,
!
vadd,all
!
init_entity_num
!
lplot
!
!---------------------- 3.2  Left Side Volumes ----------------------
!
!
!--------------------- 3.2.1  Left Wing Volume ----------------------
!
!
!------------------- 3.2.1.1  Left Wing Top Area --------------------
!
csys,CSgim0
!
k,,-(l11-l7),-(l6-(l9+l10)),-l1
k,,-(l11-l7),(l9+l10),-l1
k,,-l11,(l9+l10),-(l8+l1)
k,,-l11,-(l19-l10),-(l8+l1)
!
create_area
a1=am
!
k,,-l11,-(l19-l10),0
k,,-(l11-l20),-(l6-(l9+l10)),0
k,,0,-(l6-(l9+l10)),0
k,,0,-(l19-l10),0
!
create_volume,,1.2*(l8+l1)
!
k,,-(l11-l7),(l9+l10),0
k,,-l11,(l9+l10),0
k,,-l11,((l9+l10)-(l7*tan(phi1*rconv))),0
!
create_volume,,-1.2*(l8+l1)
!
vsel,s,volu,,vm-1,vm,1
cm,vset1,volu
!
asbv,a1,vset1,,delete,delete
!
init_entity_num
!
lplot
!
!--------------------- 3.2.1.2  Top Area Extrude --------------------
!
csys,CSgim0
!
k,,-l11,-(l19-l10),-(l8+l1+l2)
!
init_entity_num
!
lstr,km,kp(-l11,-(l19-l10),-(l8+l1))
!
init_entity_num
!
vdrag,am,,,,,,lm,
!
init_entity_num
!
nummrg,kp,.0001,.0001
!
init_entity_num
!
lplot
!
!------------------ 3.2.2  Left Elevation Axis Journal ----------------
!
!
!------------------------- 3.2.2.1  Bearing Cap -----------------------
!
csys,CSgim0
!
! cartesian elevation axis c.s.
create_cs,0,'CSelvax0',0,(l15-l11),-(l14-l10),-(l1+l12),0,90,90
!
! cylindrical elevation axis c.s.
create_cs,0,'CSelvax1',1,0,0,0,0,0,0
!
! 2nd cartesian elevation axis c.s. (with angle offset)
create_cs,0,'CSrotax0',0,0,0,0,angoffst,0,0
!
csys,CSelvax1
!
*do,i,rtangle+angoffst,2*rtangle+angoffst,rtangle
    k,,rcapi,i,-l15
*enddo
!
create_lines,1,1
!
*do,i,rtangle+angoffst,2*rtangle+angoffst,rtangle
    k,,rcapo,i,-l15
*enddo
!
create_lines,1,1
!
csys,CSrotax0
!
k,,-l18,l16,-l15
k,,-l18,0,-l15
!
create_lines,,1
!
lsbl,lm-1,lm,,delete,delete
!
init_entity_num
!
k,,-l18,l16,-l15
k,,0,l16,-l15
!
init_entity_num
!
lstr,km-1,km
lstr,km-1,km-2
lstr,km,km-8
lstr,km-5,km-7
!
init_entity_num
!
lfillt,lm-4,lm-2,rfilcap
!
ldele,lm-5,,,1
!
init_entity_num
!
a,km,km-1,km-7,km-9,km-10,km-2,km-3
!
init_entity_num
!
voffst,am,wbc
!
init_entity_num
!
vsymm,y,vm,,,,1,0
!
init_entity_num
!
lplot
!
!----------------------- 3.2.2.2  Journal Volume ----------------------
!
csys,CSgim0
!
! top/left wing area c.s.
create_cs,0,'CSLtop1',1,-(l11-l7),-(l6-(l9+l10)),-l1,0,0,-((atan(l8/l7))*dconv)
!
csys,CSgim0
!
! bottom/left wing area c.s.
create_cs,0,'CSLbot0',0,-(l11-l7),-(l6-(l9+l10)),-(l1+l2),0,0,-((atan(l8/l7))*dconv)
!
csys,CSelvax1
!
! cartesian left journal c.s.
create_cs,0,'CSg_trq0',0,0,0,-l15,0,0,180
!
! cylindrical left journal c.s.
create_cs,0,'CSg_trq1',1,0,0,0,0,0,0
!
csys,CSg_trq0
!
k,,-(l14-l21),(l12-l22+l26+l24),0
k,,-(l14-l21)-l25,(l12-l22+l26+l24),0
!
init_entity_num
!
lstr,km,km-1
!
csys,CSrotax0
!
k,,0,l16,-l15
k,,1.2*l16,l16,-l15
!
init_entity_num
!
lstr,km-1,km
!
csys,CSgim0
!
k,,kx(km),ky(km-3),kz(km)
!
init_entity_num
!
lstr,km-1,km
lstr,km,km-4
!
csys,CSg_trq0
!
k,,-(l14-l21)-l25,l12-l22+l26,0
k,,-(l14-l21),l12-l22+l26,0
k,,-(l14-l21),l12-l22,0
!
init_entity_num
!
lstr,km-2,km-6
lstr,km-2,km-1
lstr,km-1,km
!
init_entity_num
!
create_cs,0,,1,kx(km),ky(km),kz(km),0,0,0
!
k,,3,-(rtangle-phi3),0
!
init_entity_num
!
lstr,km,km-1
!
csys,CSg_trq1
!
k,,rcapi,2*rtangle+angoffst,0
k,,3,2*rtangle+angoffst,0
!
init_entity_num
!
lstr,km,km-1
!
init_entity_num
!
lsbl,lm-1,lm,,delete,delete
!
init_entity_num
!
ldele,lm,,,1
!
init_entity_num
!
k,,rcapi,2*rtangle+angoffst,0
!
init_entity_num
!
lstr,km,km-1
!
init_entity_num
!
lfillt,lm-7,lm-10,rfil
lfillt,lm-4,lm-5,rfil
!
init_entity_num
!
k,,rcapi,rtangle+angoffst,0
k,,rcapi,angoffst,0
!
init_entity_num
!
l,km-1,km-6
l,km-1,km
lstr,km,km-16
!
isolate_lines
!
al,all
!
init_entity_num
!
voffst,am,l17
!
init_entity_num
!
vsel,selv,volu,,vm-3,vm,1
!
vadd,all            ! combine wing and journal volumes
!
init_entity_num
!
csys,CSLtop1        ! cut volume excess off of top surface
!
*do,i,rtangle,3*rtangle,rtangle
    k,,1.5*l7,i,0
*enddo
!
init_entity_num
!
lstr,km,km-2
l,km-2,km-1
l,km-1,km
!
a,km-2,km-1,km
!
init_entity_num
!
vsba,vm,am,,delete,delete
!
init_entity_num
!
vsel,selv,loc,z,0,5.00
!
get_max_entity
!
vdele,all,,,1
!
init_entity_num
!
asel,selv,loc,z,0       ! add top/left wing surface areas
aadd,all
!
init_entity_num
!
csys,CSgim0
!
asel,selv,loc,x,-l11
aadd,all
!
init_entity_num
!
lplot
!
!---------------------- 3.2.3  Left Wing Pocket ---------------------
!
csys,CSLbot0
!
asel,selv,loc,z,0
lsla,selv
cm,lset1,line
!
lsel,s,line,,lset1
lsel,r,loc,x,0
get_max_entity
ln1=lm
*get,ln1_l,line,ln1,leng
!
lsel,s,line,,lset1
lsel,r,loc,y,0
get_max_entity
ln2=lm
*get,ln2_l,line,ln2,leng
!
lsel,s,line,,lset1
lsel,r,loc,x,-(ln2_l+0.1),-(ln2_l-0.1)
get_max_entity
ln3=lm
*get,ln3_l,line,ln3,leng
!
lsel,s,line,,lset1
lsel,r,loc,y,l6-1.00,l6
get_max_entity
ln4=lm
*get,ln4_l,line,ln4,leng
!
p1=kp(0,l6,0)
p2=kp(0,0,0)
!
ln_array,4,ln1,ln2,ln3,ln4
wall_dimn,4,0,l27,0,l27
u_spe_poc_cut,p1,p2,,'skew',0,-(atan(l8/l7))*dconv,,l2-l28,
!
vadd,all
!
init_entity_num
!
csys,CSgim0
!
asel,selv,loc,x,-(l11-l17)
!
min_enty_dim,'a'
asel,u,area,,min_anum
aadd,all
!
init_entity_num
!
lplot
!
!---------------------- 3.3  Right Side Volumes ---------------------
!
!
!---------------------- 3.3.1  Right Wing Volume --------------------
!
csys,CSgim0
!
k,,l5+l7-l11,l9+l10,-l1
k,,l5+l7-l11,l10+l9-l6,-l1
!
create_cs,0,'CSrtwng1',1,l5+l7-l11,l10+l9-l6,-l1,0,90,0
!
phirtwng=(atan(l30/(l15-(l5+l7))))*dconv
!
k,,l15-l11,-phirtwng,0
k,,l15-l11,-phirtwng,-l6
!
create_area
!
k,,l2,270,0
!
init_entity_num
!
lstr,km,km-3
!
init_entity_num
!
vdrag,am,,,,,,lm,
!
isolate_lines
!
ldele,all,,,1
!
init_entity_num
!
lplot
!
!------------------- 3.3.1.1  Right Wing Planform -------------------
!
csys,CSgim0
!
x1=(tan(phi5*rconv))*(l15-(l5+l7)-l40)
x2=(tan(phi4*rconv))*(l15-(l5+l7)-l40)
!
k,,l5+l7-l11,l9+l10,0
k,,l15-l11-l40,l9+l10-x1,0
k,,l15-l11,l9+l10-x1,0
k,,l15-l11,l9+l10-l6+x2,0
k,,l15-l11-l40,l9+l10-l6+x2,0
!
k,,l5+l7-l11,l10+l9-l6,0
k,,1.5*(l15-l11),l10+l9-l6,0
k,,1.5*(l15-l11),l10+l9,0
!
create_area
!
max_enty_dim,'l'
!
voffst,am,-1.5*max_leng
!
init_entity_num
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!---------------- 3.3.2  Right Elevation Axis Journal ---------------
!
csys,CSelvax1
!
phi=(asin(l41/(drtj/2)))*dconv
!
k,,drtj/2,90+phi,0
k,,drtj/2,180,0
k,,drtj/2,270,0
k,,drtj/2,270+phi7,0
!
create_lines,1,1
!
csys,CSelvax0
!
k,,l14-l31,l12-l30,0
k,,l14-l31,-(l36-l12),0
k,,l14-l31-l39,-(l36-l12),0
!
create_lines,,1
!
create_cs,0,,1,l14-l31-l39,-(l36-l12),0,0,0,0
!
k,,max_leng,180-phi6,0
!
init_entity_num
!
lstr,km-1,km
!
init_entity_num
!
csys,CSelvax1
!
create_cs,0,,0,drtj/2,270+phi7,0,90,0,0
!
k,,max_leng,0,0
!
init_entity_num
!
lstr,kp(0,0,0),km
!
init_entity_num
!
lsbl,lm,lm-1,,delete,delete
!
init_entity_num
!
lstr,km,km-3
!
init_entity_num
!
ldele,lm-1,,,1
!
init_entity_num
!
csys,CSelvax0
!
k,,-drtj/2,l12-l30,0
!
init_entity_num
!
lstr,km,km-6
!
init_entity_num
!
lsbl,lm-10,lm,,delete,delete
!
init_entity_num
!
lstr,km,km-7
!
init_entity_num
!
ldele,lm-2,,,1
!
create_vol-lines,-l40
!
lplot
!
!------------------- 3.3.2.1  Right Side Booleans -------------------
!
!
!---------------- 3.3.2.1.1  Add Right Side Volumes -----------------
!
vadd,vm-1,vm
!
init_entity_num
!
aadd,am-22,am-1
!
init_entity_num
!
lplot
!
!------------------- 3.3.2.1.2  Right Side Pocket -------------------
!
vsel,s,volu,,vm
aslv,s
get_max_entity
asel,r,area,,am-7
lsla,s
get_max_entity
!
p1=km-48
p2=km-49
!
ln1=lm-80
ln2=lm-47
ln3=lm-0
ln4=lm-44
!
ln_array,4,ln1,ln2,ln3,ln4
wall_dimn,4,0,l27,0,l27
!
u_spe_poc_cut,p1,p2,,'skew',0,-(atan(l30/(l15-l5-l7)))*dconv,,l2-l28,
!
aadd,am-2,am
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.4  Left Side Support Web --------------------
!
csys,CSgim0
!
create_cs,0,'CSLweb10',0,l52-l53,l10,-(l51+l1),0,90,90
!
k,,-l49,-(l50-l51),0
k,,0,-(l50-l51),0
k,,0,0,0
k,,-2*l49,0,0
!
create_lines,,1
!
create_cs,0,'CSLweb20',0,-l49,-(l50-l51),0,90-phi8,0
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8)*rconv),0
k,,0,l50/cos((90-phi8)*rconv),0
k,,0,0,0
!
create_lines,,1
!
lsbl,lm-2,lm-3,,delete,delete
!
init_entity_num
!
lstr,km-6,km
!
init_entity_num
!
lfillt,lm,lm-1,rfil2
!
init_entity_num
!
ldele,lm-3,,,1
!
nummrg,kp
!
create_vol-lines,-l54+l55
!
csys,CSgim0
!
vsel,s,volu,,vm
norm_cut_pln_ct,'z',-l1
!
csys,CSLtop1
!
vsel,s,volu,,vm
norm_cut_pln_cyl,0
!
vsel,s,volu,,vm-1
vsel,a,volu,,vm-3
vdele,all,,,1
!
init_entity_num
!
vadd,all
!
init_entity_num
!
asel,s,area,,am
asel,a,area,,am-13
aadd,all
!
asel,s,area,,am-8
asel,a,area,,am-14
aadd,all
!
init_entity_num
!
lplot
!
!-------------------- 3.5  Right Side Support Web -------------------
!
csys,CSgim0
!
create_cs,0,'CSRweb10',0,l52,l10,-(l56+l1),0,90,90
!
k,,-l49,-(l50-l56),0
k,,0,-(l50-l56),0
k,,0,0,0
k,,-2*l49,0,0
!
create_lines,,1
!
create_cs,0,'CSRweb20',0,-l49,-(l50-l56),0,90-phi8,0
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8)*rconv),0
k,,0,l50/cos((90-phi8)*rconv),0
k,,0,0,0
!
create_lines,,1
!
lsbl,lm-2,lm-3,,delete,delete
!
init_entity_num
!
lstr,km-6,km
!
init_entity_num
!
lfillt,lm,lm-1,rfil2
!
init_entity_num
!
ldele,lm-3,,,1
!
nummrg,kp
!
create_vol-lines,l15-l11-l52-l40
!
csys,CSgim0
!
vsel,s,volu,,vm
norm_cut_pln_ct,'z',-l1
!
csys,CSrtwng1
!
create_cs,0,'CSRwng0',0,0,0,0,-phirtwng,0,0     ! cartesian right wing c.s.
!
vsel,s,volu,,vm
norm_cut_pln_ct,'y',0
!
vdele,vm-3,vm-1,2,1
!
init_entity_num
!
vadd,all
!
init_entity_num
!
aadd,am-13,am
!
init_entity_num
!
aadd,am-15,am-9
!
init_entity_num
!
lplot
!
!------------- 3.6  Counter-weight & Gyro Mount Volumes -------------
!
!
!------------------ 3.6.1  Counter-Weight Mount Hub -----------------
!
csys,CSgim0
!
create_cs,0,'CSc_wt0',0,0,l10+l34,-(l1+l60),0,90,180
!
k,,0,0,0
k,,l57/2,0,0
k,,l57/2,l60-l58,0
k,,l59/2,l60-l58,0
k,,l59/2,l60,0
!
k,,0,l60,0
!
create_lines
!
lfillt,lm-5,lm-4,rfil1
lfillt,lm-4,lm-3,rfil3
lfillt,lm-3,lm-2,rfil4
!
init_entity_num
!
isolate_lines
!
al,all
!
init_entity_num
!
isolate_areas
!
arsym,x,all,,,,0,0
!
init_entity_num
!
isolate_areas
!
aadd,all
!
init_entity_num
!
!
csys,CSc_wt0
!
create_cs,0,,1,l61,l60-l62,0,0,0,0      ! counter-weight right mount
!
*do,i,0,270,90
    k,,rmnt,i,0
*enddo
!
create_area,1
!
!
csys,CSc_wt0
!
create_cs,0,,1,0,l60-l63,0,0,0,0        ! counter-weight center mount
!
*do,i,0,270,90
    k,,rmnt,i,0
*enddo
!
create_area,1
!
!
csys,CSc_wt0
!
create_cs,0,,1,-l61,l60-l62,0,0,0,0     ! counter-weight left mount
!
*do,i,0,270,90
    k,,rmnt,i,0
*enddo
!
create_area,1
!
!
asel,s,area,,am-2,am,1
cm,aset1,area
!
init_entity_num
!
asba,am-3,aset1,,delete,keep
!
init_entity_num
!
lplot
!
asel,s,area,,am-3,am-1,1
cm,amnt,area
!
init_entity_num
!
isolate_areas
!
extrude_aset,-dhubo
!
asel,s,area,,amnt
!
extrude_aset,l64-l34
!
vsel,s,volu,,vm-6,vm,1
!
vadd,all
!
init_entity_num
!
lplot
!
!----------------------- 3.6.2  Gyro Mount Hub ----------------------
!
csys,CSgim0
!
create_cs,0,'CSgyro1',1,l52,l10-l65,-(l66+l1),0,90,90
!
k,,r1,270,0
k,,r1,0,0
k,,r1,90,0
!
create_lines,1,1
!
create_cs,0,'CSgyro0',0,0,0,0,0,0,0
!
k,,0,r1,0
k,,-dhubo,r1,0
k,,-dhubo,-r1,0
k,,0,-r1,0
!
create_lines,,1
!
nummrg,kp
!
init_entity_num
!
isolate_lines
al,all
!
init_entity_num
!
isolate_areas
!
extrude_aset,-l53
!
lplot
!
!---------- 3.6.3  Combine Counter-Weight/Gyro Hub Volumes ----------
!
vadd,vm-1,vm
!
init_entity_num
!
lplot
!
!--------------- 3.6.4  Planar Web Connection Section ---------------
!
csys,CSRweb10
!
k,,0,-(l50-l56),0
k,,0,-(l50-l56),-l53
k,,-dhubo,-(l50-l56),-l53
k,,-dhubo,-(l50-l56),0
!
create_volume,,l50-l62
!
vadd,vm-1,vm
!
init_entity_num
!
aadd,am-5,am-3,am-2
aadd,am-6,am-4,am-1
!
init_entity_num
!
lplot
!
!------------------ 3.6.5  Mid-Section Web Contour ------------------
!
csys,CSRweb10
!
k,,-dhubo,-(l50-l56)+l70,0
k,,0,-(l50-l56)+l70,0
k,,0,-(l50-l56)+l70+w_web,0
k,,-dhubo,-(l50-l56)+l70+w_web,0
!
create_lines,,1
!
create_cs,0,'CSCweb0',0,-l49,-(l50-l56),0,90-phi8,0
!
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8)*rconv),0
k,,0,l50/cos((90-phi8)*rconv),0
k,,0,0,0
!
create_lines,,1
!
lovlap,lm-5,lm
lovlap,lm-3,lm-2
!
init_entity_num
!
ldele,lm-3,lm-1,1,1
ldele,lm-6,,,1
!
init_entity_num
!
lfillt,lm-5,lm-4,rfil5
lfillt,lm-7,lm,rfil5
!
init_entity_num
!
isolate_lines
!
al,all
!
init_entity_num
!
voffst,am,-l53
!
init_entity_num
!
csys,CSgim0
!
vsel,s,volu,,vm
norm_cut_pln_ct,'z',-(l1+0.1*l28)
!
vdele,vm-1,,,1
!
init_entity_num
!
vadd,vm,vm-15
!
init_entity_num
!
lplot
!
!------------------ 3.6.6  Mid-Section Contour Cut ------------------
!
csys,CSc_wt0
!
create_cs,0,,0,0,0,0,0,0,0
!
k,,0,0,0
k,,l69/2,0,0
k,,l52,-(l68-l60),0
k,,l52,-(l50-l60),0
k,,0,-(l50-l60),0
!
create_area
!
arsym,x,am,,,,0,0
!
init_entity_num
!
aadd,am-1,am
!
init_entity_num
!
voffst,am,2*dhubo
!
init_entity_num
!
vsbv,vm-5,vm,,delete,delete
!
init_entity_num
!
lplot
!
!-------------------- 3.6.7  Mid-Section Web Cut --------------------
!
csys,CSRweb10
!
k,,-dhubo,-(l50-l56)+l70,0
k,,dhubo,-(l50-l56)+l70,0
!
create_lines,,1
!
csys,CSCweb0
!
k,,0,2*l50/cos((90-phi8)*rconv),0
k,,0,0,0
!
create_lines,,1
!
lovlap,lm-1,lm
!
init_entity_num
!
lfillt,lm-1,lm-2,rfil5
!
ldele,lm-3,,,1
ldele,lm,,,1
!
init_entity_num
!
isolate_lines
cm,lset1,line
!
init_entity_num
!
csys,CSRweb10
!
k,,dhubo,-(l50-l56)+l70,0
k,,dhubo,-(l50-l56)+l70,-dhubo
!
create_lines,,1
!
adrag,lset1,,,,,,lm,
!
init_entity_num
!
isolate_areas
cm,aset1,area
!
init_entity_num
!
vsba,vm,aset1,,delete,delete
!
init_entity_num
!
ldele,lm-69,,,1
!
init_entity_num
!
lplot
!
!------------------- 3.6.8  Web Plane Surface Cut -------------------
!
csys,CSRweb20
!
vsel,s,volu,,vm-1
norm_cut_pln_ct,'x',0
!
vdele,vm,,,1
!
init_entity_num
!
lplot
!
!------------------ 3.6.9  Mid-Section Vertical Cut ------------------
!
csys,CSc_wt0
!
k,,l71/2,-(l50-l60),-l72
k,,l71/2,-(l50-l60),-dhubo
k,,-l71/2,-(l50-l60),-dhubo
k,,-l71/2,-(l50-l60),-l72
!
create_volume,,2*dhubo
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
vadd,all
!
init_entity_num
!
lplot
!
!------------------ 3.7  Rear Stop Volume Profiles ------------------
!
!
!----------------- 3.7.1  Right Stop Volume Profile -----------------
!
csys,CSgim0
!
create_cs,0,,0,l15-l11,l10,-(l36+l1),0,90,180
!
k,,0,l37,0
k,,l79,l37,0
k,,l79,0,0
k,,(l15-l11)-l80,0,0
k,,(l15-l11)-l80,l37+l74,0
!
k,,0,l37+l74,0
!
create_volume,,-l81
!
k,,0,0,0
k,,0,-1,0
k,,(l15-l11)-l80,-1,0
k,,(l15-l11)-l80,0,0
!
create_volume,,-2*l49
!
vsel,s,volu,,vm-1,vm,1
cm,vset1,volu
!
init_entity_num
!
vsbv,vm-2,vset1,,delete,delete
!
init_entity_num
!
k,,0,0,0
k,,0,0,-l31
k,,0,l50-l56,-l31
k,,0,l50-l56,0
!
create_volume,,(l15-l11)-l80
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!------------------ 3.7.2  Left Stop Volume Profile -----------------
!
csys,CSgim0
!
create_cs,0,,0,-l11,l10-l21,-(l1+l22),0,90,-90
create_cs,0,,0,0,0,0,-(90-phi3),0,0
!
k,,-3,0,0
k,,-3,0,-l82
k,,-3,-1,-l82
k,,-3,-1,0
!
create_volume,,-6.00
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
!
csys,CSgim0
!
create_cs,0,,0,-(l11-l82),l10,-(l1+l51),180,90,0
!
k,,0,0,0
k,,0,-2*(l50-l51),0
k,,l82-l55,-2*(l50-l51),0
k,,l82-l55,0,0
!
create_volume,,-l21
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!------------------ 3.8  Center Hub Machine Process -----------------
!
!
!------------------- 3.8.1  Center Hub Top Machine ------------------
!
csys,CSgim1
!
*do,i,0,270,90
    k,,r_top,i,0
*enddo
!
create_volume,1,-(l1+l75)
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!---------------------- 3.8.2  Center Hub Bores ---------------------
!
csys,CSgim1
!
create_cs,0,'CSXdatm1',1,0,0,-(l1+l75),0,0,0
create_cs,0,'CSXdatm0',0,0,0,0,0,0,0
!
vset1=vm
!
k,,0,0,-Dgbz03
k,,0,0,0
k,,Dgb01/2,0,0
k,,Dgb01/2,0,-Dgbz01
k,,Dgb02/2,0,-Dgbz01
!
k,,Dgb03/2,0,-Dgbz02
k,,Dgb04/2,0,-Dgbz02
k,,Dgb04/2,0,-Dgbz03
!
create_lines
!
chamfer_area,1,lm-2,lm-1,Dcgb01
!
ln_fillet,km-6,Rgb01
ln_fillet,km-6,Rgb02
!
create_area-lines
!
isolate_areas
revolve_aset,CSXdatm0,360,4
!
vadd,vm-3,vm-2,vm-1,vm
init_entity_num
!
vsbv,vset1,vm,,delete,delete
init_entity_num
!
lplot
!
!-------------------- 3.8.3  Center Hub Flat Cuts -------------------
!
csys,CSgim0         ! 1st flat profile cut
!
create_cs,0,,1,-r7,-l76,-(l1+d5),0,90,-90
!
k,,r_top/2,90-phi9,0
k,,-r_top/2,90-phi9,0
k,,r_top/2,270,0
k,,(r_top/2)/(sin(30*rconv)),330,0
!
create_volume,,-2*r7
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
csys,CSgim0         ! 2nd flat profile cut
!
x=(l77-l76)*tan((90-phi9)*rconv)
create_cs,0,,1,-r_top,-l77,-l1-d5+x,0,90,-90
!
r=(l78-l77)/cos((90-phi10)*rconv)
k,,-r,90-phi10,0
k,,r,90-phi10,0
!
create_cs,0,,1,r,90-phi10,0,-(90-phi10),0,0
!
k,,r_top,90-phi11,0
!
create_cs,0,,0,0,0,0,0,0,0
!
k,,2*r_top,0,0
k,,2*r_top,-r_top,0
!
create_volume,,2*r_top
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
cm,vset1,volu
!
lplot
!
!-------------------------- 5.0  Analysis Prep --------------------------
!
x1=2.60                     ! cut volumes to accomodate analysis
x2=3.45
x3=0.300
x4=0.600
z1=2.300
!
csys,CSgim0
!
norm_cut_pln_ct,'x',-x1
norm_cut_pln_ct,'x',-x2
norm_cut_pln_ct,'x',x1
norm_cut_pln_ct,'x',x2
!
vsel,s,loc,x,-10*x2,-x2
vsel,a,loc,x,x2,10*x2
!
vdele,all,,,1
!
init_entity_num
!
lplot
!
!
csys,CSgim0
!
k,,x3,0,0
k,,x3,-1.1*dhubo/2,0
k,,x3,-1.1*dhubo/2,-1.1*(l4+l1)
k,,x3,0,-1.1*(l4+l1)
!
create_area
!
k,,-x3,0,0
k,,-x3,-1.1*dhubo/2,0
k,,-x3,-1.1*dhubo/2,-1.1*(l4+l1)
k,,-x3,0,-1.1*(l4+l1)
!
create_area
!
k,,0,0,0
k,,0,-1.1*dhubo/2,0
k,,0,-1.1*dhubo/2,-1.1*(l4+l1)
k,,0,0,-1.1*(l4+l1)
!
create_area
!
isolate_areas
cm,CA01,area
!
init_entity_num
!
vsba,vm-1,CA01,,delete,delete
!
init_entity_num
!
lplot
!
!
csys,CSgim0
!
k,,x4,0,-z1
k,,-x4,0,-z1
k,,-x4,0,-2*z1
k,,x4,0,-2*z1
!
create_lines
!
ksel,s,kp,,km-3,km,1
ln_fillet,,0.150
!
cm,vset1,volu
create_vol-lines,5
!
vsbv,vset1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!
*go,:skip1  !*************************************
csys,CSXdatm1
!
A02=(asin(x3/r3)*dconv)+5
!
k,,r2,-90+A02,0
k,,r2,-90+A02,-d1
!
k,,r2,-90-A02,0
k,,r2,-90-A02,-d1
!
ln_series
!
asbl,am-53,lm-1,,delete,delete
asbl,am-46,lm,,delete,delete
!
init_entity_num
!
lplot
:skip1  !****************************************
!
!
!
csys,CSgim0
!
asel,selv,loc,x,x2
msh_algorithm,1,3,0,0,3,,1,2,0.25,0.25,,,,,,,
!
asel,selv,loc,x,-x2
msh_algorithm,1,3,0,0,3,,1,2,0.25,0.25,,,,,,,
!
asel,selv,loc,x,0
asel,r,loc,y,-10,0
!
msh_algorithm,1,3,0,0,10,,5,3,0.040,0.040,,,,vm-1,,,
!
asel,selv,loc,x,0
asel,r,loc,y,-10,0
!
msh_algorithm,1,2,0,0,10,,5,3,0.040,0.040,,,,vm-2,,,
!
asel,s,area,,am-53
asel,a,area,,am-46
asel,a,area,,am-272
asel,a,area,,am-283
!
asel,a,area,,am-2
asel,a,area,,am-233
asel,a,area,,am-3
asel,a,area,,am-232
!
msh_area,,,1,0.090,0.090
!
vsel,s,volu,,vm
msh_algorithm,-1,5,0,0,,,,3,0.300,0.300,,,,vm,,,
!
aclear,all
init_entity_num
!
eplot
!
finalize_model