# Tag Info

8

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" -> {}}]

6

data = Table[(i + j) i (i - j), {i, 1, 2}, {j, 1, 22}]; The first step is to define a function to break up each row in the data into lines not exceeded the specified maximum line length. prep[row_, fieldWidth_, lineLength_] := Module[{items = Floor[lineLength/fieldWidth]}, Partition[row, items, items, 1, {}]] The second step is to do the ...

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]

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

My way for this is: eq = (x - a)^2 + (y - b)^2 + (z - c)^2 + d; eq == 0 /. Solve[ForAll[{x, y, z}, -11 - 2 x + x^2 - 4 y + y^2 - 6 z + z^2 == eq]] // TraditionalForm (* {(x-1)^2+(y-2)^2+(z-3)^2-25} *)

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

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

1

NumberFormat -> (Row[{#1, "e", If[#3 == "", "0", #3]}] &) The elements of NumberFormat need to be strings, so the 0 needs to be a "0" than it works. btw #1,#2,#3 are of course allready strings so ToString on any of these slots is not necessary.

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