! ln_fillet_group_test.mac
!
mod_assemb_prep
!
li=1
l1=10
l2=7
l3=6
l4=3
l5=1
!
hi=1
h1=3
h2=6
h3=8
h4=9
h5=4
h6=7
!
csys,0
!
k,,li,hi,0
k,,li+l1,hi,0
k,,li+l1,hi+h1,0
k,,li+l2,hi+h1,0
k,,li+l2,hi+h2,0
!
k,,li+l1,hi+h2,0
k,,li+l1,hi+h3,0
k,,li+l3,hi+h3,0
k,,li+l3,hi+h6,0
k,,li+l4,hi+h6,0
!
k,,li+l4,hi+h5,0
k,,li+l5,hi+h5,0
k,,li+l5,hi+h4,0
k,,li,hi+h4,0
!
create_lines
!
k1=km-8
k2=km-10
k3=km-5
k4=km-6
k5=km-3
!
r1=0.3
r2=0.5
r3=0.25
r4=0.4
r5=1.0
!
!ln_fillet_group,k1,r1,k2,r2,k3,r3,,,,,1
!ln_fillet_group,k4,r4,k5,r5
!
!ln_fillet_group,k1,r1,k2,r2,k3,r3,k4,r4,k5,r5
!
ln_fillet_group,km-8,r1,km-10,r2,km-5,r3,km-6,r4,km-3,r5,2
!
view,'f'