АпісаньнеX sin(y) Surface Plot.png	Plot of x sin(y)
Дата	26 жніўня 2007
Крыніца	self-made   Гэты файл (PNG графіка) быў створаны пры дапамозе Mathematica.
Аўтар	Inductiveload
Дазвол (Паўторнае выкарыстаньне гэтага файлу)	Public domainPublic domainfalsefalse Я, уладальнік аўтарскіх правоў на гэтую працу, перадаю яе ў грамадзкі набытак. Дазвол сапраўдны для ўсяго сьвету. У некаторых краінах гэта ня можа быць юрыдычна магчыма; калі так, то: Я дазваляю кожнаму выкарыстоўваць гэтую працу ў любых мэтах, без аніякіх умоваў, калі толькі такія ўмовы не патрабуюцца паводле закону.

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]