!   TITLE:  gimbal_therm.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   04/19/2000  J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the gimbal for the AAAV assembly.  It is current
!   ANSYS 5.6.
!
!   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
!   4.  Solid Model
!       4.1  Center Hub Volume
!           4.1.1  Center Circular Volume
!           4.1.2  Center Square Volume
!               4.1.2.1  Remove Center Pocket
!       4.2  Left Side Volumes
!           4.2.1  Left Wing Volume
!               4.2.1.1  Left Wing Top Area
!               4.2.1.2  Top Area Extrude
!           4.2.2  Left Elevation Axis Journal
!               4.2.2.1  Bearing Cap
!               4.2.2.2  Journal Volume
!       4.3  Right Side Volumes
!           4.3.1  Right Wing Volume
!               4.3.1.1  Right Wing Planform
!           4.3.2  Right Elevation Axis Journal
!               4.3.2.1  Right Side Booleans
!                   4.3.2.1.1  Add Right Side Volumes
!                   4.3.2.1.2  Right Side Pocket
!       4.4  Left Side Support Web
!       4.5  Right Side Support Web
!       4.6  Counter-weight & Gyro Mount Volumes
!           4.6.1  Counter-weight Mount Hub
!           4.6.2  Gyro Mount Hub
!           4.6.3  Combine Counter-weight/Gyro Hub Volumes
!           4.6.4  Planar Web Connection Section
!           4.6.5  Mid-Section Web Contour
!           4.6.6  Mid-Section Vertical Cut
!           4.6.7  Web Plane Surface Cut
!       4.7  Rear Stop Volume Profiles
!           4.7.1  Right Stop Volume Profile
!
!
!************************** Model Assembly Preparation **********************
!
!
clear_start_new
!
mod_assemb_prep,1           ! prepare database for assembly
!
!
/title,AAAV Gimbal Construction
!
!
/units,bin                  ! British/inch units
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
gimbal_therm.parm           ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,0,1.00,2.00,3.00,0,-rtangle,0
!
!
!<<<<<<<<<<<<<<<<<<<< 3.  Material and Element Type >>>>>>>>>>>>>>>>>>>
!
! See end of .parm file
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------- 4.1  Center Hub Volume ---------------------
!
!
!------------------- 4.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
!
vrotat,am,,,,,,km-5,km,360,4
!
init_entity_num
!
vadd,all
!
init_entity_num
!
lplot
!
!-------------------- 4.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
!
!------------------- 4.1.2.1  Remove Center Pocket ------------------
!
asel,selv,area,,a1+1
!
pocket_cut,l27,,,'normal',,,l2-l28,
!
vadd,all
!
init_entity_num
!
lplot
!
!---------------------- 4.2  Left Side Volumes ----------------------
!
!
!--------------------- 4.2.1  Left Wing Volume ----------------------
!
!
!------------------- 4.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
!
k,,-l11,-(l19-l10),0
k,,-(l11-l20),-(l6-(l9+l10)),0
k,,0,-(l6-(l9+l10)),0
k,,0,-(l19-l10),0
!
create_area
!
a1=am-1
!
k,,-(l11-l7),(l9+l10),0
k,,-l11,(l9+l10),0
k,,-l11,((l9+l10)-(l7*tan(phi1*rconv))),0
!
create_area
!
voffst,am-1,1.2*(l8+l1)
voffst,am,-1.2*(l8+l1)
!
init_entity_num
!
vsel,selv,volu,,vm-1,vm,1
cm,vset1,volu
!
asbv,a1,vset1,,delete,delete
!
init_entity_num
!
lplot
!
!--------------------- 4.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
!
!------------------ 4.2.2  Left Elevation Axis Journal ----------------
!
!
!------------------------- 4.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,'CSelvax02',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,CSelvax02
!
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
!
!----------------------- 4.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,CSelvax02
!
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,'fred',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
!
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
!
!---------------------- 4.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
!
!---------------------- 4.3  Right Side Volumes ---------------------
!
!
!---------------------- 4.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
!
!------------------- 4.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
!
!---------------- 4.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
!
!------------------- 4.3.2.1  Right Side Booleans -------------------
!
!
!---------------- 4.3.2.1.1  Add Right Side Volumes -----------------
!
vadd,vm-1,vm
!
init_entity_num
!
aadd,am-22,am-1
!
init_entity_num
!
lplot
!
!------------------- 4.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
!
!-------------------- 4.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
!
!-------------------- 4.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
!
!------------- 4.6  Counter-weight & Gyro Mount Volumes -------------
!
!
!------------------ 4.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    ! 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      ! 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   ! 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
!
!----------------------- 4.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
!
!---------- 4.6.3  Combine Counter-weight/Gyro Hub Volumes ----------
!
vadd,vm-1,vm
!
init_entity_num
!
lplot
!
!--------------- 4.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
!
!------------------ 4.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
!
!------------------ 4.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
!
!-------------------- 4.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
!
!------------------- 4.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
!
!------------------ 4.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
!
lplot
!
!------------------ 4.7  Rear Stop Volume Profiles ------------------
!
!
!----------------- 4.7.1  Right Stop Volume Profile -----------------
!
!csys,CSgim0
!
!create_cs,0,'',0,l15-l11,l10,-(l36+l1),0,90,180
!
!---------------- 4.7  Miscellaneous Model Clean-Up -----------------
!
vadd,all
!
init_entity_num
!
aadd,am-43,am-24,am-9,am-3
aadd,am-44,am-23,am-10,am-4
!
aadd,am-17,am-14,am-185
aadd,am-18,am-13,am-183
!
aadd,am-45,am-40
aadd,am-46,am-39
!
aadd,am-50,am-37
aadd,am-49,am-38
aadd,am-111,am
!
init_entity_num
!
lplot
!
!------------------- 4.7  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
!
!------------------ 4.7  Center Hub Bearing Bores -------------------
!
csys,CSgim1
!
create_cs,0,'CSXdatm1',1,0,0,-(l1+l75),0,0,0
!
ang_array,4,0,270,180,90
radius,9,r2,r2,r3,r4,r4,r5,r5,r6,r6
depth,10,0,d1,d2,d2,d3,d3,d4,d4,d5+0.5,d5+0.5
profile_bore,3,CSXdatm1
!
lplot
!
!------------------ 4.7  Center Hub Bottom Machine ------------------
!
csys,CSXdatm1
!
*do,i,0,270,90
    k,,r7,i,-d5
