plotsuiterec(f,la,p):={ local j,P,L,s,a; L:=NULL; s:=size(la); la:=evalf(la); for (j:=0;j<s;j++) { P:=point(j+i*la[j],couleur=point_width_4+noir); L:=L,segment(j,P,couleur=ligne_tiret+rouge),P; } for (j:=s;j<=p;j++) { a:=f(op(la)); P:=point(j+i*a,couleur=point_width_4+noir); L:=L,segment(j,P,couleur=ligne_tiret+rouge),P; la:=append(tail(la),a); } return L; };Exemple