load (draw)$ a : [1,2]$ b : [0.5,0.5]$ anzahlbilder : 14; vektoren(n) := block ([], retwert : [vector ([0,0], a)], for i : 0 while i < n do retwert : append (retwert, [vector (a + i*b, b)]), return (retwert) )$ for i : 0 while i < anzahlbilder do block ([], bild[i] : gr2d ( user_preamble = ["set noborder;"], line_width = 2, xrange = [-2,10], yrange = [-2,10], xaxis = true, xtics_axis = true, yaxis = true, ytics_axis = true, head_length = 0.2, vektoren(i), line_type = dots, line_width = 1, points_joined = true, point_type = none, points ([ a-3*b, a+(anzahlbilder+1)*b ]) ) )$ bilder : [bild[0]]$ for i : 1 while i < anzahlbilder do bilder : append (bilder, [bild[i]])$ draw ( bilder, delay = 50, file_name = "gerade", terminal = 'animated_gif )$