!   var_exhaust2.mac
!
mod_assemb_prep
!
/title,Common Missile Thrust Control Actuation Concept
!
Avf=0                   ! vertical flap angle
Ahf=0                   ! horizontal flap angle
!
D01=3.250               !  1.  Create Nozzle Tube
D02=3.350
L01=7.941
!
Dy01=1.910              !  2.  Create Nozzle Tube Shaft Holes
Dz01=0.600
D03=0.200
!
Dy02=0.0850             !  3. / 4.  Create Vertical Flap / Create Horizontal Flap
Dx01=0.0736
Dx02=0.0849
Dx03=1.100
Dy03=0.0212
!
R01=0.0400
L02=3.592
D04=0.170
!
D05=0.400               !  5.  Create Push-Rod Arms
L03=0.250
L04=0.6385
L05=0.5135
L06=0.080
!
R02=0.100
D06=0.150
!
L07=0.050               !  6.  Create Push-Rod Pins
!
L08=5                   !  7.  Create Push-Rods
!
!
!------------------------------------------------------------------------------
csys,0
create_cs,0,'CSexn00',0,10,10,10,0,0,0
!
!---------------------------- 1.  Create Nozzle Tube --------------------------
!
csys,CSexn00
!
create_circle,D01/2
create_area-lines
!
create_circle,D02/2
create_area-lines
!
asba,am,am-1,,delete,delete
!
create_vol-area,L01
!
aplot
!
!---------------------- 2.  Create Nozzle Tube Shaft Holes --------------------
!
csys,CSexn00                ! vertical hole
!
create_cs,0,'CSshv0',0,0,Dy01,Dz01,90,0,90
!
create_circle,D03/2
create_vol-lines,-1.5*D02
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
aplot
!
!
csys,CSexn00                ! horizontal hole
!
create_cs,0,'CSshh0',0,Dy01,0,Dz01+1.25*D03,0,0,90
!
create_circle,D03/2
create_vol-lines,-1.5*D02
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
aplot
!
!-------------------------- 3.  Create Vertical Flap --------------------------
!
csys,CSexn00
!
create_cs,0,,0,0,Dy01,Dz01,90,0,90
create_cs,0,'CSvf0',0,0,0,0,Avf,0,0
!
k,,Dx01,Dy02/2,0
k,,-Dx02,Dy02/2,0
k,,-Dx02,-Dy02/2,0
k,,Dx01,-Dy02/2,0
!
create_lines
!
ksel,s,kp,,km-2,km-1,1
ln_fillet,,R01
!
create_area-lines
!
k,,Dx01,Dy02/2,0
k,,Dx01,-Dy02/2,0
k,,Dx03,-Dy03/2,0
k,,Dx03,Dy03/2,0
!
create_area
!
aadd,am-1,am
!
create_vol-area,-L02
!
k,,D04/2,1,1
k,,D04/2,1,-0.3055
k,,Dx03,1,-0.3943
!k,,Dx03,1,-1.7393
!k,,D04/2,1,-1.8281
!
!k,,D04/2,1,-1.9929
!k,,Dx03,1,-2.0818
k,,Dx03,1,-3.4267
k,,D04/2,1,-3.5155
k,,D04/2,1,-3.700
!
k,,2*Dx03,1,-3.700
k,,2*Dx03,1,1
!
create_volume,,2.00
!
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
create_circle,D03/2,0.010
create_vol-lines,-0.2955
!
vadd,vm-1,vm
init_entity_num
!
!
create_circle,D03/2,-3.5355
create_vol-lines,-0.060
!
vadd,vm-1,vm
init_entity_num
!
aplot
!
!-------------------------- 4.  Create Horizontal Flap --------------------------
!
csys,CSexn00
!
create_cs,0,,0,Dy01,0,Dz01+1.25*D03,0,0,90
create_cs,0,'CShf0',0,0,0,0,Ahf,0,0
!
k,,Dx01,Dy02/2,0
k,,-Dx02,Dy02/2,0
k,,-Dx02,-Dy02/2,0
k,,Dx01,-Dy02/2,0
!
create_lines
!
ksel,s,kp,,km-2,km-1,1
ln_fillet,,R01
!
create_area-lines
!
k,,Dx01,Dy02/2,0
k,,Dx01,-Dy02/2,0
k,,Dx03,-Dy03/2,0
k,,Dx03,Dy03/2,0
!
create_area
!
aadd,am-1,am
!
create_vol-area,-L02
!
k,,D04/2,1,1
k,,D04/2,1,-0.3055
k,,Dx03,1,-0.3943
k,,Dx03,1,-1.7393
k,,D04/2,1,-1.8281
!
k,,D04/2,1,-1.9929
k,,Dx03,1,-2.0818
k,,Dx03,1,-3.4267
k,,D04/2,1,-3.5155
k,,D04/2,1,-3.700
!
k,,2*Dx03,1,-3.700
k,,2*Dx03,1,1
!
create_volume,,2.00
!
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
create_circle,D03/2,0.010
create_vol-lines,-0.2955
!
vadd,vm-1,vm
init_entity_num
!
!
create_circle,D03/2,-3.5355
create_vol-lines,-0.060
!
vadd,vm-1,vm
init_entity_num
!
aplot
!
!------------------------ 5.  Create Push-Rod Arms ------------------------
!
csys,CSvf0                      ! vertical flap arm
!
create_circle,D03/2
create_area-lines
!
create_circle,D05/2
create_area-lines
!
asba,am,am-1,,delete,delete
!
init_entity_num
!
k,,L03/2,1.01*D03/2,0
k,,L03/2,L04,0
k,,-L03/2,L04,0
k,,-L03/2,1.01*D03/2,0
!
create_lines
!
ksel,s,kp,,km-2,km-1,1
ln_fillet,,R02
!
create_area-lines
!
aadd,am-1,am
init_entity_num
!
create_cs,0,'CSpinv0',0,0,L05,0,0,0,0
create_circle,D06/2
create_area-lines
!
asba,am-1,am,,delete,delete
!
create_vol-area,-L06
!
aplot
!
!
!
csys,CShf0                      ! horizontal flap arm
!
create_circle,D03/2
create_area-lines
!
create_circle,D05/2
create_area-lines
!
asba,am,am-1,,delete,delete
!
init_entity_num
!
k,,L03/2,1.01*D03/2,0
k,,L03/2,L04,0
k,,-L03/2,L04,0
k,,-L03/2,1.01*D03/2,0
!
create_lines
!
ksel,s,kp,,km-2,km-1,1
ln_fillet,,R02
!
create_area-lines
!
aadd,am-1,am
init_entity_num
!
create_cs,0,'CSpinh0',0,0,L05,0,0,0,0
create_circle,D06/2
create_area-lines
!
asba,am-1,am,,delete,delete
!
create_vol-area,-L06
!
aplot
!
!------------------------ 6.  Create Push-Rod Pins ------------------------
!
csys,CSpinv0                    ! vertical flap arm
!
create_circle,D06/2,L07
create_vol-lines,-L06-2*L07
!
aplot
!
!
!
csys,CSpinh0                    ! horizontal flap arm
!
create_circle,D06/2,L07
create_vol-lines,-L06-2*L07
!
aplot
!
!---------------------------- 7.  Create Push-Rods ----------------------------
!
csys,CSpinv0                    ! vertical arm push-rod
!
create_cs,0,,0,L03/2,0,-L06/2,0,0,90
create_cs,0,,0,0,0,0,0,Avf,0
!
create_circle,2*D06/2
create_vol-lines,-1.50*L03
!
create_circle,0.75*D06/2,-1.50*L03
create_vol-lines,-L08
!
vadd,vm-1,vm
init_entity_num
!
k,,1.25*L06/2,-1.5*D06,0
k,,1.25*L06/2,1.5*D06,0
k,,-1.25*L06/2,1.5*D06,0
k,,-1.25*L06/2,-1.5*D06,0
!
create_volume,,-1.25*L03
!
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
aplot
!
!
!
csys,CSpinh0                    ! horizontal arm push-rod
!
create_cs,0,,0,L03/2,0,-L06/2,0,0,90
create_cs,0,,0,0,0,0,0,Ahf,0
!
create_circle,2*D06/2
create_vol-lines,-1.50*L03
!
create_circle,0.75*D06/2,-1.50*L03
create_vol-lines,-L08
!
vadd,vm-1,vm
init_entity_num
!
k,,1.25*L06/2,-1.5*D06,0
k,,1.25*L06/2,1.5*D06,0
k,,-1.25*L06/2,1.5*D06,0
k,,-1.25*L06/2,-1.5*D06,0
!
create_volume,,-1.25*L03
!
vsbv,vm-1,vm,,delete,delete
init_entity_num
!
aplot