Plot of a tornado shape like surfaceDrawing a shape on the mesh of a Plot3DHow to make a smooth revolution surface plotPlotting 3D arrows on a surfaceSurface Plot 3D of a strongly concave shapePlot closed surface with ListPlot3DA method to draw a surface around a set of regularly spaced pointsPlot a revolution surface, with two cross sections to show its shapeHow to draw a proper surface with ListPlot3D?How to convert a polar plot in surface PlotPlot surface defined by inequality

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

Doesn't the system of the Supreme Court oppose justice?

Why does AES have exactly 10 rounds for a 128-bit key, 12 for 192 bits and 14 for a 256-bit key size?

Why does this expression simplify as such?

How much theory knowledge is actually used while playing?

Is there a way to have vectors outlined in a Vector Plot?

Why should universal income be universal?

Is there any evidence that Cleopatra and Caesarion considered fleeing to India to escape the Romans?

What fields between the rationals and the reals allow a good notion of 2D distance?

15% tax on $7.5k earnings. Is that right?

What's the name of the logical fallacy where a debater extends a statement far beyond the original statement to make it true?

What is the highest possible scrabble score for placing a single tile

How to draw a matrix with arrows in limited space

Why is it that I can sometimes guess the next note?

Can a stoichiometric mixture of oxygen and methane exist as a liquid at standard pressure and some (low) temperature?

What (the heck) is a Super Worm Equinox Moon?

How could a planet have erratic days?

What is the English pronunciation of "pain au chocolat"?

When were female captains banned from Starfleet?

Do we have to expect a queue for the shuttle from Watford Junction to Harry Potter Studio?

Pre-mixing cryogenic fuels and using only one fuel tank

What is going on with gets(stdin) on the site coderbyte?

Does Doodling or Improvising on the Piano Have Any Benefits?

How can I write humor as character trait?



Plot of a tornado shape like surface


Drawing a shape on the mesh of a Plot3DHow to make a smooth revolution surface plotPlotting 3D arrows on a surfaceSurface Plot 3D of a strongly concave shapePlot closed surface with ListPlot3DA method to draw a surface around a set of regularly spaced pointsPlot a revolution surface, with two cross sections to show its shapeHow to draw a proper surface with ListPlot3D?How to convert a polar plot in surface PlotPlot surface defined by inequality













3












$begingroup$


Which will be a simple code to plot a shape of a surface tornado like cone?
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$
















    3












    $begingroup$


    Which will be a simple code to plot a shape of a surface tornado like cone?
    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$














      3












      3








      3





      $begingroup$


      Which will be a simple code to plot a shape of a surface tornado like cone?
      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$




      Which will be a simple code to plot a shape of a surface tornado like cone?
      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






      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 4 hours ago









      janmarqzjanmarqz

      1163




      1163




      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


















          2












          $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$




















            1












            $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$












              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-shape-like-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









              2












              $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$

















                2












                $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$















                  2












                  2








                  2





                  $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 3 hours ago









                  Thies HeideckeThies Heidecke

                  7,0712638




                  7,0712638





















                      1












                      $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$

















                        1












                        $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$















                          1












                          1








                          1





                          $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 38 mins ago









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

                          98.1k10306465




                          98.1k10306465




















                              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-shape-like-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

                              How should I use the fbox command correctly to avoid producing a Bad Box message?How to put a long piece of text in a box?How to specify height and width of fboxIs there an arrayrulecolor-like command to change the rule color of fbox?What is the command to highlight bad boxes in pdf?Why does fbox sometimes place the box *over* the graphic image?how to put the text in the boxHow to create command for a box where text inside the box can automatically adjust?how can I make an fbox like command with certain color, shape and width of border?how to use fbox in align modeFbox increase the spacing between the box and it content (inner margin)how to change the box height of an equationWhat is the use of the hbox in a newcommand command?

                              Doxepinum Nexus interni Notae | Tabula navigationis3158DB01142WHOa682390"Structural Analysis of the Histamine H1 Receptor""Transdermal and Topical Drug Administration in the Treatment of Pain""Antidepressants as antipruritic agents: A review"

                              inputenc: Unicode character … not set up for use with LaTeX The Next CEO of Stack OverflowEntering Unicode characters in LaTeXHow to solve the `Package inputenc Error: Unicode char not set up for use with LaTeX` problem?solve “Unicode char is not set up for use with LaTeX” without special handling of every new interesting UTF-8 characterPackage inputenc Error: Unicode character ² (U+B2)(inputenc) not set up for use with LaTeX. acroI2C[I²C]package inputenc error unicode char (u + 190) not set up for use with latexPackage inputenc Error: Unicode char u8:′ not set up for use with LaTeX. 3′inputenc Error: Unicode char u8: not set up for use with LaTeX with G-BriefPackage Inputenc Error: Unicode char u8: not set up for use with LaTeXPackage inputenc Error: Unicode char ́ (U+301)(inputenc) not set up for use with LaTeX. includePackage inputenc Error: Unicode char ̂ (U+302)(inputenc) not set up for use with LaTeX. … $widehatleft (OA,AA' right )$Package inputenc Error: Unicode char â„¡ (U+2121)(inputenc) not set up for use with LaTeX. printbibliography[heading=bibintoc]Package inputenc Error: Unicode char − (U+2212)(inputenc) not set up for use with LaTeXPackage inputenc Error: Unicode character α (U+3B1) not set up for use with LaTeXPackage inputenc Error: Unicode characterError: ! Package inputenc Error: Unicode char ⊘ (U+2298)(inputenc) not set up for use with LaTeX