Verify distribution uniformity/Naive: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: typo) |
|||
| Line 1,248: | Line 1,248: | ||
</pre> |
</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>SetAttributes[CheckDistribution, HoldFirst] |
<lang Mathematica>SetAttributes[CheckDistribution, HoldFirst] |
||
CheckDistribution[function_,number_,delta_] :=(Print["Expected: ", N[number/7], ", Generated :", |
CheckDistribution[function_,number_,delta_] :=(Print["Expected: ", N[number/7], ", Generated :", |
||