!   TITLE:  gimb_therm_up_az_calib.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
!
!
!********************* Model Assembly Preparation **********************
!
!
mod_assemb_prep             ! prepare database for assembly
!
!
/title,AAAV Gimbal Upper Azimuth Bearing Thermal Analysis
!
!
/units,bin                  ! British/inch units
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
gimb_therm_up_az_bearing.parm       ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,0,0,0,0,0,0,0
!
!
!<<<<<<<<<<<<<<<<<<<< 3.  Material and Element Type >>>>>>>>>>>>>>>>>>>
!
!---------------------- Material Properties --------------------
!
UIMP,2,EX, , ,10.3E6,       ! Material:  Aluminum A356
UIMP,2,DENS, , ,.097/386.4,
UIMP,2,NUXY, , ,0.33,
!
!------------------------- Element Type ------------------------
!
ET,1,plane82
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!------------------------- 4.1  Center Section ----------------------
!
csys,CSgim0
!
create_circle,dhubo/2
!
create_area-lines
!
lplot
!
!------------------------- 4.2  Wing Sections -----------------------
!
csys,CSgim0
!
k,,-(pcnt_act/100)*(l11-l7),-(l6-(l9+l10)),0
k,,(pcnt_act/100)*(l5-(l11-l7)),-(l6-(l9+l10)),0
k,,(pcnt_act/100)*(l5-(l11-l7)),(l9+l10),0
k,,-(pcnt_act/100)*(l11-l7),(l9+l10),0
!
create_area
!
asba,am,am-1,,delete,keep
!
aglue,all
!
init_entity_num
!
create_circle,r2
!
create_area-lines
!
*if,pcnt_act,ge,106,then
    asba,am-3,am,,delete,delete
*else
    asba,am-5,am,,delete,delete
*endif
!
init_entity_num
!
k,,0,-2*r2,0
k,,0,2*r2,0
!
create_lines,,1
!
ara_part_line,lm
!
asel,s,loc,x,0,-10
!
adele,all,,,1
!
init_entity_num
cm,aset1,area
!
lplot
!
!---------------------- 4.3  Stress Relief Holes --------------------
!
csys,CSgim1
!
! HOLE_PATTERN, csnum, rpat, zpos, numh, anginc, stang, patang, dhole
!
! HOLE_PATTERN,CSgim1,rpat,0,,ainc,180-astart,(n-1)*ainc,2*r_cut
!
HOLE_PATTERN,CSgim1,rpat,0,,ainc,astart,2*abs(astart),2*r_cut
!
asel,s,area,,am-8,am,1
cm,aset2,area
!
init_entity_num
!
asba,aset1,aset2,,delete,keep
!
init_entity_num
!
k,,1.5*r2,-90
k,,1.5*r2,90
!
create_lines,,1
!
ara_part_line,lm
!
asel,s,loc,y,90,270
!
adele,all,,,1
!
init_entity_num
!
lplot



*go,:skip



!--------------------------- 4.4  FE Model --------------------------
!
csys,CSgim0
!
radial_asel,'s',CSgim1,r2,dhubo/2,-90,90
!
!
!            (1)     (2)     (3)   (4)    (5)    (6)    (7)  (8)   (9)
! MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, lszmsh, mat, real, ecs
!
!
msh_area,0,0,1,0.02,0.02,
!
radial_asel,'u',CSgim1,r2,dhubo/2,-90,90
!
!
msh_area,0,0,1,0.2,0.2,







:skip