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