Anonymous user
Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 10:06, 29 January 2018
, 6 years agodata-name changes; removed unnecessary spaces
No edit summary |
m (data-name changes; removed unnecessary spaces) |
||
Line 621:
working-storage section.
1 binary.
2
2 x pic s9(4).
2 y pic s9(4).
Line 650:
procedure division.
begin.
perform compute-
perform find-all-valid-points
perform shuffle-point-pairs
Line 676:
shuffle-point-pairs.
move dot-count to dot-count-save
compute i = function random (
perform varying dot-count from dot-count by -1
until dot-count < 2
Line 712:
.
compute-
unstring function current-date into
yyyymmdd hh mm ss
compute
(function integer-of-date (yyyymmdd) * 86400)
compute
+ (hh * 3600) + (mm * 60) + ss
compute
.
Line 726:
<pre>
o o o
o o o o
o o o o
o o o o o o o
o o o o o o o
o o o o o o o o
o o o o
o o
o o
o o o o
o o
o
o o o
o o
o o o o
o o o
o o o
o
o o o
o o
o
o o o o
o o
o o o
o o o o o
o o o
o o o o o o
o o o
o o o
o
</pre>
|