# Problem with ListContourPlot

Hello,  I have a problem with a Contour Plot. I tried to understand the
example Page 483 in the book "Mathematica Graphics" from Tom
Wickham-Jones.
Here is the code:
In[105]:d1õatten[
Table[
Table[{r Sin[t], r Cos[t], r^2 Cos[t] Sin[t]},
{t,0,2Pi-2Pi/(10 r),2Pi/(10
r)}],{r,10}],1];

In[106]:ListContourPlot[d1]

And here are the error messages:

Part::partw:
"Part 526 of  {{Thickness[0.001], {Thickness[0.001]},
<<6>>{Thickness[0.001]}, {Thickness[0.001]} does not exists
Part::partw:
"Part 526 of  {{Thickness[0.001], {Thickness[0.001]},
<<6>>{Thickness[0.001]}, {Thickness[0.001]} does not exists
Part::partw:
"Part 501 of  {{Thickness[0.001], {Thickness[0.001]},
<<6>>{Thickness[0.001]}, {Thickness[0.001]} does not exists
General::stop:
"Further output of Part :: partw will be suppressed during this
calculation.

Part::pspec: Part specification -40.8284 is neither an integer nor a
list of integers.

Part::pspec: Part specification -40.8284 is neither an integer nor a
list of integers.

Part::partd: Part specification 1[[1]]  is longer than depth of object.

Part::pspec: Part specification 1[[1]] is neither an integer nor a list
of integers.

General::stop: Further output of Part :: pspec will be suppressed during
this calculation."

Part::partd: Part specification  1[[2]] is longer than depth of object.

Can you help me?

Andreas Klein

--
-----------------------------------------------------------------
Andreas  Klein        Tel:
++49-391-4090-242
Fax:      ++49-391-4090-596  Fraunhofer Institut IFF Magdeburg
e-mail: klein@iff.fhg.de Sandtorstraße 22
-----------------------------------------------------------------

• Prev by Date: ? How to specify header offset?
• Next by Date: Re: MathLink