!   TITLE:  adapter_ring.mac
!
!---------------------------------------------------------------------------
!       Rev -   10/20/2000  D. Edwards
!---------------------------------------------------------------------------
!
!   AAAV Elevatation axis Adapter Ring, P/N SK305A010
!
!   CSar0:  Cartesian Adapter Ring Coordinate System
!   CSar1:  Cylindrical Adapter Ring Coordinate System
!   CSar2:  Spherical Adapter Ring Coordinate System
!
!
!******************************* TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Material and Element Type
!   4.  Solid Model
!
!
!************************** Model Assembly Preparation **********************
!
!
mod_assemb_prep
!
!
/title,Adapter Ring
!
!
/units,bin
!
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
adapter_ring.parm                   ! name of parameter file
!
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
!
mod_coord_system,CSmirsp0,0,0,boredpth
!
!
!<<<<<<<<<<<<<<<<<<<< 3.  Material and Element Type >>>>>>>>>>>>>>>>>>>
!
!---------------------- Material Properties --------------------
!
mp,EX,1,9.9E6,      ! Material:  6061 Al
mp,DENS,1,.098/386.4
mp,NUXY,1,0.33
!
!---------------------------------------------------------------
!
!
!------------------------- Element Type ------------------------
!
ET,1,solid95
ET,2,shell93
!
!---------------------------------------------------------------
!
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 4.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

csys,CSar0


! Define keypoints starting from bottom corner of inner hole
! and working around CCW.

k,,0,d3/2,-l3
k,,0,d2/2,-l3
k,,0,d2/2,0
k,,0,d4/2,0
k,,0,d4/2,l2
k,,0,d1/2,l2
k,,0,d1/2,-l1
k,,0,d3/2,-l1

create_area

k,,0,0,0
k,,0,0,1
/psymb,cs,1
init_entity_num
revolve_aset,km-1,km,360,4

finalize_model