Gsyfuy

Why do Radio Buttons not fill the entire outer circle?

Which was the first story featuring espers?

Is there a RAID 0 Equivalent for RAM?

How do you make your own symbol when Detexify fails?

How to make money from a browser who sees 5 seconds into the future of any web page?

Why do some congregations only make noise at certain occasions of Haman?

How much theory knowledge is actually used while playing?

Why does the Sun have different day lengths, but not the gas giants?

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

Is it allowed to activate the ability of multiple planeswalkers in a single turn?

C++ copy constructor called at return

How do I fix the group tension caused by my character stealing and possibly killing without provocation?

Can I say "fingers" when referring to toes?

A variation to the phrase "hanging over my shoulders"

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

Change the color of a single dot in `ddot` symbol

Why can't the Brexit deadlock in the UK parliament be solved with a plurality vote?

What does "Scientists rise up against statistical significance" mean? (Comment in Nature)

What are some good ways to treat frozen vegetables such that they behave like fresh vegetables when stir frying them?

Does the reader need to like the PoV character?

Were Persian-Median kings illiterate?

Biological Blimps: Propulsion

What does Apple's new App Store requirement mean

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

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.

plotting

share|improve this question

asked 3 hours ago

janmarqzjanmarqz

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.

$endgroup$

add a comment | 

3

$begingroup$

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

asked 3 hours ago

janmarqzjanmarqz

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.

$endgroup$

add a comment | 

$begingroup$

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

asked 3 hours ago

janmarqzjanmarqz

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.

$endgroup$

share|improve this question

asked 3 hours ago

janmarqzjanmarqz

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.

share|improve this question

asked 3 hours ago

janmarqzjanmarqz

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.

asked 3 hours ago

janmarqzjanmarqz

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.

asked 3 hours ago

janmarqzjanmarqz

1163

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]

]

share|improve this answer

answered 2 hours ago

Thies HeideckeThies Heidecke

7,0712638

$endgroup$

add a comment | 

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

Adjust parameters as seen fit.

share|improve this answer

answered 24 mins ago

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

98.1k10306465

$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-shape-like-surface%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

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]

]

share|improve this answer

answered 2 hours ago

Thies HeideckeThies Heidecke

7,0712638

$endgroup$

add a comment | 

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]

]

share|improve this answer

answered 2 hours ago

Thies HeideckeThies Heidecke

7,0712638

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

Thies HeideckeThies Heidecke

7,0712638

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

Thies HeideckeThies Heidecke

7,0712638

answered 2 hours ago

Thies HeideckeThies Heidecke

7,0712638

answered 2 hours ago

Thies HeideckeThies Heidecke

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

Adjust parameters as seen fit.

share|improve this answer

answered 24 mins ago

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

98.1k10306465

$endgroup$

add a comment | 

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

Adjust parameters as seen fit.

share|improve this answer

answered 24 mins ago

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

98.1k10306465

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

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

98.1k10306465

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

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

98.1k10306465

answered 24 mins ago

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

98.1k10306465

answered 24 mins ago

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

98.1k10306465