w3: 1 / 2
fx(t) = ((t * (2 + (t^(2) * (-2 + w3))))) / (1 + t^(2) + (t^(3) * (-2 + w3)))
fy(t) = (1 - t^(2)) / (1 + t^(2) + (t^(3) * (-2 + w3)))
a = CurveCartesian(fx(t), fy(t), t, 0, 1)
A = Intersect(xAxis, yAxis)
B = (1, 0)
c = Circle(A, B)
fxRiese(t) = ((t * (2 + (t^(2) * (-2 + 5000))))) / (1 + t^(2) + (t^(3) * (-2 + 5000)))
fyRiese(t) = (1 - t^(2)) / (1 + t^(2) + (t^(3) * (-2 + 5000)))
Riese = CurveCartesian(fxRiese(t), fyRiese(t), t, 0, 1)
fxwinz(t) = ((t * (2 + (t^(2) * (-2 + 1 / 50))))) / (1 + t^(2) + (t^(3) * (-2 + 1 / 50)))
fywinz(t) = (1 - t^(2)) / (1 + t^(2) + (t^(3) * (-2 + 1 / 50)))
winz = CurveCartesian(fxwinz(t), fywinz(t), t, 0, 1)