Paprsky od vzdálených předmětů

Vzdálenost předmětu od pozorovatele

Výška předmětu

a = 0.14 (slider from 0.14 to 2000)
A: (a, 0)
C1: (0, 0)
C3: (0, 0.008)
f = Segment(C1, C3)
F: (-0.02, 0.001)
E: (x(F) + 0.015, y(F))
G: (x(E) - 0.002, y(F) + 0.007)
g = Segment(E, F)
u = Segment(F, G)
K = Midpoint(G, E)
h = 0.12 (slider from 0.12 to 20)
S: (a, h)
R = Corner(obrázek1, 2)
S1 = Midpoint(A, R)
S3 = Midpoint(S, (x(R), h))
S2 = Midpoint(S1, S3)
C2 = Midpoint(C1, C3)
j = Segment(C1, S1)
k = Segment(C2, S2)
l = Segment(C3, S3)
J = Intersect(Circle[G, 0.002], u)
i = AngularBisector(E, F, G)
L = Intersect(Circle[K, 0.0005], i, 1)
e = Circle(L, K)
H = Intersect(Circle[E, 0.002], g, 1)
I = Intersect(Circle[Midpoint[J, H], 0.001], i, 1)
c = CircumcircleArc(H, I, J)
d = CircumcircleArc(J, K, H)