tramite il comando successione applicato a dei punti che creano una griglia è possibile avere lo sviluppo di vettori che hanno origine in quei punti.
punti=Successione[Successione[(i, j), j, -7, 7, 0.5], i, -7, 7, 0.5]
gradiente=Successione[Successione[Vettore[Punti(i, j), Punti(i, j) + (b x(Punti(i, j)), b y(Punti(i, j)))], i, -7, 7, 0.5], j, -7, 7, 0.5].
b determina la lunghezza dei vettori, i numeri -7,7,.5, che possono essere variati a piacere, determinano le dimensioni della griglia (punti) nonchè il numero dei vettori (gradiente). Per aumentare il numero dei vettori aumentare l'intervallo di i e j.
Attivando solo "gradiente" e avviando l'animazione si percepisce anche il senso della prospettiva.
