Tag Info

New answers tagged

2

You need to use Method -> "Queued": SomeFunction[] := Monitor[Table[1; Pause@.1, {j, 1, 10}], ProgressIndicator[j, {0, 11}]] DynamicModule[{i = 0}, Button["Show Bar", i++; SomeFunction[], Method -> "Queued"]] or the following would be better in a concrete example: DynamicModule[{i = 0, SomeFunction, something = "hello"}, ...


2

EDIT: I decided this was simple enough a question that this should have more controls to make it an answer and not a comment. Manipulate[Pane[Grid[Partition[ConstantArray[1, {elems}], cols, cols, 1, ""], Frame -> All], {200, 100}, Scrollbars -> {horizScroll, vertScroll}], {{elems, 5, "Elements"}, 5, 100, 1}, {{cols, 4, "Columns"}, 4, 20, 1}, ...


3

The problem seems to be that the values are very small, smaller than can be represented by a machine numbers. Perhaps NIntegrate decides the answer is zero. You can use arbitrary-precision numbers, which you can do with the WorkingPrecision option, to get nonzero values. a2 = 525/10; u = 2*i - 1/2; u1 = u*Pi/2; u2 = u1/a2; u4 = -1/5^2; Table[NIntegrate[ ...


1

I have interpreted this question as per george2079s comment. I think this may a case of "asking too much" but I defer to numerical experts. Note: Manipulate[ Plot[Evaluate[ BesselJ[2, 2 x] BesselJ[2, us[[1]] x] x Exp[u4 x^2]], {x, 0, s}, PlotRange -> {-0.003, 0.003}], {s, {5, 10, 20, 30, 40, 50}}] Then testing for small upper limits (noting ...


2

I think I finally found the right way. $OutputForms is a list of the formatting functions that get stripped off when wrapped around the output. $OutputForms= ...


0

Extended comment (this question will probably get closed as a duplicate in any case). As a (presumably) new user the best way to wean yourself of procedural constructs like For is to begin using Table. There are other ways to do things in Mathematica but the transition from For to Table is probably the easiest and most intuitive to begin with. In that ...


4

UPDATE Nice work, OP, with $OutputForms. I did not know about that. Here is my take on a complete solution that takes advantage of that find, and adds input handling with MakeExpression. I can't think of a situation in which this would be superior to InterpretationBox for this problem, but it is helpful in more complex cases. If[ FreeQ[$OutputForms, pm = ...


3

PrettyMatrixForm[m_ /; VectorQ[m, NumericQ] \[Or] MatrixQ[m, NumericQ]] := With[{lcm = LCM @@ (Denominator /@ Flatten[m])}, If[lcm === 1, MatrixForm[m], With[{mm = m*lcm}, Interpretation[Row[{1/lcm, " \[Times] ", MatrixForm[mm]}], m]]]] You need to remember the unformatted input to PrettyMatrixForm so that the matrix is available for ...



Top 50 recent answers are included