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