New answers tagged

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