Actualización
No incluyen la trigonometría como bien extensa, pero se incluye como complemento visual para dar genreal idea:
Tenga en cuenta que un obturador de una cámara tradicional funciona en el mismo principio:
Tenga en cuenta también que Narasimham la observación de las rutas que toman ofrecer una prueba visual de la conjetura, y para mayor $n$, son muy atractivas:
Código en Narasimham de la solicitud:
Manipulate[
Show[\[Theta] = LambertW[1]//N; length = -10; g = 0.2;
tt = {1.337, 1.236, 1.18, 1.144, 1.121, 1.104, 1.091, 1.081, 1.073,
1.066, 1.061, 1.056, 1.052, 1.049, 1.046, 1.043, 1.041, 1.039};
r = c*(rr =
If[n < 2*Pi,
Pi + n*(-1 + 2*Pi) +
n*ArcTan[
Cos[1] + Cos[1 - (4*Pi)/n] + 2*Cos[1 - (2*Pi)/n] -
2*Sqrt[2]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*Sin[1 - (2*Pi)/n]^2],
4*Cos[Pi/n]^2*Sin[1 - (2*Pi)/n] +
2*Sqrt[2]*Cot[1 - (2*Pi)/n]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*
Sin[1 - (2*Pi)/n]^2]],
Pi + n*(-1 + 2*Pi) +
n*ArcTan[
Cos[1] + Cos[1 - (4*Pi)/n] + 2*Cos[1 - (2*Pi)/n] +
2*Sqrt[2]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*Sin[1 - (2*Pi)/n]^2],
4*Cos[Pi/n]^2*Sin[1 - (2*Pi)/n] -
2*Sqrt[2]*Cot[1 - (2*Pi)/n]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*
Sin[1 - (2*Pi)/n]^2]]]);
aa = Table[{Cos[1 + (2*k*Pi)/n]*Cos[\[Theta]] -
Sin[1 + (2*k*Pi)/n]*Sin[\[Theta]],
Cos[\[Theta]]*Sin[1 + (2*k*Pi)/n] +
Cos[1 + (2*k*Pi)/n]*Sin[\[Theta]]}, {k, Join[{n}, Range[n]]}];
li = Table[{(2*
Sin[r/n]*(-Sin[1 + ((2*s + 1)*Pi)/n + \[Theta]] +
Cos[Pi/n]*Sin[(n + (2*s + 1)*Pi + r + n*\[Theta])/n]))/(3 +
Cos[Pi/n]^2 - 4*Cos[Pi/n]*Cos[r/n] -
Sin[Pi/n]^2), (2*(Cos[1 + ((2*s + 1)*Pi)/n + \[Theta]] -
Cos[Pi/n]*Cos[(n + (2*s + 1)*Pi + r + n*\[Theta])/n])*
Sin[r/n])/(3 + Cos[Pi/n]^2 - 4*Cos[Pi/n]*Cos[r/n] -
Sin[Pi/n]^2)}, {s, 1, n}];
list = Join[Drop[li, n - 2], Take[li, n - 2]];
Graphics[{Opacity[If[TrueQ[JamesBond] == True, 1, 0]], Black,
Polygon[{{-(1 + g), -(1 + g)}, {1 + g, -(1 + g)}, {1 + g,
1 + g}, {-(1 + g), 1 + g}}], {Red, Thick,
Opacity[If[TrueQ[JamesBond] == True, 0,
If[TrueQ[circles] == True, 1, 0]]], Circle[]}, {Red, Thick,
Opacity[If[TrueQ[JamesBond] == True, 0,
If[TrueQ[circles] == True, 1, 0]]], Circle[{0, 0}, Cos[Pi/n]]},
Opacity[If[TrueQ[JamesBond] == True, 0, 1]], Thick, Blue,
Line[aa], Opacity[If[TrueQ[JamesBond] == True, 1, 0]], White,
Polygon[list], Opacity[1],
If[TrueQ[JamesBond] == True, White, Blue], Thick,
bb = Table[Line[{aa[[u]], list[[u]]}], {u, 1, n}],
Opacity[If[TrueQ[JamesBond] == True, 0, 1]], Red,
PointSize[Large], Point[list],
If[TrueQ[JamesBond] == True, White, Red],
Opacity[If[TrueQ[JamesBond] == True, 1,
If[TrueQ[lines] == True, 1, 0]]],
Table[Line[{bb[[u, 1,
1]], {bb[[u, 1, 2,
1]] + ((bb[[u, 1, 2, 1]] - bb[[u, 1, 1, 1]])*length)/
Sqrt[Abs[(bb[[u, 1, 1, 1]] -
bb[[u, 1, 1, 2]])*2 + (bb[[u, 1, 1, 2]] -
bb[[u, 1, 2, 2]])*2]],
bb[[u, 1, 2,
2]] + ((bb[[u, 1, 2, 2]] - bb[[u, 1, 1, 2]])*length)/
Sqrt[Abs[(bb[[u, 1, 1, 1]] -
bb[[u, 1, 1, 2]])*2 + (bb[[u, 1, 1, 2]] -
bb[[u, 1, 2, 2]])*2]]}}], {u, 1, n}]}],
PlotRange -> {{-(1 + g), 1 + g}, {-(1 + g), 1 + g}}], {{c,
If[TrueQ[min] == True, 1.18, 1]},
If[TrueQ[min] == True, Evaluate[tt[[n - 2]]], 1],
Dynamic[
1*n*(Pi/If[n < 2*Pi,
Pi + n*(-1 + 2*Pi) +
n*ArcTan[
Cos[1] + Cos[1 - (4*Pi)/n] + 2*Cos[1 - (2*Pi)/n] -
2*Sqrt[2]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*Sin[1 - (2*Pi)/n]^2],
4*Cos[Pi/n]^2*Sin[1 - (2*Pi)/n] +
2*Sqrt[2]*Cot[1 - (2*Pi)/n]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*
Sin[1 - (2*Pi)/n]^2]],
Pi + n*(-1 + 2*Pi) +
n*ArcTan[
Cos[1] + Cos[1 - (4*Pi)/n] + 2*Cos[1 - (2*Pi)/n] +
2*Sqrt[2]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*Sin[1 - (2*Pi)/n]^2],
4*Cos[Pi/n]^2*Sin[1 - (2*Pi)/n] -
2*Sqrt[2]*Cot[1 - (2*Pi)/n]*
Sqrt[(3 + Cos[(2*Pi)/n])*Sin[Pi/n]^2*
Sin[1 - (2*Pi)/n]^2]]])]}, {{n, 5}, 3, 20,
1}, {{circles, False}, {True, False}}, {{lines, False}, {True,
False}}, {{JamesBond, False}, {True, False}}, {{min, False}, {True, False}}]
las rutas calculadas por separado con
n = 10;
Show[\[Theta] = LambertW[1]//N;
aa = Table[{Cos[1 + (2 k \[Pi])/n] Cos[\[Theta]] -
Sin[1 + (2 k \[Pi])/n] Sin[\[Theta]],
Cos[\[Theta]] Sin[1 + (2 k \[Pi])/n] +
Cos[1 + (2 k \[Pi])/n] Sin[\[Theta]]}, {k, Join[{n}, Range[n]]}];
Graphics[{Thick, Blue, Line[aa]}], Show[\[Theta] = LambertW[1];
Graphics[Thick, Blue, Line[aa]],
r = c*(Pi + 20*(-1 + 2*Pi) +
20*ArcTan[(4*Cos[Pi/20]^2*Sin[1 - Pi/10] -
2*Sqrt[2*(3 + Sqrt[5/8 + Sqrt[5]/8])]*Cos[1 - Pi/10]*
Sin[Pi/20])/(Cos[1] + Cos[1 - Pi/5] + 2*Cos[1 - Pi/10] +
2*Sqrt[2*(3 + Sqrt[5/8 + Sqrt[5]/8])]*Sin[1 - Pi/10]*
Sin[Pi/20])]);
Table[ParametricPlot[\[Theta] = LambertW[1]//N; {(
2 Sin[r/n] (-Sin[1 + ((2 s + 1) \[Pi])/n + \[Theta]] +
Cos[\[Pi]/n] Sin[(n + (2 s + 1) \[Pi] + r + n \[Theta])/n]))/(
3 + Cos[\[Pi]/n]^2 - 4 Cos[\[Pi]/n] Cos[r/n] - Sin[\[Pi]/n]^2), (
2 (Cos[1 + ((2 s + 1) \[Pi])/n + \[Theta]] -
Cos[\[Pi]/n] Cos[(n + (2 s + 1) \[Pi] + r + n \[Theta])/
n]) Sin[r/n])/(
3 + Cos[\[Pi]/n]^2 - 4 Cos[\[Pi]/n] Cos[r/n] -
Sin[\[Pi]/n]^2)}, {c, 0, 0.5}, Axes -> False, PlotRange -> All,
PlotStyle -> {Red, Thick}], {s, 1, n}]]]
solo cambie n
como se desee.
Respuesta Original
Idea
Dado que todos los polígonos regulares pueden ser inscritos en la unidad de círculo, un círculo puede entonces ser inscrita en el polígono (discontinua) y una más dentro de ese polígono. Si las líneas, a continuación, unirse a los vértices del polígono exterior a los correspondientes del polígono interno, el externo polígono puede ser fijo, mientras que el interior está girada. El resto de las líneas, a continuación, formar un tercer polígono que las disminuciones en el tamaño de a $0$ cuando el polígono interno se gira media vuelta. Desde el exterior es fijo, la relación de la siguiente manera.
Detalles
Un polígono inscrito en un círculo unidad tiene los vértices en $$e^{i(1 + 2\pi k/n)}$$ for all $k=1$ to $n$, where $n$ is the number of sides of the polygon. This can be described in cartesian coordinates as $$\{\Re\ e^{i(1 + 2\pi k/n)},\Im\ e^{i(1 + 2\pi k/n)}\}.$$ The polygon can then be rotated about the origin so that the uppermost vertex lies on the $de$y-eje multiplicando por la matriz
\begin{pmatrix}
\Re \ e^{i\Omega} & -\Im \ e^{i\Omega}\\
\Im \ e^{i\Omega}& \Re \ e^{i\Omega}\\
\end{pmatrix}
donde $\Omega$ es el Omega constante.
Un círculo más pequeño, con un radio de $\Re \ e^{i\pi/n}$ donde $n$ es el número de lados del polígono, entonces puede ser inscrito en su interior.
El polígono que va a ser inscrito y girar dentro de los que se han coordenadas
\begin{align}
\Re \ e^{i\pi/n}
\begin{pmatrix}
\Re \ e^{i\Omega_{1}} & -\Im \ e^{i\Omega_{1}}\\
\Im \ e^{i\Omega_{1}}& \Re \ e^{i\Omega_{1}}\\
\end{pmatrix}
\cdot \{\Re\ e^{i(1 + 2\pi k/n)},\Im\ e^{i(1 + 2\pi k/n)}\}
\end{align}
donde$\Omega_{1}=\dfrac{r}{n}+\Omega$, $r$ desde $0$ $n\pi.$
Código de Mathematica para jugar con:
Manipulate[ Show[\[Theta] = LambertW[1] // N;
c = Re[E^( I Pi/n)]; \[CapitalTheta] = r/n + \[Theta];
Graphics[{(*Circle[]*){Circle[{0, 0}, c]},
Line[aa = (Table[{{Re[E^( I \[Theta])], -Im[E^( I \[Theta])]},
{Im[E^( I \[Theta])], Re[E^( I \[Theta])]}}.{Re[ E^(I (1 + 2 \[Pi] k/n))],
Im[E^(I (1 + 2 \[Pi] k/n))]}, {k, Join[{n}, Range[n]]}])],
Line[bb = (c Table[{{Re[E^( I \[CapitalTheta])], -Im[E^( I \[CapitalTheta])]},
{Im[E^( I \[CapitalTheta])],
Re[E^( I \[CapitalTheta])]}}.{ Re[E^(I ( 1 + 2 \[Pi] k/n))],
Im[E^(I ( 1 + 2 \[Pi] k/n))]}, {k,Join[{n}, Range[n]]}])],
Line[Table[{aa[[q]], bb[[q]]}, {q, 1, n}]] }], Axes -> False,
PlotRange -> {{-1, 1}, {-1, 1}}], {{r, 0}, 0, n Pi}, {{n, 3}, 3, 20, 1}]