Plotting surface with thickness

*To*: mathgroup at smc.vnet.net*Subject*: [mg100915] Plotting surface with thickness*From*: Bill <WDWNORWALK at aol.com>*Date*: Thu, 18 Jun 2009 04:52:33 -0400 (EDT)

Plotting surface with thickness Hi: Using the following code with Mathematica 5.2 works without any problem. Using it with Mathematica 6.0.1 doesn't work. top = Plot3D[Sin[x y], {x, -1, 1}, {y, -1, 1}] bottom = Plot3D[Sin[x y] - 0.5, {x, -1, 1}, {y, -1, 1}] g = Plot[{Sin[x y], Sin[x y] - 0.5} /. y -> -1 // Evaluate, {x, -1, 1}] (* Mathematica 5.2 works with the following line, Mathematica 6.0.1 does not. *) front = Graphics3D[ Polygon[Insert[#, -1, 2] & /@ Join[g[[1, 1, 1, 1, 1]], Reverse[g[[1, 2, 1, 1, 1]]]]]] Question: How can the code (front) be modified to run in Mathematica 6.0.1? Thanks, Bill Ref: http://forums.wolfram.com/student-support/topics/7384