Nothing
f <- function(prob) {
prob + prob * (1-prob)^3/(1-(1-prob)^2)
}
g <- function(prob) { f(prob) - 0.50 }
uniroot(g,c(0.20,0.5))$root # when g=0, f=0.5
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.