Nothing
`cross.prod` <-
function( B, A)
{
c=list()
c$x = (B$y*A$z) - (A$y*B$z);
c$y = (A$x*B$z) - (B$x*A$z);
c$z = (B$x*A$y) - (A$x*B$y);
return (c);
}
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.