Tag Info

Hot answers tagged

9

The reason is that you have empty history because you set $HistoryLength = 0 (as you confirm in the comments). I recommend setting $HistoryLength to be at least 3 in order to get the [Show Full Output] button working in the most practical cases.


7

The dimming is controlled by the option PrivateCellOptions->{"EvaluationUnmatchedStyle"}. It must be applied at the cell level, but this is easy to do in your example by using CellPrint with the "Print" style to match what Print does. CellPrint@ ExpressionCell[g, "Print", PrivateCellOptions -> {"EvaluationUnmatchedStyle" -> {}}]


5

Since TreeForm produces a GraphPlot and takes the same options as GraphPlot, it can be done by using a custom vertex rendering function. encoding = {{{w, d}, {o, s}}, {{{e, q}, a}, {i, j}}}; TreeForm[encoding, VertexRenderingFunction -> (If[#2 === List, Inset[Text["\[FilledCircle]"], #], Inset[Framed[Text[Style[#2, 18]], Background ...


5

Mathematica will perform an exact calculation if possible. "E" means exactly e, rather than a numerical approximation i.e. 2.718 (with a few more decimal places). When you calculate f[1/10] it gives the exact value because all of the inputs are exact. If you want a numerical approximation, you can make any of the inputs approximate, or you can use N to ...


4

generatedMsg = {1, 0, 0, 0, 1, 1, 0}; transmittedMsg = {1, 1, 0, 0, 1, 0, 0}; diff = Position[Unitize[generatedMsg - transmittedMsg], 1]; colored = MapAt[Style[#, Red] &, transmittedMsg, diff]; Grid[{ Prepend[generatedMsg, "Generated message:"], Prepend[colored, "Transmitted message:"] }, Alignment -> Right]


3

Just to add some diversity, although I think m_goldbergs answer is very convenient and should be used in most cases. Nevertheless, always remember that you can easily de-structure Mathematica expressions, even the box-expressions that are used for displaying things in the front end. One possible way to start is to look at the box-expressions of a very ...


2

Rough approach: Tooltip resources are stored in FileNameJoin[{ $InstallationDirectory, "SystemFiles", "FrontEnd", "TextResources", "ToolTip.tr"}] In order to not mess with installation directory you can copy this file to $UserBaseDirectory/SystemFiles... and replace labels you want. For example: @@resource ToolTipCut Cut (replace this line ...


2

You can use UnderBar instead of Style[...,Underlined]: Hyperlink[UnderBar[#], #] &@ "http://www.wolfram.com/Sine.html" Note: The issue you observe is mentioned in the docs Underlined >> Possible Issues: Underlined will recursively affect all elements of an expression


2

I assume by nicer looking you means something easy to read. Does this work? m = {{0.25, 0.15, 0.75}, {0.65, 0.7, 0.1}, {0.1, 0.15, 0.15}}; TableForm[#2//Chop, TableHeadings -> {#1}] & @@ Eigensystem[m]


2

Your transformation is not generally true; if you provide FullSimplify with your assumptions you get a better result: expr = (Sqrt[2] Sqrt[Ea - g L m])/Sqrt[m]; FullSimplify[expr, m > 0] Sqrt[-2 g L + (2 Ea)/m]


2

For variety: sF := Style[#, {Black, {Red, Bold}}[[1 + Abs@Subtract@##]]] & @@@ Transpose @ {##} & Column[Row /@ {##, sF @ ##}] &[transmittedMsg, generatedMsg] Alternatively, sF2 := Style[#, {Black, {Red, Bold}}[[1+ #2]]]& @@Transpose@{# , Unitize@Subtract@##} &


2

The fundametal problem is here: Pnt = Append[Pnt, {X, Y}] && Break[] The Break is evaluated and exits before the assignment. Just do this: Pnt = Append[Pnt, {X, Y}] ; Break[] That said Reap/Sow is a better way to go: Bleh[n0_] := Module[{iteration = 1000, error = 10^(-10), denominator = 10^(-10)}, Last@Reap[ Table[ X = ...


2

Since you did not include your data, I am generating some fake data to play with: fakedata = Transpose@ Insert[ Transpose@ Insert[ RandomReal[{0, 1}, {6, 50}], Array["y lbl " <> ToString@# &, 50], 1 ], {""}~Join~Array["x lbl " <> ToString@# &, 6], 1 ]; The code first generates a 6-row by ...


1

In my understanding, you want to factor the expression to obtain the coefficients of the $cos(n\ x)$ and $sin(n\ x)$. However, your example does not contain any Sin[] expressions. Let me consider a modification of your expression instead, in which I have changed some of the original Cos[n x] into Sin[n x]: a1 D11 Cos[n x] + a0 a1 D11 Sin[n x] + 1/2 a1 a3 ...


1

I think you want Row: Subscript[a, Row@{b, b}] abb Consider also Indexed but beware that it is not an inert (formatting) function. Indexed[a, {b, b}] abb


1

list = {"b", "c", "d"}; Subscript[a, list[[1]] <> list[[1]]] // TraditionalForm or list = {b, c, d}; Subscript[a, ToString[list[[1]]] <> ToString[list[[1]]]] // TraditionalForm


1

Using the function SparseArray`ExpressionToTree: ClearAll[trF] trF[s_: {0.01, .05}][e_, opts : OptionsPattern[Options[Graph]]] := Module[{saett = SparseArray`ExpressionToTree[e], edges, vertices, vsizes, labels, vlabels}, edges = saett[[All, All, 2]]; vertices = DeleteDuplicates[Join @@ List @@@ edges]; labels = ArrayPad[Replace[saett[[All, ...


1

It is not really an answer, but if you select this expression and go to Menu/Evaluation/EvaluateInPlace you will repair your formula. May be this helps. You might also want to define a simple function to apply it to each your expression to prevent any its unwanted reformatting. like this, for example: rE[expr_] := Rasterize[Evaluate[expr] // ...


1

This isn't so much an answer as to how to fix this (one workaround is Column[{plot1,plot2,plot3}], instead of GraphicsColumn, but it has its drawbacks), but more of an explanation of what's happening. First I generate some fake data and create a plot similar to yours: data = SortBy[RandomReal[10, {10, 2}], First]; plot = ListPlot[data, Frame -> True, ...



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