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