Tag Info

Hot answers tagged

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 ...


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 ...


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 ...


4

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


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], ...


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:


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 ...


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 ...


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 ...



Only top voted, non community-wiki answers of a minimum length are eligible