Nothing
quadraticPointsOnInterval <- function(t1, t2, n, a) a*seq(0, 1, length=n)^2 + ((t2-t1) - a)*seq(0, 1, length=n) + t1
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.