Distancia:

Ángulo:

Comprobar

Inténtalo otra vez

y1 = 10 (slider from 2 to 10, step 2)
x1 = 22 (slider from 22 to 26, step 2)
α: ((Random[0, 11] * 30))°
r = Random(4, 12)
A: (r; α)
A': A
v: 0
c = Circle((0, 0), ((2 * v) * r))
c' = Circle(A, (((2 * v) - 1) * r))
a = Ray(A, (0, 0))
b = OrthogonalLine(A, a)
B, C = Intersect(c', b)
D = Intersect(c', a)
d = CircumcircleArc(B, D, C)
E = Midpoint(C, D)
F = Midpoint(B, D)
e = Ray(A', E)
f = Ray(A', F)
G = Intersect(d, e)
H = Intersect(d, f)
g = CircumcircleArc(G, D, H)
lista1 = Sequence(Circle[(0, 0), t], t, 1, 12)
lista2 = Sequence(Segment[(0, 0), (12; ((2 * 3.141592653589793) * t / 12))], t, 0, 11)
I: (x1, y1)
h = Circle(I, 1)
lista3 = Sequence(Text[If[s  <  10, " ", ""] + (s), (21.6 + (2 * Mod[s - 1, 3]), 7.75 - (2 * Div[s - 1, 3]))], s, 1, 12)
dist: (x1 - (3 * y1)) / 2 + 2
x2 = 22 (slider from 22 to 26, step 2)
y2 = -4 (slider from -12 to -4, step 2)
J: (x2, y2)
k = Circle(J, 1)
lista4 = Sequence(Text[If[s ≟ 1, "  ", If[s  <  5, " ", ""]] + ((30 * (s - 1))) + "º", (21.25 + (2 * Mod[s - 1, 3]), (-6.25) - (2 * Div[s - 1, 3]))], s, 1, 12)
ang = If(y2 > (-5), 5°, ((((x2 - (3 * y2)) / 2 - 19 - 1) * 30))°)
exito = If(ang ≟ α ∧ dist ≟ r, true, false)
texto3: "¡MUY BIEN!" + "
Ese punto dista " + r + " unidades del origen" + "
y el ángulo mide " + α
β = Angle((1, 0), (0, 0), A)
i = false