r(t) \; =  r_0 \;  [1 + a \; cos( \frac{ k_{num}}{k_{den}}  \; t + t_0)]

Mostrar escala

Lila

Ayuda

Rotaciones

Flores

Amarilla

Blanca

Rosa

yA = 0.48
xA = 6.82 (slider from 0.28 to Infinity, step 0.01)
k02 = 1 (slider from 1 to 12, step 1)
k01 = 8 (slider from 1 to 12, step 1)
k_{den}: round(k02)
k_{num}: round(k01)
deno: k_{den} / GCD[k_{num}, k_{den}]
r_0 = 2 (slider from 0.05 to 4, step 0.05)
nume: k_{num} / GCD[k_{num}, k_{den}]
a = 1 (slider from 0 to 4, step 0.01)
A: (xA, yA)
θ_0 = 0 (slider from 0 to 6.283185307179586, step 0.1)
n = 18.01 (slider from 0.01 to 80, step 0.01)
texto3: "r_0 = " + r_0
texto4: "a = " + a
texto5: "\frac{ k_{num} }{ k_{den}} \; = \;  \frac{ " + k_{num} + " }{" + k_{den} + " }"
Lcirculosgraduados = Sequence(Circle[A, k], k, 1.0, 8.0)
Lnumerosescala = Sequence(Text[k, A + (k + 0.1, 0.0)], k, 1.0, 8.0)
escala = false
B = (2.74, -3.08)
lila = false
texto6: "t_0 = " + θ_0
periodo: deno * 2.0 * 3.141592653589793
f = CurveCartesian(x(A) + r_0 * (1.0 + a * cos(k_{num} / k_{den} * t + θ_0)) * cos(t), y(A) + r_0 * (1.0 + a * cos(k_{num} / k_{den} * t + θ_0)) * sin(t), t, 0.0, periodo)
texto1: "r(t) \; = \; " + (If[r_0 ≟ 0.0, "", r_0 + " \;[1 \;  + \;"]) + a + "  \; cos( \frac{ " + k_{num} + " }{" + k_{den} + " } \; t" + (If[θ_0 ≟ 0.0, ")]", " \; + \; " + θ_0 + ")]"])
ayuda = false
circuloayuda = Circle(A, r_0 * a)
b = 0 (slider from 0 to 1, step 0.01)
k1: k_{num} / k_{den}
rot = false
P1: (x(A) + r_0 * (1.0 + a * cos(k_{num} / k_{den} * b * periodo + θ_0)) * cos(b * periodo), y(A) + r_0 * (1.0 + a * cos(k_{num} / k_{den} * b * periodo + θ_0)) * sin(b * periodo))
flores = false
amarilla = false
blanca = false
rosa = false