Constrained random points on a circle: Difference between revisions
Content added Content deleted
(→{{header|Icon}} and {{header|Unicon}}: + usage) |
|||
Line 699: | Line 699: | ||
procedure main(A) # points, inside r, outside r in pixels - default to task values |
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 |
points := \A[1] | 100 |
||
outside := \A[2] | 15 |
outside := \A[2] | 15 |
||
inside := \A[3] | 10 |
inside := \A[3] | 10 |
||
if inside > outside then inside :=: outside |
|||
wsize := integer(2.2*outside) |
wsize := integer(2.2*outside) |