OpisX sin(y) Surface Plot.png	Plot of x sin(y)
Datum	26. avgusta 2007
Vir	self-made   Ta SCRIPT ERROR: THE FUNCTION "RAZŠIRITEV" DOES NOT EXIST. grafika je bila ustvarjena z Mathematica.
Avtor	Inductiveload
Dovoljenje (Nadaljnja uporaba datoteke)	Public domainPublic domainfalsefalse Jaz, imetnik avtorskih pravic na tem delu, izročam to delo v javno domeno. To velja po vsem svetu. V nekaterih državah to pravno morda ni mogoče. Če je tako, Vsakomur dajem (v okviru zakonskih omejitev) brezpogojno pravico, da gradivo uporablja v kateri koli namen.

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π

Mathematica Code

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]