clear all 
close all
[t y]=expeuler_rendszer(@linkder,0,[1 1 -1],0.5,8)
plot(t,y)
title('A lineáris rendszer megoldása')