%Runge-Kuttas metod på y'=sin(t*y),y(0)=6
tslut=2;
t=0;y=6;T=[t];Y=[y];
h=0.1
n=tslut/h;
for i=1:n
    f1=fsin(t,y);
    f2=fsin(t+h/2,y+h*f1/2);
    f3=fsin(t+h/2,y+h*f2/2);
    f4=fsin(t+h,y+h*f3);
    y=y+h/6*(f1+2*f2+2*f3+f4);
    t=t+h;
    T=[T;t];Y=[Y;y];
end
y
