Pero

Ukáž útvar

Ukáž popis

Pero On/Off

Vymaž

Kresliť

Ukáž útvar

Legenda

\text{Bodová konštrukcia

\text{← Riadiaca priamka

\text{Bodová konštrukcia

k = 0.8 (slider from 0.1 to 6, step 0.1)
O = Intersect(xAxis, yAxis)
f = OrthogonalLine(O, xAxis)
E = Point(f)
g = OrthogonalLine(E, f)
F = Point(xAxis)
v: x(F) - (x(F) * k / (k + 1))
B: (v, 0)
r = 1.1 (slider from 0.1 to 5, step 0.1)
A_{1}: ((0.9 * r), 0)
c = Circle(F, (k * x(A_{1})))
Kol = OrthogonalLine(A_{1}, xAxis)
B_{1} = Intersect(c, Kol, 2)
C = Intersect(c, Kol, 1)
A1: ((1.1 * r), 0)
h = OrthogonalLine(A1, g)
c1 = Circle(F, (k * x(A1)))
D, G = Intersect(c1, h)
d = Conic(B, B_{1}, D, C, G)
A = Intersect(d, g, 1)
H = Point(d)
ST: H
RovP = Line(ST, xAxis)
P1 = Point(RovP)
P2 = Midpoint(P1, ST)
Spodny, j, k_{1}, l, m = Polygon(Corner[1], Corner[2], (x(Corner[2]), y(Corner[2]) + (0.28 * Distance[Corner[3], Corner[2]])), (x(Corner[4]), y(Corner[1]) + (0.28 * Distance[Corner[3], Corner[2]])))
Kres = false
Vym = false
Per = true
utv = true
naz = true
F_2, F_1 = Focus(d)
b: x(B)
a: x(A)
f2: x(F_2)
text4: "F_2=(" + (LaTeX[f2]) + ",0)"
text2: "A(" + (LaTeX[a]) + ",0)"
text7: "B(" + (LaTeX[b]) + ",0) \;  \; "
b_{1} = If(k > 1, "Hyperbola", If[k ≟ 1, "Parabola", "Elipsa"])
f1: x(F_1)
text8: "F_1(" + (LaTeX[f1]) + ",0)"
i = OrthogonalLine(ST, f)
I = Intersect(f, i)
n = Segment(ST, I)
p = Segment(ST, F_2)
J = Intersect(f, g)