Minkowski question-mark function: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 342: | Line 342: | ||
0.7182818280000092 0.12131415161718191 |
0.7182818280000092 0.12131415161718191 |
||
</pre> |
</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}}== |
=={{header|Nim}}== |