MAKE A MEME
View Large Image
| View Original: | Sine of distance from origin.png (800x589) | |||
| Download: | Original | Medium | Small | Thumb |
| Courtesy of: | commons.wikimedia.org | More Like This | ||
| Keywords: Sine of distance from origin.png A 3D surface plot of the sine of distance from the origin <math>u \sin \left \sqrt x 2 + y 2 \right </math> This represents the displacement for a point source in 2D with no attenuation due to distance Self-Made with Mathematica Mathematica 2007-06-13 Inductiveload Sine of the distance from the origin - Equation <math>u \sin \left \sqrt x 2+y 2 \right </math> - Co-ordinate System Cartesian - X Range -2Ï 2Ï - Y Range -2Ï 2Ï Mathematica Code border solid 2px BF0C1D; ; valign top ; width 75 align center 50px Please be aware that at the time of uploading 21 24 13 June 2007 UTC this code may take a significant amount of time to execute on a consumer-level computer 50px border solid 2px D6D6FF; ; valign top ; width 75 align center 50px This uses Chris Hill's antialiasing code to average pixels and produce a less jagged image The original code can be found http //members wri com/jeffb/visualization/aa shtml here <pre> \ \ gr Plot3D\IndentingNewLineSinSqrtx 2 + y 2 \IndentingNewLine x \ -2\ \ Pi 2 Pi \IndentingNewLine y \ -2\ \ Pi 2 Pi \IndentingNewLinePlotPoints -> 600 \IndentingNewLineMesh -> False \IndentingNewLineBoxRatios -> 4 4 1 \IndentingNewLineAxes -> True \IndentingNewLineBoxed \ -> True \IndentingNewLineAxesLabel -> \<x\> \<y\> \<u\> \IndentingNewLineTicks -> \IndentingNewLine \ \IndentingNewLine \ -2\ Pi \ -2\ Ï 0 01 AbsoluteThickness4 \IndentingNewLine \ - Pi\ \ -Ï \ 0 01 AbsoluteThickness4 \IndentingNewLine 0 0 0 01 AbsoluteThickness4 \IndentingNewLine Pi Ï 0 01 AbsoluteThickness 4 \IndentingNewLine 2 Pi 2 Ï 0 01 AbsoluteThickness4 \IndentingNewLine \ \IndentingNewLine \IndentingNewLine \ -2\ Pi \ -2\ Ï 0 01 AbsoluteThickness 4 \IndentingNewLine \ -Pi\ \ -Ï \ 0 01 AbsoluteThickness 4 \IndentingNewLine 0 0 0 01 AbsoluteThickness4 \IndentingNewLine Pi Ï 0 01 \ AbsoluteThickness4 \IndentingNewLine 2 Pi 2 Ï 0 01 AbsoluteThickness 4 \IndentingNewLine \ \IndentingNewLine \IndentingNewLine \ -1\ \ -1\ 0 01 AbsoluteThickness4 \IndentingNewLine 0 0 0 01 AbsoluteThickness 4 \IndentingNewLine 1 1 0 01 AbsoluteThickness4 \IndentingNewLine \IndentingNewLine \ \IndentingNewLineTextStyle -> FontSize -> 40 \IndentingNewLineBoxStyle -> AbsoluteThickness4 \ \IndentingNewLineImageSize -> 200 \IndentingNewLine\IndentingNewLine\ \IndentingNewLine aagr_ Module siz kersiz ker dat as ave is ar \IndentingNewLineis ImageSize / Optionsgr \ ImageSize; \IndentingNewLinear AspectRatio / Optionsgr AspectRatio; \IndentingNewLineIf\ NumberQis\ is 288; \ \IndentingNewLinekersiz 4; \IndentingNewLineimg \ ImportStringExportStringgr \<PNG\> ImageSize -> \ is\ kersiz \ \<PNG\> ; \IndentingNewLinesiz Reverse \ Dimensionsimg\ 1 1\ \ \ 1 2 \ ; \IndentingNewLineker TableN1/ kersiz\ 2 kersiz kersiz ; \IndentingNewLinedat Nimg\ 1 1\ ; \IndentingNewLineas Dimensions dat; \IndentingNewLineave PartitionTranspose\ FlattenListConvolveker dat\ All All \ \ / Rangeas\ 3\ as\ 2\ - kersiz + 1; \IndentingNewLineave Takeave Sequence \ \ 1 \ Dimensionsave\ \ \ kersiz \ / RangeLengthDimensions ave - 1 \ ; \ \IndentingNewLineShowGraphicsRasterave 0 0 siz/ kersiz 0 255 ColorFunction -> RGBColor PlotRange -> 0 siz\ 1\ /kersiz 0 siz\ 2\ / kersiz ImageSize -> is AspectRatio -> ar\IndentingNewLine\IndentingNewLine finalgraphic aagr\ </pre> Surface plots | ||||
