Plot of a tornado-shaped surfaceStrange spikes in my surfacePlot closed surface with ListPlot3Dinterpolating a smooth closed surface to a non-uniform data set (ListSurfacePlot3D)Plot a revolution surface, with two cross sections to show its shapeSolution of a 5D Hypersurface and a 3D SurfacePlot Surface from Curves and Shortest DistancePlot 2D B-spline curve on 3D B-spline surfaceHow to convert a polar plot in surface PlotPlot surface defined by inequalityHow to create a surface plot using unequal vectors

How should I respond when I lied about my education and the company finds out through background check?

What does routing an IP address mean?

C++ debug/print custom type with GDB : the case of nlohmann json library

Why Shazam when there is already Superman?

Non-trope happy ending?

What is this called? Old film camera viewer?

How do I color the graph in datavisualization?

Calculating Wattage for Resistor in High Frequency Application?

When were female captains banned from Starfleet?

Why electric field inside a cavity of a non-conducting sphere not zero?

copy and scale one figure (wheel)

Lowest total scrabble score

How to explain what's wrong with this application of the chain rule?

Travelling outside the UK without a passport

Removing files under particular conditions (number of files, file age)

Are the IPv6 address space and IPv4 address space completely disjoint?

Open a doc from terminal, but not by its name

Did arcade monitors have same pixel aspect ratio as TV sets?

Multiplicative persistence

If a character has darkvision, can they see through an area of nonmagical darkness filled with lightly obscuring gas?

Has any country ever had 2 former presidents in jail simultaneously?

How do you respond to a colleague from another team when they're wrongly expecting that you'll help them?

Is it possible to put a rectangle as background in the author section?

Create all possible words using a set or letters



Plot of a tornado-shaped surface


Strange spikes in my surfacePlot closed surface with ListPlot3Dinterpolating a smooth closed surface to a non-uniform data set (ListSurfacePlot3D)Plot a revolution surface, with two cross sections to show its shapeSolution of a 5D Hypersurface and a 3D SurfacePlot Surface from Curves and Shortest DistancePlot 2D B-spline curve on 3D B-spline surfaceHow to convert a polar plot in surface PlotPlot surface defined by inequalityHow to create a surface plot using unequal vectors













10












$begingroup$


What is a simple code to plot a surface shaped like a tornado?
Any help is welcome.










share|improve this question









New contributor




janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$
















    10












    $begingroup$


    What is a simple code to plot a surface shaped like a tornado?
    Any help is welcome.










    share|improve this question









    New contributor




    janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.







    $endgroup$














      10












      10








      10





      $begingroup$


      What is a simple code to plot a surface shaped like a tornado?
      Any help is welcome.










      share|improve this question









      New contributor




      janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.







      $endgroup$




      What is a simple code to plot a surface shaped like a tornado?
      Any help is welcome.







      plotting






      share|improve this question









      New contributor




      janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question









      New contributor




      janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question








      edited yesterday









      J. M. is slightly pensive

      98.3k10306466




      98.3k10306466






      New contributor




      janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked 2 days ago









      janmarqzjanmarqz

      1515




      1515




      New contributor




      janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      janmarqz is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.




















          2 Answers
          2






          active

          oldest

          votes


















          15












          $begingroup$

          My quick go at it:



          ContourPlot3D[
          (x - z/5 Cos[[Pi] z])^2 + (y - z/5 Sin[[Pi] z])^2 == (z/4)^2
          , x, -1, 1, y, -1, 1, z, 0, 2
          , Mesh -> None, Axes -> False, Boxed -> False
          , PlotTheme -> "ThickSurface", ContourStyle -> RGBColor[0.41, 0.5, 0.63]
          ]


          Tornado






          share|improve this answer









          $endgroup$




















            15












            $begingroup$

            I like "surface synthesis" questions. Here's a simple-minded model that combines an Archimedean spiral with a power law curve:



            With[h = 1/10, n = 24, c = 4, p = 2/3,
            ParametricPlot3D[t (h Cos[n t] + Cos[v]), t (h Sin[n t] + Sin[v]), (c t)^p,
            t, 0, 3, v, 0, 2 π, Axes -> None, Boxed -> False,
            Lighting -> "Neutral", Mesh -> False, PlotPoints -> 85,
            PlotStyle -> Opacity[3/4, Black], ViewPoint -> 3.2, -1.6, 1.]]


            tornado?



            Adjust parameters as seen fit.






            share|improve this answer









            $endgroup$








            • 5




              $begingroup$
              (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
              $endgroup$
              – J. M. is slightly pensive
              yesterday










            Your Answer





            StackExchange.ifUsing("editor", function ()
            return StackExchange.using("mathjaxEditing", function ()
            StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
            StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
            );
            );
            , "mathjax-editing");

            StackExchange.ready(function()
            var channelOptions =
            tags: "".split(" "),
            id: "387"
            ;
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function()
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled)
            StackExchange.using("snippets", function()
            createEditor();
            );

            else
            createEditor();

            );

            function createEditor()
            StackExchange.prepareEditor(
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            bindNavPrevention: true,
            postfix: "",
            imageUploader:
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            ,
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            );



            );






            janmarqz is a new contributor. Be nice, and check out our Code of Conduct.









            draft saved

            draft discarded


















            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193743%2fplot-of-a-tornado-shaped-surface%23new-answer', 'question_page');

            );

            Post as a guest















            Required, but never shown

























            2 Answers
            2






            active

            oldest

            votes








            2 Answers
            2






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            15












            $begingroup$

            My quick go at it:



            ContourPlot3D[
            (x - z/5 Cos[[Pi] z])^2 + (y - z/5 Sin[[Pi] z])^2 == (z/4)^2
            , x, -1, 1, y, -1, 1, z, 0, 2
            , Mesh -> None, Axes -> False, Boxed -> False
            , PlotTheme -> "ThickSurface", ContourStyle -> RGBColor[0.41, 0.5, 0.63]
            ]


            Tornado






            share|improve this answer









            $endgroup$

















              15












              $begingroup$

              My quick go at it:



              ContourPlot3D[
              (x - z/5 Cos[[Pi] z])^2 + (y - z/5 Sin[[Pi] z])^2 == (z/4)^2
              , x, -1, 1, y, -1, 1, z, 0, 2
              , Mesh -> None, Axes -> False, Boxed -> False
              , PlotTheme -> "ThickSurface", ContourStyle -> RGBColor[0.41, 0.5, 0.63]
              ]


              Tornado






              share|improve this answer









              $endgroup$















                15












                15








                15





                $begingroup$

                My quick go at it:



                ContourPlot3D[
                (x - z/5 Cos[[Pi] z])^2 + (y - z/5 Sin[[Pi] z])^2 == (z/4)^2
                , x, -1, 1, y, -1, 1, z, 0, 2
                , Mesh -> None, Axes -> False, Boxed -> False
                , PlotTheme -> "ThickSurface", ContourStyle -> RGBColor[0.41, 0.5, 0.63]
                ]


                Tornado






                share|improve this answer









                $endgroup$



                My quick go at it:



                ContourPlot3D[
                (x - z/5 Cos[[Pi] z])^2 + (y - z/5 Sin[[Pi] z])^2 == (z/4)^2
                , x, -1, 1, y, -1, 1, z, 0, 2
                , Mesh -> None, Axes -> False, Boxed -> False
                , PlotTheme -> "ThickSurface", ContourStyle -> RGBColor[0.41, 0.5, 0.63]
                ]


                Tornado







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered yesterday









                Thies HeideckeThies Heidecke

                7,2312639




                7,2312639





















                    15












                    $begingroup$

                    I like "surface synthesis" questions. Here's a simple-minded model that combines an Archimedean spiral with a power law curve:



                    With[h = 1/10, n = 24, c = 4, p = 2/3,
                    ParametricPlot3D[t (h Cos[n t] + Cos[v]), t (h Sin[n t] + Sin[v]), (c t)^p,
                    t, 0, 3, v, 0, 2 π, Axes -> None, Boxed -> False,
                    Lighting -> "Neutral", Mesh -> False, PlotPoints -> 85,
                    PlotStyle -> Opacity[3/4, Black], ViewPoint -> 3.2, -1.6, 1.]]


                    tornado?



                    Adjust parameters as seen fit.






                    share|improve this answer









                    $endgroup$








                    • 5




                      $begingroup$
                      (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
                      $endgroup$
                      – J. M. is slightly pensive
                      yesterday















                    15












                    $begingroup$

                    I like "surface synthesis" questions. Here's a simple-minded model that combines an Archimedean spiral with a power law curve:



                    With[h = 1/10, n = 24, c = 4, p = 2/3,
                    ParametricPlot3D[t (h Cos[n t] + Cos[v]), t (h Sin[n t] + Sin[v]), (c t)^p,
                    t, 0, 3, v, 0, 2 π, Axes -> None, Boxed -> False,
                    Lighting -> "Neutral", Mesh -> False, PlotPoints -> 85,
                    PlotStyle -> Opacity[3/4, Black], ViewPoint -> 3.2, -1.6, 1.]]


                    tornado?



                    Adjust parameters as seen fit.






                    share|improve this answer









                    $endgroup$








                    • 5




                      $begingroup$
                      (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
                      $endgroup$
                      – J. M. is slightly pensive
                      yesterday













                    15












                    15








                    15





                    $begingroup$

                    I like "surface synthesis" questions. Here's a simple-minded model that combines an Archimedean spiral with a power law curve:



                    With[h = 1/10, n = 24, c = 4, p = 2/3,
                    ParametricPlot3D[t (h Cos[n t] + Cos[v]), t (h Sin[n t] + Sin[v]), (c t)^p,
                    t, 0, 3, v, 0, 2 π, Axes -> None, Boxed -> False,
                    Lighting -> "Neutral", Mesh -> False, PlotPoints -> 85,
                    PlotStyle -> Opacity[3/4, Black], ViewPoint -> 3.2, -1.6, 1.]]


                    tornado?



                    Adjust parameters as seen fit.






                    share|improve this answer









                    $endgroup$



                    I like "surface synthesis" questions. Here's a simple-minded model that combines an Archimedean spiral with a power law curve:



                    With[h = 1/10, n = 24, c = 4, p = 2/3,
                    ParametricPlot3D[t (h Cos[n t] + Cos[v]), t (h Sin[n t] + Sin[v]), (c t)^p,
                    t, 0, 3, v, 0, 2 π, Axes -> None, Boxed -> False,
                    Lighting -> "Neutral", Mesh -> False, PlotPoints -> 85,
                    PlotStyle -> Opacity[3/4, Black], ViewPoint -> 3.2, -1.6, 1.]]


                    tornado?



                    Adjust parameters as seen fit.







                    share|improve this answer












                    share|improve this answer



                    share|improve this answer










                    answered yesterday









                    J. M. is slightly pensiveJ. M. is slightly pensive

                    98.3k10306466




                    98.3k10306466







                    • 5




                      $begingroup$
                      (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
                      $endgroup$
                      – J. M. is slightly pensive
                      yesterday












                    • 5




                      $begingroup$
                      (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
                      $endgroup$
                      – J. M. is slightly pensive
                      yesterday







                    5




                    5




                    $begingroup$
                    (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
                    $endgroup$
                    – J. M. is slightly pensive
                    yesterday




                    $begingroup$
                    (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
                    $endgroup$
                    – J. M. is slightly pensive
                    yesterday










                    janmarqz is a new contributor. Be nice, and check out our Code of Conduct.









                    draft saved

                    draft discarded


















                    janmarqz is a new contributor. Be nice, and check out our Code of Conduct.












                    janmarqz is a new contributor. Be nice, and check out our Code of Conduct.











                    janmarqz is a new contributor. Be nice, and check out our Code of Conduct.














                    Thanks for contributing an answer to Mathematica Stack Exchange!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid


                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.

                    Use MathJax to format equations. MathJax reference.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function ()
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193743%2fplot-of-a-tornado-shaped-surface%23new-answer', 'question_page');

                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    Sum ergo cogito? 1 nng

                    419 nièngy_Soadمي 19bal1.5o_g

                    Queiggey Chernihivv 9NnOo i Zw X QqKk LpB