Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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