Identificar antipodal puntos en el círculo:
Forma el espacio de identificación:
Moviéndose a lo largo de este espacio, usted vuelve a donde empezó... como en un círculo:
(original gifs aquí y aquí; me uní a ellos, porque cuando se carga en diferentes momentos en el navegador, no permanecer en sincronización)
Esta correspondencia entre los puntos de $P$ y los puntos de $S^1$ es un homeomorphism.
PlotUpTo[angle_, colorscale_] :=
ParametricPlot[{Cos[t], Sin[t]}, {t, 0, ángulo}, PlotStyle -> Espesor[0.05],
ColorFunctionScaling -> False,
ColorFunction -> Función[{x, y}, Hue[colorscale (Arg[-x - I y] + Pi)/(2 Pi )]],
PlotRange -> Todos, PlotRangeClipping -> Falso, ImageSize -> {300}, Ejes -> None]
AnimatedMarker[time_, speed_] := Gráficos[{PointSize[0.05],
Punto[{Cos[velocidad 2 Pi], Sin[velocidad 2 Pi tiempo]}],
Blanco, PointSize[0.03], Seleccione[{Cos[velocidad 2 Pi], Sin[velocidad 2 Pi tiempo]}]}]
AnimatedPlot[angle_, colorscale_, time_, speed_] :=
Mostrar[PlotUpTo[ángulo, colorscale], AnimatedMarker[velocidad]]
Exportación["animation.gif", Tabla[Rasterizar[
TableForm[{{AnimatedPlot[Pi, 2, t, 1/2]}, {AnimatedPlot[2 Pi, 1, t, 1]}},
TableSpacing -> {10, 0}]], {t, 0, 1, 0.01}], "DisplayDurations" -> {0.04}]