Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

Re: lighten plots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg5611] Re: [mg5579] lighten plots
  • From: Mario Sancho Graca <M.S.Graca at Warwick.ac.uk>
  • Date: Fri, 27 Dec 1996 23:43:41 -0500
  • Organization: University of Warwick
  • Sender: owner-wri-mathgroup at wolfram.com

Jeff Copes wrote:
>=20
> Dear Mathgroupies:
> The following code creates a matrix of plots representing a vibrating
> square membrane. The numerical output is great, but I need to lighten u=
p
> the plots for print. I tried different schemes, but after a few hours, =
I
> got nowhere near where I wanted to be. If I changed the ViewPoint optio=
n,
> I could lighten the plot, but not display the plots as needed. Any help
> would be appreciated.
>=20
>  For[k =3D 0, k < 5, k++ ,
>         {Share[],
>         t =3D k Pi/4,
>         m =3D Table[
>                   Table[ Sin[2 x] Sin[2 y] Cos[t],
>                        {y,0,Pi,Pi/50}]
>              {x,0,Pi,Pi/50}],
>         ListPlot3D[m, PlotRange -> {-1,1},
>                 Boxed -> False,
>                 ColorOutput -> GrayLevel,
>                 AspectRatio -> 1.5,
>                 ViewPoint -> {2.787, 1.067, 1.595}]}
> ]
>=20
> Yours truly,
> Jeff Copes

1. The code you provide has wrong syntax (commas and semicolons). The
working code would be:

For[k =3D 0, k < 5, k++,
        {Share[];
        t =3D k Pi/4;
        m =3D Table[
                  Table[ Sin[2 x] Sin[2 y] Cos[t],
                       {y,0,Pi,Pi/50}],
             {x,0,Pi,Pi/50}];
        ListPlot3D[m, PlotRange -> {-1,1},
                Boxed -> False,
                ColorOutput -> GrayLevel,
                AspectRatio -> 1.5,
                ViewPoint -> {2.787, 1.067, 1.595}]}
]=20


2. I gather the problem is to make the pictures looking less dense. The
code provided does create "dark" pictures. First, remove the shading by
the option Shading -> False. Also increase the spacing between grid
lines, as nothing relevant about the shape is really lost. So for the
first plot we have the code,


t =3D 0 Pi/4;
m =3D Table[
	Table[ Sin[2 x] Sin[2 y] Cos[t], {y,0,Pi,Pi/25}],
	{x,0,Pi,Pi/25}];
ListPlot3D[m, PlotRange -> {-1,1},
	Boxed -> False,
	AspectRatio -> 1.5,
	ViewPoint -> {2.787, 1.067, 1.595},
	ColorOutput -> GrayLevel,
	Shading -> False]

3. Is it not easier to use Plot3D instead? It takes care of the function
so that we do not really need to define a list of points. The spacing
between grid lines is established with the option PlotPoints. For the
first plot:


Plot3D[Sin[2 x] Sin[2 y], {y, 0, Pi}, {x, 0, Pi},
	PlotRange -> {-1,1},
	Boxed -> False,
	AspectRatio -> 1.5,
	ViewPoint -> {2.787, 1.067, 1.595},
	ColorOutput -> GrayLevel,
	Shading -> False,
	PlotPoints -> 30]



Regards,

--=20
M=E1rio Sancho Gra=E7a
University of Warwick
Department of Engineering
Coventry CV4 7AL
United Kingdom

Email: M.S.Graca at Warwick.ac.uk


  • Prev by Date: FS: Optica + Mathematica for Mac
  • Next by Date: Re: Re: Re: How to get rid of the outer {}?
  • Previous by thread: Re: lighten plots
  • Next by thread: Weibull Distribution