Anonymous user
Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 03:33, 10 May 2011
, 13 years ago→{{header|Icon}} and {{header|Unicon}}: + usage
(→{{header|Icon}} and {{header|Unicon}}: + usage) |
|||
Line 699:
procedure main(A) # points, inside r, outside r in pixels - default to task values
if \A[1] == "help" then stop("Usage: plot #points inside-radius outside-radius")
points := \A[1] | 100
outside := \A[2] | 15
inside := \A[3] | 10
if inside > outside then inside :=: outside
wsize := integer(2.2*outside)
| |||