!   TITLE:  cm_housing.mac (COMMON_MISSILE)
!
!-----------------------------------------------------------------------
!   Rev -   04/29/2003      J. Rinaldi
!-----------------------------------------------------------------------
!
!   This macro creates the common missile housing concept.
!
!   CShous0:        Cartesian Housing Coordinate System
!   CShous1:        Cylindrical Housing Coordinate System
!   CShous2:        Spherical Housing 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 >>>>>>>>>>>>>>>>>>>>>>>>>>
!
cm_housing.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!
!---------------------- 3.1  Housing Cross-Section --------------------
!
!
!----------------------- 3.1.1  Main Cross-Section --------------------
!
csys,CShous0
!
create_cs,0,'CSm10',0,-Dx01,-Dy01,-Dz01,0,0,0
create_circle,D01/2
create_area-lines
!
csys,CShous0
!
create_cs,0,'CSbs10',0,-Dx02,-Dy02,-Dz01,0,0,0
create_circle,D02/2
create_area-lines
!
tangent_area,am-1,am
!
!
csys,CShous0
!
create_cs,0,'CSm20',0,-Dx03,-Dy03,-Dz01,0,0,0
create_circle,D01/2
create_area-lines
!
csys,CShous0
!
create_cs,0,'CSbs20',0,-Dx04,-Dy04,-Dz01,0,0,0
create_circle,D02/2
create_area-lines
!
tangent_area,am-1,am
!
aadd,am-11,am
!
init_entity_num
!
d_m=(sqrt((Dx01-Dx03)**2+(Dy01-Dy03)**2))/2     ! motor center 1/2-distance
d_m1=sqrt((Dx01)**2+(Dy01)**2)                  ! motor 1 center distance
leg1=sqrt(((D01/2)+R01)**2-d_m**2)
leg2=sqrt(d_m1**2-d_m**2)
r_fc=leg1+leg2
!
csys,CSbs10
k,,0,0,0
!
csys,CSm10
k,,0,0,0
!
csys,CShous1
k,,r_fc,180+45,-Dz01
!
csys,CSm20
k,,0,0,0
!
csys,CSbs20
k,,0,0,0
!
create_area
!
isolate_areas
aadd,all
init_entity_num
!
csys,CShous1
create_cs,0,,0,r_fc,180+45,-Dz01,0,0,0
!
create_circle,R01
create_area-lines
!
asba,am-1,am,,delete,delete
init_entity_num
!
adele,am
ln_fillet,km-10,R02
!
lplot
!
!---------------------- 3.1.2  Outer Fillet Profile -------------------
!
csys,CSm10
create_arcs,R03,,,1,0,120
!
csys,CSbs10
create_arcs,R04,,,1,90,180
!
!
csys,CSm20
create_arcs,R03,,,1,350,360+90
!
csys,CSbs20
create_arcs,R04,,,1,180+45,350
!
profile_close
ldele,lm-5,lm-4,1,1
init_entity_num
!
ksel,s,kp,,km-5,km-2,1
ln_fillet,,R02
!
ksel,s,kp,,km-9,km-8,1
ln_fillet,,R02
!
lplot
!
!-------------------- 3.2  Motor / Ball Screw Housing -----------------
!
csys,CShous0
!
create_vol-lines,Dz02
!
!
ovlp=0.010
!
csys,CSbs10
create_circle,(D02/2)+ovlp,-Dz02
create_area-lines
!
csys,CSbs20
create_circle,(D02/2)+ovlp,-Dz02
create_area-lines
!
isolate_areas
aadd,all
adele,all
init_entity_num
!
ksel,s,kp,,km-1,km,1
ln_fillet,,R02
!
isolate_lines
create_vol-lines,-Dz03
!
vadd,all
init_entity_num
!
lplot
!
!-------------------- 3.3  Motor / Ball Screw Bores -------------------
!
csys,CSm10
!
create_circle,1.2056/2,0.010
create_vol-lines,-1.275-.010
!
create_circle,1.165/2,-1.275
create_vol-lines,-0.280
!
create_circle,0.87485/2,-1.275-0.280
create_vol-lines,-0.280
!
create_circle,0.750/2,-1.275-0.280-0.280
create_vol-lines,-0.160
!
vadd,vm-3,vm-2,vm-1,vm
init_entity_num
!
vsbv,vm-5,vm,,delete,delete
init_entity_num
!
lplot
!
!
!
csys,CSm20
!
create_circle,1.2056/2,0.010
create_vol-lines,-1.275-.010
!
create_circle,1.165/2,-1.275
create_vol-lines,-0.280
!
create_circle,0.87485/2,-1.275-0.280
create_vol-lines,-0.280
!
create_circle,0.750/2,-1.275-0.280-0.280
create_vol-lines,-0.160
!
vadd,vm-3,vm-2,vm-1,vm
init_entity_num
!
vsbv,vm-5,vm,,delete,delete
init_entity_num
!
lplot
!
!
!
csys,CSbs10
!
create_circle,0.8751/2,0.010
create_vol-lines,-0.621-0.010
!
create_circle,0.760/2,-0.621
create_vol-lines,-1.083
!
create_circle,0.87525/2,-0.621-1.083
create_vol-lines,-0.711
!
create_circle,0.920/2,-0.621-1.083-0.711
create_vol-lines,-0.190
!
vadd,vm-3,vm-2,vm-1,vm
init_entity_num
!
vsbv,vm-5,vm,,delete,delete
init_entity_num
!
lplot
!
!
!
csys,CSbs20
!
create_circle,0.8751/2,0.010
create_vol-lines,-0.621-0.010
!
create_circle,0.760/2,-0.621
create_vol-lines,-1.083
!
create_circle,0.87525/2,-0.621-1.083
create_vol-lines,-0.711
!
create_circle,0.920/2,-0.621-1.083-0.711
create_vol-lines,-0.190
!
vadd,vm-3,vm-2,vm-1,vm
init_entity_num
!
vsbv,vm-5,vm,,delete,delete
init_entity_num
!
lplot
!

finalize_model