Modified random distribution: Difference between revisions
m
→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 427:
</pre>
=={{header|Mathematica}}
<lang Mathematica>ClearAll[Modifier, CreateRandomNumber]
Modifier[x_] := If[x < 0.5, 2 (0.5 - x), 2 (x - 0.5)]
|