Elipsa
Author: Radka Hamříková

E

F

S

o_1

o_2

v

A

B

C

D

a

b

e

a = │SA│=│EC│  - velikost hlavní poloosy
b = │SC│ - velikost vedlejší poloosy
e = │SE│- excentricita (výstřednost)

a

a

E = (1, -0.88)
F = (7.04, -0.88)
o_1 = Line(E, F)
a = 5.02 (slider from 3.02 to 7, step 0.1)
S = Midpoint(E, F)
o_2 = OrthogonalLine(S, o_1)
v = Circle(S, a)
A, B = Intersect(v, o_1)
d = Ellipse(E, F, B)
D, C = Intersect(d, o_2)
a_2 = Segment(E, C)
b = Segment(S, C)
e = Segment(S, E)
c = Segment(S, B)