19:38, 4 January 2014Gill110951talkcontribs uploaded
File:GevDensity.svg({{cc-by-sa-3.0|Created by R D Gill, 4 January 2013, using R script} svg("GevDensity.svg") x <- seq(from = -4, to = +4, length = 200) xi <- 0.5 s <- (1 + xi * x)^(-1/xi -1) t <- (1 + xi * x)^(-1/xi) u <- x > -1/xi plot(x, s*exp(-t)*u, type="l",...)
09:08, 23 December 2013Gill110951talkcontribs uploaded a new version of
File:Bell.svg(added stars marking correlations found in Bell-CHSH experiments xs <- c(1/4, 3/4, 5/4, 7/4) points(xs, -cos(pi*xs), col = "blue", pch = "*", cex = 2) ys <- c(-1/2, 1/2, 1/2, -1/2) points(xs, ys, col = "red", pch = "*", cex = 2))
19:38, 4 January 2014Gill110951talkcontribs uploaded
File:GevDensity.svg({{cc-by-sa-3.0|Created by R D Gill, 4 January 2013, using R script} svg("GevDensity.svg") x <- seq(from = -4, to = +4, length = 200) xi <- 0.5 s <- (1 + xi * x)^(-1/xi -1) t <- (1 + xi * x)^(-1/xi) u <- x > -1/xi plot(x, s*exp(-t)*u, type="l",...)
09:08, 23 December 2013Gill110951talkcontribs uploaded a new version of
File:Bell.svg(added stars marking correlations found in Bell-CHSH experiments xs <- c(1/4, 3/4, 5/4, 7/4) points(xs, -cos(pi*xs), col = "blue", pch = "*", cex = 2) ys <- c(-1/2, 1/2, 1/2, -1/2) points(xs, ys, col = "red", pch = "*", cex = 2))