Ryfujk

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

How could a planet have erratic days?

Non-trope happy ending?

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?

Delete multiple columns using awk or sed

Mimic lecturing on blackboard, facing audience

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

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

Review your own paper in Mathematics

Has the laser at Magurele, Romania reached a tenth of the Sun's power?

Plot of a tornado shape like surface

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

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

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

Can I say "fingers" when referring to toes?

Taxes on Dividends in a Roth IRA

Why should universal income be universal?

How to get directions in deep space?

Quoting Keynes in a lecture

When were female captains banned from Starfleet?

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

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

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

Shouldn’t conservatives embrace universal basic income?

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

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

98.1k10306465

answered 17 mins ago

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

98.1k10306465

answered 17 mins ago

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

98.1k10306465