Nothing
ultraspherical.polynomials <- function( n , alpha, normalized=FALSE )
{
###
### This function returns a list with n+1 elements
### containing the order k ultraspherical polynomials, Ck(alpha,x),
### for orders k=0,1,...,n
###
### Parameters
### n = integer highest polynomial order
###
polynomials <- gegenbauer.polynomials( n, alpha, normalized )
return( polynomials )
}
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.