Crthuky

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

Doesn't the system of the Supreme Court oppose justice?

Why does AES have exactly 10 rounds for a 128-bit key, 12 for 192 bits and 14 for a 256-bit key size?

Why does this expression simplify as such?

How much theory knowledge is actually used while playing?

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

Why should universal income be universal?

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

What fields between the rationals and the reals allow a good notion of 2D distance?

15% tax on $7.5k earnings. Is that right?

What's the name of the logical fallacy where a debater extends a statement far beyond the original statement to make it true?

What is the highest possible scrabble score for placing a single tile

How to draw a matrix with arrows in limited space

Why is it that I can sometimes guess the next note?

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

What (the heck) is a Super Worm Equinox Moon?

How could a planet have erratic days?

What is the English pronunciation of "pain au chocolat"?

When were female captains banned from Starfleet?

Do we have to expect a queue for the shuttle from Watford Junction to Harry Potter Studio?

Pre-mixing cryogenic fuels and using only one fuel tank

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

Does Doodling or Improvising on the Piano Have Any Benefits?

How can I write humor as character trait?

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 4 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 4 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 4 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 4 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 4 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 4 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 4 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 38 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');

var $window = $(window),
onScroll = function(e)
var $elem = $('.new-login-left'),
docViewTop = $window.scrollTop(),
docViewBottom = docViewTop + $window.height(),
elemTop = $elem.offset().top,
elemBottom = elemTop + $elem.height();
if ((docViewTop elemBottom))
StackExchange.using('gps', function() StackExchange.gps.track('embedded_signup_form.view', location: 'question_page' ); );
$window.unbind('scroll', onScroll);

;
$window.on('scroll', onScroll);

);

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

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

98.1k10306465

answered 38 mins ago

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

98.1k10306465

answered 38 mins ago

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

98.1k10306465