Как построить график функции и последовательность точек на одном плоте?

sseq1 := [seq([p[j], ss[j]], j = 0 .. N)]

p1 := plot(s(t), t = 0 .. 10)

display(....,insequence=true)

>restart; with(plots):
n := 100: 
for i to n do
 p[i] := pointplot3d([.5*sin(.5*i), .5*cos(i), 1+2*sin(.25*i)], symbolsize = 25, symbol = solidsphere, color = "DarkOrchid") 
end do:
P := plot3d(x1^2+x2^2-2, x1 = -2 .. 2, x2 = -2 .. 2, transparency = .8, color = gold): 
E := seq(display([P, p[k]], axes = boxed, labels = ["x1", " x2", " x3"]), k = 1 .. n):
 display(E, insequence = true, view = [-4 .. 4, -4 .. 4, -3 .. 4]);

>restart: with(plots):
 n := 26:
for i to n do 
p[i] := pointplot3d([.5*sin(.5*i), .5*cos(i), 1+2*sin(.25*i)], symbolsize = 25, symbol = solidsphere, color = "DarkOrchid"):
 S1 := [seq([.5*sin(.5*j), .5*cos(j), 1+2*sin(.25*j)], j = 1 .. i)]: 
MS1[i] := pointplot3d(S1, color = red, symbolsize = 25) 
end do:
 P := plot3d(x1^2+x2^2-2, x1 = -2 .. 2, x2 = -2 .. 2, transparency = .8, color = gold):
 E := seq(display([P, p[k], MS1[k]], axes = boxed, labels = ["x1", " x2", " x3"]), k = 1 .. n):
display(E, insequence = true, view = [-4 .. 4, -4 .. 4, -3 .. 4]);