Dtjytyk

Is this wall load bearing? Blueprints and photos attached

Why did Peik Lin say, "I'm not an animal"?

Was credit for the black hole image misappropriated?

What happens to a Warlock's expended Spell Slots when they gain a Level?

how can a perfect fourth interval be considered either consonant or dissonant?

Is it ethical to upload a automatically generated paper to a non peer-reviewed site as part of a larger research?

Why are PDP-7-style microprogrammed instructions out of vogue?

Presidential Pardon

Do I have Disadvantage attacking with an off-hand weapon?

Do ℕ, mathbb{N}, BbbN, symbb{N} effectively differ, and is there a "canonical" specification of the naturals?

What information about me do stores get via my credit card?

Student Loan from years ago pops up and is taking my salary

Can withdrawing asylum be illegal?

Match Roman Numerals

What is the padding with red substance inside of steak packaging?

ELI5: Why do they say that Israel would have been the fourth country to land a spacecraft on the Moon and why do they call it low cost?

Why not take a picture of a closer black hole?

What's the point in a preamp?

Is there a writing software that you can sort scenes like slides in PowerPoint?

Are there continuous functions who are the same in an interval but differ in at least one other point?

How do spell lists change if the party levels up without taking a long rest?

Does Parliament need to approve the new Brexit delay to 31 October 2019?

Loose spokes after only a few rides

Homework question about an engine pulling a train

Plot of a tornado-shaped surface

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 away♦

98.9k10311467

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

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

98.9k10311467

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

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

98.9k10311467

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

$endgroup$

share|improve this question

edited Mar 22 at 11:51

J. M. is away♦

98.9k10311467

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

share|improve this question

edited Mar 22 at 11:51

J. M. is away♦

98.9k10311467

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

edited Mar 22 at 11:51

J. M. is away♦

98.9k10311467

edited Mar 22 at 11:51

J. M. is away♦

98.9k10311467

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

asked Mar 22 at 2:39

janmarqzjanmarqz

1515

2 Answers
2

active

oldest

votes

17

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

$endgroup$

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 away♦J. M. is away

98.9k10311467

$endgroup$

• 
  
  
  

  
  5
  

  
  
  
  
  
  

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

  
  
  
  

add a comment | 

Your Answer

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
});


}
});

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$

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,2912639

$endgroup$

add a comment | 

17

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

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

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

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2912639

answered Mar 22 at 3:32

Thies HeideckeThies Heidecke

7,2912639

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 away♦J. M. is away

98.9k10311467

$endgroup$

• 
  
  
  

  
  5
  

  
  
  
  
  
  

  
  $begingroup$
  (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
  $endgroup$
  – J. M. is away♦
  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 away♦J. M. is away

98.9k10311467

$endgroup$

• 
  
  
  

  
  5
  

  
  
  
  
  
  

  
  $begingroup$
  (I should prolly do a cartoon of the "tornado" moving about in a random walk...)
  $endgroup$
  – J. M. is away♦
  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 away♦J. M. is away

98.9k10311467

$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 away♦J. M. is away

98.9k10311467

answered Mar 22 at 6:01

J. M. is away♦J. M. is away

98.9k10311467

answered Mar 22 at 6:01

J. M. is away♦J. M. is away

98.9k10311467