h: 1
s = 0 (slider from 0 to 31.41592653589793, step 0.01)
b: 3
a: 10
R: 1.75
r: 1
C = CurveCartesian(((R + (r * cos((a * t)))) * cos((b * t))), ((R + (r * cos((a * t)))) * sin((b * t))), (r * sin((a * t))), t, 0, (2 * π))
P: C(s)
C_1 = Derivative(C)
Q: P + (h * C_1(s) / sqrt((C_1(s) * C_1(s))))
C_2 = Derivative(C_1)
F: P + (h * C_1(s)) ⊗ C_2(s) / sqrt(((C_1(s) * C_1(s)))^(3))
M: P - ((Q - P) ⊗ (F - P) / h)
H: P + (M - P) / Distance[M, P]
G: P + (F - P) / Distance[F, P]
S = Surface(((R + (r * cos(u))) * cos(v)), ((R + (r * cos(u))) * sin(v)), (r * sin(u)), u, 0, (2 * π), v, 0, (2 * π))
B = Vector(P, G)
T = Vector(P, Q)
B_{1} = Plane(P, Q, F)
p = Plane(P, Q, M)
q = Plane(P, F, M)
N = Vector(P, H)