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?