load(draw)$ f(x) := -9.8/16*x^2 + 2*x + 1.5 ; nst : rhs (solve (f(x) = 0)[2]); Px : makelist (x, x, 1, 3, 0.5)$ /* oder Py : maplist (f, Px)$ */ /* oder Py : create_list (f(x), x, Px); */ Py : makelist (f(x), x, Px)$ P : create_list ([i,j], i, Px, j, Py); P : [[Px[1], Py[1]]]$ for i : 2 thru length(Px) do P : append (P, [[Px[i], Py[i]]]); vektoren : [head_length = 0.2]; for i : 1 thru length(Px) do vektoren : append (vektoren, [vector ([P[i][1], P[i][2]], [0, -0.5])]); baelle : [transparent = true, line_width = 2, line_type = dots ]; r : 0.1; for i : 1 thru length(Px) do baelle : append (baelle, [ellipse (P[i][1], P[i][2], r, r, 0, 360)]); draw2d( xrange = [0, 5], yrange = [0, 4], explicit (f(x), x, 0, nst), vektoren, baelle, file_name = "ballwurf", dimensions = [500, 400], terminal = png )$