clear;
clc;

a=input('Startsum: ');
r=input('Renter: ');
k=input('Antall år: ');
n=input('Antall terminer: ');
r=r/100;

gjenstaende(1)=Laan1(a,r,n,k)*k;
innbetalingprtermin=(r*a*(1+(r/n))^(n*k))/(n*((1+(r/n))^(n*k)-1));

for i=1:k*n
    renterpertermin(i)=gjenstaende(i)*((1+r)^(1/(n))-1);
    avdrag(i)=innbetalingprtermin-renterpertermin(i);
    gjenstaende(i+1)=gjenstaende(i)-avdrag(i);
end

for h = 1:(n*k)
    liste(h,1)=gjenstaende(h);
    liste(h,2)=avdrag(h);
    liste(h,3)=renterpertermin(h);
end
  liste

  % a=renterpertermin./avdrag;
  % x=1:(n*k+1);
  % plot(x,a)