Price fraction: Difference between revisions

Content added Content deleted
(Added 11l)
Line 2,677: Line 2,677:
0.540447 --> 0.66</pre>
0.540447 --> 0.66</pre>


=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>PriceFraction[x_]:=Piecewise[{{.1, 0 <= x < 0.06}, {.18, x < .11}, {.26,x < 0.16},
<lang Mathematica>PriceFraction[x_]:=Piecewise[{{.1, 0 <= x < 0.06}, {.18, x < .11}, {.26,x < 0.16},
{.32, x < .21}, {.38, x < .26}, {.44, x < 0.31}, {.5, x < .36},
{.32, x < .21}, {.38, x < .26}, {.44, x < 0.31}, {.5, x < .36},