RE: plot1 and plot2
- To: mathgroup at smc.vnet.net
- Subject: [mg42329] RE: [mg42308] plot1 and plot2
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Tue, 1 Jul 2003 08:45:37 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
>-----Original Message----- >From: Nakhova Irina [mailto:I.Nakhova at gcal.ac.uk] To: mathgroup at smc.vnet.net >Sent: Saturday, June 28, 2003 9:22 AM >To: mathgroup at smc.vnet.net >Subject: [mg42329] [mg42308] plot1 and plot2 > > >Hi, >I need to show plot1 and plot2, which were built by the following way : >Needs["ExtendGraphics`SurfaceGraphics3D`"] >data1={{0.0,0.0,0.0},{1.0,0.0,1.0},{2.0,0.0,2.0},{3.0,3.0,3.0}}; >data2={{0.0,0.0,0.0},{1.0,2.0,1.0},{2.0,3.0,2.0},{3.0,3.0,3.0}}; >plot1=ListSurfacePlot3D[data1] >plot2=ListSurfacePlot3D[data2] >on one picture, but the command Show[plot1,plot2] does not >help. Could you >help me with this problem, please? >Irina > > Irina, to combine with Show you have to convert the SurfaceGraphics3D objects to ordinary Graphics3D objects first. Show[Graphics3D[plot1], Graphics3D[plot2]] Perhaps you might like this: plot1b = ListSurfacePlot3D[Append[#, 2/3] & /@ data1, ColorFunction -> (Hue[#, .2, 1] &), Lighting -> False] plot2r = ListSurfacePlot3D[Append[#, 0] & /@ data2, ColorFunction -> (Hue[#, .2, 1] &), Lighting -> False] Show[Graphics3D[plot1b], Graphics3D[plot2r]] -- Hartmut Wolf