New answers tagged output-formatting
1
I have a indirectly way.
Turn the code into inputform.Like this.
Open Word, copy into it.
copy it from word.
get
α*β*γ
3
You can also wrap the grid object with Style using the option LineBreakWithin -> False:
Style[#, LineBreakWithin -> False] &@
Grid[Prepend[data, {"Projeto", "Data", "Metros", "Tempo"}],
Background -> {None, {Lighter[Yellow, .9], {White, Lighter[Blend[{Blue, Green}], .8]}}},
Dividers -> {{Darker[Gray, .6], {Lighter[Gray, .5]}, Darker[...
1
Just for fun, an additional method (I wouldn't suggest to use this though :P)
ConstantArray[Rotate[10 - #, -Pi/2], #] & /@ Range[9];
Rotate[Grid[%], Pi/2]
1
Like @KGLR said,
wd=WeatherData[Tucson city, "TotalPrecipitation", {{2005}, {2019}, "Day"}]
Histogram[wd,{1},CDF,PlotLabel->"Cumulative Distribution of Rainfall in Tuscon, Arizon",FrameLabel->{"Yearly RainFall inches"},
ImagePadding->10,PlotRangePadding->Scaled[.1],
LabelingFunction->(Placed[Text@NumberForm[N@#,{2,1}],Above]&)
]
If ...
3
Depending on your needs consider $PrePrint and MakeBoxes. Something like this:
MakeBoxes[
Integrate[a__, Assumptions -> _],
fmt : TraditionalForm
] := MakeBoxes[Integrate[a], fmt]
Now when you view the integral in TraditionalForm:
Integrate[f[x] Sin[(n π x)/L], {x, 0, L},
Assumptions -> k > 0 && L > 0] // TraditionalForm
$$\...
8
You can also play with alternative ways to generate the same table:
table = PadLeft[Reverse /@ Range @ Range @ 9, Automatic, ""];
TeXForm @ TableForm @ table
$\begin{array}{ccccccccc}
\text{} & \text{} & \text{} & \text{} & \text{} & \text{} & \text{} & \text{} & 1 \\
\text{} & \text{} & \text{} & \text{} &...
9
Another possibilities
n = 9;
tbl = Table[If[n - i < j, n - j + 1, ""], {i, 1, 9}, {j, 1, 9}];
MatrixForm[tbl]
Grid[tbl]
Grid[tbl, Frame -> All]
1
Interestingly, Wolfram Cloud seems to give an almost-desired answer, clearly indicating use of a differing subroutine. Posting this an an answer as it is too much for a comment:
F[k_] := Sum[Binomial[k, r]*\[CapitalDelta]x^r*\[CapitalDelta]y^(k - r)* Derivative[r, k - r][f][x0, y0], {r, 0, k}]
f[x_, y_] := x^2*y^2
Expand[Sum[F[i]/i!, {i, 0, 3}]]
Gives
...
1
orderedForm[poly_, var_List] :=
HoldForm[+##] & @@
MonomialList[poly,
var][[Ordering[-Total[#] & @@@ CoefficientRules[poly, var], All,
GreaterEqual]]];
orderedForm[
Expand[Sum[
F[i]/i!, {i, 0, 3}]], {Δx, Δy}]
4
Another possibility is to use the 3-arg version of ToExpression to prevent evaluation:
ToExpression["$ \\frac{\\partial ^{n} f}{\\partial x^{n}} $ ", TeXForm, HoldForm]
D[f,{x,n}]
You can use TraditionalForm to format the output as desired:
TraditionalForm[%]
If you really want a string, you can use ToString:
ToString[
ToExpression["$ \\frac{\\...
3
This happens because D[f, {x, n}] evaluates to 0. Mathematica does not find x in the expression f so it assumes that f does not depend on x.
The result of the following might be closer to you goal:
ToExpression["$ \\frac{\\partial ^{n} f(x)}{\\partial x^{n}} $ ", TeXForm]
Derivative[n][f][x]
3
This extends Mr. Wizard's answer to handle large/small numbers:
printNumberError[a_, b_] :=
Block[{exponent = Floor[Log[10, Abs[a]]],
sas = SetAccuracy[#1, Accuracy[SetPrecision[#2, 2]]] &},
If[exponent < 6 && exponent > -4,
NumberForm[sas[Row[{a, "±", b}, " "], b],
ExponentFunction -> (Null &)],
Block[{aa ...
Top 50 recent answers are included
