##### swh:1:snp:bbc0b94b1c0463480b615c86f1ae2df3fcc700c0
Tip revision: 6a2a464
geometries.rd
\name{g.sphere}
\alias{g.sphere}
\alias{g.spheroid}
\alias{g.cylinder}

\title{
Surface Area and Volume of Geometrical Objects
}

\description{
\itemize{
\item \code{g.sphere} the surface and volume of a sphere
\item \code{g.spheroid} the surface and volume of a spheroid
\item \code{g.cylinder} the surface and volume of a cylinder;
note that the surface area calculation ignores the top and bottom.
}
}

\usage{

g.sphere(x)
g.spheroid (x, b = 1)
g.cylinder (x, L = 1)

}

\arguments{
}
\item{b }{the ratio of long/short radius of the spheroid;
if b<1: the spheroid is oblate.
}
\item{L }{the length of the cylinder
}
}

\value{
A list containing:
\item{surf }{the surface area
}
\item{vol }{the volume
}
}

\author{
Filip Meysman <filip.meysman@nioz.nl>,
Karline Soetaert <karline.soetaert@nioz.nl>
}

\examples{

mf <- par(mfrow = c(3, 2))
x  <- seq(from = 0, to = 1, length = 10)
plot(x, g.sphere(x)$surf, main = "sphere surface") plot(x, g.sphere(x)$vol, main = "sphere volume")
plot(x, g.spheroid(x, b = 0.5)$surf, main = "spheroid surface") plot(x, g.spheroid(x, b = 0.5)$vol, main = "spheroid volume")
plot(x, g.cylinder(x, L = 1)$surf, main = "cylinder surface") plot(x, g.cylinder(x, L = 1)$vol, main = "cylinder volume")
par("mfrow" = mf)

}
\keyword{utilities}