41.34

n = 23 (slider from 0 to 30, step 1)
p(x) = x^(2) / 2
t: n
r(x) = x
O = (0, 0)
c_1 = 0
K: (t, r(t))
gl2: x = π
delta: π / 30
A: (r((n * delta)); (n * delta))
P: ((n * delta), p((n * delta)))
l1 = Sequence(((i * delta); (i * delta)), i, 0, 23)
l2 = Sequence(((i * delta), p((i * delta))), i, 0, 23)
c_2 = 0
a = CurveCartesian((θ; θ), θ, 0, (4 * π))
B = Point(a)
C = Point(a)
D = Point(a)
E = Point(a)
F = Point(a)
G = Point(a)
H = Point(a)
I = Point(a)
J = Point(a)
L = Point(a)
M = Point(a)
U = Point(a)
V = Point(a)
W = Point(a)
Z = Point(a)
A_1 = Point(a)
B_1 = Point(a)
C_1 = Point(a)
s = Integral(p, 0, x(P))
b = CurveCartesian((θ; θ), θ, 0, (2 * π))
gl3: x = (2 * π)
N = Point(b)
Vieleck1, f, g, h, i, j, k, l, m, q, c, d, e, f_1, g_1, h_1, i_1, j_1, k_1, l_1, m_1 = Polygon(O, B, C, D, E, F, G, H, I, J, L, M, U, V, W, Z, N, B_1, C_1, A)
Q = Intersect(p, gl3)
R = Intersect(gl3, xAxis)
n_1 = Segment(O, R)
o = Integral(p, 0, (2 * π))
S = (-1.8823440158176354, -0.703708492628856)
T = (-1.436510706150852, -0.703708492628856)
Strich1: PolyLine[(-2.1225E0,1.6155E1), (-2.1225E0,1.6155E1), (�,�), true]
Strich2: PolyLine[(-7.7862E-1,1.6418E0), (-1.3162E0,1.2834E0), (-1.4953E0,1.1939E0), (-1.6297E0,1.1043E0), (-1.8089E0,9.2508E-1), (-1.8985E0,7.4590E-1), (-2.0777E0,6.1152E-1), (-2.2121E0,4.7714E-1), (-2.3464E0,4.3234E-1), (-2.5256E0,2.9796E-1), (-2.6152E0,1.6357E-1), (-2.6600E0,2.9187E-2), (-2.7496E0,-1.0520E-1), (-2.7944E0,-2.3958E-1), (�,�), (-2.4108E-1,1.2386E0), (-2.4108E-1,1.2386E0), (�,�), (-2.4108E-1,1.2386E0), (-3.3067E-1,1.1043E0), (-4.6505E-1,9.6988E-1), (-6.4423E-1,7.9070E-1), (-7.7862E-1,7.0111E-1), (-9.1300E-1,6.1152E-1), (-1.0922E0,4.3234E-1), (-1.2266E0,3.4275E-1), (-1.2904E0,3.0757E-1), (-1.3668E0,2.6385E-1), (-1.4472E0,2.1532E-1), (-1.5228E0,1.6572E-1), (-1.5849E0,1.1878E-1), (-1.6745E0,-1.5608E-2), (-1.8089E0,-1.0520E-1), (-1.8842E0,-1.7587E-1), (-1.9719E0,-2.6324E-1), (-2.0622E0,-3.5558E-1), (-2.1455E0,-4.4118E-1), (-2.2121E0,-5.0835E-1), (-2.3464E0,-5.9794E-1), (-2.6152E0,-8.2192E-1), (-2.7048E0,-1.0011E0), (-2.8392E0,-1.0907E0), (-2.9288E0,-1.2699E0), (-2.9736E0,-1.4043E0), (�,�), (2.0687E-1,1.0595E0), (1.2513E-1,9.5484E-1), (4.3668E-2,8.5171E-1), (-3.7241E-2,7.5164E-1), (-1.1732E-1,6.5613E-1), (-1.9629E-1,5.6673E-1), (-2.7379E-1,4.8450E-1), (-3.4915E-1,4.0873E-1), (-4.2158E-1,3.3823E-1), (-4.9034E-1,2.7184E-1), (-5.5464E-1,2.0837E-1), (-7.7862E-1,-6.0403E-2), (-8.6821E-1,-2.3958E-1), (-1.0922E0,-5.0835E-1), (-1.2266E0,-7.3233E-1), (-1.3610E0,-8.2192E-1), (-1.4505E0,-9.5630E-1), (-1.6297E0,-1.1355E0), (-1.7641E0,-1.3147E0), (-1.8985E0,-1.4938E0), (-1.9881E0,-1.6730E0), (-2.1225E0,-1.8522E0), (-2.2569E0,-2.1210E0), (-2.3464E0,-2.3001E0), (�,�), (7.4441E-1,-4.6356E-1), (7.4441E-1,-4.6356E-1), (�,�), (7.4441E-1,-4.6356E-1), (6.3968E-1,-4.8805E-1), (5.3873E-1,-5.1313E-1), (4.4535E-1,-5.3941E-1), (3.6333E-1,-5.6748E-1), (2.9646E-1,-5.9794E-1), (1.6207E-1,-7.7712E-1), (7.2484E-2,-9.5630E-1), (-1.0670E-1,-1.1355E0), (-2.4108E-1,-1.2251E0), (-4.2026E-1,-1.3595E0), (-4.8833E-1,-1.4151E0), (-5.6716E-1,-1.4813E0), (-6.5228E-1,-1.5556E0), (-7.3919E-1,-1.6352E0), (-8.2341E-1,-1.7178E0), (-9.0118E-1,-1.8007E0), (-9.7160E-1,-1.8809E0), (-1.0345E0,-1.9556E0), (-1.0897E0,-2.0216E0), (-1.1370E0,-2.0762E0), (-1.3610E0,-2.3001E0), (-1.4366E0,-2.3862E0), (-1.5224E0,-2.4881E0), (-1.6107E0,-2.5962E0), (-1.6939E0,-2.7010E0), (-1.7641E0,-2.7929E0), (-1.8985E0,-3.0169E0), (�,�), (1.3715E0,-3.7397E-1), (8.3400E-1,-1.0011E0), (6.9961E-1,-1.1355E0), (4.7564E-1,-1.4043E0), (2.0687E-1,-1.7626E0), (1.5833E-1,-1.8256E0), (1.1199E-1,-1.8859E0), (6.7532E-2,-1.9460E0), (2.4611E-2,-2.0086E0), (-1.7106E-2,-2.0762E0), (-5.7770E-2,-2.1502E0), (-9.6793E-2,-2.2273E0), (-1.3340E-1,-2.3033E0), (-1.6683E-1,-2.3739E0), (-1.9629E-1,-2.4345E0), (-3.3067E-1,-2.6585E0), (-5.9944E-1,-3.1065E0), (-6.6206E-1,-3.2092E0), (-7.2288E-1,-3.3085E0), (-7.7926E-1,-3.4013E0), (-8.2858E-1,-3.4843E0), (-8.6821E-1,-3.5544E0), (-9.5780E-1,-3.7784E0), (-1.0474E0,-4.0024E0), (-1.0026E0,-3.8232E0), (�,�), (2.4914E0,-2.3958E-1), (1.8643E0,-9.5630E-1), (1.5955E0,-1.2699E0), (1.5212E0,-1.3624E0), (1.4352E0,-1.4719E0), (1.3460E0,-1.5888E0), (1.2622E0,-1.7038E0), (1.1924E0,-1.8074E0), (1.1425E0,-1.8930E0), (1.1074E0,-1.9647E0), (1.0794E0,-2.0294E0), (1.0506E0,-2.0942E0), (1.0132E0,-2.1658E0), (9.6168E-1,-2.2492E0), (8.9919E-1,-2.3410E0), (8.3110E-1,-2.4360E0), (7.6278E-1,-2.5286E0), (6.9961E-1,-2.6137E0), (5.2043E-1,-2.8825E0), (4.7564E-1,-3.0169E0), (3.8605E-1,-3.1513E0), (2.9646E-1,-3.3304E0), (2.5166E-1,-3.4648E0), (1.6207E-1,-3.5992E0), (1.1728E-1,-3.7784E0), (1.6207E-1,-3.5096E0), (�,�), (3.5217E0,-3.7397E-1), (3.0289E0,-9.1151E-1), (2.8946E0,-1.0907E0), (2.4466E0,-1.8074E0), (2.3668E0,-1.9298E0), (2.2974E0,-2.0362E0), (2.2321E0,-2.1396E0), (2.1645E0,-2.2531E0), (2.0883E0,-2.3897E0), (1.6403E0,-3.2856E0), (1.5792E0,-3.4156E0), (1.5372E0,-3.5097E0), (1.5078E0,-3.5791E0), (1.4845E0,-3.6351E0), (1.4611E0,-3.6888E0), (1.3267E0,-3.9128E0), (1.3715E0,-3.6888E0), (1.5059E0,-3.5096E0), (�,�), (4.4176E0,-3.2917E-1), (4.3048E0,-4.7040E-1), (4.1978E0,-6.0544E-1), (4.1024E0,-7.2810E-1), (4.0244E0,-8.3219E-1), (3.9696E0,-9.1151E-1), (3.9248E0,-1.0459E0), (3.7009E0,-1.3147E0), (3.5217E0,-1.5834E0), (3.4769E0,-1.7178E0), (3.2977E0,-1.9418E0), (3.2369E0,-2.0310E0), (3.1713E0,-2.1326E0), (3.1047E0,-2.2388E0), (3.0410E0,-2.3421E0), (2.9842E0,-2.4345E0), (2.9370E0,-2.5107E0), (2.8980E0,-2.5742E0), (2.8646E0,-2.6311E0), (2.8345E0,-2.6870E0), (2.8050E0,-2.7481E0), (2.7744E0,-2.8183E0), (2.7439E0,-2.8943E0), (2.7152E0,-2.9711E0), (2.6901E0,-3.0435E0), (2.6706E0,-3.1065E0), (2.6258E0,-3.2856E0), (2.5362E0,-3.4648E0), (2.4914E0,-3.6440E0), (2.4018E0,-3.8232E0), (2.4914E0,-3.6888E0), (2.5810E0,-3.5544E0), (�,�), true]
Strich3: PolyLine[(5.1343E0,-1.9479E-1), (5.0143E0,-3.4306E-1), (4.8996E0,-4.8562E-1), (4.7957E0,-6.1676E-1), (4.7079E0,-7.3076E-1), (4.6416E0,-8.2192E-1), (4.5520E0,-1.0011E0), (4.4176E0,-1.1803E0), (4.3280E0,-1.4043E0), (4.2384E0,-1.5834E0), (4.1040E0,-1.7626E0), (3.9696E0,-2.0762E0), (3.8801E0,-2.3001E0), (3.8353E0,-2.5241E0), (3.7457E0,-2.7033E0), (3.7194E0,-2.7857E0), (3.6915E0,-2.8853E0), (3.6633E0,-2.9929E0), (3.6361E0,-3.0995E0), (3.6113E0,-3.1960E0), (3.5217E0,-3.4648E0), (3.4321E0,-3.5992E0), (�,�), (5.8958E0,-3.2917E-1), (5.7847E0,-4.4528E-1), (5.6790E0,-5.5700E-1), (5.5840E0,-6.5994E-1), (5.5052E0,-7.4971E-1), (5.4479E0,-8.2192E-1), (5.3583E0,-1.0907E0), (5.3173E0,-1.1978E0), (5.2624E0,-1.3266E0), (5.2011E0,-1.4644E0), (5.1409E0,-1.5990E0), (5.0895E0,-1.7178E0), (4.9999E0,-2.0314E0), (4.9551E0,-2.2554E0), (4.8655E0,-2.3897E0), (4.7759E0,-2.6137E0), (4.6864E0,-2.9721E0), (4.5968E0,-3.1960E0), (4.5072E0,-3.3752E0), (�,�), (3.4321E0,-3.4648E0), (3.4321E0,-3.4648E0), (�,�), (2.5362E0,-3.6888E0), (2.5362E0,-3.6888E0), (�,�), (2.5362E0,-3.6888E0), (2.4288E0,-3.7786E0), (2.3259E0,-3.8661E0), (2.2319E0,-3.9490E0), (2.1512E0,-4.0250E0), (2.0883E0,-4.0919E0), (1.9987E0,-4.3159E0), (1.9539E0,-4.5399E0), (�,�), (1.4611E0,-3.7336E0), (1.3342E0,-3.8472E0), (1.2122E0,-3.9570E0), (1.0999E0,-4.0593E0), (1.0021E0,-4.1503E0), (9.2359E-1,-4.2263E0), (7.8920E-1,-4.4055E0), (�,�), true]
Strich4: PolyLine[(6.7917E0,-1.5834E0), (6.7917E0,-1.5834E0), (�,�), true]