Radios:

Velocidades:

Dejar rastro

Dejar rastro

d1 = 1 (slider from 1 to 6, step 1)
c1 = 1 (slider from 1 to 6, step 1)
b1 = 4 (slider from 1 to 4, step 1)
a1 = 4 (slider from 1 to 4, step 1)
d: round(d1)
c: round(c1)
a: round(a1)
b: round(b1)
k: Min[c, d] / Max[c, d]
rk: Min[a, b] / Max[a, b]
O = (6.15, 1.1)
α = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 1.7453292519943296E-4)
r = 4.5
y1 = 0.8400000000000002 (slider from -5 to 3, step 0.1)
x1 = 14.740000000000002 (slider from 14.3 to 14.8, step 0.1)
A: O + ((a * r / 4); (c * α))
B: O + ((b * r / 4); (d * α) + 3.141592653589793)
s = Segment(A, B)
rojo: 2 - k - rk
verde: k
azul: rk
Borrar: (x1, y1)
e = false
s' = Segment(A, B)
texto4: " \frac{" + a + " }{" + b + "}"
texto5: " \frac{" + c + " }{" + d + "}"
cir = Circle(O, (r * a / 4))
f = Circle(O, (r * b / 4))
u = Vector(O, B)
v = Vector(O, A)
lista1 = Sequence(O + ((t * r / 4) * UnitVector[u]), t, 1, 3)
lista2 = Sequence(O + ((t * r / 4) * UnitVector[v]), t, 1, 3)
C = Element(lista1, 1)
D = Element(lista1, 2)
E = Element(lista1, 3)
I = Element(lista2, 2)
H = Element(lista2, 1)
J = Element(lista2, 3)
O': O
texto6: a + ""
texto7: b + ""
texto8: c + ""
texto9: d + ""