Message Boards

WOLFRAM COMMUNITY

4710 Views

3 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Geometry

Apply Scale[] to RevolutionPlot3D[] and ParametricPlot3D

Greg

Posted 10 years ago

Hello How might I apply Scale[] to a RevolutionPlot3D[] and a ParametricPlot3D? e.g. plots, RevolutionPlot3D[{2 + Cos[t], Sin[t]}, {t, 0, 2 Pi}] ParametricPlot3D[{Cos[u], Cos[u] - Cos[v], Sin[v]}, {u, 3, 2 \[Pi]}, {v, -2, \[Pi]}] {scaleX, scaleY, scaleZ} = {1, 1, 1}; Graphics3D[{Scale[ Sphere[{0, 0, 0}, 0.333], {scaleX, scaleY, scaleZ}]}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}] Any help appreciated! Greg

Hello

How might I apply Scale[] to a RevolutionPlot3D[] and a ParametricPlot3D? e.g. plots,

RevolutionPlot3D[{2 + Cos[t], Sin[t]}, {t, 0, 2 Pi}]

ParametricPlot3D[{Cos[u], Cos[u] - Cos[v], Sin[v]}, {u, 3, 2 \[Pi]}, {v, -2, \[Pi]}]

{scaleX, scaleY, scaleZ} = {1, 1, 1};

Graphics3D[{Scale[
   Sphere[{0, 0, 0}, 0.333], {scaleX, scaleY, scaleZ}]}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}]

Any help appreciated!

Greg

POSTED BY: Greg

3 Replies

Sort By:

Nasser M. Abbasi

Nasser M. Abbasi, student

Posted 10 years ago

Use Scale. To get the Graphics to work, use `First@`, like this g0 = ParametricPlot3D[{Cos[u], Cos[u] - Cos[v], Sin[v]}, {u, 3, 2 \[Pi]}, {v, -2, \[Pi]}, Axes -> True]; g1 = Graphics3D[Scale[First@g, {10, 1, 1}], Axes -> True]; Grid[{{"before scaling", "after scaling"},{g0, g1}}]

Use Scale. To get the Graphics to work, use First@, like this

g0 = ParametricPlot3D[{Cos[u], Cos[u] - Cos[v], Sin[v]}, {u, 3, 2 \[Pi]}, {v, -2, \[Pi]}, Axes -> True];
g1 = Graphics3D[Scale[First@g, {10, 1, 1}], Axes -> True];
Grid[{{"before scaling", "after scaling"},{g0, g1}}]

enter image description here

POSTED BY: Nasser M. Abbasi

Greg

Posted 10 years ago

Much thanks. It looks like you dropped a character pasting your reply. Am adding it here or others' benefit. g0 = ParametricPlot3D[{Cos[u], Cos[u] - Cos[v], Sin[v]}, {u, 3, 2 \[Pi]}, {v, -2, \[Pi]}, Axes -> True]; g1 = Graphics3D[Scale[First@g0, {10, 1, 1}], Axes -> True]; Grid[{{"before scaling", "after scaling"}, {g0, g1}}]

Much thanks. It looks like you dropped a character pasting your reply. Am adding it here or others' benefit.

g0 = ParametricPlot3D[{Cos[u], Cos[u] - Cos[v], Sin[v]}, {u, 3, 2 \[Pi]}, {v, -2, \[Pi]}, Axes -> True];
g1 = Graphics3D[Scale[First@g0, {10, 1, 1}], Axes -> True];
Grid[{{"before scaling", "after scaling"}, {g0, g1}}]

POSTED BY: Greg

Greg

Posted 10 years ago

& as applied to RevolutionPlot3D (no difference) & with a scalar acting on the whole object equally scalar = 5; plot1 = RevolutionPlot3D[{2 + Cos[t], Sin[t]}, {t, 0, 2 Pi}] plot2 = Graphics3D[Scale[First@plot1, {scalar, scalar, scalar}], Axes -> True] Have everything I need now. Thanks for the help!

POSTED BY: Greg

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback