Liste lili aus Mathematica Datei Kepler.nb

Liste poliganz vollständig in GeoGebra hergeleitet

https://www.geogebra.org/haftendorn
Haftendorn, Buch (Springer):
Kurven erkunden und verstehen
Kap 7.6.1.1: S.206
www.kurven-erkunden-und-verstehen.de

Ha 2016

lili: {-0.0486341, -0.0982034, -0.149743, -0.204516, -0.264204, -0.331257, -0.409574, -0.506062, -0.634841, -0.831895, -1.23624, -3.14159, 0, 0.0486341, 0.0982034, 0.149743, 0.204516, 0.264204, 0.331257, 0.409574, 0.506062, 0.634841, 0.831895, 1.23624, 3.14159}
r(t) = 3 / (1 - (4 / 5 * cos(t)))
lilipkt = Sequence((r(Element[lili, i]); Element[lili, i]), i, 1, 25)
O: (0, 0)
lilistr = Sequence(Segment[O, Element[lilipkt, i]], i, 1, 25)
a = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, (2 * π))
rr(x) = ((-15)) / ((4 * cos(x)) - 5)
f(x) = (100 * tan((1 / 2 * x)) / ((9 * tan((1 / 2 * x))^(2)) + 1)) + (125 / 3 * ((-atan(sin(x) / (cos(x) - 2))) + (1 / 2 * x)))
Ag: ((π * 25 / 3) * 5)
a2wo: Ag / 24
g: y = Ag
streifen = Sequence(y = w, w, 0, Ag, a2wo)
schnitte1 = Sequence(Intersect[f, Element[streifen, i], (6.283185307179587, 130.89969389957471)], i, 3, 25)
h: y = a2wo
D = Intersect(f, h, (0.04863407908422677, 5.454154114416379))
pkte = Join({{O, D}, schnitte1})
polpkte = Sequence((r(x(Element[pkte, i])); x(Element[pkte, i])), i, 1, 25)
poliganz = Append((r(π); π), polpkte)
c_1 = 0
b = false