turtles-own
[ 
  r
  theta
  a
  prime?
]

to number-spiral [ #n ]
   ca
   ask patches [ set pcolor white ]
   message (word "Working. Generating " #n " points....")
   display
   let max-r sqrt #n
   let scale .49 * world-height / max-r 
   let def-size max (list 1 (scale * .5) )
   repeat #n
   [ create-turtles 1
     [ hide-turtle
       set color black
       set size def-size
       set r sqrt who
       set theta r
       set a (r * 360) mod 360
       let rs r * scale
       setxy (rs * cos a ) (rs * sin a  )
       set heading 0
       set prime? 1
       show-turtle
       if who mod 2500 = 0 [ display ]
     ]
   ]
   message ""
   display
end

to find-prime
   message (word "Seeking about " floor (count turtles * 0.16) " primes.")
   no-display
   let non-prime gray + 4
   
   if is-turtle? turtle 0 [ ask turtle 0 [ set prime? false set color non-prime] ]
   if is-turtle? turtle 1 [ ask turtle 1 [ set prime? false set color non-prime] ]
   
   let i 2
   let lim count turtles
   while [ i < lim ]
   [ if  is-turtle? turtle i and 1 = [ prime? ] of turtle i 
     [ ask turtle i [ set prime? true ] 
       let x i + i
       while [ x < lim ]
       [ ask turtle x [ set prime? false set color non-prime ]
         set x x + i
       ]
     ]
     set i i + 1
   ]
   message ""
   display
end
   
to id-number
   every .2
   [ ifelse ( mouse-inside? and mouse-down? )
     [ let mx mouse-xcor
       let my mouse-ycor
       ask (patch mx my) 
       [ if ( any? turtles-here )
         [ ask min-one-of turtles-here [ distancexy mx my ]
           [ message (word who ": r=" precision r 3 ", O=" precision theta 3 ) 
             display
           ]
         ]
       ]
     ]
     [ message ""
     ]

   ]  
end
              

to ask' [ anything ]
end

to kill-non-primes       
   no-display
   foreach [ self ] of turtles
   [ ask ? [ if prime? = false [ die ] ] ]
   display
   user-message (word count turtles " primes.")
end

to message [ text ]
   ask patch max-pxcor (max-pycor - .5 * world-height)
   [ set plabel-color black set plabel text ]
end     

      
@#$#@#$#@
GRAPHICS-WINDOW
120
10
631
542
250
250
1.0
1
32
1
1
1
0
1
1
1
-250
250
-250
250
1
1
1
ticks

CC-WINDOW
5
556
640
651
Command Center
0

BUTTON
10
165
100
198
go
number-spiral (turns * turns)
NIL
1
T
OBSERVER
NIL
NIL
NIL
NIL

SLIDER
10
10
43
155
turns
turns
5
350
30
5
1
NIL
VERTICAL

BUTTON
10
205
100
238
NIL
find-prime
NIL
1
T
OBSERVER
NIL
NIL
NIL
NIL

BUTTON
10
245
100
278
NIL
kill-non-primes
NIL
1
T
OBSERVER
NIL
NIL
NIL
NIL

MONITOR
10
295
79
340
Left-side
count turtles with [ pxcor < 0 ]
17
1
11

MONITOR
10
350
79
395
Right-side
count turtles with [ pxcor > 0 ]
17
1
11

MONITOR
10
405
80
450
Middle
count turtles with [ pxcor = 0 ]
17
1
11

@#$#@#$#@
WHAT IS IT?
-----------
Create a spiral diagram of the integers.
@#$#@#$#@
default
false
0
Circle -7500403 true true 0 0 300

@#$#@#$#@
NetLogo 4.0.4
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
default
0.0
-0.2 0 0.0 1.0
0.0 1 1.0 0.0
0.2 0 0.0 1.0
link direction
true
0
Line -7500403 true 150 150 90 180
Line -7500403 true 150 150 210 180

@#$#@#$#@