https://community.wolfram.com RSS Feed for Wolfram Community showing any discussions tagged with Demonstrations sorted by most replies. https://community.wolfram.com/groups/-/m/t/742694 Hi, I downloaded Stewart Platform demo and I changed Long demonstration motion plan as follows: demoMotionPlan = Block[{dx = 0.05, d\[Theta] = 10 \[Degree]}, { {0, 0, 0, 0, 0, 0}, {0, dx, 0, 0, 0, 0}, {0, dx, 0, d\[Theta], 0, 0}, {0, dx, 0, 0, 0, 0}, {0, dx, 0, -d\[Theta], 0, 0}, {0, dx, 0, 0, 0, 0}, {0, dx, 0, 0, d\[Theta], 0}, {0, dx, 0, 0, 0, 0}, {0, dx, 0, 0, -d\[Theta], 0}, {0, dx, 0, 0, 0, 0}, {0, dx, 0, 0, 0, d\[Theta]}, {0, dx, 0, 0, 0, 0}, {0, dx, 0, 0, 0, -d\[Theta]}, {0, dx, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0} } ]; Mathematica generates a file called PlatformPath. Only first and the third angle is calculaced correctly. novio8 2015-11-22T04:30:43Z https://community.wolfram.com/groups/-/m/t/218587 Hi all, one of my friends shared the following link, which I found interesting to share with you and by the way, ask the community if it is to do something like the machine enigma that is on that page, I hope someone has any idea how to do it. [url=http://enigmaco.de/enigma/enigma.swf]http://enigmaco.de/enigma/enigma.swf[/url] Luis Ledesma 2014-03-13T23:51:00Z https://community.wolfram.com/groups/-/m/t/3481794 ![enter image description here][1] Michael Trott was more than a brilliant scientist, he was a mentor, a friend, and a truly unique human being. For those of us lucky enough to work closely with him, his absence leaves a deep void. He brought an irreplaceable blend of curiosity, creativity, and humility to everything he did. Our long meetings, where we'd dive into unconventional ideas in physics and find ways to implement them in Mathematica, often stretched past hours, but no one ever minded. With Michael, even the most abstract idea could spark a new direction, a novel prototype, or an unexplored corner of science. He didn't just think outside the box, he rebuilt it entirely, quietly and kindly. His codes weren't always optimized for performance, but they were original and beautiful. I have never seen anyone so professional in prototyping novel ideas computationally; and this was our joint passion for Mathematica, as we believed it is one of the best tool, if not the best, for this purpose. One can find a few examples of Michael's style of thinking in the [Wolfram Blog][2], [Wolfram Demonstration Project][3], or [Wolfram Community][4]. He was also the author of four seminal books: "[The Mathematica GuideBooks][5]" (four volumes). He had a deep grasp of the history and architecture of Mathematica, with a passion for physics, especially quantum theory, and a genius for applying technology in unexpected ways. Michael Trott joined Wolfram Research in 1994 and was a cornerstone of the company for over 30 years. As Chief Scientist of Wolfram|Alpha, his fingerprints are on thousands of algorithms and innovations, from computational art to physical constants, from parsing human input to building bridges between theoretical physics and computation. The [Wolfram Quantum Framework][6], as a small example, would not have been possible without his support and contributions. Michael was encyclopedic in knowledge, yet endearingly humble. He read hundreds of papers, built massive daily digests on LLMs, mentored researchers across physics, math, and engineering; and still worried whether he had anything "original" to offer before a scheduled talk at the University of Vienna (see the material he'd prepared for this talk from [this link][7]; we even had a dry-run together, to discuss the content repeatedly). His presence was magnetic. He showed up early to Zoom calls (Wolfram Research has many remote employees, including myself, even before COVID pandemic) and sparked thoughtful conversation before meetings began. He didn't just build things but he shared them generously. He brought humanity to everything he touched. Whether discussing quantum fields or life under East Germany's Stasi, he made space for your story too. He helped others grow, quietly and consistently, always leading by example. Toward the end, we spoke about the multiverse; you were certain we'd meet again. In those final days, lying in your hospital bed, we found ourselves deep in conversation about the quantum-to-classical transition and nonlinearities. Thank you, Michael, for everything. You showed so many of us what it truly means to be both a scientist and a human being. [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Screenshot2025-06-18at9.36.32%E2%80%AFPM.png&userId=1539902 [2]: https://blog.wolfram.com/author/michael-trott/ [3]: https://demonstrations.wolfram.com/authors/michael-trott [4]: https://community.wolfram.com/web/mtrott [5]: https://www.amazon.com/stores/author/B001ITTUVM/allbooks [6]: https://resources.wolframcloud.com/PacletRepository/resources/Wolfram/%5C%20QuantumFramework/ [7]: https://amoeba.wolfram.com/index.php/s/Jbrt4q6cYTN7rC7 Mohammad Bahrami 2025-06-19T04:38:05Z https://community.wolfram.com/groups/-/m/t/827456 They no longer seem to launch in the browsers. I've spent quite a long time producing two of these and total work done on all the demonstrations by people is enormous. They were mainly produced as a service to the community. Are they just going to be left as a non function facility on the site? What's the master plan folks? William Stewart 2016-03-22T17:02:14Z https://community.wolfram.com/groups/-/m/t/887243 Several years ago I stumbled on a terrific demonstration titled: World Energy: Electricity, Oil, and Gas. I developed a good lesson for my precalculus class utilizing the demonstration. My school does not have school license for mathematica, but my students can of course use the CDF player. When I tried to do the lesson this year, I found that the demonstration did not work for my students, but did for me. After a lot of chatting with Tech at Mathematica, we eventually discovered that I was running a lower version of Mathematica, that the newest version of mathematica had changed some code and that thisn demonstration needed an update. The team at mathematica said they would fix it, but a few weeks later they contacted me and said it was too more work than worth their time, and it is now left at that... so I am pretty desperate here, and know there is a low probability, but I am looking for someone who might know the creator of the demo, Eugene Poberezkin? Or thinks they could take a stab at trying to fix the demo? I have the old file to share, it is attached. I am a novice coder, it would take me forever to decipher the original code, much less fix it for the newest version of Mathematica! Thanks in advance. Matt Matthew Schaefer 2016-07-12T20:17:47Z 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/520951 Does anyone have "Best Practices" for converting a Notebook or Slide show to a .pdf ... ? I have several Notebooks used in Slide mode for a recent presentation. I wanted to post them as .pdf's but could not get the Mathematica functionality to generate anything useful. The pagination was completely wrong, generating both excess pages by a factor of two or more and page breaks at (seemingly random locations in each slide). Attempts to use the Scaling factor truncated some text, and didn't fix the pagination. At present, I'm generating .cdf's and they look fine, and I look forward to using the full functionality available with .cdf's, someday. But, for the moment .pdf's would be simpler. Thank you, --Mark Mark Tuttle 2015-06-30T22:22:38Z https://community.wolfram.com/groups/-/m/t/834960 The increase in browser security has rendered inoperable embedded CDFs that I have written for my web pages. In particular, CDFPlayer is "broken" in the newer versions of Chrome, Firefox, Edge, and Opera. I cannot find suitable instruction among WRI's documentation to port the CDF's to the Cloud and code my HTML pages accordingly. Can someone help me and/or point me to the appropriate instructions? Thank you. Stephen Saperstone 2016-04-06T11:30:56Z https://community.wolfram.com/groups/-/m/t/100224 Hi everyone! Just wanted to let you know that Wolfram will be hosting a FREE Virtual Conference for STEM Education September 17th. During the conference there are two tracks to choose from, one dedicated to enhancing your current classroom and the other focused on current trends to transform your curriculum. Our virtual conference interface lets you join talks from either track. Learn how to create interactive materials for your math course, how to explain physical phenomenon with demonstrations, use our mobile solutions in your classroom and much more! We'll also be talking about products that haven't even been released yet! You have to come and check it out! Use this thread for: [list] [*]questions that you have about the conference [*]comments about Wolfram tech in education [*]questions for the conference's live Q&A [*]follow-up questions to the conference [/list]If your questions didn't get answered during the Q&A, post it here and get it answered by the presenters! We'll be monitoring the thread. To see the full schedule and to register for the event, visit [b][url=http://www.wolfram.com/events/virtual-conference/stem-education-2013/]the conference page[/url][/b]. Can't wait to see you all there! [url=http://www.wolfram.com/events/virtual-conference/stem-education-2013/][img=width: 700px; height: 155px;]/c/portal/getImageAttachment?filename=5596ScreenShot2013-08-19at12.07.27PM.png&userId=11733[/img][/url] Adriana O'Brien 2013-08-19T17:04:53Z https://community.wolfram.com/groups/-/m/t/2434790 Hello everyone, First, some background. I was introduced to Mathematica some 30 years ago back in graduate school, and have been in awe of it ever since. However, I've never actually used it. Recently, I've been working with my daughter on a graphic design project. What we want is to create a logo using a **Lissajous curve**, and it occurred to me that Mathematica would probably be the perfect tool to help here. But **the challenge here is primarily graphical, not mathematical**. Even the online tool allows a simple drawing: [https://demonstrations.wolfram.com/LissajousFigures/][1] But what I want is a **much richer 3-D effect**. But I'm not talking about 3-D Lissajous curves. Let me explain. As you change the phase of a 2-D Lissajous, it *appears to rotate in space around a vertical central axis*. The result is that a portion of the curve appears to be in the foreground and a portion in the background. But when all the lines are drawn with equal weight, that's very hard to visualize. Now, the online tool has a **"length" parameter** that appears to turn the line into sort of a "flat ribbon", which is very cool, and is also an effect I might like to incorporate: ![lissajous concept][2] But this is not providing any **front/back depth**. **What I would like to have is one or more parameters that allow the "front" portion of the curve to be fatter and darker, while the "rear" portion of the curve is dimmer and follows the rules of perspective to become lighter "weight".** Furthermore, if I can be a little greedy, I'd like to be able to render the curve with a **lighting/shadow effect**. The best example I could find online is this, understanding that it's not a Lissajous: ![shaded (non-lissajous) curve][3] And finally, if I can then **create a GIF** by **animating the phase over time**, that would be truly fantastic. But the shading and GIF requests are secondary to the front/back depth effect portion of my request. I apologize in advance that I'm a complete novice to Mathematica, so your help is greatly appreciated! Thanks very much! Dave [1]: https://demonstrations.wolfram.com/LissajousFigures/ [2]: https://community.wolfram.com//c/portal/getImageAttachment?filename=lissajousexample.png&userId=2434755 [3]: https://community.wolfram.com//c/portal/getImageAttachment?filename=shadedcurve.jpg&userId=2434755 Dave K 2021-12-31T17:45:31Z https://community.wolfram.com/groups/-/m/t/2284041 Is anyone able to help me with the starting codes required to recreate this exact Gantt Chart? &[https://demonstrations.wolfram.com/GanttChartsAndNetworkDiagrams/][1] I can access the notebook file for this but it does not allow me to evaluate the code. Unsure if I need to input a package or something to be able to generate the same chart. Or can anyone assist me in contacting the author of this document? Anthony. I. Joseph Sidenote: My Mathematica is now not allowing me to evaluate ANY cells AND it will not allow me to create a plain text cell by clicking on the plus sign. I have attached the notebook in question. [1]: https://www.wolframcloud.com/obj/0b5c0133-0696-4c42-802d-337f8c5a41a3 Katherine O'Neill 2021-06-06T07:58:16Z https://community.wolfram.com/groups/-/m/t/413349 Hi All, I am trying to upload a demonstration project in [wolfram demonstration site][1] through authoring area but it shows me the following error. > Unsupported Mathematica Version, Please upgrade to 7 or downgrade to 9. [1]: http://demonstration.wolfram.com I am using Mathematica 10. Is it that I can not upload any demonstrations created with Mathematica 10? Any help is highly appreciated. Suvadip suvadip mandal 2014-12-30T05:23:18Z https://community.wolfram.com/groups/-/m/t/1596906 The malfunction is described explicitly in the leading comment of the attached notebook file. I'm stuck and barely need help from the community. Ulrich Mutze 2019-01-22T18:48:54Z https://community.wolfram.com/groups/-/m/t/1112795 2D cylindrical mirror anamorphosis is well known and in the past, I made several Wolfram Demonstrations on the subject. Such as : [Cylindrical Mirror Anamorphosis][1] and [Cylindrical Anamorphosis of Some Popular Images][2], George Beck of Wolfram Research drew my attention to the website of the London artist Jonty Hurwitz: [Wild New Anamorphic Sculptures From the Warped Mind of Jonty Hurwitz][3]. And I went on to see what could be done using the Graphic capabilities of Mathematica... ![enter image description here][4] These sculptures are cases of [ 3D mirror or catoptric anamorphosis][5] in contrast with its counterpart, [perspective or oblique anamorphosis][6] . We first need to look at the geometry of the setup for cylindrical mirror anamorphosis: A deformed 3D image (sculpture) is resting on the x-y plane, outside a right cylindrical mirror, this is the anamorphic image. R is a point of this anamorphic image. A viewer looks at the cylindrical mirror and sees a reflected, realistic looking sculpture 'inside' the cylinder, this is the reflected image. I is a point of this reflected image A point R of the anamorphic image will be reflected by the mirror toward the observer's eye, located at V . The light path will form equal angles with the normal vector n, perpendicular at the point Q on the cylinder. Q is the intersection with the cylinder of the view line connecting V and I. ![setup][7] The viewer at V perceives the anamorphic points R as points I, the artist has to create anamorphic points R from the reflected points I. Based on three observations, a function (anamorphCyl3D) can be made that maps the reflected image points \[ScriptCapitalI] into their anamorphic match R: 1. both I and R are in the same horizontal plane: zi=zr 2. the lines VQ and RQ form equal angles with the normal n at Q according to the law of reflection 3. the distances IQ and RQ are equal per the same law of reflection anamorphCyl3D[(*image point position*) iPt : {xi_, yi_, zi_},(*viewpoint*)vPt : {0, yv_, zv_}] := Quiet@Module[{t, R1, R2, hi = 5, qPt, nV, aV, rV, vV, solt}, (*view line*)R1 = InfiniteLine[{iPt, vPt}]; (*cylinder hull: mirror*) R2 = RegionBoundary[Cylinder[{{0., 0, 0}, {0, 0, 10}}, 1.]]; (*intersection point nearest to viewpoint*) qPt = Nearest[{x, y, z} /. NSolve[{x, y, z} \[Element] R1 && {x, y, z} \[Element] R2, {x, y, z}, Reals], vPt][[1]]; (*view vector*)vV = vPt - iPt; (*normal vector at qPt*)nV = {qPt[[1]], qPt[[2]], 0}; (*vertical dropdown from vPt*)aV = Projection[vV, nV] - vV; (*reflection vector of vPt from iPt*)rV = vV + 2 aV; t = -(qPt[[3]] - iPt[[3]])/rV[[3]]; (*anamorphic point*)t rV + qPt] This function can be simplified and compiled to increase the speed. This is more than necessary since we will have to process hundreds, if not thousands of points: anamorphCyl3DCF = Compile[{{xi, _Real}, {yi, _Real}, {zi, _Real}, {yv, _Real}}, Module[{t1, t2}, t1 = Sqrt[(yi - yv)^2 - xi^2 (-1 + yv^2)]; t2 = 1/(xi^2 + (yi - yv)^2); {-t2^2 xi ((xi^2 + (yi - yv)^2) ((yi - yv) yv + t1) - (xi^2 + yi^2 - yi yv + t1) (xi^2 (-1 + 2 yv^2) - (yi - yv) (yi - yv + 2 yv t1))), t2 (xi^2 yv + (-yi + yv) t1 + t2 (xi^2 + yi^2 - yi yv + t1) (-(yi - yv)^3 + xi^2 (-yi + yv + 2 yi yv^2 - 2 yv^3 + 2 yv t1))), zi}], CompilationTarget -> "C", Parallelization -> True, RuntimeOptions -> "Speed"] Let's try this first by applying the function to points on the surface of an object defined by ListSurfacePlot, e.g a sphere: sphere =(*points on the spere surface*) Flatten[Table[.9 {Cos[\[Phi]] Sin[\[Theta]], Sin[\[Phi]] Sin[\[Theta]], 1. - Cos[\[Theta]]}, {\[Phi], 0., 2 \[Pi], \[Pi]/16}, {\[Theta], 0., \[Pi], \[Pi]/16}], 1]; anamorphicSphere =(*their anamorphic counterpart*) Map[anamorphCyl3DCF @@ Flatten[{#, 6.}] &, sphere]; GraphicsRow[{Graphics3D[{{Opacity[.35], Cylinder[{{0, 0, 0}, {0, 0, 2}}, 1]}, ListSurfacePlot3D[sphere, Mesh -> All][[1]]}, Axes -> True], ListSurfacePlot3D[anamorphicSphere, Mesh -> All, PerformanceGoal -> "Quality", PlotTheme -> "ThickSurface"]}, ImageSize -> 350] ![sphere-2][8] Or we could apply the function directly inside a ParametricPlot3D object, e.g. a torus GraphicsRow[{ParametricPlot3D[.33 {(2 + Cos[v]) Cos[u], Sin[v], 3. + (2 + Cos[v]) Sin[u]}, {u, 0, 2. \[Pi]}, {v, 0, 2. \[Pi]}], ParametricPlot3D[ anamorphCyl3DCF @@ Flatten[{#, 6.}] &[.33 {(2 + Cos[v]) Cos[u], Sin[v], 3. + (2 + Cos[v]) Sin[u]}], {u, 0, 2. \[Pi]}, {v, 0, 2. \[Pi]}]}, ImageSize -> 350] ![enter image description here][9] Here we see both the reflected torus and its anamorphic counterpart together with the cylindric mirror. One can rotate the torus along one of its main axes or change the distance of the observer's eye from the center of the mirror. Manipulate[ Module[{torus}, torus = RotationMatrix[\[Theta], Switch[dir, 1, {1, 0, 0}, 2, {0, 0, 1}]]. (.33 {Cos[u] (2 + Cos[v]), Sin[v], (2 + Cos[v]) Sin[u]}); Quiet@Show[{ ParametricPlot3D[torus, {u, 0, 2. \[Pi]}, {v, 0, 2. \[Pi]}, Mesh -> 10, PlotPoints -> 25], ParametricPlot3D[ anamorphCyl3DCF @@ Flatten[{#, yv}] &[torus], {u, 0, 2. \[Pi]}, {v, 0, 2. \[Pi]}, Mesh -> 10, PlotPoints -> 36], Graphics3D[{Cylinder[{{0, 0, -1}, {0, 0, -.99}}, 5], Opacity[.35], Cylinder[{{0, 0, -1}, {0, 0, 2}}, 1]}]}, PlotRange -> {{-2, 2}, {-1, 3.5}, {-1, 2}}, Axes -> False, Boxed -> False, ViewPoint -> {0, 2., 3.1}, ImageSize -> 250]], "eye distance", {{yv, 6., ""}, 2, 24, ImageSize -> Small}, "\nrotation angle", {{\[Theta], 0., ""}, -\[Pi], \[Pi], ImageSize -> Small}, Row[{"\nrotation axis", Control[{{dir, 1, ""}, {1 -> "x-axis", 2 -> "z-axis"}}]}], ControlPlacement -> Left, SynchronousUpdating -> True] ![torus-V][10] We can now also apply this function to the vertices of a polygonal mesh of a discretized object. For example, the ones from ExampleDtata, "Geometry3D" in the Wolfram Language [1]. We first need to scale the coordinates within the limits of a right cylinder with radius 1, centered around the z-axis: getAndRescale[example_String] := Module[{data, ranges, maxRange, temp1, temp2}, data = ExampleData[{"Geometry3D", example}, "PolygonObjects"]; ranges = MinMax@Flatten[data[[All, 1]], 1][[All, #]] & /@ Range[3]; maxRange = MaximalBy[Most@ranges, Abs[Subtract @@ #] &]; temp1 = MapAt[Rescale[#, First@maxRange, {-1., 1.}] &, data, {All, 1, All, 1}]; MapAt[Rescale[#, Last@ranges, {0, 2*Subtract @@ ranges[[3]]/Subtract @@ ranges[[1]]}] &, temp1, {All, 1, All, 3}]] Applied to the "UtahTeapot": Module[{yv = 6., data, anaData}, data = getAndRescale["UtahTeapot"]; anaData = Map[anamorphCyl3DCF @@ Flatten[{.96 #, yv}] &, data, {3}]; g = Graphics3D[anaData]; Graphics3D[{data, anaData, {LightGray, Cylinder[{{0, 0, 0}, {0, 0, .01}}, 10]}, {Opacity[.35], Cylinder[{{0, 0, 0}, {0, 0, 2}}, 1]}}, PlotRange -> {{-2, 2}, {-1, 3}, {0, 2}}, ViewPoint -> {2.65, 1.6, 1.45}]] ![Utah teapot][11] The anamorphic teapot can now be printed using Printout3D and uploaded to an online 3D printing service as e.g. 3DHubs: Printout3D[g, "3DHubs", RegionSize -> Quantity[8, "Centimeters"]] ![teapot from hub][12] Afterwards, this can be tested in the reflection of a real homemade cylindrical mirror [2]: ![teapot printed][13] Or we can try the "Galleon" saved as an STL file with Printout3D: ![galleon][14] ![enter image description here][15] And we could try the famous Stanford Bunny with almost 70k polygons uploaded with Printout3D to 3D printer Sculpteo: ![sculpteo][16] Any more artists out there that want to try their skills at 3D anamorphic printing using Mathematica? Remarks [1] By mapping the vertices of polygonal meshes to their anamorphic counterpart and drawing a straight line between the vertices, we get the same limitation a with the original: only an infinite number of vertices will give the absolute correct object. But this is hardly a limitation to get an interesting result... [2] Cardboard cylinder from a discarded salt dispenser. Reflective window film glued around it. Diameter 60mm. [1]: http://demonstrations.wolfram.com/CylindricalMirrorAnamorphosis/ [2]: http://demonstrations.wolfram.com/CylindricalAnamorphosisOfSomePopularImages/ [3]: http://www.thisiscolossal.com/2017/04/wild-new-anamorphic-sculptures-from-the-warped-mind-of-jonty-hurwitz/ [4]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Hurwitz.png&userId=68637 [5]: http://www.instructables.com/id/Cylindrical-Mirror-Art/ [6]: http://www.jontyhurwitz.com/oblique-anamorphosis/ [7]: http://community.wolfram.com//c/portal/getImageAttachment?filename=setup.png&userId=68637 [8]: http://community.wolfram.com//c/portal/getImageAttachment?filename=sphere.png&userId=68637 [9]: http://community.wolfram.com//c/portal/getImageAttachment?filename=torii-2.png&userId=68637 [10]: http://community.wolfram.com//c/portal/getImageAttachment?filename=torus-V.gif&userId=68637 [11]: http://community.wolfram.com//c/portal/getImageAttachment?filename=UtahTeaPot.png&userId=68637 [12]: http://community.wolfram.com//c/portal/getImageAttachment?filename=teapothub.png&userId=68637 [13]: http://community.wolfram.com//c/portal/getImageAttachment?filename=teapotprinted.png&userId=68637 [14]: http://community.wolfram.com//c/portal/getImageAttachment?filename=galleon.png&userId=68637 [15]: http://community.wolfram.com//c/portal/getImageAttachment?filename=printedgalleon.png&userId=68637 [16]: http://community.wolfram.com//c/portal/getImageAttachment?filename=sculpteo.png&userId=68637 Erik Mahieu 2017-06-02T15:21:15Z https://community.wolfram.com/groups/-/m/t/744871 I made two graphics in http://demonstrations.wolfram.com/KnotPatternSimilarToALotusKolam/ I would like to write a caption in the common bottom of these two graphics to copy them with the caption for publishing them in other papers. Would you teach me how to write such a caption as "Torus knot (left) and Lotus Kolam (right) 12 leaves, 5 periods, 1 loop, and 46 crossings", instead of the present labels of each upper side of two graphics? These variables are changed with animation control bars of n and l, and the results. I could write a label in a graphic like http://demonstrations.wolfram.com/LissajousLikeKolam/ but for one graphic. Nagata Hannya 2015-11-25T12:38:54Z https://community.wolfram.com/groups/-/m/t/442381 I few days ago I was looking at this chart comparing different programming languages: ![annotated lang.rank_.plot_.q1152.png][1] And I asked myself: why is our favourite language doing so poor? Is is popular in regards to the vertical axis (stackoverflow.com) but it does poor in regards to the horizontal axis (github.com). It occurs to me that there are almost 10000 Mathematica open source projects in demonstrations.wolfram.com. If the authors of those projects could put the source of these demonstrations in GitHub, it would really help improve the perceived popularity of the language. And for new demonstrations, I would modify the "upload a new demonstration" webpage in order to encourage authors to send a GitHub link for the files. Do you think this is a good idea? The original image/article can be found here: http://redmonk.com/sogrady/ [1]: /c/portal/getImageAttachment?filename=anotated-lang.rank_.plot_.q1152.png&userId=22066 Gustavo Delfino 2015-02-14T19:00:33Z https://community.wolfram.com/groups/-/m/t/1052516 Embedded cdf documents doesn't work. Nor private ones nor the included in the Demonstrations Project Page. There is no any information or message. After a little search I have found a note in Wolfram Support: > Quick Answer Which browsers support the CDF plugin? > > Email Print > > Depending on the browser you use, you may notice that the CDF plugin > is not available. This is because web browsers are reducing support > for plugins in favor of HTML-based technologies. > > The CDF plugin is currently compatible with 32-bit Internet Explorer > and Opera. The plugin is not compatible with the latest versions of > Chrome, Firefox or Safari. Firefox provides an Extended Support > Release, which is expected to support the CDF plugin through early > 2018. > > As web browsers continue to reduce plugin support, we recommend the > Wolfram Cloud for deploying CDFs on the web. But Wolfram Cloud is not a good solution because the most attractive characteristic of CDF –you can see things change in a continuous form in response a controls– disappears. And downloading documents to use Mathematica o Wolfram Player is not the same. We can expect some solution or is a lost characteristic (and lost work in some projects)? Javier Puertolas 2017-04-04T09:55:51Z https://community.wolfram.com/groups/-/m/t/506863 Hello, I am very new to Wolframalpha and find it quite fascinating. But as I wanted to combine 4 derivatives of a single long function f, the input line was too short. So I tried some kind of substitution and found that such commands work: f*2+f^2 where f=sin(x) Here sin(x) is substituted for the letter f twice. BUT with derivatives the "where" command seems to fail sometimes, e.g. (df/dx)+1 where f=sin(x) Here the sin derivative is not performed. But with df/dx where f=sin(x) it works. Result: cos(x). Therefore my question: Why does the substitution of f with the command "where" sometimes work and with a small variation it does not work anymore. Ist there maybe a better way to define a function f in advance or to substitute it? Robert Slanski 2015-05-29T19:49:09Z https://community.wolfram.com/groups/-/m/t/65480 Hello, Wolfram Community! This is a continuation of a discussion we've been having the past week on the Mathematica Stack Exchange site, which is a continuation of a discussion we were having on the Wikidata mailing list linked therein: [b][url=http://meta.mathematica.stackexchange.com/q/1057/13]Collaborative packages organized like Wikipedia[/url][/b] The basic idea is to collaboratively develop packages associated with Wikipedia articles. The current plan is to just start by using wiki pages and then retreat to a more constrained hosting environment as we run into problems. To kick things off last night I was reading the "Solar cycles" article, and I noticed it has a plot (that hasn't been updated in a few years) that shows the daily total solar irradiance measurements for the past couple of decades. So I added some code to import and retrieve the TSI for a specific date from the World Radiation Center site. The current guidelines for relevance are any code that can be used to enhance, generate, or verify content in the associated Wikipedia article: [b][url=http://en.wikipedia.org/wiki/User:Wakebrdkid/Wikicode]http://en.wikipedia.org/wiki/User:Wakebrdkid/Wikicode[/url][/b] Anyone can now go expand that code or add their own (even without registering). The impression I've been getting is that people are interested in developing packages that extend the standard Mathematica library like this but don't have time. I do have a lot of spare time, so for now it just provides an outlet for me to organize and integrate code I write or find. Michael Hale 2013-07-23T22:58:11Z https://community.wolfram.com/groups/-/m/t/70369 With the education market (and others) increasingly turning to iPads and away from PCs, is there any news about when CDFs can be viewed on iPads? I've seen a [url=http://youtu.be/pJfeKz4zJsk]YouTube video[/url] showing a CDF running, made in 2012, but nothing since then. C ormullion 2013-07-24T11:37:28Z