Mrthfx

xxx we would have made had we used xxx, what is had used for?

How would you translate "more" for use as an interface button?

How can I write humor as character trait?

Why is so much work done on numerical verification of the Riemann Hypothesis?

How should you respond if you lied about your education and your company finds out through background check?

Can I cause damage to electrical appliances by unplugging them when they are turned on?

Why is the "ls" command showing permissions of files in a FAT32 partition?

Multiplicative persistence

I found an audio circuit and I built it just fine, but I find it a bit too quiet. How do I amplify the output so that it is a bit louder?

awk assign to multiple variables at once

Were Persian-Median kings illiterate?

Biological Blimps: Propulsion

How to create a paid keyvalue store

Why does Java 12 try to convert the result of a switch to a number?

The Digit Triangles

Why is the Sun approximated as a black body at ~ 5800 K?

Plot of a tornado-shaped surface

Birthday Problem Paraphrased

Does Doodling or Improvising on the Piano Have Any Benefits?

Angel of Condemnation - Exile creature with second ability

Which Article Helped Get Rid of Technobabble in RPGs?

What kind of floor tile is this?

What is the duration of the spell Creation when used to create non-precious metals?

What is the difference between lands and mana?

Plot of a tornado-shaped 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

9

$begingroup$

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

plotting

share|improve this question

edited 37 mins ago

J. M. is slightly pensive♦

98.2k10306466

asked 9 hours ago

janmarqzjanmarqz

1463

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 | 

9

$begingroup$

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

plotting

share|improve this question

edited 37 mins ago

J. M. is slightly pensive♦

98.2k10306466

asked 9 hours ago

janmarqzjanmarqz

1463

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 37 mins ago

J. M. is slightly pensive♦

98.2k10306466

asked 9 hours ago

janmarqzjanmarqz

1463

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 37 mins ago

J. M. is slightly pensive♦

98.2k10306466

asked 9 hours ago

janmarqzjanmarqz

1463

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 37 mins ago

J. M. is slightly pensive♦

98.2k10306466

asked 9 hours ago

janmarqzjanmarqz

1463

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 37 mins ago

J. M. is slightly pensive♦

98.2k10306466

edited 37 mins ago

J. M. is slightly pensive♦

98.2k10306466

asked 9 hours ago

janmarqzjanmarqz

1463

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

janmarqzjanmarqz

1463

2 Answers
2

active

oldest

votes

10

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

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

98.2k10306466

$endgroup$

add a comment | 

9

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

Thies HeideckeThies Heidecke

7,1412638

$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

10

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

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

98.2k10306466

$endgroup$

add a comment | 

10

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

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

98.2k10306466

$endgroup$

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

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

98.2k10306466

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

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

98.2k10306466

answered 6 hours ago

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

98.2k10306466

answered 6 hours ago

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

98.2k10306466

9

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

Thies HeideckeThies Heidecke

7,1412638

$endgroup$

add a comment | 

9

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

Thies HeideckeThies Heidecke

7,1412638

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

Thies HeideckeThies Heidecke

7,1412638

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

Thies HeideckeThies Heidecke

7,1412638

answered 8 hours ago

Thies HeideckeThies Heidecke

7,1412638

answered 8 hours ago

Thies HeideckeThies Heidecke

7,1412638