Comprobar

Inténtalo otra vez

ang = 0.5235987755982988 rad (slider from 0 to 6.283185307179586, step 0.5235987755982988)
dist = 10.999999999999998 (slider from 4 to 12, step 1)
A: (dist; ang)
α: 30° + ((Random[0, 5] * 60))°
r = Random(4, 12)
A': A
v = 1 (slider from 0 to 1, step 0.01)
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, 1)
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)
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
texto5: "Coloca el punto rojo del submarino
a una distancia " + r + "
del centro del radar, 
formando un ángulo de " + α + "."
lista2 = Sequence(Segment[(0, 0), (12; (3.141592653589793 * t / 6))], t, 1, 11, 2)
AA: A
AA': A'