Minkowski question-mark function: Difference between revisions
no edit summary
No edit summary |
|||
Line 342:
0.7182818280000092 0.12131415161718191
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>ClearAll[InverseMinkowskiQuestionMark]
InverseMinkowskiQuestionMark[val_] := Module[{x}, (x /. FindRoot[MinkowskiQuestionMark[x] == val, {x, Floor[val], Ceiling[val]}])]
MinkowskiQuestionMark[GoldenRatio]
InverseMinkowskiQuestionMark[-5/9] // RootApproximant
MinkowskiQuestionMark[InverseMinkowskiQuestionMark[0.1213141516171819]]
InverseMinkowskiQuestionMark[MinkowskiQuestionMark[0.1213141516171819]]</lang>
{{out}}
<pre>5/3
1/6 (-7+Sqrt[13])
0.121314
0.121314</pre>
=={{header|Nim}}==
| |||