Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #2363

Re: Rotating a surface similar to a helix

Show all headers | View raw

Am 13.05.2011 12:27, schrieb Bill:
> Rotating a surface similar to a helix
>
> Hi:
>
> I have the following 2D parametric plot, showing a parabola mirrored about the x axis, forming a closed curve.
>
> ParametricPlot[{{t,t^2-2},{t,-t^2+2}},{t,-1.41421,1.41421},PlotStyle->Red,Axes->True,AxesLabel->{x,y},PlotRange->{{-2.5,2.5},{-2.5,2.5}}]
>
> I'd like to show these curves in 3D as:
>
> ParametricPlot3D[{{t,t^2-2,u},{t,-t^2+2,u}},{t,-1.41421,1.41421},{u,0,6},Mesh->None,Axes->True,AxesLabel->{x,y,z},PlotRange->All,ViewPoint->{1.14,-1.85,5}].
>
> Ok, got that.
>
> The next thing that I'd like to do is to rotate the closed 3D cylinder, say 90 degrees. That is, the base would be at the 2D position plotted, and the top would be rotated 90 degrees. I'd like a smooth transition from the base to the top of the cylinder, like one see's with a helix.
>
> Question: How can I do that in a 3D plot?
>
>
> Thanks,
>
> Bill
>

Hi Bill,

  using a rotaion-matrix seems a good idea to me:

ParametricPlot3D[Evaluate @ Apply[{##1, u} & ,
    (RotationMatrix[(Pi*u)/(2*(umax = 6))] .
       {t, #1*(t^2 - 2)} & ) /@ {-1, 1}, {1}],
   {t, -Sqrt[2], Sqrt[2]}, {u, 0, umax}, Mesh -> None,
   Axes -> True, AxesLabel -> {x, y, z},
   PlotRange -> All]

Peter

Back to comp.soft-sys.math.mathematica | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

Rotating a surface similar to a helix Bill <WDWNORWALK@aol.com> - 2011-05-13 10:27 +0000
  Re: Rotating a surface similar to a helix Peter <petsie@dordos.net> - 2011-05-14 07:12 +0000

csiph-web