MAKE A MEME View Large Image Ripple Surface.png A 3D rendering of the surface given by <br> <math>z \cos \left x 2+y 2\right </math> Self-made using Mathematica 5 1 12/04/2007 Inductiveload Mathematica Code This code does not require any modules to be loaded It uses ...
View Original:Ripple Surface.png (800x527)
Download: Original    Medium    Small Thumb
Courtesy of:commons.wikimedia.org More Like This
Keywords: Ripple Surface.png A 3D rendering of the surface given by <br> <math>z \cos \left x 2+y 2\right </math> Self-made using Mathematica 5 1 12/04/2007 Inductiveload Mathematica Code This code does not require any modules to be loaded It uses http //members wri com/jeffb/visualization/aa shtml Chris Hill's Anti-aliasing code <pre> gr Plot3DCosx 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 aagr_ Module siz kersiz ker dat as ave is ar is ImageSize / Optionsgr ImageSize; ar AspectRatio / Optionsgr AspectRatio; If NumberQis is 288; kersiz 4; img ImportStringExportStringgr PNG ImageSize -> is kersiz PNG; siz Reverse Dimensionsimg1 1 1 2 ; ker TableN1/kersiz 2 kersiz kersiz ; dat Nimg1 1; as Dimensionsdat; ave PartitionTransposeFlatten ListConvolveker datAll All / Rangeas3 as2 - kersiz + 1; ave Takeave Sequence 1 Dimensionsave kersiz / Range LengthDimensionsave - 1 ; ShowGraphicsRasterave 0 0 siz/kersiz 0 255 ColorFunction -> RGBColor PlotRange -> \ 0 siz1/kersiz 0 siz2/kersiz ImageSize -> is AspectRatio -> ar finalgraphic aagr </pre> Anti-aliasing Surface plots
Terms of Use   Search of the Day