valu Etyp he20r
# Length of the beam in meters, converted from mm
valu L / 1065 1000
valu divL 266
# Width of the beam in meters, converted from mm
valu B / 5 1000
valu divB 4
# first partial height in meters, converted from mm
valu H1 / 38.2 1000
valu divH1 20
# Second partial height in meters, converted from mm
valu H2 / 9.8 1000
# H2 is now devided in 8 instead of 4
valu divH2 8
# Pressure in Pa (N/m2), coverted from MPa (N/mm2)
valu P * 127.5 1e6
seto beam
pnt p0 0 0 0
# pnt p1 0 L 0
# line l0 p0 p1 divL
# seta se0 l l0
seta sp0 p p0
swep sp0 sp1 tra 0 L 0 divL # <<<<<<<<<<<<< line I use swep
seta se0 l all
swep se0 se1 tra B 0 0 divB
seta ses0 A001
swep ses0 ses1 tra 0 0 H1 divH1
seta rear A005
seta front A006
comp rear e
rep rear
comp rear f
rep rear
comp front e
rep front
comp front f
rep front
seta extend A002
swep extend extended tra 0 0 H2 divH2
setc beam
elty beam Etyp
mesh beam
send beam abq
# seta a n 1683
# seta b n 590
# seta c n 1662
# send a abq spc 123
# send b abq spc 3
# send c abq spc 13
send rear abq surf
send front abq surf
send rear abq pres P
send front abq pres P
plot f rear g
plus f front r
~ 2.5x2.5x2.5 mm in size