Kdtyjb

Is there a RAID 0 Equivalent for RAM?

Microchip documentation does not label CAN buss pins on micro controller pinout diagram

Why should universal income be universal?

Does the reader need to like the PoV character?

What is the difference between lands and mana?

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

Delete multiple columns using awk or sed

Is there a nicer/politer/more positive alternative for "negates"?

Short story about a deaf man, who cuts people tongues

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

"It doesn't matter" or "it won't matter"?

Non-trope happy ending?

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

A Trivial Diagnosis

Why does this expression simplify as such?

awk assign to multiple variables at once

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

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

Is this part of the description of the Archfey warlock's Misty Escape feature redundant?

Does the Linux kernel need a file system to run?

Quoting Keynes in a lecture

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

Taxes on Dividends in a Roth IRA

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

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