       Prime Rotating Diagram

• To: mathgroup at smc.vnet.net
• Subject: [mg107002] Prime Rotating Diagram
• From: a boy <a.dozy.boy at gmail.com>
• Date: Sun, 31 Jan 2010 05:57:26 -0500 (EST)

```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, secondly rotate anticlockwise angle \[Theta] and
draw a line segment lengthed 3=p, ... 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};
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][],point[n][]}}]},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?

```

• Prev by Date: Re: position of sequence of numbers in list
• Next by Date: Re: position of sequence of numbers in list
• Previous by thread: Partition prime list into equal k sublists. How to write code for
• Next by thread: How to combine graphics pimitives and Plot function?