Mostrar traza

Comprobar

Mostrar regla

Colorear

Comprobar

Mostrar regla

ALDEANUEVA

BELLAVISTA

CAMPOLLANO

α = 0.017453292519943295 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Regla1a = (4.0200000000000005, -2.02)
Regla1b = Circle(Regla1a, 4)
Regla1c = Point(Regla1b)
C = (10.040000000000001, -3)
B = (0.56, -4.16)
A = (1.28, 4.98)
polígono1, c, a, b = Polygon(A, B, C)
e = LineBisector(b)
d = LineBisector(c)
D = Intersect(d, e)
d4 = Distance(A, D)
P = (4.972447204968943, -1.4199503105590054)
T: P
d1 = Distance(P, D)
d2 = Distance(P, B)
d3 = Distance(P, C)
rojo: 1 - abs(Distance[P, B] - Distance[P, A]) / d4
azul: 1 - abs(Distance[P, A] - Distance[P, C]) / d4
verde: 1 - abs(Distance[P, C] - Distance[P, B]) / d4
f = false
E = (-4.3, -5.96)
Regla1d: Angle[Regla1a + (1, 0), Regla1a, Regla1c] - α / 2
g = false
h = false
Regla1i: Regla1c - (0.21, 0.19)
Regla1j: Regla1c - (-0.21, 0.19)
β: α / 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)
S = (6.524944099378881, 1.0682981366459632)
xgoma = -1.53527950310559 (slider from -1.6 to -1.4, step 0.1)
ygoma = 5 (slider from 5 to 5.15, step 0.1)
Goma: (xgoma, ygoma)