Nothing
quadlin <-
function(Q,A,b)
{
### % First, find lambda.
lambda=solve( (A %*% solve(Q) %*% t(A) ), b)
### % Now, x.
x=solve(Q)%*%t(A) %*% lambda;
return(list(x=x,lambda=lambda))
}
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.