faktor = 77 (slider from -5 to 100)
A: (0, 0)
X = Point(Segment[(0, 0), (100, 0)])
t: x(X)
h: 1000 / t^(2)
B: X
C: (t, t)
D: (0, t)
T = Surface((u + (0.43 * v), ((0.3 * v) * faktor)), u, -10, 10, v, -10, 10)
C1 = NaN
C': T(C)
D': T(D)
A': T(A)
B': T(B)
V = 1000 (slider from -5 to 2000)
B'': B' + (0, (h * faktor))
C'': C' + (0, (h * faktor))
D'': D' + (0, (h * faktor))
v1, a', x_1, c', d' = Polygon(A', X, C', D')
A'': A + (0, (h * faktor))
v2, a'', b'', c'', d'' = Polygon(A'', B'', C'', D'')
v3, f, g, i, j = Polygon(D', C', C'', D'')
v4, x_2, k, l, m = Polygon(X, C', C'', B'')
v5, n, p, q, r = Polygon(A', D', D'', A'')
v6, s, x_3, a, b = Polygon(A', X, B'', A'')
O(x) = (2 * x^(2)) + ((4 * x) * V / x^(2))
xmin: V^(1 / 3)
OX: (t, O(t))
Omin: O(xmin)
Text1: "x = " + t + ""
Text2: "h = " + h + ""
Text3: "V = " + V + ""
Text4: "O = " + (O(t)) + ""