Gdtyjr

Is there a RAID 0 Equivalent for RAM?

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

Review your own paper in Mathematics

Showing a sum is positive

What kind of floor tile is this?

Why does Carol not get rid of the Kree symbol on her suit when she changes its colours?

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?

What is the difference between lands and mana?

The IT department bottlenecks progress, how should I handle this?

Creating two special characters

Biological Blimps: Propulsion

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

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

How could a planet have erratic days?

A Trivial Diagnosis

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

Why do Radio Buttons not fill the entire outer circle?

Will number of steps recorded on FitBit/any fitness tracker add up distance in PokemonGo?

How many arrows is an archer expected to fire by the end of the Tyranny of Dragons pair of adventures?

What features enable the Su-25 Frogfoot to operate with such a wide variety of fuels?

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

Which was the first story featuring espers?

Which Article Helped Get Rid of Technobabble in RPGs?

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

Thies HeideckeThies Heidecke

7,0712638

answered 3 hours ago

Thies HeideckeThies Heidecke

7,0712638

answered 3 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 35 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 35 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 35 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 35 mins ago

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

98.1k10306465

answered 35 mins ago

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

98.1k10306465

answered 35 mins ago

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

98.1k10306465