Re: Combining 2D graphs into a 3D graph

• To: mathgroup at smc.vnet.net
• Subject: [mg49449] Re: Combining 2D graphs into a 3D graph
• From: suomesta at yahoo.com (Carol Ting)
• Date: Tue, 20 Jul 2004 07:53:53 -0400 (EDT)
• References: <cddpep\$pcp\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hello,

I've tried all the suggestions from you and others, and they all work.
Thank you guys very much!

But I have two more related questions:

1. When I run all the three modules together, I get an error message
for the second one, which reads "Show::gtype: StackGraphics is not a
type of graphics. "  And if I run them separately things work out
beautifully.  Is there an explanation for this?  I don't get it.

2. Is there a way for me to fit a surface to the family of curves I
have?  Being able to stack the curves is good enough, but I guess my
boss will have this further suggestion.

Again, thank you so much!

Carol

BobHanlon at aol.com wrote in message news:<cddpep\$pcp\$1 at smc.vnet.net>...
> Needs["Graphics`"];
>
>
> lines={Line[{{2,7},{3,9}}],Line[{{2,6},{3,8}}]};
>
>
> Module[{m=Length[lines],k=1},
>      Show[Graphics[
>          {Hue[((k++)+m-2)/(2m-2)],#}&/@lines],
>        Axes->True]];
>
>
> Module[{m=Length[lines],k=1},
>      Show[StackGraphics[Graphics[
>                {Hue[((k++)+m-2)/(2m-2)],#}]&/@lines],
>        Axes->True, ViewPoint->{1.7, -2.8, 0.85}]];
>
>
> Module[{m=Length[lines],k=0},
>      Show[Graphics3D[
>          {Hue[((++k)+m-2)/(2m-2)],
>                #/.{x_?NumericQ, y_?NumericQ}:>{x,k,y}}&/@lines],
>        Axes->True, AspectRatio->1,ImageSize->288]];
>
>
>
> Bob Hanlon
>
> > In a message dated Sat, 17 Jul 2004 11:13:58 +0000 (UTC),
> > suomesta at yahoo.com writes:  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}}]
> >

```

• Prev by Date: RE: Why aboluteoptions doesn't work here?
• Next by Date: Re: FindRoot s all
• Previous by thread: Re: Combining 2D graphs into a 3D graph
• Next by thread: Re: Combining 2D graphs into a 3D graph