Reiniciar

Desde la estrella Polar

Desde la Tierra (escala 1:2)

Punto medio

Segmento VT

Epitrocoide

Flor de Venus

t = 0 (slider from 0 to 8, step 5.0E-4)
excentricidadTierra: 0
semiejeMayorTierra: 1
semiejeMenorTierra: (semiejeMayorTierra * sqrt(1 - excentricidadTierra^(2)))
semifocalTierra: sqrt(semiejeMayorTierra^(2) - semiejeMenorTierra^(2))
S = (-10.376332851735269, 3.8138756528950744)
T': S
T'': T' + (1, 0)
velocidad = 2 (slider from 0.5 to 5, step 0.5)
escala: 0.5
órbitaSol' = Ellipse(T', T' + (0, semifocalTierra), (semiejeMayorTierra * escala))
S' = Point(órbitaSol', fractionalPart((t * velocidad)))
órbitaTierra = Ellipse(S, S + (0, semifocalTierra), semiejeMayorTierra)
semiejeMayorVenus: 0.72
excentricidadVenus: 0
semiejeMenorVenus: (semiejeMayorVenus * sqrt(1 - excentricidadVenus^(2)))
semifocalVenus: sqrt(semiejeMayorVenus^(2) - semiejeMenorVenus^(2))
órbitaVenus = Ellipse(S, S + (0, semifocalVenus), semiejeMayorVenus)
velocidadVenus: (velocidad * 13 / 8)
T = Point(órbitaTierra, fractionalPart((t * velocidad)))
V = Point(órbitaVenus, fractionalPart((velocidadVenus * t)))
TV = Segment(V, T)
PM = Midpoint(TV)
desdePolar = true
desdeTierra = false
T'Sol' = Segment(T', S')
órbitaVenus' = Ellipse(S', S' + (0, semifocalVenus), (semiejeMayorVenus * escala))
V' = Point(órbitaVenus', fractionalPart((t * velocidadVenus)))
Sol'V' = Segment(S', V')
A = (-11.36890332992015, 2.821305174710197)
opacidadDiagrama = 0 (slider from 0 to 0.7, step 0.1)
texto2: "años = " + (floor(((10 * t) * velocidad)) / 10) + ""
T2 = Point(órbitaTierra, fractionalPart(((t - 0.005) * velocidad)))
V2 = Point(órbitaVenus, fractionalPart((velocidadVenus * (t - 0.005))))
PM2 = Midpoint(T2, V2)
g = Segment(PM2, PM)
rastroPuntoMedio = false
rastroTV = true
d = Circle(T', (5 / 13 * escala))
e = Circle(S', (8 / 13 * escala))
C = Intersect(d, T'Sol')
h = Segment(S', V')
epitrocoide = false
flor = false
B: (-9.3653131082, 2.8213051747)
A' = Rotate(A, (-(14.5°)), S)
B' = Rotate(B, (-(14.5°)), S)
trayectoria = CurveCartesian(x(T') + (escala * (cos(t + π / 13) + (semiejeMayorVenus * cos((13 / 8 * t))))), y(T') + (escala * (sin(t + π / 13) + (semiejeMayorVenus * sin((13 / 8 * t))))), t, 0, (16 * π))
rueda = Sequence(Segment[S', Rotate[C, ((((5 / 8 * t) * velocidad) * 2) * π) + (s * π), S']], s, 0.125, 2, 0.125)