!   TITLE:  slv_rough.mac (AAAV)
!
!---------------------------------------------------------------------------
!       Rev -   10/05/2002      D. Edwards
!---------------------------------------------------------------------------
!
!   This parameter file is used to create the "SLEEVE, ROUGH", PN 375A096
!   Assy: CU01715076
!
!   CSsr0:      Cartesian Sleeve-Rough Coordinate System
!   CSsr1:      Cylindrical Sleeve-Rough Coordinate System
!   CSsr2:      Spherical Sleeve-Rough 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          ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
slv_rough.parm                  ! name of parameter file
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate Systems >>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!create_cs,0,'CSssn0',0,0,0,0,180,180,0         ! Create for later assy
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
csys,CSsr0
!
! Outer profile KP's
!
k,,r7,,-L1              ! km+1
k,,r7,,-L1+L3           ! km+2
k,,r8,,-L1+L2           ! km+3
k,,r1,,-L1+L2           ! km+4
k,,r1,,0.0              ! km+5

!
! Inner profile KP's
!
k,,r2,,0.0              ! km+6
k,,r2,,-L1+L4           ! km+7
k,,r3,,-L1+L4           ! km+8
k,,r4,,-L1+L5           ! km+9
k,,r4,,-L1+L6           ! km+10
k,,r5,,-L1+L6           ! km+11
k,,r5,,-L1+L7           ! km+12
k,,r6,,-L1+L7           ! km+13
k,,r6,,-L1              ! km+14

create_area
!
create_cs,0,,0,0,0,0,0,90,0
ara_create_part,csn+1,0,-L1+L3
!
!

! Revolve volume
!
*if,subassm_,ne,1,then

    revolve_aset,CSsr0,360,4

    lplot

*endif


!-------------------- 3.8.3  Center Hub Flat Cuts -------------------
!
cm,CV01,volu
!
gimbal_al_slv.parm
!
csys,CSgim0         ! 1st flat profile cut
!
create_cs,0,,1,-r7,-l76,-(l1+d5),0,90,-90
!
k,,r_top/2,90-phi9,0
k,,-r_top/2,90-phi9,0
k,,r_top/2,270,0
k,,(r_top/2)/(sin(30*rconv)),330,0
!
create_volume,,-2*r7
!
vsbv,CV01,vm,,delete,delete
!
init_entity_num
cm,CV01,volu
!
lplot
!
!
csys,CSgim0         ! 2nd flat profile cut
!
x=(l77-l76)*tan((90-phi9)*rconv)
create_cs,0,,1,-r_top,-l77,-l1-d5+x,0,90,-90
!
r=(l78-l77)/cos((90-phi10)*rconv)
k,,-r,90-phi10,0
k,,r,90-phi10,0
!
create_cs,0,,1,r,90-phi10,0,-(90-phi10),0,0
!
k,,r_top,90-phi11,0
!
create_cs,0,,0,0,0,0,0,0,0
!
k,,2*r_top,0,0
k,,2*r_top,-r_top,0
!
create_volume,,2*r_top
!
vsbv,CV01,vm,,delete,delete
!
init_entity_num
cm,vset1,volu
!
lplot
!
!
!-------------------------- 5.0  Analysis Prep --------------------------
!
slv_rough.parm
!
csys,CSsr1
!
parm_val,'gimb_slv','r2','r2',4.4233/2
parm_val,'gimb_slv','r4','r4',2.9230/2
!
asel,s,area,,am-103
!
!
!                         (1)     (2)     (3)      (4)     (5)   (6)    (7)
!       ROTATE_VOLM_MSH, actcs,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!                        elmxl, mtrl,  rl,  ecs,  radrot, varcang, ell
!                         (8)   (9)   (10)  (11)   (12)    (13)    (14)
!
rotate_volm_msh,CSsr1,0,,,5,3,0.100,0.100,c416,,,r2,90,0.100
!
init_entity_num
asel,selv,loc,x,r4
asel,a,area,,am-6,am-5
asel,a,area,,am-2,am-1
!
msh_area,,,1,0.100,0.100,,c416
!
vsel,s,volu,,vm-13,vm-12
msh_algorithm,-1,5,0,0,,,,3,0.100,0.100,c416,,,,,,
!
vsel,s,volu,,vm-1,vm
vatt,c416
msh_algorithm,-1,5,0,0,,,,3,0.100,0.100,c416,,,,,,


finalize_model