Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2014

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: filling axis with ParametricPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg132217] Re: filling axis with ParametricPlot3D
  • From: Roland Franzius <roland.franzius at uos.de>
  • Date: Sun, 19 Jan 2014 02:55:41 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-outx@smc.vnet.net
  • Delivered-to: mathgroup-newsendx@smc.vnet.net
  • References: <lbdjgm$53l$1@smc.vnet.net>

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



  • Prev by Date: Re: Compact formulation of array of constraints
  • Next by Date: Re: Unnecessary parentheses around TagBox for MakeBoxes?
  • Previous by thread: filling axis with ParametricPlot3D
  • Next by thread: How to show 1+2+3+ ... = -1/12 using Mathematica's symbols?