MathGroup Archive 2013

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

Search the Archive

Re: A nonconventional ListContourPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129908] Re: A nonconventional ListContourPlot
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Mon, 25 Feb 2013 02:20:38 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <20130224043220.AA3D3687D@smc.vnet.net>

x[a_, b_] = a*b;
y[a_, b_] = Cos[a^2 + b];
z[a_, b_] = Sin[a + b^2];

data = Table[
    {x[i, j], y[i, j], z[i, j]},
    {j, -1, 1, 0.1}, {i, -2, 2, 0.1}] //
   Flatten[#, 1] &;

ListContourPlot[data]

ListContourPlot3D[data]

However, both ListContourPlot and ListContourPlot3D are difficult to
interpret for this complicated function. I recommend that you look at
the function with ParametricPlot3D.

Manipulate[
 ParametricPlot3D[
  Evaluate[
   {x[a, b], y[a, b], z[a, b]}],
  {a, -2, 2}, {b, -1, 1},
  RegionFunction -> (#3 <= slice &),
  BoundaryStyle ->
   Directive[Black, Thick],
  PlotRange ->
   {{-2, 2}, {-1, 1}, {-1, 1}},
  PlotPoints -> 50],
 {{slice, 1}, -0.95, 1, 0.05,
  Appearance -> "Labeled"}]


Bob Hanlon


On Sat, Feb 23, 2013 at 11:32 PM, Luiz Melo <lmelo at ufsj.edu.br> wrote:
> Good day,
>
> x[a_,b_] = a*b;
> y[a_,b_] = Cos[a^2 + b];
> z[a_,b_] = Sin[a + b^2];
>
> data = Table[{x[i,j], y[i,j], z[i,j]}, {j, -1, 1, 0.1}, {i, -2, 2, 0.1}];
>
> For the table above, is it possible to see a ListContourPlot of the z
> component as a function of x and y (the values of x and y on the
> horizontal and vertical axes, respectively)?
>
> Thank you in advance
> Luiz Melo
>



  • Prev by Date: Re: Hold & Evaluate
  • Next by Date: Re: Mathematica and Lisp
  • Previous by thread: A nonconventional ListContourPlot
  • Next by thread: Re: A nonconventional ListContourPlot