Tag Info

New answers tagged

0

It seems that there are no special boxes for these symbols. One can, however, use standard operators of the box language and insert there symbols from the palette Menu/Palettes/Special Characters/Symbols such as integral or partial derivativederivative. Like this one finds: StyleBox[RowBox[{"\[Integral]", "y", "(", "x", ")", "\[DoubleStruckD]", "x"}], ...


4

No, this is not possible. A cell can only be evaluated if it contains a complete and syntactically correct expression. You might want to try Code style cells (Alt-8 or Command-8) which contain plain text and allow arbitrary formatting with spaces, tabs and newlines.


0

mestLevo[x_] := Last[RealDigits[N[x]]]; SigMest[x_, n_] := If[n == 0, Round[x] // N, Round[x 10^-mestLevo[x] 10^n] 10^-n 10^mestLevo[x]] // N;


3

What you are looking for is LineSpacing, you can use it this way: 1; 2; 3; SetOptions[EvaluationCell[], LineSpacing -> {2, 0}] Or via OptionsInspector:


7

You could do it using the following: SetOptions[EvaluationNotebook[],InputAliases->{"bn"-> FormBox[TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"},"Binomial"],InputForm]}] Then enter escbnesc to get a placeholder that you can tab through: Then enter the numbers and press shift-enter to evaluate. Edit To make the output appear ...


4

Perhaps: BarChart[stackData, ChartLabels -> {Placed[Style[#, FontSize->Scaled[.025]]&/@ newElementsSmall, Above]}, PlotLabel -> Style["6M1@32Ag", Bold, 50], ChartLegends -> {"eV"}]


1

OK, I think I can give you some tips about performance here. There are a couple things you do that really tend to slow you down, and which I would describe as Mathematica "anti-patterns". In particular, building arrays by repeatedly calling AppendTo is likely to be really slow (the time taken will grow quadratically in the length of the list), and accessing ...


5

If you're going to be doing this programmatically (as opposed to typing directly into a Text cell) and doing it often, then perhaps a function that is typeset as parentheses would be useful. Format[parens[e_]] := DisplayForm@RowBox[{"(", MakeBoxes@e, ")"}] equation[Subscript[OverBar[parens[X/Y]], "geom"] == foo] If you need to adjust the space around ...


1

Something like this: StyleBox[ RowBox[{ SubscriptBox[ RowBox[{"(", FractionBox[OverscriptBox["X", "_"], "y"], ")"}], "geom"], "=", FractionBox[SubscriptBox[OverscriptBox["X", "_"], "geom"], SubscriptBox[OverscriptBox["Y", "_"], "geom"]] }] , SpanMaxSize -> Infinity] // DisplayForm It gives this: I am not ...


3

Numerical approach according to Jens' comment : pde = D[u[x, t], t] - 0.2 D[u[x, t], {x, 2}] == 0; g[x_] := 1/(1 + x^2)^0.25; sol = NDSolve[{pde, u[x, 0] == g[x], u[-10, t] == u[10, t] == g[10]}, u[x, t], {x, -10, 10}, {t, 0, 20}] Plot3D[u[x, t] /. sol, {x, -10, 10}, {t, 0, 20}, AxesLabel -> {Style["x", Italic, Red, 20], ...


8

Since nobody has mentioned it yet... V8 introduced the undocumented flag Debug`$ExamineCode. When it is set to true, the information functions will display the definitions of ReadProtected symbols: Debug`$ExamineCode = True ??BinLists It is sometimes useful to suppress some of the internal package names to make it easier to scan the definitions. Here ...


1

Give this a try: Row[{ "1.", Invisible["space"], "(a)", Invisible["space"], "Find ", HoldForm@TraditionalForm@Integrate["x"^2, x] }] which produces: and this: Row[{ "2.", Invisible["space"], "(a)", Invisible["space"], "Find ", HoldForm@TraditionalForm@Integrate[Style[1/"x", 18], x] }] produces this: You can alter the size of the fraction within ...



Top 50 recent answers are included