*enddo
!
create_volume,1,-1.00
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
lplot
!
!--------------------- 4.7  Center Hub Flat Cuts --------------------
!
csys,CSgim0         ! 1st flat profile cut
!
create_cs,0,'prof1cs',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,'prof2cs',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,'prof3cs',1,r,90-phi10,0,-(90-phi10),0,0
!
k,,r_top,90-phi11,0
!
create_cs,0,'prof4cs',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
!
lplot
!
!------------------- 4.7  Center Hub Profile Cut --------------------
!
csys,CSgim0
!
norm_cut_pln_ct,'x',0
!
k,,0,0,0
k,,0,0,-1
!
init_entity_num
!
asel,s,loc,x,0
asel,r,loc,y,-10,0
!
!revolve_aset,km-1,km,180,2
!
!vsel,s,volu,,vm-1,vm,1
!cm,vset1,volu
!
!vsel,s,loc,x,-10,0
!vsel,u,volu,,vset1
!get_max_entity
!v1=vm
!vsel,a,volu,,vset1
!
!vsbv,v1,vset1,,delete,keep
!
!init_entity_num
!
vsel,s,loc,x,0,10
vdele,all,,,1
!
init_entity_num
!
lplot
!
!------------------------- 3.3  Screw Holes -------------------------
!
csys,CSgim0
!
create_cs,0,'hpcs',1,0,0,0,180,0,0
hole_pattern,hpcs,rscrwpat,-(l1+l75),,ainc,astart,2*abs(astart),2*rscrwh
!
cm,vset1,volu
!
isolate_areas
cm,aset1,area
!
extrude_aset,-0.5
!
cmsel,s,aset1
vsla,s
cm,vset2,volu
!
init_entity_num
!
vsbv,vset1,vset2,,delete,keep
!
!-------- Addition by DEE (moved here from below) -----
!
init_entity_num
!
csys,CSgim0
!
norm_cut_pln_ct,'x',0
!
vsel,s,loc,x,0,10
vdele,all,,,1
!
!----------------End Addition----------------------------
!
init_entity_num
!
lplot
!
!---------------------- 3.5  Stress Relief Cuts ---------------------
!

