Nothing
#generate a normalized ket (column vector) with arbitrary no of states
#' @export
ket <- function(...){
coeff <- as.complex(list(...))
if(Im(coeff[1]) > 0)
coeff <- coeff / coeff[1]
coeff <- coeff/sqrt(sum(abs(coeff)^2))
if(Re(coeff[1]) < 0)
coeff <- coeff * -1
matrix(coeff,ncol=1)
}
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.