6 lines
403 B
Text
6 lines
403 B
Text
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]]
|