*go,:relief

csys,hpcs
!
!HOLE_PATTERN, csnum, rpat, zpos, numh, anginc, stang, patang, dhole
hole_pattern,hpcs,r_pat,-(l1+l75),2,,270+theta,ainc-2*theta,2*r_cut
!hole_pattern,CSgim1,r_pat,0,2,,270+22.5+phi,ainc-2*phi,2*r_cut
!
cm,vset1,volu
!
isolate_areas
cm,aset1,area
!
extrude_aset,-0.580
!
cmsel,s,aset1
vsla,s
!
cir_vol_pattern,8,,180-ainc
!cir_vol_pattern,6,,135-ainc
!
cmsel,u,vset1
cm,vset2,volu
!
init_entity_num
!
vsbv,vset1,vset2,,delete,delete
!
init_entity_num
!
lplot
!

:relief

!
! Split model up for meshing
!
csys,CSgim0
norm_cut_pln_ct,'x',-(rscrwpat+.25)

!------------------------ 4.7  Center Hub Mesh ------------------------
!

*go,:jr

csys,CSgim1
!
asel,s,loc,y,90
asel,r,area,,am-18
!
!                     (1)     (2)     (3)      (4)     (5)   (6)    (7)
!   ROTATE_VOLM_MSH, aCS0,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!                    elmxl, mtrl,  rl,  ecs,  radrot, varcang, ell
!                     (8)   (9)   (10)  (11)   (12)    (13)    (14)
!
!
rotate_volm_msh,CSgim1,0,0,,2,1,0.07,0.07,,,,,,
!
et,3,solid72
msh_standrd,4,,,,,3,0.1,0.1

:jr

save,gimbal_therm_model,db

!*go,:skip

!----- DEE Temp Mesh ------------------
!
! MSH_STANDRD,
!(1)     (2)     (3)      (4)      (5)   (6)   (7)    (8)   (9)    (10)   (11)
!perfmsh, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, elmxl, mat,real, perflsz

!                  (1)      (2)     (3)     (4)      (5)       (6)     (7)   (8)
! MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa, etpv,
!
!                elmnl, elmxl, mtrl,  rl,  ecs, volsel, radrot, varcang, ell
!                 (9)    (10)  (11)  (12)  (13)  (14)    (15)    (16)    (17)

! Size center section volume lines
vsel,s,volu,,vm
aslv,s
lsla,s
msh_algorithm,1,0, , , , , , ,.150,.150

! Map mesh the bearing contact area
csys,CSgim1
asel,s,loc,x,r2
asel,r,loc,z,0,-1.034
lsla
!            (1)     (2)     (3)   (4)    (5)    (6)    (7)  (8)   (9)
! MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, lszmsh, mat, real, ecs
msh_area,1,,2, .07,.07,,alum
!msh_algorithm,1,0, , , , , , ,.07,.07

! Mesh center section
vsel,s,volu,,vm
aslv,s
lsla,s
!vatt,alum,,3
!mshkey,0
!vmesh,all
!perfmsh, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, elmxl, mat,real, perflsz
msh_standrd,5,0,0, , ,3,.15,.15,alum
aclear,all

! Mesh the outer volume
vsel,s,volu,,vm-1
aslv,s
lsla,s
msh_standrd,4,0,0, , ,3,.25,.25,alum

! Mesh the steel screws
csys,CSgim1
vsel,s,loc,x,rscrwpat
vatt,c416,,3
mshkey,0
vmesh,all

finalize_model

save,gimbal_therm_mesh,db

:skip