Prev: Coloring a Sum
Next: How to combine graphics pimitives and Plot function?
From: a boy on 31 Jan 2010 05:59
PrimeRotatingDiagram.nb <http://att.newsmth.net/att.php?p.749.82091.545.nb>
- http://att.newsmth.net/att.php?p.749.82091.545.nb


Suppose p[i] is the i-th prime. Start from coordinate origin (0,0)
, firstly draw a line segment at the direction of positive X-axes and
the length is 2=p[1], secondly rotate anticlockwise angle \[Theta] and
draw a line segment lengthed 3=p[2], ... at the i-th step, rotate
anticlockwise angle \[Theta] and draw a line segment lengthed p[i]...
This is Prime Rotating Diagram G(\[Theta],p[n]).

Block[{$RecursionLimit = 10000}, t
\[Theta] = 1.01 Pi/2;
n = 300;
point[0] = {0, 0};
point[i_Integer] :=
point[i - 1] +
Prime[i] {Cos[(i - 1) \[Theta]], Sin[(i - 1) \[Theta]]};
Graphics[{Blue, Line[Table[point[i], {i, 1, n}]], Red,
Circle[{0, 0}, 1]}, Axes -> True]
]
(*Manipulate[Graphics[{Green,Line[Table[point[i],{i,1,n}]],Blue,Line[{\
{0,0},{point[n][[1]],point[n][[1]]}}]},Axes->True],{n,1,1000}]*)

For any G(\[Theta],p[n]), there is a minimal circle covering the diagram.

I have some questions in the notebook in the link above.
Can you give me the answer or some advice, if you are in your free time?


 | 
Pages: 1
Prev: Coloring a Sum
Next: How to combine graphics pimitives and Plot function?