Первый луч

Обновить

Показать ответ

Второй луч

Побочная оптическая ось

Zoom +

Zoom –

Показывать побочную ось

Показывать фокальную плоскость

Фокальная плоскость

F_1: (RandomUniform[-12, -6], 0)
S: (RandomUniform[0.8 * x(F_1), 0.3 * x(F_1)], RandomUniform[-8, 8])
B_2 = (0, 0)
B_3 = (13.071510627615496, -3.3891732030563566)
b = Line(B_2, B_3)
c = Ray(B_2, B_3)
F_2: -F_1
B_1 = (-0.018896652131938925, 0.8205172437346452)
B_4 = (6.84347544606165, -0.10215463501406746)
g = false
a = Segment(S, B_2)
e, e_2, e_3 = линзовыйлуч(S, B_1, B_4)
O = Intersect(xAxis, yAxis)
R: (RandomUniform[2, 3], RandomUniform[1, 2])
d = Line(R, O)
A = Point(yAxis)
B = (-0.5, 12.5)
C = (0.5, 12.5)
многоугольник1, c_1, a_1, b_1 = Polygon(A, B, C)
D = (0, -14)
E = (-0.5, -12.5)
F = (0.5, -12.5)
многоугольник2, f, d_1, e_1 = Polygon(D, E, F)
G = Intersect(a_1, yAxis)
H = Intersect(d_1, yAxis)
h = Segment(H, G)
S': -(abs(x(S) * x(F_1)) / abs(x(S) - x(F_1)), y(S) * abs(x(S) * x(F_1)) / abs(x(S) - x(F_1)) / x(S))
i = false
j = true
p = OrthogonalLine(F_2, xAxis)

Tool: линзовый луч (command линзовыйлуч)
Input: A, B, C
Output: c, a, b

a = Segment(A, B)
b = Line(B, C)
c = Ray(B, C)