!   TITLE:  var_exhaust.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   08/06/2002      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the variable exhaust nozzle mechnaism for the
!   common missile project.
!
!   CSvem0:     Cartesian Variable Exhaust Mechanism Coordinate System
!   CSvem1:     Cylindrical Variable Exhaust Mechanism Coordinate System
!   CSvem2:     Spherical Variable Exhaust Mechanism Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
var_exhaust.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!----------------------------- 3.1  Nozzle ----------------------------
!
csys,CSvem0
!
x_max=sqrt(l_noz/A)
x_inc=x_max/n_pts
x=0
!
*do,i,0,n_pts,1
    z=A*x**2
    !
    k,,x,0,z
    !
    x=x+x_inc
*enddo
!
ksel,s,kp,,km-n_pts,km
bsplin,all,,,,,,0,0
init_entity_num
!
ksel,s,kp,,km-n_pts,km
ksel,u,kp,,km
ksel,u,kp,,km-n_pts
!
kdele,all
!
init_entity_num
!
k,,0,0,-1
k,,0,0,l_noz
k,,1.1*x_max,0,l_noz
!
create_lines,,1
isolate_lines
profile_close
!
create_area-lines
!
w_cch=cch_rat*x_max
!
k,,w_cch/2,0,w_cch/2
k,,0,0,w_cch/2
k,,0,0,-w_cch/2
k,,w_cch/2,0,-w_cch/2
!
create_lines
!
ksel,s,kp,,km
ln_fillet,,R01
!
create_area-lines
!
aadd,all
revolve_aset,CSvem0,360,4
!









!finalize_model