Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: How can I generate this graphic?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg113645] Re: How can I generate this graphic?
  • From: Vicent <vginer at gmail.com>
  • Date: Sat, 6 Nov 2010 04:58:26 -0500 (EST)

On Thu, Nov 4, 2010 at 10:01, Vicent <vginer at gmail.com> wrote:

> On Wed, Nov 3, 2010 at 10:22, M.Roellig <markus.roellig at googlemail.com
> >wrote:
>
> > Hi, just an example to get you going:
> >
> > DataForPlotting = Table[Sin[x] y, {x, 1, 20, 1}, {y, 1, 20, 1}];
> > ListContourPlot[DataForPlotting, InterpolationOrder -> 0,
> >  ContourLabels -> All, PerformanceGoal -> "Quality", Mesh -> All,
> >  MeshStyle -> Directive[GrayLevel[0.2], Thickness[0.005]],
> >  ColorFunction -> (Blend[{Orange, Yellow, White}, #] &),
> >  FrameLabel -> {Style["x", Large, Italic, FontFamily -> "Arial"],
> >   Style[Rotate["y", -(\[Pi]/2)], Large, Italic,
> >    FontFamily -> "Arial"]}, FrameTicks -> None,
> >  PlotRangePadding -> 0]
> >
> > Markus
> >
> >
>
> Markus,
>
> Thank you very much!!  There are so many options at Mathematica that
> sometimes it is difficult to know them all. That is a very good hint.
>
> Now I'll keep on tuning the graphic by myself.
>
> Thanks again.
>
> --
> Vicent Giner-Bosch
>
>
Just in case anyone is interested, I finally used  MatrixPlot  function in
order to represent my data --it fits my needs better than  ListContourPlot.

I needed a point or square to be printed for each (x,y) combination (with x
and y being integer), and I got that with MatrixPlot.

This is my code:

DataForPlotting = Table[Sin[x] y, {x, 1, 20, 1}, {y, 1, 20, 1}];

MatrixPlot[DataForPlotting, DataReversed -> {True, False},
 Mesh -> All, PlotRangePadding -> 0,
 MeshStyle -> Directive[GrayLevel[0.5], Thickness[0.0005]],
 FrameTicksStyle ->
  Directive[Medium, FontFamily -> "Calibri", Thickness[0.0005]],
 FrameTicks -> {{All, None}, {All, None}},
 FrameLabel -> {Style["x", Large, Italic, FontFamily -> "Calibri"],
   Style["y", Large, Italic, FontFamily -> "Calibri"]}]


Thank you to all.

--
Vicent


  • Prev by Date: Strange diference in outputs!
  • Next by Date: Re: adding lists term by term
  • Previous by thread: Re: How can I generate this graphic?
  • Next by thread: Re: NDSolve and hybrid dynamics (Differential Algebraic Equation