# Search Results

Results tagged with Search options user 950
6 results

Questions relating to the dynamic family of functions in Mathematica, such as Dynamic, DynamicModule and Manipulate.

: descending[numberOfFields_] := DynamicModule[{ numbers = {Infinity} ~Join~ ConstantArray[100, numberOfFields]}, Grid[Table[ {DynamicModule[{is = i}, Checkbox[Dynamic[numbers[[is … ]] < numbers[[is - 1]]], Enabled -> False]], DynamicModule[{is = i}, InputField[Dynamic[numbers[[is]]]]]}, {i, 2, numberOfFields + 1, 1}]] ]; descending[3] General note: You can use Tab to cycle through inputs and update Dynamic elements. …
answered Sep 25 '12 by amr
[{pt1 = {180, 180}, pt2 = {20, 20}}, LocatorPane[Dynamic[{pt1, pt2}], Show[ background, Graphics[{EdgeForm[{Thick, Red}], FaceForm[], Rectangle[Dynamic[pt1], Dynamic[pt2]]}]] , Appearance … = {190, 180}}, LocatorPane[Dynamic[{pt1(*,pt2*)}], Show[background, Graphics[{EdgeForm[{Thick, Red}], FaceForm[], Dynamic[Rectangle[pt1 + {5, 5}, pt1 - {5, 5}]]}]], Appearance -> None]] …
answered Oct 3 '12 by amr
FYI, you can use TogglerBar and other controls in Manipulate: funcs = {Sin[x], Cos[x], Tanh[x]}; Manipulate[ Plot[fs, {x, 0, 3 Pi}], {fs, funcs, ControlType -> TogglerBar}] Appearance -> "Verti …
answered Feb 26 '13 by amr
}}, Alignment -> Center, Background -> Dynamic[color]], {{"MouseClicked", 1} :> ( Switch[Length[swap], 0, color = Lighter@Purple; swap = {index}, 1, If[swap[[1]] == index … [Import /@ Flatten[List[SystemDialogInput["FileOpen"]]]], _Image]], Method -> "Queued"], (* so that file loading doesn't time out *) Button["Clear", images = {}]}], Panel[ Dynamic[Row …
answered Sep 29 '12 by amr
Ignoring Kuba's Gordian Knot solution (let's just pretend he never said anything), I think the idiomatic function here would be Setting, which "collapses" Dynamic expressions: {ViewVertical … , ViewPoint} /. AbsoluteOptions[Setting[img]] This can in turn be dynamic: Dynamic[{ViewVertical, ViewPoint} /. AbsoluteOptions[Setting[img]]] Neither of these trigger the ViewPoint error, which is pretty …
answered Jun 26 '13 by amr
}; Print[Dynamic[ListPlot[Transpose@history, AspectRatio -> Automatic, Joined -> True, PlotStyle -> Directive[Thick, CapForm["Round"]], PlotRange -> (r + 1) {{-1, 1}, {-1, 1}}]]]; While … } & /@ (2 Pi Range[n]/n)]]}; history = {pts}; g3dExpr = Graphics3D[{Thick, Opacity[.9], Dynamic[ MapIndexed[{ColorData[1][#2[[1]]], Line[#1]} &, Transpose@history]]}, ImageSize -> Large …
answered May 8 '13 by amr