Extremwertaufgabe
Author: Achim Burgermeister
Date: 19.4.05

Maximales Zylindervolumen

y =

Ver gráfica

O = (0, 0)
A = Point(xAxis)
M = Midpoint(A, O)
l = OrthogonalLine(M, xAxis)
F = Point(l)
m = Ray(M, F)
D = Point(m)
n = Segment(A, O)
r = Segment(M, O)
a = Segment(A, D)
b = Segment(D, O)
Q = Point(r)
c = OrthogonalLine(Q, xAxis)
B = Intersect(b, c)
d = Line(B, xAxis)
C = Intersect(a, d)
e = OrthogonalLine(C, xAxis)
E = Intersect(e, xAxis)
f = Segment(D, M)
x1 = Segment(M, Q)
X: (x1, 0.0)
h = Segment(B, Q)
V: 3.141592653589793 * x1^(2.0) * h
Vol: (x1, V / 10.0)
P, k, j, q, i = Polygon(C, B, Q, E)
g1 = Segment(Vol, X)
p = Ellipse((-0.01, 0.0), (x(A) + 0.01, 0.0), -x(A) / 2.0)
s = Mirror(xAxis, xAxis)
R, a1, o, d1 = Polygon(O, D, A)
t = Ellipse(B - (0.01, 0.0), C + (0.01, 0.0), (x(B) - x(C)) / 2.0)
c1 = Ellipse(Q - (0.01, 0.0), E + (0.01, 0.0), (x(Q) - x(E)) / 2.0)
g = Function(y(D) / (5.0 * x(A)) * 3.141592653589793 * x^(2.0) * (x + x(M)), 0.0, -x(M))
T2: g + ""
G = (1.4666666666666666, -4.333333333333333)
H = (2.6666666666666665, -3.3666666666666667)
v = false