clear_start_new

!********************************************************************************



! title: Part 1
!
mod_assemb_prep,1
!
/title,Part 1
/units,bin
!
name='part_1'           ! part name
arry_nam='p1'           ! parameter array name
ct_name='ctp1cs'        ! cartesian
cyl_name='cylp1cs'      ! cylindrical
sph_name='sphp1cs'      ! spherical
!
et,1,shell63
et,2,solid45
!
w=5
l=1.2*w
t=0.3*w
r=0.80*w
!
mod_coord_system,0,5,5,0,0,0,0
!
!
csys,ctp1cs
!
k,,w,0,0
k,,w,0,-l
k,,-w,0,-l
k,,-w,0,0
!
create_volume,,t
!
create_cs,0,'borecs',1,0,0,0,0,-90,0
!
create_circle,r
!
create_vol-lines,t
!
vsbv,vm-1,vm,,delete,delete
!
init_entity_num
!
ang_cut_pln,45,1.3*r
ang_cut_pln,45+90,1.3*r
!
radial_vsel,'u',borecs,r,kx(22),0,180,0,t
!
vdele,all,,,1
!
init_entity_num
!
lplot
!
!------------------------ Mesh -----------------------------
!
csys,borecs
!
radial_asel,'s',borecs,r,r,0,270,0,t
!
!            (1)     (2)     (3)   (4)    (5)    (6)    (7)  (8)   (9)
! MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, lszmsh, mat, real, ecs
!
msh_area,1,,1,0.5,0.5,,,,
!
!                (1)     (2)     (3)      (4)      (5)   (6)   (7)    (8)   (9)
! MSH_STANDRD, perfmsh, mstyp, mshdens, elmszovr, etpa, etpv, elmnl, elmxl, mat,
!
!              real, perflsz
!              (10)   (11)
!
msh_standrd,5,,,,,2,1.0,1.0
!
aclear,all
!
init_entity_num
!
finalize_model_data





!*go,:skip1
!********************************************************************************




! title: Part 2
!
mod_assemb_prep
!
/title,Part 2
/units,bin
!
name='part_2'           ! part name
arry_nam='p2'           ! parameter array name
ct_name='ctp2cs'        ! cartesian
cyl_name='cylp2cs'      ! cylindrical
sph_name='sphp2cs'      ! spherical
!
parm_val,'part_1','R','r_out'
parm_val,'part_1','T','h'
r_in=0.85*r_out
!
mod_coord_system,ctp1cs,0,0,0,0,0,0
!
!
csys,ctp2cs
!
k,,r_in,0,0
k,,r_out,0,0
k,,r_out,0.8*h,0
k,,r_in,0.8*h,0
!
create_area
!
k,,0,0,0
k,,0,1,0
init_entity_num
!
revolve_aset,km-1,km,180,2
!
lplot
!
!------------------------ Mesh -----------------------------
!
csys,borecs
!
asel,selv,loc,y,0
!
!                         (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,borecs,1,,,1,2,0.25,0.25,,,,r_out,90,0.5
!
finalize_model_data





!********************************************************************************

csys,borecs
!
parm_val,'part_2','R_OUT','r_out'
!
asel,s,loc,x,r_out
!






!:skip1


lplot