When I have an input like:
1/2*k
The output is:
How to change the output of Timesfunction to see this result:
Another option is to put all rational number using Deferfunction automatically.
$\begingroup$
$\endgroup$
5
2 Answers
$\begingroup$
$\endgroup$
3
You can just override the formatting of Times:
MakeBoxes[Times[r_Rational, s_], StandardForm] := RowBox[{MakeBoxes[r], MakeBoxes[s]}]
MakeBoxes[Times[r_Rational, s__], StandardForm] := RowBox[{MakeBoxes[r], MakeBoxes[Times[s]]}]
Then:
k/2
answered Jan 29, 2019 at 21:48
-
$\begingroup$ Should the first FormatValue be
RowBox[{MakeBoxes[r], Parenthesize[s, StandardForm, Times]}]? $\endgroup$ Commented Jan 29, 2019 at 22:10 -
$\begingroup$ @ChipHurst Yes, that would be a good idea, so that
1/2 (a+b)formats correctly. $\endgroup$ Commented Jan 30, 2019 at 0:42 -
$\begingroup$ The problem is when I have a symbol in the denominator. For example, for
1/α*kthe output will bek/αbecause for Mathematica1/αis not a Rational number. How to change for the output be1/α k. $\endgroup$– MateusCommented Jan 30, 2019 at 22:45
$\begingroup$
$\endgroup$
2
You just want to change notation, not the way Times actually works.
You can try using a separator, as @kglr suggests in the comments.
<<Notation`
Notation[ParsedBoxWrapper[
RowBox[{"a_", "\[InvisibleTimes]", "b_"}]]
\[DoubleLongLeftRightArrow] ParsedBoxWrapper[
RowBox[{"Times", "[", RowBox[{"a_", ",", "b_"}], "]"}]]]
After evaluating the above, when I type
k/2
I see
(1/2) k
But when I type k/3/d I see (1/3)((1/d)k). So maybe more finesse is needed...
-
$\begingroup$ Update: you must <<Notation` first. $\endgroup$– evanbCommented Jan 29, 2019 at 18:55
-
$\begingroup$ According to stackoverflow.com/questions/4635701/… you may want to set Notation`AutoLoadNotationPalette=False at the beginning, when you're done fiddling with notation. $\endgroup$– evanbCommented Jan 29, 2019 at 20:25
TraditionalForm[Defer[1/2 ] k ]? $\endgroup$Times. $\endgroup$Infix[1/2 k, "\[InvisibleTimes]"]? $\endgroup$Infix.....I want a way to program just in one line for every Rational number that I write from now on. $\endgroup$Notationpackage. You certainly do not want to change the workings ofTimes---it's very deep down and all sorts of things depend on it working correctly. $\endgroup$