clear all 
close all
[t y]=expeuler_sajat(@linkde,0,10,0.5,8)
u=3*exp(-2*t);
plot(t,u,'-',t,y,':')
legend('Pontos megoldás','Numerikus megoldás')