Duté kulové a eliptické - zdroj v konečné vzdálenosti

hustota paprsků

šířka svazku

tvar zrcadla

Kulové

Parabolické

Eliptické stoj.

Hyperbolické

Tvar zrcadla

Velikost zrcadla je dána parametrem p:

Šířka svazku:

S

Zdroj

V

F

Eliptické lež.

Ohnisko zrcadla

Ohniska kuželosečky

dopadající paprsky

odražené paprsky

rovnice kuželosečky

E_1

E_2

E_1 = E_2 = S

Zdroj do E_1

Uvolnit zdroj

Zdroj do E_2

Závěr

Jedinými body, které se zobrazí
jako body, jsou ohniska kuželo-
sečky (u kulového splývají 
se středem). 
Všechny ostatní body se zobrazí 
jen jako rozmazané plošky.
Obrazem jednoho ohniska je 
ohnisko druhé.
Ohnisko optické (ohnisko zrcadla)
není ohniskem kuželosečky!
(viz předchozí aplet)

hustota = 0.6 (slider from 0.25 to 1, step 0.05)
s = 5 (slider from 1 to 8, step 0.25)
p = -8 (slider from -32 to -8, step 1)
a = 0.75 (slider from 0.74 to 1.7, step 0.001)
c: (y * y) = ((2 * p) * x) - ((a * x) * x)
vod = Sequence(Line[(0, a), (1, a)], a, (-s), s, hustota)
C, D = Focus(c)
text1 = LaTeX(c, true, true)
B: ((-20), 2.38431 + a)
body = Sequence(Intersect[c, Element[vod, i], 2], i, 1, 200)
tecny = Sequence(Tangent[Element[body, i], c], i, 1, 200)
seznam3 = Sequence(OrthogonalLine[Element[body, i], Element[tecny, i]], i, 1, 200)
seznam4 = Sequence(Mirror[Element[vod, i], Element[seznam3, i]], i, 1, 200)
seznam5 = Sequence(Ray[Element[body, i], Element[body, i] + (-1, 0)], i, 1, 200)
seznam6 = Sequence(Vector[Direction[Element[seznam4, i]]], i, 1, 200)
seznam7 = Sequence(Ray[Element[body, i], Element[body, i] - Element[seznam6, i]], i, 1, 200)
F = (-2.025822213850351, 0.9450546585240532)
on = 0 (slider from -5 to 5, step 1)
text2 = LaTeX(c, true, true)
parabola: c
elipsa: c
hyperbola: c
on1 = 0
A = (0, 0)
K = (-10, 4)
E = Midpoint(D, C)
G = Center(elipsa)
H, I = Intersect(hyperbola, b)
J: (p / 2, 0)
d = true
e = true
f = false
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]) + ""
zboduk = Sequence(Line[K, Element[body, i]], i, 1, 200)
odraz = Sequence(Mirror[Element[zboduk, i], Element[seznam3, i]], i, 1, 200)
seznam1 = Sequence(Segment[K, Element[body, i]], i, 1, 200)
smeraky = Sequence(Vector[(-Direction[Element[odraz, i]])], i, 1, 200)
odraz1 = Sequence(Ray[Element[body, i], Vector[Element[smeraky, i]]], i, 1, 200)
smeraky2 = Sequence(Vector[Direction[Element[odraz, i]]], i, 1, 200)
odraz2 = Sequence(Ray[Element[body, i], Vector[Element[smeraky2, i]]], i, 1, 200)
i = false