Nothing
# show different types of meshes
UnitSimplex( n=3, k=4 )
SolidSimplex( n=3, k=4 )
UnitSphere( n=3, k=4, method="edgewise" )
UnitSphere( n=3, k=2, method="dyadic" )
UnitBall( n=3, k=3, method="edgewise" )
UnitBall( n=3, k=2, method="dyadic" )
SolidRectangle( a=c(1,3), b=c(2,10) )
HollowRectangle( a=c(1,3), b=c(2,10) )
Icosahedron( )
# edge subdivision
T <- EdgeSubdivision( n=2, k=2 )
T
ConvertBase( 10, 2, 6 ) # note order of digits
NumVertices( n=4, k=8, single=FALSE )
S <- rbind( diag(rep(1,2)), c(0,0) ) # solid simplex in 2D
PointCoord( S, T[,,1] )
SimplexCoord( S, T[,,1] )
SVIFromColor( S, T )
# check all meshes in different dimensions
for (n in 2:4) {
cat("dimension n=",n," ... ")
timer <- system.time({
UnitSimplex( n=n, k=4 )
SolidSimplex( n=n, k=4 )
UnitSphere( n=n, k=4, method="edgewise" )
UnitSphere( n=n, k=2, method="dyadic" )
UnitBall( n=n, k=3, method="edgewise" )
UnitBall( n=n, k=2, method="dyadic" )
SolidRectangle( a=rep(0.0,n), b=rep(1.0,n) )
HollowRectangle( a=rep(0.0,n), b=rep(1.0,n) ) })
cat(timer[1:3],"\n")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.