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

MathGroup Archive 2008

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

Search the Archive

Re: How to do that with version 6?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg90489] Re: How to do that with version 6?
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 10 Jul 2008 07:07:52 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <g54ofi$eqi$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

it will never work with version 6.x because
the ContourGraphics[] and SurfaceGraphics[] is gone. And moreover
since now the drawing uses an adaptive triangulation
you have to do it in a individual Plot3D[] and ContourPlot[]
command.

Regards
   Jens


vasil michev wrote:
> I have a 3D Plot, say
> 
> p = Plot3D[n[\[Mu], t], {\[Mu], -44, 0}, {t, .0001, 0.2},
>   PlotPoints -> 100, PlotRange -> All]
> 
> In previous versions I was able to do this:
> 
> bla1 = Show[ContourGraphics[p], ColorFunction -> Hue,
>   Contours -> {0.25, 0.3, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.65, 0.7,
>     0.75, 0.8, 0.85, 0.9, 0.95, 1., 1.05, 1.1, 1.15, 1.2, 1.25, 1.3,
>     1.35, 1.4, 1.45, 1.5, 1.55, 1.6, 1.65, 1.7, 1.75, 1.8, 1.85, 1.9,
>     1.95, 1.999}, PlotRange -> All, AspectRatio -> .6]
> 
> and get the points for the above contour lines. However, the same
> procedure doesnt work with version 6. It returns ContourGraphics
> object, but im unable to visualize it, and looking at its input form,
> its no way near what its supposed to be, it only has an
> ContourGraphics added to the output of the Plot3D command:
> 
> ContourGraphics[Graphics3D[GraphicsComplex[...]]]
> 
> I tried using the legacy packages (<< Version5`Graphics`, <<
> Graphics`Graphics`; << Graphics`Graphics3D`), but it doesnt work as
> expected again. I guess the problem is with ContourGraphics expecting
> a SurfaceGraphics object, but im not really sure, and I dont really
> know how to convert it to SurfaceGraphics in v6.
> 
> So if anyone can help me with this, or tell me a way to do this in v6
> I would be very thankfull. (Especially if its possible without
> reevaluating the plots, I have lots of them so it will take a lot of
> time. Also, i will most likely need more contours, so just doing
> ContourPlot's is much more time consuming. I do have the 3D plots
> evaluated in v6, with GraphicsComplex and all)
> 


  • Prev by Date: Re: Coupled second-order nonlinear ODEs
  • Next by Date: Re: Solving a DE using Mathematica
  • Previous by thread: How to do that with version 6?
  • Next by thread: Multiple Executions of .nb file part2