Hcfyk

Flow chart document symbol

Is the destination of a commercial flight important for the pilot?

System.debug(JSON.Serialize(o)) Not longer shows full string

Anatomically Correct Strange Women In Ponds Distributing Swords

How can I quit an app using Terminal?

Applicability of Single Responsibility Principle

How does the UK government determine the size of a mandate?

Avoiding estate tax by giving multiple gifts

What do "Victor", "Tango", "Quebec", "Eco", "Sierra" flight ticket classes mean?

Is there a korbon needed for conversion?

Large drywall patch supports

Customer Requests (Sometimes) Drive Me Bonkers!

Is HostGator storing my password in plaintext?

Class Action - which options I have?

Was a professor correct to chastise me for writing "Prof. X" rather than "Professor X"?

Trouble understanding the speech of overseas colleagues

How does buying out courses with grant money work?

Invade the Pyramid if you Dare

How do I rename a Linux host without needing to reboot for the rename to take effect?

Lay out the Carpet

Do sorcerers' Subtle Spells require a skill check to be unseen?

How to safely derail a train during transit?

How to be diplomatic in refusing to write code that breaches the privacy of our users

Sort a list by elements of another list

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

2

$begingroup$

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

plotting

share|improve this question

edited Mar 22 at 11:51

J. M. is slightly pensive♦

98.7k10310467

asked Mar 22 at 2:39

janmarqzjanmarqz

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.

$endgroup$

add a comment | 

10

2

$begingroup$

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

plotting

share|improve this question

edited Mar 22 at 11:51

J. M. is slightly pensive♦

98.7k10310467

asked Mar 22 at 2:39

janmarqzjanmarqz

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.

$endgroup$

add a comment | 

$begingroup$

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

plotting

share|improve this question

edited Mar 22 at 11:51

J. M. is slightly pensive♦

98.7k10310467

asked Mar 22 at 2:39

janmarqzjanmarqz

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.

$endgroup$

share|improve this question

edited Mar 22 at 11:51

J. M. is slightly pensive♦

98.7k10310467

asked Mar 22 at 2:39

janmarqzjanmarqz

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.

share|improve this question

edited Mar 22 at 11:51

J. M. is slightly pensive♦

98.7k10310467

asked Mar 22 at 2:39

janmarqzjanmarqz

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.

edited Mar 22 at 11:51

J. M. is slightly pensive♦

98.7k10310467

edited Mar 22 at 11:51

J. M. is slightly pensive♦

98.7k10310467

asked Mar 22 at 2:39

janmarqzjanmarqz

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.

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

2 Answers
2

active

oldest

votes

17

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

Adjust parameters as seen fit.

share|improve this answer

answered Mar 22 at 6:01

J. M. is slightly pensive♦J. M. is slightly pensive

98.7k10310467

$endgroup$

• 
  
  
  

  
  5
  

  
  
  
  
  
  

  
  $begingroup$
  (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
  $endgroup$
  – J. M. is slightly pensive♦
  Mar 22 at 12:38
  

  
  
  
  

add a comment | 

16

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

share|improve this answer

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2812639

$endgroup$

add a comment | 

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

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

17

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

Adjust parameters as seen fit.

share|improve this answer

answered Mar 22 at 6:01

J. M. is slightly pensive♦J. M. is slightly pensive

98.7k10310467

$endgroup$

• 
  
  
  

  
  5
  

  
  
  
  
  
  

  
  $begingroup$
  (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
  $endgroup$
  – J. M. is slightly pensive♦
  Mar 22 at 12:38
  

  
  
  
  

add a comment | 

17

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

Adjust parameters as seen fit.

share|improve this answer

answered Mar 22 at 6:01

J. M. is slightly pensive♦J. M. is slightly pensive

98.7k10310467

$endgroup$

• 
  
  
  

  
  5
  

  
  
  
  
  
  

  
  $begingroup$
  (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
  $endgroup$
  – J. M. is slightly pensive♦
  Mar 22 at 12:38
  

  
  
  
  

add a comment | 

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

Adjust parameters as seen fit.

share|improve this answer

answered Mar 22 at 6:01

J. M. is slightly pensive♦J. M. is slightly pensive

98.7k10310467

$endgroup$

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.]]

share|improve this answer

answered Mar 22 at 6:01

J. M. is slightly pensive♦J. M. is slightly pensive

98.7k10310467

answered Mar 22 at 6:01

J. M. is slightly pensive♦J. M. is slightly pensive

98.7k10310467

answered Mar 22 at 6:01

J. M. is slightly pensive♦J. M. is slightly pensive

98.7k10310467

16

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

share|improve this answer

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2812639

$endgroup$

add a comment | 

16

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

share|improve this answer

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2812639

$endgroup$

add a comment | 

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

share|improve this answer

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2812639

$endgroup$

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

share|improve this answer

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2812639

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2812639

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2812639