https://community.wolfram.com RSS Feed for Wolfram Community showing ideas 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/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/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/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/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/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 https://community.wolfram.com/groups/-/m/t/1390630 A couple of weeks ago I experimented with automating inputs and visualizing results from the [CP2K][1] quantum chemistry software via Mathematica. My goal was to visualize the formation of a water molecule. I knew just enough about computational chemistry to stumble my way to making an animation that sort of looked like I wanted, although I'm sure it's horribly inaccurate. Are there any other people in the community who have worked on projects like this? [Video][3] ![enter image description here][2] [1]: https://www.cp2k.org/ [2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=temp.jpg&userId=64737 [3]: https://www.youtube.com/watch?v=foG5LgFYb2o Michael Hale 2018-07-23T22:58:36Z https://community.wolfram.com/groups/-/m/t/953623 ![Image morph][8] **A to Z** I've mentioned before that there's a construction which gives a correspondence between points on the Grassmann manifold $G_2(\mathbb{R}^n)$ of 2-dimensional linear subspaces of $\mathbb{R}^n$ and planar $n$-gons; details at [1][1], [2][2], [3][3], [4][4], [5][5], [6][6]. In particular, this gives a way of morphing between any two (discrete) shapes you like; this animation shows the shortest path from A to Z. Here's the code; notice that I use the [`smootheststep` function][7]: ProjectionBasis[{A_, B_}, {C_, D_}] := Normalize[#] & /@ Eigenvectors[ Transpose[Transpose[{A, B}].{A, B}.Transpose[{C, D}].{C, D}], 2]; PlaneGeo[{A_, B_}, {C_, D_}, t_] := Module[{a, b, c, d, cPerp, dPerp, dist1, dist2}, {a, b} = ProjectionBasis[{C, D}, {A, B}]; {c, d} = ProjectionBasis[{A, B}, {C, D}]; {cPerp, dPerp} = {Normalize[c - (c.a)*a], Normalize[d - (d.b)*b]}; dist1 = ArcCos[a.c]; dist2 = ArcCos[b.d]; {Cos[t*dist1]*a + Sin[t*dist1]*cPerp, Cos[t*dist2]*b + Sin[t*dist2]*dPerp} ]; MakePoly[data_] := Normalize[#] & /@ Transpose[{Re[#], Im[#]} & /@ Sqrt[Table[#[[n]][[1]] + I*#[[n]][[2]], {n, 1, Length[#]}] &[ RotateLeft[#] - # &[data]]]]; RawAData = {{-3., .9}, {1.07, 8.18}, {1.85, 8.2}, {5.96, 0.86}, {4.89, 0.86}, {1.77, 6.6}, {1.18, 6.6}, {.12, 4.58}, {2.87, 4.6}, {3.35, 3.76}, {-.18, 3.76}, {-1.72, .94}}; RawZData = {{0.82, 7.26}, {7.61, 7.32}, {7.65, 6.04}, {1.92, -.06}, {7.76, -.02}, {7.8, -1.16}, {.71, -1.12}, \ {.71, .02}, {6.36, 6.12}, {.85, 6.12}, {.82, 6.12}, {.82, 7.26}}; ToPol[frame_] := Accumulate[ReIm[(Complex @@ #)^2] & /@ Transpose[frame]]; smootheststep[t_] := -20 t^7 + 70 t^6 - 84 t^5 + 35 t^4; DynamicModule[{cols = RGBColor /@ {"#f77e5e", "#3dbd5d", "#303030"}, centeredpoints, s}, Manipulate[ s = smootheststep[t]; centeredpoints = # - ConstantArray[Mean[#], Length[#]] &[ RotationTransform[(26 - 44 s) Degree][ Prepend[ToPol[ PlaneGeo[MakePoly[RawAData], MakePoly[RawZData], s]], {0, 0}]]]; Graphics[{Thickness[.008], JoinForm["Round"], Blend[cols[[;; 2]], s], Line[centeredpoints]}, ImageSize -> {540, 540}, PlotRange -> {{-.26 + .02 s, .29 + .02 s}, {-.28 - .065 s, .32 - .065 s}}, Background -> cols[[-1]]], {t, 0, 1}] ] [1]: http://community.wolfram.com/groups/-/m/t/760148 [2]: http://community.wolfram.com/groups/-/m/t/782316 [3]: http://community.wolfram.com/groups/-/m/t/783758 [4]: http://community.wolfram.com/groups/-/m/t/785078 [5]: http://community.wolfram.com/groups/-/m/t/787596 [6]: http://community.wolfram.com/groups/-/m/t/865171 [7]: https://en.wikipedia.org/wiki/Smoothstep [8]: http://community.wolfram.com//c/portal/getImageAttachment?filename=azdance2.gif&userId=610054 Clayton Shonkwiler 2016-11-01T22:22:30Z https://community.wolfram.com/groups/-/m/t/1079933 I'm trying to do a Machine Learning using old data. However, the data are not numeric-data but graph-image-data. So I create the tool which calculates numeric-data from graph-image-data. ## **Goal** The left is the original graph-image-data. The right is the graph made from the tool's output(list data). ![enter image description here][1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 11.82 12.04 12.09 11.88 12.42 12.48 12.61 12.75 12.53 12.53 12.62 12.68 12.6 12.39 12.24 12.21 12.01 11.91 11.92 11.89 11.91 12.24 12.35 12.11 12.35 12.39 12.53 12.54 13.26 13.3 13.20 13.11 13.17 13.69 13.9 13.54 13.20 13.44 13.35 13.41 13.47 13.24 13.23 13.49 12.87 12.65 12.57 13.04 13.09 12.87 The tool comes in two steps ## **Step 1** In the first step, the tool selects points of the graph roughly by using ImageKeypoints function. However, it also uses masking option of ImageKeypoints because ImageKeypoints sometimes selects unnecessary points of the graph. I referred to [@Vitaliy Kaurov][2] 's [post][3] about how to make masking area. My GetPoints function selects the key points of the graph. GetPoints[i_] := Manipulate[ Grid[{ {"Mask(add/del alt+click/cmd+click?", "Selected Points"}, {Show[i, ImageSize -> ImageDimensions[i]], mask = Graphics[Disk[#, 10] & /@ p, PlotRange -> Thread[{{1, 1}, ImageDimensions[i]}], ImageSize -> ImageDimensions[i]]; HighlightImage[i, points = ImageKeypoints[i, MaxFeatures -> n, Method -> method, Masking -> mask], ImageSize -> ImageDimensions[i]]} }], {{p, {ImageDimensions[i]/2}}, Locator, LocatorAutoCreate -> True, Appearance -> Style["\[EmptyCircle]", Red, 30]}, {{n, 100, "number of points"}, 10, 300, 10}, {{method, "FAST"}, {"AGAST", "AKAZE", "BRISK", "FAST", "KAZE", "ORB", "SURF"}, ControlType -> RadioButton}, ControlPlacement -> {Top}] Here is an original data, or graph-image-data. This is a financial graph. ![enter image description here][4] The red points in the right figure are selected points. ![enter image description here][5] Some ticks may be selected, but they are unnecessary. You can mask them by moving the red circle in the left figure. ![enter image description here][6] You can add more masking areas with alt+click(WINDOWS)/cmd+click(MAC). ![enter image description here][7] ImageKeypoints has many methods. In this case, "AKAZE" method is the best. ![enter image description here][8] Forty points are selected. They are stored in "points". ![enter image description here][9] ## **Step 2** In this step, My GetList function makes list of selects the points. GetList[i_, points_] := Module[{}, ClearAll[list]; list = {}; Row[{Manipulate[Grid[{{"Selected Points", "Sample List"}, {Show[i, Graphics[{Point[u]}], ImageSize -> ImageDimensions[i]], Dynamic[If[(ValueQ[list] == False) || (list == {}), "1? move bottom-left and upper-right red points\n2. set \ each coordinate\n3. add/del points if necessary(alt+click/cmd+click?\n\ 4. click Calculate button", list = Round[#, accuracy] & /@ list; Sort[RandomSample[list, UpTo[10]]] // TableForm]]}}], Row[{Dynamic[u[[1]]], "->", Control[{coordinate1, {{0, 0}}, InputField, ImageSize -> 80}], Dynamic[u[[2]]], "->", Control[{coordinate2, {{1, 1}}, InputField, ImageSize -> 80}], Control[{{accuracy, 0.01}, InputField, ImageSize -> 50}]}, " "], Row[{Button["Calculate", list = locator2coordinate[u, {coordinate1, coordinate2}];, ImageSize -> 120]}, " "], Row[{Button["Clear points", u = Take[u, 2]; Put[u, "locator"], ImageSize -> 120]}, " "], {{u, Join[{{1, 1}, ImageDimensions[i] - {1, 1}}, Sort[points]]}, Locator, LocatorAutoCreate -> True, Appearance -> Style["\[FilledCircle]", Red, 8]}, ControlPlacement -> {Bottom, Bottom}] }, " "] ] locator2coordinate[list_, sample_] := Module[{a, b, c, d, mat, cnst, solve, matx, cnstx}, mat = {{a, 0}, {0, d}}; cnst = {b, c}; solve = Solve[mat.list[[1]] + cnst == sample[[1]] && mat.list[[2]] + cnst == sample[[2]], {a, b, c, d}]; matx = mat /. solve; cnstx = cnst /. solve; Partition[Flatten[(matx.# + cnstx) & /@ list], 2] // Sort ] You can make list in the next process. 1. Move bottom-left and upper-right red points into where you know the coordinates ![enter image description here][10] 2. Set each coordinate 3. Add points with alt+click(WINDOWS)/cmd+click(MAC) 50 points are selected in the figure below. ![enter image description here][11] 4. Click Calculate button The summary is displayed in the right. ![enter image description here][12] And the selected points are stored in "list". Transpose[{Round[#[[1]], 1], #[[2]]} & /@ list] // TableForm 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 11.82 12.04 12.09 11.88 12.42 12.48 12.61 12.75 12.53 12.53 12.62 12.68 12.6 12.39 12.24 12.21 12.01 11.91 11.92 11.89 11.91 12.24 12.35 12.11 12.35 12.39 12.53 12.54 13.26 13.3 13.20 13.11 13.17 13.69 13.9 13.54 13.20 13.44 13.35 13.41 13.47 13.24 13.23 13.49 12.87 12.65 12.57 13.04 13.09 12.87 Compare the original graph image and calculated graph(ListPlot). ![enter image description here][13] ## **Example 1** Here is a graph-image-data like sin curve. ![enter image description here][14] Step 1: GetPoints In this case, "FAST" method is the best. ![enter image description here][15] Step 2: GetList ![enter image description here][16] Compare the original graph image and calculated graph(ListPlot). ![enter image description here][17] ## **Example 2** Here is a graph-image-data like barchart. ![enter image description here][18] Step 1: GetPoints In this case, "AGAST" method is the best. ![enter image description here][19] Step 2: GetList ![enter image description here][20] Compare the original graph image and calculated graph(BarcChart). Now I have numeric data, so I can set a bar style. ![enter image description here][21] ## **Finally** In this approach, some manual operations are necessary. When there are a lot of image data, this work will be very boring. There are many many functions in Wolfram Language. By using ImageGraphics, ImageCorners, it may be able to improve the accuracy of selecting points in Step 1. By using TextRecognize, it may be unnecessary to set the coordinates manual setting in Step 2. [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=5699screenshot.1.jpg&userId=1013863 [2]: http://community.wolfram.com/web/vitaliyk [3]: http://community.wolfram.com/groups/-/m/t/121733 [4]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.2.jpg&userId=1013863 [5]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.3.jpg&userId=1013863 [6]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.4.jpg&userId=1013863 [7]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.5.jpg&userId=1013863 [8]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.6.jpg&userId=1013863 [9]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.7.jpg&userId=1013863 [10]: http://community.wolfram.com//c/portal/getImageAttachment?filename=8195screenshot.8.jpg&userId=1013863 [11]: http://community.wolfram.com//c/portal/getImageAttachment?filename=5620screenshot.9.jpg&userId=1013863 [12]: http://community.wolfram.com//c/portal/getImageAttachment?filename=1680screenshot.10.jpg&userId=1013863 [13]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.11.jpg&userId=1013863 [14]: http://community.wolfram.com//c/portal/getImageAttachment?filename=9234screenshot.12.jpg&userId=1013863 [15]: http://community.wolfram.com//c/portal/getImageAttachment?filename=7385screenshot.13.jpg&userId=1013863 [16]: http://community.wolfram.com//c/portal/getImageAttachment?filename=3334screenshot.14.jpg&userId=1013863 [17]: http://community.wolfram.com//c/portal/getImageAttachment?filename=2452screenshot.15.jpg&userId=1013863 [18]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.16.jpg&userId=1013863 [19]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.17.jpg&userId=1013863 [20]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.18.jpg&userId=1013863 [21]: http://community.wolfram.com//c/portal/getImageAttachment?filename=screenshot.19.jpg&userId=1013863 Kotaro Okazaki 2017-05-02T16:30:22Z https://community.wolfram.com/groups/-/m/t/3067969 ![enter image description here][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=_2_ezgif.com-optimizecopy.gif&userId=11733 [2]: https://www.wolframcloud.com/obj/34c7205a-40cd-4587-b6a1-f1fadc1ed8ce Vitaliy Kaurov 2023-11-21T01:14:10Z https://community.wolfram.com/groups/-/m/t/1679969 I recently updated [Substitution Tilings](http://demonstrations.wolfram.com/SubstitutionTilings/), one of my many items at the [Wolfram Demonstrations Project](http://demonstrations.wolfram.com/author.html?author=Ed+Pegg+Jr). Some of these were introduced in my blog [Shattering the Plane with Twelve New Substitution Tilings Using 2, φ, ψ, χ, ρ](https://blog.wolfram.com/2019/03/07/shattering-the-plane-with-twelve-new-substitution-tilings-using-2-phi-psi-chi-rho/). Here are 26 of the 40 tiling currently in [Substitution Tilings](http://demonstrations.wolfram.com/SubstitutionTilings/). Some but not all of these are at the [Tilings Encyclopedia](https://tilings.math.uni-bielefeld.de/). Wolfram Language code is attached below at the end of this post. ![SqrtChi tiling][1] ![SqrtRho tiling][2] ![SqrtPsi tiling][3] ![SqrtPhi tiling][4] ![Quartic Pinwheel tiling][5] ![SqrtTwo tiling][6] ![PsiQuad][7] ![Rho Quad tiling][8] ![Trib Trap tiling][9] ![Psi Trap tiling][10] ![Psi Chord tiling][11] ![Psi Wedge tiling][12] ![Trib Chord tiling][13] ![TwoTriangle tiling][14] ![RhoQuad tiling][15] ![Birds and Bees tiling][16] ![Binary tiling][17] ![Penrose Rhomb tiling][18] ![Robinson tiling][19] ![Kites and Darts tiling][20] ![Ammann Chair or Scherer Golden Bee][21] ![Ammann A4 tiling][22] ![WaltonChair tiling][23] ![Ammann Phi Chair tiling][24] ![Triangle Duo tiling][25] ![Equithirds tiling][26] ![Tritan tiling][27] ![limhex tiling][28] ![Pinwheel tiling][29] Any corrections, suggestions or additions are welcome. &[Wolfram Notebook][30] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=SqrtChi.jpg&userId=21530 [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=SqrtRho.jpg&userId=21530 [3]: https://community.wolfram.com//c/portal/getImageAttachment?filename=SqrtPsi.jpg&userId=21530 [4]: https://community.wolfram.com//c/portal/getImageAttachment?filename=SqrtPhi.jpg&userId=21530 [5]: https://community.wolfram.com//c/portal/getImageAttachment?filename=QuarticPinwheel.jpg&userId=21530 [6]: https://community.wolfram.com//c/portal/getImageAttachment?filename=SqrtTwo.jpg&userId=21530 [7]: https://community.wolfram.com//c/portal/getImageAttachment?filename=PsiQuad.jpg&userId=21530 [8]: https://community.wolfram.com//c/portal/getImageAttachment?filename=RhoChordQuadrangle.jpg&userId=21530 [9]: https://community.wolfram.com//c/portal/getImageAttachment?filename=TribonacciTrap.jpg&userId=21530 [10]: https://community.wolfram.com//c/portal/getImageAttachment?filename=PsiTrap.jpg&userId=21530 [11]: https://community.wolfram.com//c/portal/getImageAttachment?filename=PsiChordQuadrangle.jpg&userId=21530 [12]: https://community.wolfram.com//c/portal/getImageAttachment?filename=PsiWedge.jpg&userId=21530 [13]: https://community.wolfram.com//c/portal/getImageAttachment?filename=TribonacciChordQuadrangle.jpg&userId=21530 [14]: https://community.wolfram.com//c/portal/getImageAttachment?filename=TwoTriangle.jpg&userId=21530 [15]: https://community.wolfram.com//c/portal/getImageAttachment?filename=RhoQuad.jpg&userId=21530 [16]: https://community.wolfram.com//c/portal/getImageAttachment?filename=BirdsandBees.jpg&userId=21530 [17]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Binary.jpg&userId=21530 [18]: https://community.wolfram.com//c/portal/getImageAttachment?filename=PenroseRhomb.jpg&userId=21530 [19]: https://community.wolfram.com//c/portal/getImageAttachment?filename=RobinsonTriangle.jpg&userId=21530 [20]: https://community.wolfram.com//c/portal/getImageAttachment?filename=KitesandDarts.jpg&userId=21530 [21]: https://community.wolfram.com//c/portal/getImageAttachment?filename=AmmannChair.jpg&userId=21530 [22]: https://community.wolfram.com//c/portal/getImageAttachment?filename=AmmannA4.jpg&userId=21530 [23]: https://community.wolfram.com//c/portal/getImageAttachment?filename=WaltonChair.jpg&userId=21530 [24]: https://community.wolfram.com//c/portal/getImageAttachment?filename=AmmannPhiChair.jpg&userId=21530 [25]: https://community.wolfram.com//c/portal/getImageAttachment?filename=TriangleDuo.jpg&userId=21530 [26]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Equithirds.jpg&userId=21530 [27]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Tritan3.jpg&userId=21530 [28]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Limhex.jpg&userId=21530 [29]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Pinwheel.jpg&userId=21530 [30]: https://www.wolframcloud.com/obj/9ef852d1-357f-4e24-8d53-34e9f6ed6c76 Ed Pegg 2019-05-09T17:10:57Z https://community.wolfram.com/groups/-/m/t/1729082 ![Main image][1] ---- ## Introduction Scratch is an Open Source Project that has as the main objective to teach children about programming from a very early age, its design paradigm comes from the idea of kids playing with Lego blocks, in the same way, that a specific LEGO® set may come with its instructions to let the children build its own toy, the kid can then disassemble and turn everything into something else. This is translated into this platform as having tutorials that help the kids realize what every code block does, so they can build something more complicated by their own. The goal of this project was to create a web application to teach programming using Wolfram Language and Scratch Blocks as an interface. Among the main objectives of the project were: - Create a useful design experience for the kids, so that it's intuitive and interesting enough for them. - The ability for them to use their previous outputs to evaluate them using other functions, just like in a regular Mathematica Notebook. - Create a persistence layer, so that the web application maintains its state and can communicate correctly with the WL server. ---- ## Features: ### Friendly Interface - Visual outputs, Functions focusing on visual stuff. ### Tutorials - Ability to create tutorials so the kids can follow along ![Tutorials Demo][2] ### Challenges - Ability to import challenges and check them on the backend - Challenges include blocks and instructions to be solved. ![Challenges Demo][3] ### Reusable Outputs - Just like a regular Mathematica notebook, you can apply further transformations to the last output - You can also put the id of the output you want to use ![Reusable outputs demo][4] ### Scalable - It is possible to add new Blocks, Tutorials and challenges easily // This code adds an additional Block for the ReverseSort Function. { opcode: 'reverseSort', blockType: BlockType.REPORTER, text: "ReverseSort?[LIST]?", arguments: { LIST: { type: ArgumentType.STRING } } } //... reverseSort(args,util) { return `ReverseSort[${args.LIST}]`; } --- (* This code adds additional challenges and has the ability to check them in the back end*) CheckAnswer[resp_, problem_] := With[{answers = <| ButterflyString :> SameQ[resp,"Pneumonou..."], MostCommonLetters :> SameQ[Sort[resp], {"d", "e", "g", "s", "y"}] (* ... *) |>}, If[answers[problem], Style["Correct!", Green, 20], Style["Wrong!", Red, 20]]]; ---- ## Conclusion This Project was a great opportunity to showcase the abilities of the Wolfram Web Engine, and additionally learn to use some functions interactively to have an idea of the potential that this platform can offer to teach Children about the Wolfram Language, that's also the main reason why I tried to focus on activities that could only be done using it. I have always been amazed by how you can make awesome demonstrations and graphics with it writing very little code, having such potential accessible for children especially at a young age makes them spark an interest in pursuing STEM fields, and there is nothing like the feeling that has in them to build something functional and see it working for the first time. And with the infinite capabilities of the Wolfram Language, I can't wait to see what they will create. ## Future Work - A method to have the blocks look less cluttered horizontally is still needed. - There is a potential for anyone to add additional WL functions and definitions, and they should work just as well, the same thing with additional tutorials and challenges. there is also the possibility to have everything in the cloud, so the user just needs to log in to get their project anywhere. - There is also the possibility to package everything as a standalone app for Desktop or Tablets. ---- ## Download You can download the full code here, it is self contained (however you must have some kind of Wolfram Language Engine installed, like Mathematica Wolfram Desktop, etc.) https://github.com/Mackaber/BlockyWL ---- ## References - https://scratch.mit.edu/ - https://github.com/LLK/ - https://www.wolfram.com/engine/ - https://pypi.org/project/wolframwebengine/ [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2019-07-09at7.03.34PM.png&userId=1710433 [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ezgif-1-1c89ee044663.gif&userId=1710433 [3]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ezgif-1-1a8b9d305b00.gif&userId=1710433 [4]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ezgif-1-7badf58c2eee.gif&userId=1710433 Miguel Angel (Mackaber) Bravo 2019-07-10T16:41:40Z https://community.wolfram.com/groups/-/m/t/3082489 ![enter image description here][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Minkowski.gif&userId=20103 [2]: https://www.wolframcloud.com/obj/990ee8a2-de25-4164-af34-4858a8d8799e Diego Ramos 2023-12-13T04:32:56Z https://community.wolfram.com/groups/-/m/t/313447 *WOLFRAM MATERIALS for the ARTICLE:* > Jim Arlow, Interactive Computational Geometry: A Taxonomic Approach. > [Clear View Training][1] > [Wolfram Notebook Archive][2] > [Amazon][3] ![enter image description here][4] Hello community, I have just published a new book in CDF format called "Interactive Computational Geometry". Ed Pegg of Wolfram suggested I notify the community. The book comprises text, plus 53 interactive Demonstrations of a selection of some of the most fundamental computational geometry algorithms. Note: The book is written for Mathematica 10, but will work OK in Player 9 (until Player 10 is released). There are 3 demonstrations that are Mathematica 10 specific that don't work in Player 9. These are simple demos of Mathematica 10 features, and don't really detract from the rest of the book. Full book is embedded below. &[Wolfram Notebook][5] [1]: https://www.clearviewtraining.com/interactive-computational.html [2]: https://notebookarchive.org/interactive-computational-geometry-second-edition--2019-01-8aukd4r/ [3]: https://www.amazon.com/Interactive-Computational-Geometry-Taxonomic-Approach-ebook/dp/B089S4LJ46 [4]: /c/portal/getImageAttachment?filename=ScreenShot2014-08-18at1.16.47PM.png&userId=11733 [5]: https://www.wolframcloud.com/obj/cbcf01c5-7960-4a03-9a26-94099822d379 Jim Arlow 2014-08-06T17:25:44Z https://community.wolfram.com/groups/-/m/t/2417276 ![Graphics3D with anchored rotation axis][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=ViewPoint.gif&userId=93201 [2]: https://www.wolframcloud.com/obj/586d1953-bb18-4697-aa0a-6fe757a33fa3 [Original NB]: https://www.wolframcloud.com/obj/a3f6b88f-6f46-4015-b64d-9b824b36ee10 Silvia Hao 2021-12-01T19:32:46Z https://community.wolfram.com/groups/-/m/t/2151938 ![enter image description here][1] &[Wolfram Notebook][2] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Shinto2.gif&userId=20103 [2]: https://www.wolframcloud.com/obj/9b0e0bf0-9244-4141-8d12-c63b73b662ea Shenghui Yang 2021-01-01T03:02:18Z https://community.wolfram.com/groups/-/m/t/1899870 *MODERATOR NOTE: coronavirus resources & updates:* https://wolfr.am/coronavirus ---------- ![enter image description here][1] ![enter image description here][2] ![enter image description here][3] There are many much more sophisticated models out there using the COVID-19 data but i wanted a simple overview of the data to monitor the progression of the countries and do some comparisons. . Therefore i made a simple plot interface of the Infected and deaths of the countries which can be plotted linear and logarithmic. i chose to align all the data to day 0 which is defined as the first day of >100 confirmed infected cases in a country. This makes comparison of countries in their early stage to more affected countries more intuitive. To fill my own curiosity i have added sigmoidal fits to data to see the "prediction", which only becomes reliable once a tipping point in controlling the disease is reached. I also calculate the mortality of the confirmed cases. I have chosen to only include the first 20 most affected countries but changing the included countries is easy. The interface allows to turn on and off countries to make comparisons. Hope its also useful to others. &[Wolfram Notebook][4] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=COVID-3.PNG&userId=1332602 [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=COVID-2.PNG&userId=1332602 [3]: https://community.wolfram.com//c/portal/getImageAttachment?filename=COVID-1.PNG&userId=1332602 [4]: https://www.wolframcloud.com/obj/be9243ef-6580-442f-9fbf-764b515d577e Martijn Froeling 2020-03-17T14:00:10Z https://community.wolfram.com/groups/-/m/t/1996374 *MODERATOR NOTE: coronavirus resources & updates:* https://wolfr.am/coronavirus ---------- &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/37ebb6c7-dd65-4b41-ba3b-a40c9ac531c2 [Original]: https://www.wolframcloud.com/obj/luis17se/Published/COVID-19_SEIRD_Model.nb Luis Borgonovo 2020-06-05T20:16:26Z https://community.wolfram.com/groups/-/m/t/1879730 ![Schwarz–Christoffel transformation between circle and square][1] **Square Grid** This shows a parametrized version of the [Schwarz–Christoffel transformation][2] between the circle and the square. To implement this, first of all we need the Cayley transformation between the upper half-plane and the unit disk: Cayley[z_] := (z - I)/(z + I); Now, I took some inspiration from a [Math StackExchange answer of Lukas Geyer][3] to realize that this particular Schwarz–Christoffel mapping could be implemented using the Weierstrass $\wp$-function. We need to determine the specific parameters that will give us our map: g2[ω1_, ω2_] := Block[{a, b, τ, q}, τ = ω2/ω1; q = E^(π I τ); a = EllipticTheta[2, q]; b = EllipticTheta[3, q]; 4/3 (π/ω1)^4 (a^8 - a^4 b^4 + b^8) ]; g3[ω1_, ω2_] := Block[{a, b, τ, q}, τ = ω2/ω1; q = E^(π I τ); a = EllipticTheta[2, q]; b = EllipticTheta[3, q]; 8/27 (π/ω1)^6 (a^12 - 3/2 a^8 b^4 - 3/2 a^4 b^8 + b^12) ]; And then it's basically just a matter of choosing colors and fiddling with the interpolation: DynamicModule[{invts = {g2[2., 2. I], g3[2., 2. I]}, s, width = .012, n = 8, c, cols = RGBColor /@ {"#21243d", "#88e1f2"}}, s = WeierstrassP[1, invts]; Manipulate[ c = 2 Cos[t] # + Sin[t] Cayley[-WeierstrassP[#, invts]/s] &[(1 + I)/2]; Graphics[{FaceForm[cols[[-1]]], Table[ Polygon[ Join @@ Transpose[ Table[ ReIm[-c + 2 Cos[t] # + Sin[t] Cayley[-WeierstrassP[#, invts]/s]] & /@ {x + I (y - width), 1 - x + I (y + width)}, {x, -width, 1 + width, (1 + 2 width)/100}]]], {y, 0., 1, 1/n}], Table[ Polygon[ Join @@ Transpose[ Table[ ReIm[-c + 2 Cos[t] # + Sin[t] Cayley[-WeierstrassP[#, invts]/s]] & /@ {x - width + I y, x + width + I (1 - y)}, {y, -width, 1 + width, (1 + 2 width)/100}]]], {x, 0., 1, 1/n}]}, ImageSize -> 540, PlotRange -> Sqrt[3], Background -> cols[[1]]], {t, 0, ?}] ] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=squircle14.gif&userId=610054 [2]: https://en.wikipedia.org/wiki/Schwarz%E2%80%93Christoffel_mapping [3]: https://math.stackexchange.com/a/246625 Clayton Shonkwiler 2020-02-16T04:04:43Z