[Date Index]
[Thread Index]
[Author Index]
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**
| |