Constrained random points on a circle: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Raku}}: Fix-up some Perl6 -> Raku references) |
(Frink) |
||
| Line 1,426: | Line 1,426: | ||
* * ** * |
* * ** * |
||
*</pre> |
*</pre> |
||
=={{header|Frink}}== |
|||
<lang frink> |
|||
g = new graphics |
|||
count = 0 |
|||
do |
|||
{ |
|||
x = random[-15,15] |
|||
y = random[-15,15] |
|||
r = sqrt[x^2 + y^2] |
|||
if 10 <= r and r <= 15 |
|||
{ |
|||
count = count + 1 |
|||
g.fillEllipseCenter[x,y,.3, .3] |
|||
} |
|||
} while count < 100 |
|||
g.show[] |
|||
</lang> |
|||
=={{header|gnuplot}}== |
=={{header|gnuplot}}== |
||