Cylindrical Equal-Area Projection

Author

Eric W. Weisstein
January 26, 2011

This notebook downloaded from http://mathworld.wolfram.com/notebooks/MapProjections/CylindricalEqual-AreaProjection.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/CylindricalEqual-AreaProjection.html.

©2010 Wolfram Research, Inc. except for portions noted otherwise

Projection

phis={0,30,37.383,44.138,45,50}Degree;

V5

Show[GraphicsArray[Partition[MapIndexed[Graphics[ProjectionPlot[Projection[CylindricalEqualArea[#1//N,0.]]],AspectRatio->Automatic,PlotLabel->StyleForm[{"Lambert","Behrmann","Tristan Edwards","Peters","Gall orthographic","Balthasart"}[[First[#2]]]<>" ((Subscript[ϕ, S]) == "<>ToString[#1/Degree]<>"°)",FontFamily->"Times",FontSlant->"Italic"]]&,phis],2]],ImageSize->500,GraphicsSpacing->{-.17,.1}]//Timing

V6

GraphicsGrid[Partition[MapIndexed[Graphics[MapProjectionPlot[MapProjection[CylindricalEqualArea[#1//N,0.]]],AspectRatio->Automatic,PlotLabel->StyleForm[{"Lambert","Behrmann","Tristan Edwards","Peters","Gall orthographic","Balthasart"}[[First[#2]]]<>" ((Subscript[ϕ, S]) == "<>ToString[#1/Degree]<>"°)",FontFamily->"Times",FontSlant->"Italic"]]&,phis],2]]

"CylindricalEqual-AreaProjection"->,