Dettagli

DescrizioneRipple Surface.png	A 3D rendering of the surface given by: ${\displaystyle z=\cos \left(x^{2}+y^{2}\right)}$
Data	12 aprile 2007 (data di caricamento)
Fonte	Self-made, using Mathematica 5.1.
Autore	Inductiveload

Mathematica Code

This code does not require any modules to be loaded. It uses Chris Hill's Anti-aliasing code.

gr = Plot3D[Cos[x^2 + y^2],
    {x, -4, 4},
    {y, -4, 4},
    PlotPoints -> 600,
    Mesh -> False,
    BoxRatios -> {2, 2, 0.2},
    Ticks -> False,
    Axes -> False,
    Boxed -> False,
    ImageSize -> 800]

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]
    ]
finalgraphic = aa[gr]

Licenza

Io, detentore del copyright su quest'opera, la rilascio nel pubblico dominio. Questa norma si applica in tutto il mondo. In alcuni paesi questo potrebbe non essere legalmente possibile. In tal caso: Garantisco a chiunque il diritto di utilizzare quest'opera per qualsiasi scopo, senza alcuna condizione, a meno che tali condizioni siano richieste dalla legge.