Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Combining ListPlot3D with Show[]

• To: mathgroup at smc.vnet.net
• Subject: [mg72241] Re: Combining ListPlot3D with Show[]
• From: "dimitris" <dimmechan at yahoo.com>
• Date: Fri, 15 Dec 2006 07:07:05 -0500 (EST)
• References: <elrb9p$11j$1@smc.vnet.net>

Use the function WireFrame.

First load the package

Graphics`Shapes`

then works as the following example demonstrates:

In[218]:=
Block[{$DisplayFunction = Identity}, p1 = Plot3D[Cos[x*y], {x, -2, 2},
{y, -2, 2}, HiddenSurface -> True];
    p2 = Plot3D[Sin[x*y], {x, -2, 2}, {y, -2, 2}, HiddenSurface ->
False]];
p3 = WireFrame[p2];

In[220]:=
Show[p1, p3, ImageSize -> 600]

Regards
Dimitris


Î?/Î? Luiz Melo έγÏ?αÏ?ε:
> Dear mathgroup,
>
> Given two tables t1 and t2, we set
>
> g1 = ListPlot3D[t1, Mesh -> False, HiddenSurface -> True, ColorFunction ->
> Automatic, DisplayFunction -> Identity];
>
> and
>
> g2 = ListPlot3D[t2, Mesh -> False, HiddenSurface -> False, ColorFunction ->
> Automatic, DisplayFunction -> Identity];
>
> Now combine g1 and g2 with Show:
>
> Show[g1,g2, DisplayFunction -> $DisplayFunction];
>
> Why does the plot g2 is displayed as if its option "HiddenSurface" was "True" ??
>
>
> Thanks in advance,
> Luiz
>
>
> --
> Luiz Melo
> �cole Polytechnique de Montréal
> Département de Génie Physique
> C.P.6079, succ. Centre-ville
> Montréal (QC) Canada
> H3C 3A7
> Tél (514)340-4711-7454
> Fax (514)340-3218