csys,CSgim0
create_cs,0,'CScbrd0',0,-l52-(Dx08/2),l10,-(l51+l1)+(Dy05/2),0,90,180
k,,0,0,0
k,,(Dx08/2)+Dcbw,0,0
k,,(Dx08/2)+Dcbw,(Dy05/2)+Dcbw,0
k,,0,(Dy05/2)+Dcbw,0
create_area
k,,0,0,0
k,,(Dx08/2),0,0
k,,(Dx08/2),(Dy05/2),0
k,,0,(Dy05/2),0
create_area
asba,am-1,am,,delete,delete
init_entity_num
create_cs,0,,0,(Dx08/2)+Dcbw-D06,(Dy05/2)+Dcbw-D06,0,0,0,0
create_circle,D06,,,3,45
create_area-lines
aadd,am-1,am
init_entity_num
csys,CScbrd0
create_cs,0,'CScbrd20',0,Dx09/2,0,0,0,0,0
create_circle,R06
create_area-lines
k,,0,R06/2,0
k,,0,-R06/2,0
k,,(Dx08/2)-(Dx09/2),-R06/2,0
k,,(Dx08/2)-(Dx09/2),R06/2,0
create_area
isolate_areas
aadd,all
init_entity_num
isolate_areas
ara_create_part,CScbrd0,0,0
isolate_areas
asel,r,loc,y,-10,0
adele,all,,,1
init_entity_num
isolate_areas
adele,all
init_entity_num
ksel,s,kp,,km-10,km-9,1
ksel,a,kp,,km-1
ln_fillet,,0.050
ksel,s,kp,,km-25
ln_fillet,,D06
ln_fillet,1197,D06
create_area-lines
arsym,y,am,,,,1,0
init_entity_num
arsym,x,am-1,am,1,,1,0
isolate_areas
aadd,all
init_entity_num
isolate_areas
lsla,s
ln_seg
isolate_areas
extrude_aset,-dhubo
lplot
csys,CSLweb10
k,,0,-(l50-l51)-l105,0
k,,0,0,0
k,,-3*l49,0,0
create_lines,,1
k,,-l88,0.01,0
k,,-l88,l51,0
csys,CSLweb20
k,,w_web,0,0
k,,w_web,l50/cos((90-phi8L)*rconv),0
ln_series
isolate_lines
profile_lines,km-6,km-2
ksel,s,kp,,km-1,km
ln_fillet,,rfil2
ksel,s,kp,,km-11
ln_fillet,,rfil6
csys,CSgim0
isolate_lines
cm,lset1,line
ksll,s
get_max_entity
k,,kx(km),ky(km),kz(km)
k,,-l11,ky(km),kz(km)
ln_series
l_num=lm
adrag,lset1,,,,,,l_num
ldele,l_num,,,1
isolate_areas
cm,aset1,area
init_entity_num
vsba,vm,aset1,,delete,delete
init_entity_num
vdele,vm,,,1
init_entity_num
vadd,all
init_entity_num