t: 1080
A: ((cos(Mod[t, 180]° - 90°) * cos(Div[t, 180]°)), (cos(Mod[t, 180]° - 90°) * sin(Div[t, 180]°)), sin(Mod[t, 180]° - 90°))
a_1: (x(A) * (x - x(A))) + (y(A) * (y - y(A))) + (z(A) * (z - z(A))) = 0
B: (0, 0, 2)
f = OrthogonalLine(B, a_1)
C = Intersect(f, a_1)
b: x^(2) + y^(2) + z^(2) = 1
리스트1 = Sequence(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°)), a, 1, t)
리스트2 = Sequence(Intersect[OrthogonalLine[B, (x(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))) * (x - x(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))))) + (y(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))) * (y - y(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))))) + (z(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))) * (z - z(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))))) = 0], (x(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))) * (x - x(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))))) + (y(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))) * (y - y(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))))) + (z(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))) * (z - z(((cos(Mod[(a * 2), 180]° - 90°) * cos((Div[(a * 2), 180]° * 5))), (cos(Mod[(a * 2), 180]° - 90°) * sin((Div[(a * 2), 180]° * 5))), sin(Mod[(a * 2), 180]° - 90°))))) = 0], a, 1, t)