_meting := proc(X::evaln,Y::evaln) local a,b,c,n,y; randomize(): a := -0.5 + 2.0*stats[random,uniform](): b := 0.5 + stats[random,uniform](): c := 0.5 + 1.5*stats[random,uniform](): X := 5*[stats[random,uniform](20)]: y := map( n->a*n^2+b*n+c, eval(X) ): Y := y + [stats[random,normald[0,0.5]](20)]: print("X is een lijst met twintig x-waarden, Y is een lijst met de bijbehorende twintig y-waarden."); end proc: _meting(X,Y);