Dutá zakřivená zrcadla

šířka svazku

Kulové

Parabolické

Eliptické 2

Hyperbolické

Tvar zrcadla je dán hodnotou a:

Velikost zrcadla je dána parametrem p:

Šířka svazku:

S

V

F

Eliptické 1

Ohnisko zrcadla

Ohniska kuželosečky

dopadající paprsky

odražené paprsky

rovnice kuželosečky

s = 5 (slider from 1 to 8, step 0.25)
p = -8 (slider from -32 to -8, step 1)
a = 1 (slider from -3 to 3, step 0.25)
c: (y * y) = ((2 * p) * x) - ((a * x) * x)
vod = Sequence(Line[(0, a), (1, a)], a, (-s), s, 0.25)
C, D = Focus(c)
text1 = LaTeX(c, true, true)
B: ((-20), 2.38431 + a)
seznam1 = Sequence(Intersect[c, Element[vod, i], 2], i, 1, 200)
seznam2 = Sequence(Tangent[Element[seznam1, i], c], i, 1, 200)
seznam3 = Sequence(OrthogonalLine[Element[seznam1, i], Element[seznam2, i]], i, 1, 200)
seznam4 = Sequence(Mirror[Element[vod, i], Element[seznam3, i]], i, 1, 200)
seznam5 = Sequence(Ray[Element[seznam1, i], Element[seznam1, i] + (-1, 0)], i, 1, 200)
seznam6 = Sequence(Vector[Direction[Element[seznam4, i]]], i, 1, 200)
seznam7 = Sequence(Ray[Element[seznam1, i], Element[seznam1, i] - Element[seznam6, i]], i, 1, 200)
F = (-2.025822213850351, 0.9450546585240532)
on = 0
text2 = LaTeX(c, true, true)
parabola: c
elipsa: c
hyperbola: c
on1 = 0
A = (0, 0)
E = Midpoint(D, C)
G = Center(elipsa)
H, I = Intersect(hyperbola, b)
J: (p / 2, 0)
d = false
e = false
f = true
g = false
h = false
text3: "y²=2px-ax²=" + (LaTeX[(2 * p)]) + "x-(" + (LaTeX[a]) + ")x²"
text10: "f_z=\frac{|p|}{2}=" + (LaTeX[abs(p) / 2]) + ""