U0 = 5 (slider from -5 to 5, step 0.05)
Psi = 5 (slider from -5 to 5, step 0.05)
R = 0 (slider from -5 to 5, step 0.05)
a = (0, 0)
Liste1 = Sequence(CurveCartesian[((Psi + sqrt((((4 * R^(2)) * U0^(2)) * sin(Phi)^(2)) + Psi^(2))) / (((2 * U0) * sin(Phi))) * cos(Phi)) + real(a), ((Psi + sqrt((((4 * R^(2)) * U0^(2)) * sin(Phi)^(2)) + Psi^(2))) / (((2 * U0) * sin(Phi))) * sin(Phi)) + imaginary(a), Phi, (-π), π], Psi, -10, 10)
Liste2 = Sequence(CurveCartesian[((Psi - sqrt((((4 * R^(2)) * U0^(2)) * sin(Phi)^(2)) + Psi^(2))) / (((2 * U0) * sin(Phi))) * cos(Phi)) + real(a), ((Psi - sqrt((((4 * R^(2)) * U0^(2)) * sin(Phi)^(2)) + Psi^(2))) / (((2 * U0) * sin(Phi))) * sin(Phi)) + imaginary(a), Phi, (-π), π], Psi, -10, 10)