Four-Dimensional Geometry

Author

Eric W. Weisstein
September 9, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SolidGeometry/Four-DimensionalGeometry.nb.

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

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

Surface Area

Table[((2(π^(n/2))(R^(n-1)))/(Gamma[(1/2)n])),{n,10}]

s=Table[((2Pi^(Mod[n,2]/2))/(Gamma[(1/2)n])),{n,20}]

Through[{Numerator,Denominator}[s]]

Volume

Table[(((π^(n/2))(R^n))/(Gamma[1+(1/2)n])),{n,10}]

v=Table[((π^(Mod[n,2]/2))/(Gamma[1+(1/2)n])),{n,20}]

Through[{Numerator,Denominator}[v]]