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

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

Re: filling axis with ParametricPlot3D

Show all headers | View raw

Am 18.01.2014 11:03, schrieb mathgroup:
> I am plotting, using ParametricPlot3D, an animation of the vector sum
> of 2 orthogonal sine waves  of the form Sin[k x =E2=80=93 w t] moving
> with different phase velocities as they travel along the z axis
> emerging from the point z = 0.   I would like to use the equivalent
> of Filling->Axis for the resultant so that I can see what happens
> more clearly.......Unfortunately, Filling->Axis is not an option with
> ParametricPlot3D... . Any suggestions?..... . Thank You....Jerry
> Blimbaum
>
>

Use more elementary graphics.

This is a combination of the 3D-plot extract using only the first 
element, the geometric data of ParametricPlot3D[...][[1]] togethe with a 
Table of colored thicker lines between the axis and the shape function.

wave[3, t_, \[Omega]_, k_] :=
{ParametricPlot3D[ {x, 0, Sin[k x -\[Omega] t]},
      {x, 0, 8 \[Pi]}][[1]],
   Table[
     {Hue[x/40], Thickness[0.01],
      Line[{{x, 0, 0}, {x, 0, Sin[k x - \[Omega] t]}}]},
      {x, 0.0, 8.0 \[Pi], \[Pi]/12.0}]}

wave[2, t_, \[Omega]_,  k_] :=
{ParametricPlot3D[ {x, Sin[k x - \[Omega] t], 0},
     {x, 0, 8 \[Pi]}][[1]],
   Table[
     {Hue[x/40], Thickness[0.005] ,
     Line[{{x, 0, 0}, {x, Sin[k x - \[Omega] t], 0}}]},
     {x, 0.0, 8.0 \[Pi], \[Pi]/12.0}]}

Manipulate[
  Show[
    {Graphics3D[{wave[3, t, 1, 1]},    BoxRatios -> {3, 1, 1}],
     Graphics3D[{wave[2, t, 1, 1.5 ]}, BoxRatios -> {3, 1, 1}]}],
    {t, 0,  20 \[Pi]}]

-- 

Roland Franzius

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

Thread

filling axis with ParametricPlot3D "mathgroup " <fizzymath@knology.net> - 2014-01-18 10:03 +0000
  Re: filling axis with ParametricPlot3D Roland Franzius <roland.franzius@uos.de> - 2014-01-19 07:51 +0000

csiph-web