Die Flächen anzeigen

Animation

Perihel

Der Radiusvektor von der Sonne zum Planeten überstreicht in gleichen Zeiten gleiche Flächen

Der Flächensatz

t = 2.754 (slider from 0 to 6.283, step 0.0010)
P: (2.0 + 8.0 * cos(t), 8.0 * sin(t))
A = Point(xAxis)
a = Line(A, P)
B, Planet = Intersect(ell, a)
Sonne = Point(xAxis)
u = Vector(Sonne, Planet)
C = Point(ell)
D = Point(ell)
E = Point(ell)
F = Point(ell)
G = Point(ell)
H = Point(ell)
I = Point(ell)
J = Point(ell)
K = Point(ell)
L = Point(ell)
Vieleck1, s, f, g, h, i, j, k, l, e = Polygon(Sonne, F, G, H, I, J, K, L, E)
M = Point(ell)
N = Point(ell)
O = Point(ell)
Vieleck2, sonne, d, m, n, o, c = Polygon(Sonne, D, M, N, O, C)
b = false
TextVieleck2: "Fläche " + (Name[Sonne]) + (Name[D]) + (Name[M]) + (Name[N]) + (Name[O]) + (Name[C]) + " = " + Vieleck2
p = false