Re: Combining 2D graphs into a 3D graph
- To: mathgroup at smc.vnet.net
- Subject: [mg49413] Re: Combining 2D graphs into a 3D graph
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Sun, 18 Jul 2004 08:09:22 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 7/17/04 at 6:40 AM, suomesta at yahoo.com (Carol Ting) wrote:
>I have many curves in the 2D space, each associated with a specific
>value of parameter n. (These curves are determined with a somewhat
>complicated process depending on the value of n, so I cannot just
>use one bivariate function to describe this family of curves.)
>Can anyone tell me how to plot these curves in a 3D plot, while
>adding n as the second axis?
>For example, how can I make Mathematica plot the following lines in
>a 3D plot?
>n=1, l1 = Line[{{2, 7}, {3, 9}}]
>n=2, l2 = Line[{{2, 6}, {3, 8}}]
Try the following:
s = {{2, 7, 1}, {3, 9, 1}};
m = {{2, 6, 2}, {3, 8, 2}};
<< "Graphics`Graphics3D`"
a = ScatterPlot3D[s, PlotJoined -> True, PlotStyle -> Hue[0],
DisplayFunction -> Identity];
b = ScatterPlot3D[m, PlotJoined -> True, PlotStyle -> Hue[0.6],
DisplayFunction -> Identity];
Show[a, b, DisplayFunction -> $DisplayFunction];
--
To reply via email subtract one hundred and four