Neuberechnung mit F9 bzw Strg+R

α = 0.95 (slider from 0.1 to 1, step 0.01)
c: (-2 * ln(1 - α))
ρ = 0.6 (slider from -1 to 1, step 0.1)
bb: ((1 - ρ) * c)
X = RandomNormal(0, 1)
n = 2400 (slider from 100 to 10000, step 100)
L1 = Sequence(RandomNormal[0, 1], i, 1, n)
L2 = Sequence((Element[L1, i], (ρ * Element[L1, i]) + (sqrt(1 - ρ^(2)) * RandomNormal[0, 1])), i, 1, n)
aa: ((ρ + 1) * c)
E: x^(2) / aa + y^(2) / bb = 1
E' = Rotate(E, pi / 4)
P: (α * 100)
Text1: "\text{Die Punkte liegen mit } " + (LaTeX[P]) + "\text{%-iger Wahrscheinlichkeit auf der Ellipsenfläche.}"