https://community.wolfram.com RSS Feed for Wolfram Community showing questions tagged with Dynamic Interactivity sorted by new. https://community.wolfram.com/groups/-/m/t/3740183 I am developing Extending Fraction Frontiers, an interactive Mathematica / Wolfram Language environment for teaching fractions, ratios, common units, and rational-number reasoning. The project is currently a working prototype in a dynamic notebook. I am looking for a freelance Wolfram Language developer who can help stabilize, refactor, and extend the code. Extending Fraction Frontiers is designed to help students explore fractions and ratios through coordinated visual representations of magnitudes, units, lattice points, and number-line locations. The current prototype uses several linked panes, including target magnitudes, an integer lattice, a number line, dashboard controls, and conjecture-testing displays. The goal is to support students in reasoning about fractions as expressions of relative magnitude, common units, and equivalent ratios, rather than treating fractions only as part-whole symbols. The code currently involves substantial use of: • DynamicModule • Manipulate • Graphics • Grid • Pane • LocatorPane • state management across coordinated displays • layout control for multiple interactive panes • possibly packaging code into .wl files I am especially interested in someone with experience in interactive Mathematica notebooks, clean Wolfram Language programming, mathematical or educational visualization, and readable code documentation. The initial task would be a paid diagnostic review of the current notebook, followed by: • a proposed refactoring plan, and • one representative code improvement. Alternatively, the first task could focus on two concrete prototype improvements: • implementing a dropdown menu that determines which panes are available in different modes or stages of use, and • ensuring that the active panes are displayed at appropriate sizes and positions depending on which combination of panes is currently shown. If the collaboration works well, I would like help completing the software prototype. I can share additional details privately after an initial exchange. Please respond with examples of prior Wolfram Language work, especially interactive notebooks, visualizations, packages, or educational tools. It would also be helpful to include your availability and hourly rate. David Carraher 2026-06-29T00:26:03Z https://community.wolfram.com/groups/-/m/t/3666616 Hey, I'm currently doing mathematica for school and I am trying to complete this lab (as attached). I was able to perform the manipulations function in the "answers" section but after rebooting my laptop for an unrelated issue, the manipulate blue line doesn't appear anymore; so I'm not sure what went wrong. Answer Section, Question 4&&[Wolfram Notebook][1] Currently using Mathematica on Opera and issue appears even when the file opened in safari. I was wondering if/when wolfram prompts > "Evaluate initialization cells? Do you want to automatically evaluate > all the initialization cells in this notebook? Cancel/No/Yes has an impact on this? So much for *"Have you tried turning it off and on again?"* [1]: https://www.wolframcloud.com/obj/390d58a4-c906-47d8-bd11-bfc68783cc58 Zane C 2026-03-20T02:14:15Z https://community.wolfram.com/groups/-/m/t/3606056 I have a problem when using DynamicModule to represent a dynamical system of the type State(t)->F(State(t+1)). In the attached code, the animation does not start. Could any one tell me why? Thanks. &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/a199f22d-e876-4d61-bb62-2b4c4d2cf7da Christian Mullon 2026-01-14T12:07:51Z https://community.wolfram.com/groups/-/m/t/3574993 I have a small DynamicModule that displays a slider for x and the result of evaluating a function f[x]. The following code works as desired: DynamicModule[{f, x = 5}, f[x_] := {x, Sqrt[x]}; Column[{ Slider[Dynamic@x, {0, 25, 1}], Dynamic@f[x] }] ] ![enter image description here][1] Now I want to store the results of f[x] in two variables arg and val for later use. The following code works, but it throws a Set::shape error during the assignment of the result, and the variables arg and val are not set. DynamicModule[{f, x = 5, arg, val}, f[x_] := {x, Sqrt[x]}; Column[{ Slider[Dynamic@x, {0, 25, 1}], {arg, val} = Dynamic@f[x], Row[{"{arg,val} = ", Dynamic@{arg, val}}] }] ] ![enter image description here][2] *The reason for the error is that Dynamic@f[x] is an object and not a list.* **How can I fix this problem?** Perhaps with something like Dynamic[f[x], someFunction] instead of {arg,val}=Dynamic[f[x]], where someFunction assigns arg and val? [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Screenshot2025-11-14182646.jpg&userId=890153 [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Screenshot2025-11-14183123.jpg&userId=890153 Werner Geiger 2025-11-14T17:33:56Z https://community.wolfram.com/groups/-/m/t/3532726 I have sensitive security machine parameters in my calculation input cells. I'd like to hide input cells and permanently lock them so that other users cannot open or see my input cells. I want that other users can use slide bars and numeric input window in Manipulate [ ] function but I have to hide and lock the details of calculations to protect the security machine parameters. I know that we can hide Input Cells using the following code, but other users can still open it by double clicking the right cell bracket or editing the notebook. CreatePalette[ Column[{Button[ "Hide code", {NotebookFind[SelectedNotebook[], "Output", All, CellStyle]; FrontEndExecute[ FrontEndToken[SelectedNotebook[], "SelectionCloseUnselectedCells"]]}], Button["Show code", NotebookFind[SelectedNotebook[], "Input", All, CellStyle]]}]] How can I create, hide, lock, and distribute my notebook without revealing the details of calculations? Yeonjoon Park 2025-08-18T20:47:24Z https://community.wolfram.com/groups/-/m/t/3525501 I use `CloudDeploy[]` for a `Manipulate[]`, but every time I update the code, a new link is generated. How can I keep using the same link for different versions of the code? How do I know how many credits are being used? Ricardo MARTINEZ-LAGUNES 2025-08-05T19:50:57Z https://community.wolfram.com/groups/-/m/t/3460527 Can you tell me what's in here [Static Deformations of Timoshenko Beams][1] means: f | 0 | 1 | x^2 | sin(x) m | 0 | 1 | x^2 | sin(x) [1]: https://demonstrations.wolfram.com/StaticDeformationsOfTimoshenkoBeams/ Yuri Mur 2025-05-14T11:01:14Z https://community.wolfram.com/groups/-/m/t/3414409 In the context of my research, I created a static 2X2 array of plots of some complexity and displayed them using GraphicsGrid I then wanted to observe how the bottom row changed with a certain parameter with the top row fixed, not dependent upon this parameter. As precomputed static plots, I thought they would not make rendering much more difficult. The resulting animation, generated by Manipulate[GraphicsGrid[{{staticPic1, staticPic2}, {dynPic1[p], dynPic2[p]}}, {p, 0, 1}], was not highly responsive. Specifically, the motion in the bottom two plots was jumpy. After trying many ways to make dynPic1 and dynPic2 more efficient, I found merely replacing GraphicsGrid with Grid produced a completely smooth and responsive animation (and switching back slowed the animation again and switching back to Grid again sped it back up). I then tried to illustrate what I thought was the generic slowing behavior of GraphicsGrid (relative to Grid) using the simple example below, though switching to GraphicsColumn for simplicity, the single column case of Grid. But this example, provided at the end of this post, seemed to render just as quickly with GraphicsColumn as with Column. I assume that Grid and Column are preferable from the standpoint of performance but my attempt to generate a simple illustration of this has failed. I could try to create a more complex example but I thought I might ask for help. To explicitly state the question: Are Grid and Column indeed preferable when speed or responsiveness is desired and the items being plotted are non-trivial? If the answer to this question is "yes", perhaps this should be mentioned in the Properties and Relations section of the documentation for Grid and GraphicsGrid. ### The failed example Compare responsiveness of slider of the following Manipulate commands: Manipulate[ GraphicsColumn[{Plot[Sin[2 Pi f t - 2 Pi 0], {t , 0, 6}], Plot[Sin[2 Pi f t - 2 Pi 0.2], {t , 0, 6}], Plot[Sin[2 Pi f t - 2 Pi 0.4], {t , 0, 6}], Plot[Sin[2 Pi f t - 2 Pi 0.6], {t , 0, 6}]}], {f, 0.5, 2.5} ] Manipulate[ Column[{Plot[Sin[2 Pi f t - 2 Pi 0], {t , 0, 6}], Plot[Sin[2 Pi f t - 2 Pi 0.2], {t , 0, 6}], Plot[Sin[2 Pi f t - 2 Pi 0.4], {t , 0, 6}], Plot[Sin[2 Pi f t - 2 Pi 0.6], {t , 0, 6}]}], {f, 0.5, 2.5} ] Result: comparable responsiveness on an M3 MacBook Air. David O'Gorman 2025-03-11T03:55:22Z https://community.wolfram.com/groups/-/m/t/3397957 I made interactive program with colliding blocks. The condition of collision is y<=x, where y & x are coordinates of two blocks along straight line of their motion. I could use the condition y<=x in Manipulate. But I couldn't use the condition y<=x in version with DynamicModule. I have read Help chapters about dynamics and know that dynamic variables are objects in front end. I tried different methods to convert they to numbers to use in operator ***If[y<=x,"collision","separate"]*** but in vain. I give simplified part of the program relative to collision - Manipulate Manipulate[ Module[{l0 = 500, h = 30, d = 30, x0 = 100, y0 = 400, v = 1, u = -2}, x = x0 + v*t; y = y0 + u*t; Column[{Graphics[{Rectangle[{0, -10}, {l0, 0}], Green, Rectangle[{x - d, -0}, {x, h}], Blue, Rectangle[{y, 0}, {y + d, h}]}], {y < x, " ", If[y <= x, "Collision", "Separated"]}}]], {t, 0, 200, 1, Appearance -> "Labeled"} ] - DynamicModule DynamicModule[{l0 = 500, h = 30, d = 30, x0 = 100, y0 = 400, v = 1, u = -2}, x = Dynamic[x0 + v*t]; y = Dynamic[y0 + u*t]; Panel[Column[{Graphics[{Rectangle[{0, -10}, {l0, 0}], Green, Rectangle[{x - d, -0}, {x, h}], Blue, Rectangle[{y, 0}, {y + d, h}]}], {Slider[Dynamic@t, {0, 200, 1}], Dynamic@t}, {y <= x, " ", Dynamic@If[y <= x, "Collision", "Separated"]}}]] ] Best regards, Ivan Siahlo Ivan Siahlo 2025-02-20T19:25:39Z https://community.wolfram.com/groups/-/m/t/3314172 Hello all, I am trying to take a tradingchart and draw a horizontal line across it. However, I would like the vertical position of the horizontal line to be controlled with a VerticalSlider. I went ahead and asked Chat-GPT and my first attempt was with the following code: DynamicModule[{linePosition = 6.18}, Column[{Row[{Graphics[{FaceForm[LightGray],EdgeForm[Gray], Rectangle[{0,0},{2,10}],(*Rectangle dimensions:width 2, height 4*) Dynamic@{Dashed, Line[{{0, linePosition}, {2, linePosition}}]} (*Dashed horizontal line*)} , PlotRange -> {{0.0, 3}, {0, 10}} , ImageSize -> {200, 400}], VerticalSlider[Dynamic[linePosition], {0, 10}, Appearance -> {LeftArrow}, ImageSize -> {Automatic, 400}]}] } ] ] which simply displays a rectangle and verticalslider and moves a horizontal line up and down based on the slider position. After having being provided that code, I decided to ask the following question to Chat-GPT: "In mathematica,I want to create a vertical rectangle with a dashed horizontal line across it whose position is controlled by a vertical verticalSlider on the right side of the rectangle. The verticalSlider must be the same height as the rectangle. The rectangle should be almost transparent as it will have to be displayed on top of a TradingChart with a stock display on it. The rectangle should be the same height as the Tradingchart and on the right of the TradingChart, next to the prices (which are on the right Y axis). Can you please provide code to do so?" I received the following answer: Manipulate[ Show[ chart, (* chart is a tradingchart displaying a stock *) Graphics[{ FaceForm[Directive[Opacity[0.2], LightGray]], (* Transparent fill for rectangle *) EdgeForm[None], Rectangle[{0.95, 0}, {1.05, 1}], (* Vertical rectangle on the right side *) {Dashed, Line[{{0.95, y}, {1.05, y}}]} (* Dashed line controlled by y *) }, PlotRange -> {{0, 1.2}, {0, 1}}, PlotRangePadding -> None, ImageSize -> {Automatic, 400}, (* Matches the height of TradingChart *) Background -> None ] ], {{y, 0.5}, 0, 1, Appearance -> "Labeled", ControlType -> VerticalSlider, ImageSize -> {Automatic, 400}, (* Match height of TradingChart *) ControlPlacement -> Right} ] That doesn't work. Can someone help and provide some code? Henrick Jeanty 2024-11-04T14:23:40Z https://community.wolfram.com/groups/-/m/t/3279337 &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/3080758d-c648-4c7b-a006-68d6b47c4b13 Michael Rogers 2024-09-22T02:34:14Z https://community.wolfram.com/groups/-/m/t/3273653 &[Wolfram Notebook][1] This is the resulting gif image: ![a.gif][2] [1]: https://www.wolframcloud.com/obj/d7058889-ebe4-440b-aa0d-8e4a87174c54 [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=a.gif&userId=949223 Vladimir Ivanov 2024-09-13T19:49:57Z https://community.wolfram.com/groups/-/m/t/3234644 ![Image][1] I would like to make the program to find the differences (total 10 differences) of the attached image by making circle at the differences in the original image. but the offset image (alignedRightImage) has a error. why isn't the offset image treated as image file? And does anyone have an experience like this program? Could you tell me a comment to make this script? I attached notebook file. Thank you Okayasu &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Saize_Feb.png&userId=1223949 [2]: https://www.wolframcloud.com/obj/c921280d-eab8-4025-bba4-74521b756368 Shinsuke Okayasu 2024-07-25T18:31:28Z https://community.wolfram.com/groups/-/m/t/3206304 From [Introduction to Wolfram Language - Manipulate][1] [1]: https://www.wolframcloud.com/obj/online-courses/an-elementary-introduction-to-the-wolfram-language/09-interactive-manipulation.html I copied this line from Exercise 9.4 Manipulate[Graphics[Style[Disk[],Hue[h]]],{h,0,1}] straight from the course instructor video. Yet, it is graded as incorrect. Can you help me what I am doing wrong ? Thanks in advance Roberto Catanuto 2024-07-06T08:05:53Z https://community.wolfram.com/groups/-/m/t/3181085 I have a problem which I can't solve properly in Mathematica: A beam tilts at an edge; initially, it adheres, then it slides. First, the transition from adhering to sliding and then from sliding to the lifting of the edge should be determined. This can be accomplished using the center of mass theorem, angular momentum theorem, and the condition of adhesion. For setting up the differential equation, please refer to the attached document. The first task to find out the time and angle at which the beam starts to slide is correct in my opinion but I do not get plausible values for the second task, see the attached notebook. .It should be around 0.68 seconds for my = 0.3. Help would be highly appreciated as I slowly start to despair. &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/b0399329-3046-4828-b032-6a1ce33ce85b Felix Toperczer 2024-05-23T15:11:28Z https://community.wolfram.com/groups/-/m/t/3155416 Hello to everyone, I have a problem. I'm working with Mathematica right now because I have to solve some thermodynamics problems. When I reopen my notebook, the graphs data don't show on display. Is there a way to solve this problem or have I to run everytime to display data? For instance, Manipulate is an empty box but when I reload the code it shows to me the effective curve. I need this because my prof wants this from me for my thesis. Thanks a lot. ![enter image description here][1] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Screenshot2024-04-09110038.png&userId=3155402 Andrea Naticchi 2024-04-09T09:02:50Z https://community.wolfram.com/groups/-/m/t/3142858 I am trying to solve the following system of differential equations, which depend on three parameters, namely lambda, sigma0, sigma a. The final goal is to find a parameter triple, which fits the function sqrt[0.3166*(1+z)^3+0.6847] on the interval z=(0,3). So far, I managed to plot the solution of the system of differential equations via Manipulate. But finding a parameter triple, for which the solution fits, seems quite tedious. Is there a way to do this systematically, or only trial and error? I attach what I have so far. &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/f055ea80-d619-426c-bac6-8e541ce37505 Lehel Csillag 2024-03-18T19:51:49Z https://community.wolfram.com/groups/-/m/t/3125070 Hello to Everyone. My goal is to create a graphical interface with Manipulate in which there is: 1) a slider to vary a parameter k, integer >=1; 2) a graph of a polynomial p_k(x) of degree k, represented by a dotted line with dots corresponding to the values p_k(x=n) where n is an integer >=1; 3) the writing "for k=k_0, n=n_0", where k_0 is the value of k chosen with the cursor and n_0 is the value of n closest to the root of p_k(x)=0. The code I made correctly returns only points 1) and 2) but not 3). Kindly, can you help me solve the problem? ClearAll[calculatePolynomial] calculatePolynomial[k_, x_] := Sum[Binomial[k + i, 2 i] (-4/2^x)^i, {i, 0, k}] Manipulate[ Module[{radiusX = dynamicRadiusX, radiusY = dynamicRadiusY, roots, numericValue},(*Calcola le radici del polinomio*) roots = x /. NSolve[calculatePolynomial[k, x] == 0, x]; (*Calcola il valore numerico*) numericValue = Max[1, Round[Min[Abs[roots - k]]]]; (*Mostra il grafico dei polinomi e i pallini sotto il cursore k*) Column[{Show[ Plot[calculatePolynomial[k, x], {x, 0, 13}, PlotStyle -> Directive[Blue, Dashed, Thickness[thickness]], Ticks -> {Range[0, 13, 1], Range[-2, 2, 1]}, GridLines -> {Range[0, 13, 1], Range[-2, 2, 1]}, GridLinesStyle -> Directive[Gray, AbsoluteDashing[{1, 1}]], PlotRange -> {{0, 13}, {-2, 2}}], Graphics[{Red, Table[Disk[{i, calculatePolynomial[k, i]}, {radiusX, radiusY}], {i, 0, 13}]}]],(*Visualizza solo la parte numerica*) Row[{"Per k=", k, ": n=", numericValue}],(*Aggiungi il valore delle radici*) Row[{"Radici: ", StringJoin@ Riffle[Table[ "k=" <> ToString[k] <> ", n=" <> ToString[n], {n, Round[roots]}], ", "]}]}]], {{k, 1, "Parametro k"}, 1, 100, 1, Appearance -> "Labeled"}, {{dynamicRadiusX, 0.06, "Dimensione orizzontale"}, 0.01, 0.2, 0.01, ControlType -> None}, {{dynamicRadiusY, 0.03, "Dimensione verticale"}, 0.01, 0.2, 0.01, ControlType -> None}, {{thickness, 0.005, ""}, 0.001, 0.01, 0.001, ControlType -> None},(*Thickness non visibile nell'interfaccia*) ControlPlacement -> Left, ContentSize -> {700, 300}] Pincio Pinci 2024-02-18T07:00:53Z https://community.wolfram.com/groups/-/m/t/3104472 Could you provide me an appropriate code for solving this question. Make a manipulate to create a list of between 5 and 50 equally spaced hues? Regards. Yousef Alghamdi Yousef Alghamdi 2024-01-17T11:11:51Z https://community.wolfram.com/groups/-/m/t/3093552 ![enter image description here][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=test4_31_12_2023.gif&userId=20103 [2]: https://www.wolframcloud.com/obj/5e06d0ba-faed-4df5-b547-cf22209c1468 Pred Liu 2023-12-31T14:33:10Z