Neuberechnung mit F9 bzw Strg+R

ρ = 0.5 (slider from -1 to 1, step 0.1)
α = 0.99 (slider from 0.1 to 1, step 0.01)
c: (-2 * ln(1 - α))
aa: ((ρ + 1) * c)
bb: ((1 - ρ) * c)
E: x^(2) / aa + y^(2) / bb = 1
E' = Rotate(E, pi / 4)
J: (4, (4 * ρ))
L: (-4, (-4 * ρ))
H = Point(E')
F = Point(E')
B = Point(E')
X = RandomNormal(0, 1)
n = 100 (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)
P: (α * 100)
Text1: "\text{Die Punkte liegen mit } " + (LaTeX[P]) + "\text{%-iger Wahrscheinlichkeit auf der Ellipsenfläche.}"
Waa: sqrt(aa)
Wbb: sqrt(bb)
μ_U = 10 (slider from -5 to 15, step 0.05)
μ_V = 5.5 (slider from -10 to 10, step 0.05)
σ_U = 1.55 (slider from 0 to 5, step 0.05)
σ_V = 1.25 (slider from 0 to 5, step 0.05)
L5 = Sequence(((σ_U * x(Element[L2, i])) + μ_U, (σ_V * y(Element[L2, i])) + μ_V), i, 1, n)
E3: ((x - μ_U) / σ_U)^(2) / aa + ((y - μ_V) / σ_V)^(2) / bb = 1
K: atan(PMCC[L2] / σ_U^(2) + 0.003)
E4 = Rotate(E3, K, (μ_U, μ_V))
C = Intersect(E', xAxis, 1)
L6: {L, J}
E5: (1 / 2 * ((x - μ_U) / σ_U + (y - μ_V) / σ_V)^(2) / (1 + ρ)) + (1 / 2 * (((-(x - μ_U))) / σ_U + (y - μ_V) / σ_V)^(2) / (1 - ρ)) = c
g = Segment(L, J)
L7 = Sequence(((σ_U * x(Element[L6, i])) + μ_U, (σ_V * y(Element[L6, i])) + μ_V), i, 1, 2)
S = Point(L7)
T = Point(L7)
h = Segment(S, T)
Korr = PMCC(L5)