SnappyGoat.com - Free Public Domain Images - SnappyGoat.com- R sin(theta) Surface Plot.png

MAKE A MEME View Large Image $R sin(theta) Surface Plot.png Polar surface plot of r sin self-made Mathematica 2007-08-26 Inductiveload Ploar Surface Plot of r sin - Equation <math>z r \sin\left \theta \right \ </math> - Co-ordinate System Polar - r Range 0 1 - Range -0 ...$

View Original:	R sin(theta) Surface Plot.png (800x648)
Download:	Original	Medium	Small	Thumb
Courtesy of:	commons.wikimedia.org			More Like This
Keywords: R sin(theta) Surface Plot.png Polar surface plot of r sin self-made Mathematica 2007-08-26 Inductiveload Ploar Surface Plot of r sin - Equation <math>z r \sin\left \theta \right \ </math> - Co-ordinate System Polar - r Range 0 1 - Range -0 2 Mathematica Code The rationale for this code can be found on Wikibooks here Note the it is slightly modified to allow for antialising 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 50px <pre><nowiki> dtheta Pi/20; Give a radial gridline \ spacing of Pi/20 radians rmax 1; Define the \ maximum radius dr rmax/10; Give 10 \ circumferential grid lines fr_ theta_ r Sintheta; This is the function definition data Table fr theta theta 0 2Pi dtheta r 0 rmax dr ; gr1 ListPlot3D data MeshRange -> 0 rmax 0 2Pi TextStyle -> FontSize -> 60 BoxStyle -> AbsoluteThickness4 MeshStyle -> AbsoluteThickness4 AxesLabel -> z ImageSize -> 200 DisplayFunction -> Identity gr2 Graphics3Dgr1; substitution r_ theta_ z_ -> r Costheta r Sintheta z ; gr3 ReplaceAllgr2 p Polygonpts_ > ReplaceAllp substitution 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 Take ave Sequence 1 Dimensionsave kersiz / \ RangeLengthDimensionsave - 1 ; ShowGraphicsRaster ave 0 0 siz/kersiz 0 255 ColorFunction -> RGBColor PlotRange -> \ 0 siz1/kersiz 0 siz2/kersiz ImageSize -> is AspectRatio -> ar aagr3 </nowiki></pre> Trigonometric functions Surface plots