[list][*]Figure 8 knot - Black curve[/*][*]Inversion - Red curve[/*][/list]

[code]sigma = Slider(0.01, 3, 0.01, 1, 200)[br]translateX = Slider(-3, 3, 0.01, 1, 200)[br]epsilon = Slider(0.01, 0.5, 0.01, 1, 200)[br]h = Slider(0, 2, 0.01, 1, 200)[br]lambda = Slider(0, 0.5, 0.01, 1, 200)[br][br]# Figure 8 knot[br]A(x) = epsilon sin(4x)[br]H(x) = (1+A(x)) / (1-A(x))[br]fx(x) = sigma * H(x) (lambda * sin(x) - (1-lambda) sin(3x)) + translateX[br]fy(x) = sigma * H(x) (lambda * cos(x) + (1-lambda) cos(3x))[br]fz(x) = sigma * H(x) (h sin(2x)) [br][br]figureEightKnot = Curve(fx(t), fy(t), fz(t), t, 0, 2pi)[br][br]# 2-sphere[br]sx(x, y) = cos(x) sin(y)[br]sy(x, y) = sin(x) sin(y)[br]sz(x, y) = cos(y)[br][br]twoSphere = Surface(sx(u, v), sy(u, v), sz(u, v), u, 0, 2pi, v, 0, pi)[br][br]# Inversion[br]norm2(x) = (fx(x))^2 + (fy(x))^2 + (fz(x))^2[br][br]figureEightKnotInverted = Curve(fx(t) / norm2(t), fy(t) / norm2(t) , fz(t) / norm2(t), t, 0, 2pi)[br][/code]