#OK to share
#Isaac Lam, Feb 12 2024
#hwValentine.txt

with(plots);
with(CurveFitting);

#I didn't get what was meant by placing the code on the i side, so I displayed the code using a polynomial, so the encoded letter at the i-th place is the z value of f(i)

f := PolynomialInterpolation([1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17], [1, 4, 7, 14, 23, 21, 7, 22, 1, 6, 25, 12, 26, 23, 7, 10, 17], x);

spacecurve({[2*(1 - 2*cos(x))*cos(x), 2*(1 - cos(x))*sin(x), f(x)]}, x = 0 .. 18, axes = frame, view = [-6 .. 6, -4 .. 4, -20 .. 20])