function tracevpd(a, t0, T, Neuler, Nptmil, Nrk4, Node)
// Approximation euler
u = euler(a, t0, T, Neuler, vdp);
// Approximation point milieu
v = pointmilieu(a, t0, T, Nptmil, vdp);
// Approximation runge kutta 4
w = rk4(a, t0, T, Nrk4, vdp);
// Approximation ode
tode = linspace(t0, T, Node+1);
y = ode(a, t0, tode, vdp)
// Euler
plot(u(1,:), u(2,:), '+');
// Pt milieu
plot(v(1,:), v(2,:), 'yo');
// RK4
plot(w(1,:), w(2,:), 'black.');
// ODE
plot(y(1,:), y(2,:), 'rx');
title('VDP');
endfunction