       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

• Prev by Date: Re: Help with HoldAll needed
• Next by Date: Re: PDF import problem
• Previous by thread: Re: How can I parse arguments of an expression unevaluated?
• Next by thread: Re: Plotting surface with thickness