File:X sin(y) Surface Plot.png

DescriptionX sin(y) Surface Plot.png	Plot of x sin(y)
Date	26 August 2007
Source	self-made   This diagram was created with Mathematica.
Author	Inductiveload
Permission (Reusing this file)	Public domainPublic domainfalsefalse I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

Mathematical Function Plot
Description	Plot of x sin(y)
Equation	${\displaystyle z=x\sin \left(y\right)\,}$
Co-ordinate System	Cartesian
X Range	0 .. 1
Y Range	-0 .. 2π

This uses Chris Hill's antialiasing code to average pixels and produce a less jagged image. The original code can be found here.

gr = Plot3D[x  Sin[y],
    {x, 0, 1},
    {y, 0, 2Pi},
    ImageSize -> 800,
    AxesLabel -> {x, y, z},
    TextStyle -> {FontSize -> 60},
    BoxStyle -> {AbsoluteThickness[4]},
    MeshStyle -> {AbsoluteThickness[4]}]

aa[gr_] := Module[{siz, kersiz, ker, dat, as, ave, is, ar},
    is = ImageSize /. Options[gr, ImageSize];
    ar = AspectRatio /. Options[gr, AspectRatio];
    If[! NumberQ[is], is = 288];
    kersiz = 4;
    img = 
    ImportString[ExportString[gr, "PNG", ImageSize -> (is kersiz)], "PNG"];
    siz = Reverse@Dimensions[img[[1, 1]]][[{1, 2}]];
    ker = Table[N[1/kersiz^2], {kersiz}, {kersiz}];
    dat = N[img[[1, 1]]];
    as = Dimensions[dat];
    ave = Partition[Transpose[Flatten[
          ListConvolve[ker, dat[[All, All, #]]]] & /@ 
            Range[as[[3]]]], as[[2]] - kersiz + 1];
    ave = Take[
    ave, Sequence @@ ({1, Dimensions[ave][[#]], kersiz} & /@ \
Range[Length[Dimensions[ave]] - 1])];
    Show[Graphics[Raster[
      ave, {{0, 0},
         siz/kersiz}, {0, 255}, ColorFunction -> RGBColor]], PlotRange -> \
{{0, siz[[1]]/kersiz}, {0, siz[[2]]/kersiz}}, ImageSize -> is, 
    AspectRatio -> ar]
    ]

aa[gr]