https://community.wolfram.com RSS Feed for Wolfram Community showing any discussions tagged with Dynamic Interactivity sorted by most replies. https://community.wolfram.com/groups/-/m/t/2355272 On September 7th we will begin our next Daily Study Group series that will focus on "**Creating Custom User Interfaces**". Attendees will learn to develop graphical user interfaces using the Wolfram Language through short live lessons hosted by Wolfram-certified instructors, and also work on practice problems and mini projects for a hands-on experience. A certificate of program completion will be available. Register [here][1]. [1]: https://www.bigmarker.com/series/daily-study-group-creating-custom-user-interfaces/series_details?utm_bmcr_source=community Abrita Chakravarty 2021-08-30T19:33:28Z https://community.wolfram.com/groups/-/m/t/2492644 I am still unexperienced in WL, but I have come to a point that I can create some programs that are getting a tiny bit more complex (still quite modest though) :-) But I often run into very basic things I just can't figure out. So I hope someone can direct me a bit : 1. Inside a Dynamic, I get the grey small 'x' if I do not 'close a line with the semicolon (;). That is annoying, because the script stops working as planned (as it interpretes the 'x' as a multiply sign) in an unintended way. 2. In a Dynamic[ xxxxxx ], why does the last line have to be WITHOUT semicolon (;) ? 3. How can I best view the values of the variables I use inside Dynamic? I did that by leaving out the semi-colon, as to output the result, but as I mentioned, that does not work inside a Dynamic script. Sometimes though this works and the annoying grey 'x' does not appear. can I switch off the automatic behavior of 'filling in a x' for me when the are spaces? I can myself put '*' if I want a multiplication to occur. 4. I am used to a debugger, where I can set Breakpoints and a Variable Watcher. How is serious debugging being done in WL? B. Cornas 2022-03-18T18:09:39Z https://community.wolfram.com/groups/-/m/t/1896178 *MODERATOR NOTE: coronavirus resources & updates:* https://wolfr.am/coronavirus ---------- **Recent updates:** - [EpidemiologicalModelsForInfluenzaAndCOVID-19--part_1.nb][1] - [EpidemiologicalModelsForInfluenzaAndCOVID-19--part_2.nb][2] - [EpidemiologicalModelsForInfluenzaAndCOVID-19--part_3.nb][3] - [EpidemiologicalModelsForInfluenzaAndCOVID-19--part_4.nb][4] - [EpidemiologicalModelsForInfluenzaAndCOVID-19--part_5.nb][5] &[Wolfram Notebook][6] [1]: https://www.wolframcloud.com/obj/rnachbar/Published/EpidemiologicalModelsForInfluenzaAndCOVID-19--part_1.nb [2]: https://www.wolframcloud.com/obj/rnachbar/Published/EpidemiologicalModelsForInfluenzaAndCOVID-19--part_2.nb [3]: https://www.wolframcloud.com/obj/rnachbar/Published/EpidemiologicalModelsForInfluenzaAndCOVID-19--part_3.nb [4]: https://www.wolframcloud.com/obj/rnachbar/Published/EpidemiologicalModelsForInfluenzaAndCOVID-19--part_4.nb [5]: https://www.wolframcloud.com/obj/rnachbar/Published/EpidemiologicalModelsForInfluenzaAndCOVID-19--part_5.nb [6]: https://www.wolframcloud.com/obj/fcfa338d-3fd1-4918-8890-dad8b455ae16 Robert Nachbar 2020-03-11T17:39:06Z https://community.wolfram.com/groups/-/m/t/2159705 A new study group for Notebook-Based Workflows for Data Exploration begins Monday, Jan 11, 2021! A list of daily topics can be found on our [Daily Study Groups page][1]. We will look at various "Workflows" from the Wolfram [Documentation Center][2] and see how they can be used to build our own notebook-based workflows for exploring data. Sign up here: https://wolfr.am/StSdgBS9 [1]: https://www.wolfram.com/wolfram-u/special-event/study-groups/ [2]: https://reference.wolfram.com/language/ Abrita Chakravarty 2021-01-11T16:30:29Z https://community.wolfram.com/groups/-/m/t/970340 Hi all, Please kindly let me explain further on this: All the software I have seen in the web for playing sounds seems to be always restricted to the musical ratios (musical notes) defined by any of the existing musical scales. However, I need to make a chord with any number of string-type sounds, so that I could assign any arbitrary frequency to each of them, frequencies choosen at will (not related to any existing musical scale). Could someone tell me if there are any mathematica commands I could use, or any other way to do so. ![enter image description here][1] Many thanks in advance for your help, indeed Best regards, [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=10236email.jpg&userId=970326 Domingo Gomez Morin 2016-11-26T01:34:35Z https://community.wolfram.com/groups/-/m/t/2468340 I can't figure out the right way to do this: foo[symb1_] := Module[ {}, Switch[Head@symb1, Symbol, symb1 = ToString@symb1, String, symb1]; foo2[symb12_String] := Button[symb12, Speak@symb12]; foo2@symb1 ]; foo@Plot (*want to call foo this way without quotes*) Foo would be typed within a Cell not ever within another function since it displays a gui object that I would interact with. My goal is to force the Symbol into a string so it can be passed to other functions that need string data which creates the GUI object. Bonus points, have the function and the passed Symbol get replaced by the GUI object it creates! Creating another brick in making my digital curb cut. Thanks for your help. Andrew Meit 2022-02-10T22:42:51Z https://community.wolfram.com/groups/-/m/t/925125 Hello everyone. My name is Ivano Arrighetta and I'm Italian. I would like to know more about Mathematica, and in detail: 1. Can it add 3D modifyers? (like twist, taper, bend, etc) 2. Can it capture audio from a microphone? 3. Can it do speech recognition? 4. Can it render a MIDI file to a sound file? 5. Can it be used with a MIDI controller? 6. Can a raster image be inserted in a video? 7. Can it mux or demux video? 8. Can it cut and join video? 9. Can it do video compositing? (like adding a filter to a whole video) 10. Can it embed subtitles? Thanks in advance for any help. Bye, Ivano. Ivano Arrighetta 2016-09-16T03:38:41Z https://community.wolfram.com/groups/-/m/t/2775244 I have a Manipulate in which a slider traces across the window a red hyperbola over an existing dotted hyperbola. The hyperbolas are rotated 30 degrees clockwise, but the slider gradually exposes the red hyperbola vertically. I have been trying to get the slider to sweep out the exposure of the red hyperbola at an angle parallel to the 30 degree rotated y-axis, but have not yet succeeded. I prefer incorporating a transformation into code to rotate the slider exposure to the slant I want in order to preserve the slider. As an alternative, I suspect a 2D controller could achieve what I'm looking for. However, any idea that will expose the tracing hyperbola at an angle will be great. ` ---------- Manipulate[Module[{hyperbola, sliderHyperbola}, hyperbola = ContourPlot[{-10 x - x^2 + (2 y)/Sqrt[3] + 2 Sqrt[3] x y + y^2 == 0, y == 2/Sqrt[3] - x/Sqrt[3], y == Sqrt[3] x + 8/Sqrt[3]}, {x, -14, 9}, {y, -6, 10}, ContourStyle -> { {Directive[Black, Dotted]}, {Directive[Black, Dotted]}}]; sliderHyperbola = Plot[{-(1/Sqrt[3]) - Sqrt[3] x - Sqrt[ 1/3 + 12 x + 4 x^2], -(1/Sqrt[3]) - Sqrt[3] x + Sqrt[ 1/3 + 12 x + 4 x^2] }, {x, -9, y}, PlotStyle -> {{Red, Thick}, {Red, Thick}}]; Show[hyperbola, sliderHyperbola, Frame -> True, ImageSize -> 20.1 16.1, AspectRatio -> Automatic, PlotRange -> {{-9, 7}, {-6, 10}}] ], {y, -14, 8, ImageSize -> 300}, AutoAction -> True, ContinuousAction -> True, SaveDefinitions -> True] William Stockich 2023-01-11T19:47:52Z https://community.wolfram.com/groups/-/m/t/2222977 &[Wolfram Notebook][1] [Original]: https://www.wolframcloud.com/obj/8a8fbd01-b0d8-4798-beec-166e0898b2b1 [1]: https://www.wolframcloud.com/obj/5d2efdc4-f66c-486b-9f5a-298d70381d5d Jack Madden 2021-03-18T17:28:29Z https://community.wolfram.com/groups/-/m/t/344404 Hi, I was trying to write a code so as to have output multiple dynamic input fields, however when I try to input one field it automatically puts the same value in the other fields, I need them to be input separately. Thanks! n = 2; For[i = 0, i <= n + 1, i++ {Print["\[Rho][", i, "]"], InputField[Dynamic[\[Rho][i]]] // Print}; ]; Al Guy 2014-09-15T19:17:06Z https://community.wolfram.com/groups/-/m/t/1788578 Today, we're happy to officially announce the first version of the [Wolfram Notebook Embedder][1] JavaScript library, which allows you to seamlessly embed [Wolfram Cloud](https://www.wolframcloud.com/) notebooks on websites. It can automatically resize a container based on the notebook size and it offers an API that can be used to "reach into" the notebook from the outer website, e.g. controlling a [Manipulate](https://reference.wolfram.com/language/ref/Manipulate.html) variable. These things were not easily possible by embedding notebooks using an `<iframe>`. ![HTML page with embedded JavaScript code that embeds a notebook into a given container div][2] You can read more on the [official Wolfram Notebook Embedder website](https://reference.wolfram.com/language/WolframNotebookEmbedder/), check out its [GitHub repository](https://github.com/WolframResearch/wolfram-notebook-embedder) or install the library from [npm](https://www.npmjs.com/package/wolfram-notebook-embedder). In addition to extensive [documentation](https://reference.wolfram.com/language/WolframNotebookEmbedder/docs/GettingStarted/), the website also contains a few interactive [examples](https://reference.wolfram.com/language/WolframNotebookEmbedder/examples/) for how to use the library. While we're really excited about this release, it still has some limitations to be aware of (see also the [troubleshooting guide](https://reference.wolfram.com/language/WolframNotebookEmbedder/docs/Troubleshooting/)): * Due to 3rd-party cookie blocking, embedded notebooks don't work very well in the Safari web browser right now. We don't track any personal data using these cookies, but we use them for load balancing, so we can't support certain features without these for now. Depending on the notebook content, you might still have to fall back to using an `<iframe>` in Safari. We're working on a solution to this (using a different load-balencing strategy). * Since the notebook is rendered directly into the DOM of the containing website, CSS definitions are shared between the two worlds and can "bleed" from the outside into the notebook and the other way around, potentially breaking styles in either of them. You might be able to work around such issues by increasing the [specificity](https://developer.mozilla.org/en-US/docs/Web/CSS/Specificity) of your CSS definitions, so they (1) override conflicting definitions coming from the notebook and (2) do not affect the notebook. We're working on a more robust solution, perhaps using a separate [Shadow DOM](https://developer.mozilla.org/en-US/docs/Web/Web_Components/Using_shadow_DOM) root for embedded notebooks to isolate all styling. If you encounter any other bugs, please [file an issue on GitHub](https://github.com/WolframResearch/wolfram-notebook-embedder/issues). This is just the beginning of our initiative to make notebooks easier to embed and interoperate with. Please let us know us what you want to do with this and if you have any questions, ideas or suggestions. One thing we're already starting to work on is an API (e.g. `https://www.wolframcloud.com/nb?url=...`) that will allow you to render a whole notebook (at a certain URL or with a certain content) on the fly – stay tuned. [1]: https://reference.wolfram.com/language/WolframNotebookEmbedder [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=hero.png&userId=29488 Jan Poeschko 2019-09-13T09:32:01Z https://community.wolfram.com/groups/-/m/t/616716 Hi everybody, I can't solve a following problem. There is one formula: **Q = a * (AX - b) + BX * c + d * CX + f * (DX - FX),** where *a, b, c, d, f, g* - constants, which values are unknown, but areas of values (from-to) are defined, so I could manipulate their; AX, BX, CX, DX, EX - known lists of data; FX - a list of data, which values are also unknown: FX[i + 1] = FX[ i ] + 2 * (f / g) * (EX[[ i ]] - FX[ i ]), FX[1]=EX[[1]]; **My target:** to get Q through manipulate of constants (fit with another graphic). **The problem**: as long as FX is not found Mathematica can't manipulate constants. I would be glade your help and ideas... Here I have an error message (see also attachments) Manipulate[FX[1] = EX[[1]]; FX = Table[ FX[i + 1] = FX[i] + 2 (f/g)*(EX[[i]] - FX[i]), {i, 1, Length[EX]}]; ListLinePlot[a*(AX - b) + c*BX + d*CX + f*(DX - FX), Frame -> True, PlotRange -> All, FrameLabel -> {Style[Time [s], 12, Bold], Style[TotalPower [W], 12, Bold]}, ImageSize -> 1000], {{g, 5}, 5, 700, 1}, {{f, 1}, 1, 20, 0.01}, {{a, 0}, 0, 500, 1}, {{c, 0}, 0, 5, 0.01}, {{b, 0}, -0.1, 0.1, 0.001}, {{d, 400}, 400, 800, 5}] And here the proces hangs FX[1] = EX[[1]]; FX = Table[FX[i + 1] = FX[i] + 2 (f/g)*(EX[[i]] - FX[i]), {i, 1, Length[EX]}] Leo James 2015-11-18T18:46:45Z https://community.wolfram.com/groups/-/m/t/293535 In MMA v10, when I evaluate more than one Plot3D command, the frontend freezes. After about 10 seconds, the "Disable Dynamic Evaluation" dialog pops up. The frontend remains locked up after clicking either button. I must use the Win 8.1 task manager to kill MMA. I've included a screen image of the notebook and the dialog. The freeze occurs upon evaluating the 2nd Plot3D command. Obviously, I'm not explicitly evaluating any Dynamic commands. I'm running with a fresh session and the default MMA configuration (eg, I've not made any changes to the default init.m files, etc). The same notebook appears to run fine in MMA v9.01. Can anyone explain what the "Disable Dynamic Evaluation" dialog means and why it might pop up in this situation? Is it related to locking up the frontend? I'm at a loss about what is going on. ![Plot3D Issue][1] [1]: /c/portal/getImageAttachment?filename=MMA-v10-Evalution-Issue-02.PNG&userId=71887 David G 2014-07-13T21:49:48Z https://community.wolfram.com/groups/-/m/t/878239 Dear community members, after watching this video by Bret Victor, I'm wondering if Mathematica could become the media for thinking about the unthinkable. What are your thoughts? How easy would be to replicate and extend the examples shown in the video using Wolfram Language? [Bret Victor - Media for Thinking the Unthinkable][1] [![enter image description here][2]][1] [1]: https://www.youtube.com/watch?v=oUaOucZRlmE [2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2016-06-27at1.45.30PM.png&userId=11733 Ruben Garcia Berasategui 2016-06-27T03:10:38Z https://community.wolfram.com/groups/-/m/t/2084630 Hello all, It seems that my previous inquiry was removed by the moderators as they wanted to see me invest time and effort in my problem. I have invested time and effort in the more "algorithmic" parts of my project, but now I need a bit of help in controlling the charting of stock data. Here is my situation. For the past 20 years, as an Electrical Engineer with an interest in the recognition of stock trading patterns, I have worked with Technical Analysis. I have worked for startups and written software that can recognize trendlines, technical patterns, and Elliott Waves. I have done all of my previous work in C# and absolutely love the topic. It gives me something to do besides my day job as a university professor in the Department of Computer Science. I have been enamoured with Mathematica since the mid 2000's. However, for some reason, I have found it difficult to learn, compared to all the previous (traditional and not so traditional) languages I have mastered (Basic, Forth, C, C++, C#). One of my problems is that I was always impatient to get the work done and I could do that with something like C++ with my favorite, C#. It could take me a couple of 100's of lines, but the process was rather simple. But with Mathematica, it is a different mental approach. What I love with Mathematica, is that I can take those 100's of C# lines and compress them into 10 lines (or less) of Mathematica. The problem is that, while I can write those 100's of C# lines in an hour or so, it takes me a week for me to get my head around all the functions, tables, lists, etc,,, I use in Mathematica. The final result in Mathematica is like a work of art. It is beautiful, it speaks to my mind. The work in C# produces a beautiful application, but I don't find the program itself that fascinating. It is a bit like pointillism. The pixels (the programs or lines of code), in themselves are not that interesting, but the overall effect (the application) can be quite stunning. In Mathematica, you don't have pixels, but swaths of paint of different colors (List, Map, BlockMap, etc...) and combinations of a few swaths (a single line of Mathematica can be simply mesmerizing). However, it can take hours to design that swath or understand someone else's swath. I thus decided to delve into Mathematica and I wanted an interesting project to do so. I chose to rewrite my Technical Analysis Suite in Mathematica. My C# version, displays stock data, indicators, patterns (like channels, triangles, pennants, flags, etc...) and now can analyze all the potential Elliott wave patterns present in a stock move from one time (minute, day, week or month) to another. I plan on taking a large number of stocks over a certain period and generate all of the possible Elliott wave patterns that were created for each stock during that period. Then I will feed to patterns (and their subsequent result) into an AI algorithm to create an Algorithm that can then be used to determine if a particular stock should be bought or sold. I have never been convinced that a single individual (Ralph Nelson Elliott) could, before the advent of computers, figure out how markets work. But, I figure that his theory of Elliott Waves could be tested. The problem, from what I understand, is that, if you put five Elliotticians (as they are called) into a room and show them a stock chart, you will get 5 different interpretations, all of them acceptable! My view is to take away the human element, find any and all potential waves, then feed them into an AI machine and see if our powerful modern-day algorithms can figure out which patterns have strong predictive powers. As such, I have put in a lot of work in converting my C# code to Mathematica. I can't tell you how amazed I am in the power of Mathematica, taking thousands of lines of C# code and reducing them to about a dozen lines of Mathematica code! Given a stock over a period of time, my code will determine ALL the potential Elliott Wave patterns that occurred for that stock during that period of time. At some point that information could have been used to make trading decisions. However, my interest is in deciding, once and for all for me, whether or not the different patterns mentioned in the literature (things like the bat, the butterfly, the crab, the shark, etc... from "The Harmonic Trader" do occur and do have predictive power. I have found that they do occur, and often. As for the predictive power, I see anecdotal evidence, but would like to take the decisive step of simply feeding mathematically provable patterns (meaning that the patterns I feed are ALL the possible wave patterns in the chart) into an AI program and generating an algorithm (e.g. Neural Network) that could then tell us what its predictive power is. We could also see if the Support/Resistance prices generated by the Elliott Waves are also validated. In order to do so, I wanted to have the ability to display the stock on a chart. I have used Mathematica[s InteractiveTradingChart which offers a great way to display stock data. My problem is that InteractiveTradingChart shows the chart in one short. What I want to do is to show the chart incrementally. What I mean by that is that I want to show the first bar, and then, after a short period of time, show the next bar, and so on. I might want to show each new bar after a delay of 5 seconds (or any other time period) in order to simulate a ticker. Also, my algorithm works in an incremental fashion. You feed it a new bar and it figures out what new information or new Elliott Wave may have emerged from the new bar. All I've been able to do so far is ask the chart to redraw itself, with the new bar, But I do this by reloading the FinancialData (which takes a while) after having updated the last day of interest. This is not satisfying. I would like to read all the data in one short (reading weekly bars for instance, from Jan 1, 2020 to the current day) and then feeding the bars one at a time to the chart once every 5 seconds. I don't know how to programatically control the display of the chart. There is a little window on the bottom which can be slid left or right or stretched to show more or less of the stock. One approach I an thinking of is to start the window on the first day of the stock data I have and every 5 seconds, change the change the right edge of the window to the next day. In this way, it would look like the chart is updating itself every 5 seconds. Can anyone help with my problems? Henrick Jeanty 2020-09-27T18:04:52Z https://community.wolfram.com/groups/-/m/t/1731686 Early in the summer of 2019, I attended the Wolfram High School Summer Camp. I worked on a project for two weeks which generates a crossword with random words that the user can solve and check. In this post, I will give a general outline of my project, then go into detail about my though process, and finally show the finished product. How it Works ========== My project is basically a grid of variables, with the variables containing strings. This may seem simple, but it isn't as easy at it looks. The tricky part is having the strings change to very specific things based on random data each time the user evaluates. This makes the words in the crossword random each time in order to truly generate new crosswords each time. ------------------------------------------------- Initial Start -------------- I started by simply trying to overlay two words, but that didn't work out well... ![enter image description here][1] After that attempt, I tried a completely different approach by using grid, variables, and then associations to make a primitive crossword with a few words in it. Grid[Join[{{Black, Black, AsNwWord[1], Black, Black, Black}}, {SmpWord}, Table[{Black, Black, AsNwWord[n], Black, Black, Black}, {n, RevAsNwWord[AsSmpWord[3]] + 1, Length[NwWord], 1}]], Frame -> All] This made the nice output of the following: ![enter code here][2] -------------------------------------------- Preparation --------------- Firstly, I filtered out all profane words, just to be safe... lotswords = Pick[WordData[], First /@ Values[ KeyTake[Classify["Profanity", WordData[], "Probabilities"], True]], p_ /; p < 0.5] Then I defined functions to make associations and character lists for all of the words in the crossword. charwordprep[Word_] := Flatten[Characters[Word]] aswordprep[Word_] := With[{wWord = Flatten[Characters[Word]]}, AssociationThread[Range[Length[wWord]], wWord]] hintwordprep[Word_] := Part[Flatten[ Part[WordData[StringDrop[StringDrop[ToString[Word], 1], -1], "Definitions"], 1]], 2] lengthwordprep[Word_] := ToString@Length[charwordprep[Word]] After that, I made variables for hints, hint helpers, and the correct solution. Then came the really fun part: I made the actual crossword. This could be done with such little code; I was amazed beyond belief! fillercross = Framed[Grid[Partition[ MapIndexed[If[#1 == 1, BlackSquare, WhiteSquares[#2[[1]]]] &, Flatten[pattern]], 10], Background -> Black], Background -> Black]; This had an output that looked like a crossword and that the user could type into which stored the data: ![enter image description here][3] I then created a variable that checked the solution that the user typed in by using a simple if statement. solvecheck = Dynamic[If[ StringReplace[ToString[input], "Null" -> " "] == StringDrop[StringDrop[ToLowerCase[ToString[correctlist]], 1], -1], Style[colorize2["This is correct!", ColorData["Rainbow"]], Bold, 140], Style["Sorry... try again...", Bold, 40]]] --------------------------------------------------- Final Input ========= After making all the variables and functions in preparation for this, I finally made the manipulate! The code follows: Framed[Manipulate[ Column[{ Style["Crossword Creator!", Bold, 50], "", "", "Please fill the generated crossword.", "You can type in the words, but make sure to click on each box and insert only one letter per box.", "Fill the crossword with words which have the following HINTS: ", "", horizhintz, "", verthintz, "", HintFirstLetters, "", HintLength, "", Wordbank, "", minicross, "", fillercross, "", SolutionChecker, "", Answers , "", Style["Thank you for playing and have a great day!" , 50, Italic]}], {HintFirstLetters, {"" -> "Hide", firstletters -> "Show"}}, {HintLength, {"" -> "Hide", hintlength -> "Show"}}, {Wordbank, {"" -> "Hide", wordbank -> "Show"}}, {Answers, {"" -> "Hide", showanswers -> "Show"}}, {SolutionChecker, {"" -> "Not Yet", solvecheck -> "Check!"}}, ImageMargins -> Large], FrameMargins -> 0] --------------------------------------------------------- The Final Output ============= Here is the project's summative output:![enter image description here][4] --------------------------------------------------------- Reflection ======== Throughout the process of the development of my project, I learned a few very valuable things. I learnt that even if one sets impossible goals, with time, one will accomplish said goals. Also, I realized that hard problems can be overcome with relatively simple solutions, it's just a matter of choosing the correct approach. I would like to thank my mentor Sylvia Haas for helping me in so many ways throughout the stressful and difficult process of making this project. https://github.com/SimeonButtery/WSS-Template [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2019-07-11at2.50.19PM.png&userId=1725103 [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2019-07-11at3.07.00PM.png&userId=1725103 [3]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2019-07-11at3.27.00PM.png&userId=1725103 [4]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2019-07-11at4.28.52PM.png&userId=1725103 Simeon Buttery 2019-07-11T20:59:58Z https://community.wolfram.com/groups/-/m/t/1337907 Hi everyone, I'm developing a wave laboratory which will grow a lot in the following weeks. Things are going fine and fast, except by the system of hiding controls. I can make them work fine, but when some disapeaers Null stay in their places. I can make to hide Null by adding an extra line with nothing inside. But this is not a solution because blank lines replaces the Null lines. It seems to me that the problem comes from the combination of Dynamic[ If[menu == 1, Grid[{ with If[quantOndas == 1, Invisible, Identity]@ In the code below the first Grid has a blank line, which acts as a separator. Not a problem. I would like to make the Null go home and left nothing in its place. I'll appreciate any help. Manipulate["Hi", Grid[{ {Control@{{menu, 1 , "Menu:"}, {1 -> "Menu 1", 2 -> "Menu 2"}, ControlType -> RadioButtonBar}}, {""} }], Dynamic[ If[menu == 1, Grid[{ {Control@{{menuInterf, 1, "Operation mode:"}, {1 -> "Manual", 2 -> "Automatic"}, ControlType -> RadioButtonBar}} }] ] ], Dynamic[ If[menu == 1 && menuInterf == 1, Grid[{ {Control@{{quantWaves, 1, "Number of waves:"}, {1, 2}, ControlType -> RadioButtonBar}, If[quantOndas == 1, Invisible, Identity]@ Control@{{showSumWaves, False, "Show sum of waves:"}, {True, False}, ControlType -> Checkbox}} }] ] ], Dynamic[If[menu == 2, Grid[{ {Control@{{menuOndasEstac, 1, "Stationary waves:"}, {1 -> "Two nodes", 2 -> "Node and antinode", 3 -> "Two antinodes"}, ControlType -> RadioButtonBar}}, {Control@{{harmDispon, 1, "Harmonics:"}, Dynamic@harmonics, ControlType -> PopupMenu}, Control@{{mostrOndasOrig, True, "Show original waves:"}, {True, False}, ControlType -> Checkbox}} }] ] ] , Initialization :> ( menuInterf = 1; harmonics = Range[10]; ) ] Anderson Coser Gaudio 2018-05-13T11:37:13Z https://community.wolfram.com/groups/-/m/t/86994 When we create Manipulate or Animate and would like to showcase them on Wolfram Community site, a cool way is to make an animated GIF file of it. It would be also great if this GIF file could contain motion of controls, so people can see what they do. We can apply Export function to Manipulate with .AVI or .MOV or .FLV formats. This will make a movie that can show all motions of controls and content of Manipulate. But from a movie to a GIF there are just a few steps. This function below does these steps. It basically exports Manipulate to a movie, imports it as “ImageList”, and then exports it again as a GIF. Because Mac and Windows have different native movie formats we need to auto-detect them. The result of the function is two files – one is a movie and another is an animated GIF saved in default directory. Here is the legend for arguments: [list] [*]man - variable representing Manipulate [*]name - pure name of the file without any extension [*]step - which every frame to pick: 1 - original no compression, 2 – every 2nd compress twice, etc.  [/list][mcode]ManToGif[man_, name_String, step_Integer] := Export[name <> ".gif", Import[ Export[name <> Which[$OperatingSystem == "MacOSX", ".mov", $OperatingSystem == "Windows", ".avi"], man], "ImageList"][[1 ;; -1 ;; step]] ][/mcode]Let’s see how it works on an example. Here is a Manipulate with 4 controls: 2 sliders and 2 locators. [mcode]man = Manipulate[ContourPlot[ q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2, 2}, {y, -2, 2}, Contours -> 20, PlotRangePadding -> 0, Frame -> False, PlotPoints -> 40, ImageSize -> 230, ColorFunction -> "DarkRainbow"], {{q1, -1}, -3, 3}, {{q2, 2}, -3, 3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator}, Deployed -> True, FrameMargins -> 0];[/mcode]Here is the result of the function:[mcode]ManToGif[man, "charge", 2][/mcode] [img]/c/portal/getImageAttachment?filename=charge.gif&userId=11733[/img] [b]Any suggestions how we can improve this function? [/b][list] [*][b]To make it work faster [/b] [*][b]To make smaller .GIFs [/b] [*][b]Any other way… [/b] [/list] P.S. - A few things to note: [list] [*]Control the screen size of GIF by controlling size of Manipulate content. [*]The smaller the screen size, the smaller the byte size. [*]By default Export will generate an animation by running the Manipulate through one Autorun cycle. [*]AutorunSequencing is used when a Manipulate expression is exported using Export to a dynamic format. [*]Use AutorunSequencing to specify how autorun should use the controls provided. [*]When a Manipulate output containing explicit bookmarks is exported to a video animation format using Export, the resulting video will be one cycle through the sequence generated by Animate Bookmarks. [/list] Vitaliy Kaurov 2013-08-01T07:08:40Z https://community.wolfram.com/groups/-/m/t/394130 Create an `EmbedCode` to use in an **HTML** page as in the following: EmbedCode[ CloudDeploy[ Manipulate[ Plot3D[Cos[x y \[Delta]] (\[Delta] + x y), {x, -6, 6}, {y, -6, 6}], {{\[Delta], 0}, -2, 2}], Permissions -> "Public"], ImageSize -> {500, 500}] (Note that `EmbedCode` has a bug -- which is a known bug -- in that it does not generate an `iframe` code with a closing </iframe> tag, so one has to remember to add that) Now place this iframe script in an HTML page. For example here is an example HTML page's code for this where you will need to add the appropriate URL for the cloud object generated above replacing the `https://www.wolframcloud.com/objects/XXXXX` below: <!DOCTYPE html> <html lang="en"> <head> <meta charset="utf-8" /> <title>Test CloudDeploy Manipulate Embedding</title> </head> <body> <h2>A Start</h2> <p>This is a bit of text before the embedding code. </p> <iframe src="https://www.wolframcloud.com/objects/XXXXX?_embed=iframe" width="500" height="500" > </iframe> <p>And following is this bit of text.</p> </body> </html> I find that most of the time when I create this web page and open it in a browser, the Manipulate first appears in the iframe and then a small popup appears saying that the session has expired before one can do any computation--it is then replaced with the Wolfram Cloud login page. However the URL in the script (the `https://www.wolframcloud.com/objects/XXXXX`) works fine if it is simply used alone in a browser. Also, as an aside, the iframe contains Wolfram branding on the bottom. Is there any way to get rid of this? It's quite inappropriate in any document that I would want to place on the web. David Reiss 2014-11-22T03:35:04Z https://community.wolfram.com/groups/-/m/t/1799757 # Introduction: *One problem in chemistry is finding all possible molecules, as there are rotations and reflections. All the possibilities of existence of halomethanes (even unstable ones) are addressed here. This is a question similar to the sequence: Doubly triangular numbers (A002817–OEIS, N. J. A. Sloane, Apr 18, 2017):* *“Number of inequivalent ways to color vertices of a square using <= n colors, allowing rotations and reflections* ...” , a(n)=n*(n+1)*(n^ 2+n+2)/8. *However as described in the sequence A002817–OEIS, only the total result of the possibilities is addressed, while here in this post I visually demonstrate all possibilities, both in list, 2D and 3D graphs and mass list.* # Function Code: With this function below it is possible to find and visualize **all possibilities of halomethanes**, taking into account all rotations and reflections of the molecules. I developed this function with some options (“Mode”) besides the list of terms. Examples of options: "Color", "Visual", "Visual3D", "Mass". Here the function demonstration is done with all halogens (except radioactive halogens, by choice), but any of the possible elements can be used as an argument in the function. Example: {"H"}, {"F", "Br", "I"}, {...} ... {"H", "F", "Cl", "Br", "I" }. Halomethanes[elem_, OptionsPattern[]] := Module[{eleu, z, cc, a, a1, f, rP, ap, n, b}, z = Length@elem; Options[Halomethanes] = {"Mode" -> "Table"}; eleu = elem[[1]]; a = Tuples[elem, 4] /. {"Cl" -> "D", "Br" -> "B"}; n[x_] := {x}; cc = {"C" -> GrayLevel[0.5], "F" -> RGBColor[1, 0.5, 0.5], "Cl" -> RGBColor[0, 0.56, 0], "Br" -> RGBColor[0.6, 0.4, 0.2], "I" -> RGBColor[1, 0, 0], "H" -> RGBColor[0, 1, 1]}; a1 = a[[1]]; f[a_] := Module[{bt, ct, dt, e1, e2, ft, gt, r1}, bt = Table[StringJoin[a[[b]]], {b, 1, Length@a}]; ct = Table[StringJoin@Table[a[[c]], 2], {c, 1, Length@a}]; dt = Table[ StringJoin[a[[d]][[4]], a[[d]][[3]], a[[d]][[2]], a[[d]][[1]]], {d, 1, Length@a}]; e1 = Table[ StringCases[ct[[i]], RegularExpression[bt[[1]]]], {i, 1, Length@ct}]; e2 = Table[ StringCases[ct[[i]], RegularExpression[dt[[1]]]], {i, 1, Length@ct}]; ft = Table[{Length@(e1[[j]]), Length@(e2[[j]])} /. {{2, 2} -> bt[[j]], {2, 0} -> bt[[j]], {0, 2} -> {"copy"}, {0, 0} -> bt[[j]], {2, 1} -> bt[[j]], {1, 2} -> {"copy"}, {1, 0} -> {"copy"}, {0, 1} -> {"copy"}, {1, 1} -> {"copy"}}, {j, 1, Length@ct}]; gt = Table[ StringPartition[DeleteCases[ft, {"copy"}][[o]], 1], {o, 1, Length@DeleteCases[ft, {"copy"}]}]; r1 = If[gt != {}, If[gt[[1]] == a[[1]], gt[[1]], {}], {}]; {rP = DeleteCases[r1, {}], ap = If[r1 != {}, DeleteCases[gt, r1], gt]}]; Do[b = AppendTo[n[a1], {a = f[a][[2]], f[a][[1]]}[[2]]], z*(z + 1)*(z^2 + z + 2)/8 - 1]; OptionValue[ "Mode"] /. {"Table" -> If[z == 1, {{eleu, eleu, eleu, eleu}}, b /. {"D" -> "Cl", "B" -> "Br"}], "Color" -> {TableForm[{{"H", Text[Style["Cyan", RGBColor[0, 1, 1], Medium]]}, {"F", Text[Style["Pink", RGBColor[1, 0.5, 0.5], Medium]]}, {"Cl", Text[Style["Green", RGBColor[0, 0.56, 0], Medium]]}, {"Br", Text[Style["Brown", RGBColor[0.6, 0.4, 0.2], Medium]]}, {"I", Text[Style["Red", RGBColor[1, 0, 0], Medium]]}}, TableHeadings -> {None, {"Atom", "Color"}}], If[z == 1, {Flatten@Table[elem, 4]}, b /. {"D" -> "Cl", "B" -> "Br"}] /. cc}, "Visual" -> If[z == 1, MoleculePlot[ Molecule[{"C", eleu, eleu, eleu, eleu}, {Bond[{1, 2}], Bond[{1, 3}], Bond[{1, 4}], Bond[{1, 5}]}], ColorRules -> cc, ImageSize -> 100], Table[MoleculePlot[ Molecule[ Join[{"C"}, (b /. {"D" -> "Cl", "B" -> "Br"})[[ h]]], {Bond[{1, 2}], Bond[{1, 3}], Bond[{1, 4}], Bond[{1, 5}]}], ColorRules -> cc, ImageSize -> 100], {h, 1, Length@b}]], "Visual3D" -> If[z == 1, MoleculePlot3D[ Molecule[{"C", eleu, eleu, eleu, eleu}, {Bond[{1, 2}], Bond[{1, 3}], Bond[{1, 4}], Bond[{1, 5}]}], ColorRules -> cc, ImageSize -> 100], Table[MoleculePlot3D[ Molecule[ Join[{"C"}, (b /. {"D" -> "Cl", "B" -> "Br"})[[ h]]], {Bond[{1, 2}], Bond[{1, 3}], Bond[{1, 4}], Bond[{1, 5}]}], ColorRules -> cc, ImageSize -> 80], {h, 1, Length@b}]], "Mass" -> If[z == 1, MoleculeValue[ Molecule[{"C", eleu, eleu, eleu, eleu}, {Bond[{1, 2}], Bond[{1, 3}], Bond[{1, 4}], Bond[{1, 5}]}], "MolecularMass"], Table[MoleculeValue[ Molecule[ Join[{"C"}, (b /. {"D" -> "Cl", "B" -> "Br"})[[ h]]], {Bond[{1, 2}], Bond[{1, 3}], Bond[{1, 4}], Bond[{1, 5}]}], "MolecularMass"], {h, 1, Length@b}]]}] # Visualization: - **TERMS TABLE**: In the simplest form, with only one argument, a list of all halomethane molecules is generated. rp = Halomethanes[{"H", "F", "Cl", "Br", "I"}] Length@rp ![im1][1] - **COLOR TABLE**: Optionally, a list of molecules with their respective illustrative colors is generated with the "Mode" -> "Color" option. Halomethanes[{"H", "F", "Cl", "Br", "I"}, "Mode" -> "Color"] ![im2][2] - **2D VISUAL TABLE**: Optionally, a list of molecules with 2D structural representations is generated with the "Mode" -> "Visual" option (the 2D model can better represent stereoisomerism than the 3D model). Halomethanes[{"H", "F", "Cl", "Br", "I"}, "Mode" -> "Visual"] ![im3][3] - **3D VISUAL TABLE** (interactive): Optionally, a list of molecules with 3D structural representations is generated with the "Mode" -> "Visual3D" option. This list is interactive, and each molecule can be rotated for better viewing (stereoisomerism is not very well represented in these 3D models as the representations are tetrahedral, for example, the isomers {"H","F","H","F"} and {"F","F","H”,”H”} are very similar in this view). Halomethanes[{"H", "F", "Cl", "Br", "I"}, "Mode" -> "Visual3D"] ![im4][4] - **MASS TABLE**: Finally, a list of the masses of all halomethanes can be generated with the argument "Mode" -> "Mass" (some of them, although unstable, are mentioned in the list). resp2 = Halomethanes[{"H", "F", "Cl", "Br", "I"}, "Mode" -> "Mass"] ![im5][5] Illustrative graph of the mass distributions of all possible halomethanes: ListPlot[resp2, AxesLabel -> {"n", "Mass(u)"}, LabelStyle -> Directive["Subsubsection", RGBColor[0.07, 0.5, 0.5]], PlotLabel -> "Halomethanes Mass", PlotRange -> {{0, 130}, {0, 550}}, PlotStyle -> Directive[RGBColor[0.91, 0.08, 0.5], PointSize[Large]], ImageSize -> Large] ![im6][6] **Link**: (Doubly triangular numbers, A002817–OEIS, sequence): https://oeis.org/A002817 Thanks. [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=table1.png&userId=1316061 [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=tableColor.png&userId=1316061 [3]: https://community.wolfram.com//c/portal/getImageAttachment?filename=graphtest.png&userId=1316061 [4]: https://community.wolfram.com//c/portal/getImageAttachment?filename=visual3D.png&userId=1316061 [5]: https://community.wolfram.com//c/portal/getImageAttachment?filename=tablemass.png&userId=1316061 [6]: https://community.wolfram.com//c/portal/getImageAttachment?filename=graph.png&userId=1316061 Claudio Chaib 2019-10-03T03:01:17Z