Geradengleichungen anzeigen

B = Point(xAxis)
A = Point(xAxis)
e: y = 2 / (x(B) - x(A))
q = OrthogonalLine(B, e)
J = Intersect(q, e)
p = OrthogonalLine(A, e)
I = Intersect(e, p)
r = Segment(I, J)
C = Point(r)
E = (10, 6.27)
a = OrthogonalLine(E, xAxis)
poly1, b, a_1, d = Polygon(A, C, B)
Textpoly1: "Fläche " + (Name[A]) + (Name[C]) + (Name[B]) + " = " + poly1
c = Line(A, C)
text1: "Die Geradengleichung durch die
Punkte A und C lautet " + c + "."
D = Point(d)
F = Point(d)
f = OrthogonalLine(D, d)
g = OrthogonalLine(F, d)
G = If(x(D) < x(C), Intersect[f, b], Intersect[f, a_1])
H = If(x(F) < x(C), Intersect[g, b], Intersect[g, a_1])
poly2, h, i, j, k, l = Polygon(F, H, C, G, D)
m = Line(C, B)
text2: "Die Geradengleichung durch die
Punkte C und D lautet " + m + "."
Textpoly2: "Wahrscheinlichkeit im Intervall (D;F) = " + poly2
n = true