Mostrar aviones

A

B

C

Colorear

Mostrar aviones

Ocultar aviones

Colorear

D

regla

Mostrar regla

Bisectriz

Bisectriz

P

Transportador

Transportador

A = (-3.74, 0.06)
B = (11.18, 5.1000000000000005)
C = (11.8, -3.58)
D = (15.280000000000001, 3)
u1: (B - A) / Distance[A, B]
u2: (C - A) / Distance[A, C]
u3: (D - A) / Distance[A, D]
av1 = 5.18 (slider from 0 to 14, step 0.01)
A1: A + (av1 * u1)
A2: A + (av1 * u2)
A3: A + (av1 * u3)
d = true
humo1 = Segment(A, A1)
humo2 = Segment(A, A2)
humo3 = Segment(A, A3)
e = Ray(A, B)
f = Ray(A, D)
g = Ray(A, C)
h, i = AngularBisector(g, e)
E = Point(h)
j = false
xgoma = 2.5 (slider from 2.5 to 2.7, step 0.1)
ygoma = 5.7 (slider from 5.5 to 5.7, step 0.1)
Goma: (xgoma, ygoma)
k = false
regla1a = (3.84, -3.44)
regla1b = Circle(regla1a, 4)
regla1c = Point(regla1b)
α = 0.017453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
β: α / 2
regla1d: Angle[regla1a + (1, 0), regla1a, regla1c] - α / 2
regla1e = Rotate(regla1a + ((-7.68), (-0.5)), (β * Div[regla1d + β, β]), regla1a)
regla1f = Rotate(regla1a + (7.68, (-0.5)), (β * Div[regla1d + β, β]), regla1a)
regla1g = Rotate(regla1a - (0.19, 0.19), regla1d, regla1a)
regla1h = Rotate(regla1a - ((-0.19), 0.19), regla1d, regla1a)
Regla1i: regla1c - (0.21, 0.19)
Regla1j: regla1c - ((-0.21), 0.19)
aa = Ray(A, D)
bb = Ray(A, C)
cc = Ray(A, B)
a = false
b, c = AngularBisector(e, g)
F = Point(b)
l = false
Trans1a = (2.46, -3.84)
Trans1b = Circle(Trans1a, 4)
Trans1c = Point(Trans1b)
Trans1d = Angle(Trans1a + (1, 0), Trans1a, Trans1c)
Trans1e = Rotate(Trans1a + ((-5.72), (-0.73)), Trans1d + 5°, Trans1a)
Trans1f = Rotate(Trans1a + (5.68, (-0.73)), Trans1d + 5°, Trans1a)
Trans1g = Rotate(Trans1a - (0.19, 0.19), Trans1d + 5°, Trans1a)
Trans1h = Rotate(Trans1a - ((-0.19), 0.19), Trans1d + 5°, Trans1a)
Trans1i = Rotate(Trans1a + (4, 0) - (0.21, 0.19), Trans1d, Trans1a)
Trans1j = Rotate(Trans1a + (4, 0) - ((-0.21), 0.19), Trans1d, Trans1a)