Verify distribution uniformity/Naive: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,890: / Line 1,890: @@
 bins '''FOR''' j
          DUP j GET
+         '''IF'''
-         '''IF''' DUP n bins / %CH 100 / ABS delta > '''THEN''' NEG j SWAP PUT '''ELSE''' DROP '''END'''
+            DUP n bins / %CH 100 / ABS
+            delta >
+         '''THEN''' NEG j SWAP PUT '''ELSE''' DROP '''END'''
       '''NEXT'''
  ≫ ≫ '<span style="color:blue">UNIF?</span>' STO
-  ≪ <span style="color:blue">DICE7</span> ≫ 10000 .1 <span style="color:blue">UNIF?</span>
+  ≪ <span style="color:blue">DICE7</span> ≫ 10000 .05 <span style="color:blue">UNIF?</span>
-  ≪ 6 RAND * CEIL ≫ 10000 .1 <span style="color:blue">UNIF?</span>
+  ≪ 6 RAND * CEIL ≫ 1000 .05 <span style="color:blue">UNIF?</span>
 {{out}}
 <pre>
-: [ -1284 -1232 -1211 -1270 -1288 -1844 -1871 ]
+: [ 1439 1404 1413 1410 1424 1486 1424 ]
-: [ 1564 1773 1670 1629 1613 1751 ]
+: [ 169 172 -158 163 171 167 ]
 </pre>