x

f(x)

f(x) = x^(2.0) - 3.0
A = Point(f)
B = Point(f)
a = Segment(A, B)
i = 1 (slider from 1 to 20, step 1)
A2: x(A)
B2: f(A2)
n: (x(B) - x(A)) / i
A3: A2 + n
B3: f(A3)
A4: A3 + n
B4: f(A4)
A5: A4 + n
B5: f(A5)
A6: A5 + n
B6: f(A6)
A7: A6 + n
B7: f(A7)
A8: A7 + n
B8: f(A8)
A9: A8 + n
B9: f(A9)
A10: A9 + n
B10: f(A10)
A11: A10 + n
B11: f(A11)
A12: A11 + n
B12: f(A12)
A13: A12 + n
B13: f(A13)
A14: A13 + n
B14: f(A14)
A15: A14 + n
B15: f(A15)
A16: A15 + n
B16: f(A16)
A17: A16 + n
B17: f(A17)
A18: A17 + n
B18: f(A18)
A19: A18 + n
B19: f(A19)
A20: A19 + n
B20: f(A20)
A21: A20 + n
B21: f(A21)
A22: A21 + n
B22: f(A22)
P_1: (A2, B2)
P_2: (A3, B3)
P_3: (A4, B4)
P_4: (A5, B5)
P_5: (A6, B6)
P_6: (A7, B7)
P_7: (A8, B8)
P_8: (A9, B9)
P_9: (A10, B10)
P_{10}: (A11, B11)
P_{11}: (A12, B12)
P_{12}: (A13, B13)
P_{13}: (A14, B14)
P_{14}: (A15, B15)
P_{15}: (A16, B16)
P_{16}: (A17, B17)
P_{17}: (A18, B18)
P_{18}: (A19, B19)
P_{19}: (A20, B20)
P_{20}: (A21, B21)
P_{21}: (A22, B22)
Liste1: {P_1, P_2, P_3, P_4, P_5, P_6, P_7, P_8, P_9, P_{10}, P_{11}, P_{12}, P_{13}, P_{14}, P_{15}, P_{16}, P_{17}, P_{18}, P_{19}, P_{20}, P_{21}}
Liste2 = Sequence(Segment[Element[Liste1, ind], Element[Liste1, ind + 1.0]], ind, 1.0, i)
f'(x) = f'(x)
b = Integral(sqrt(1.0 + f'(x)^(2.0)), x(A), x(B))
c = Sum(Liste2)
Text2: "Länge des Bogens von A nach B: " + b + " E"
Text1: "Länge des Polygonzuges von A nach B: " + c + " E"
g = Function(f(x), x(A), x(B))