z z
Produkt der  beiden Abstände eines
Hyperbelpunktes zu den
Asymptoten sei konstant.

b = 1.6 (slider from -5 to 5, step 0.1)
a = 2 (slider from -5 to 5, step 0.1)
c: (b^(2) * x^(2)) - (a^(2) * y^(2)) - (a^(2) * b^(2)) = 0
f, g = Asymptote(c)
A = Point(c)
h = OrthogonalLine(A, g)
B = Intersect(h, g)
i = OrthogonalLine(A, f)
C = Intersect(f, i)
D = Intersect(g, f)
v1, a_1, b_1, d, c_1 = Polygon(A, B, D, C)
Textv1: "Fläche von  " + (Name[A]) + (Name[B]) + (Name[D]) + (Name[C]) + " = " + v1
Punktv1 = PointIn(v1)
Text1: "A=a_1*c_1=" + a_1 + "*" + c_1 + "=" + ((a_1 * c_1)) + ""
p(x) = ?
Text2 = LaTeX(c, true, true)
Text3 = LaTeX($1)