Ex 8.11
Läs in en summa pengar P och en ränta i, beräkna och skriv ut en tabell hur pengarna växer. Givet är formeln för det framtida värdet F, F = P*(1+i/1200)^n
clear % Läs in P och i filnamn = 'ex_8_11_fil.txt'; fid = fopen(filnamn,'rt'); if fid < 0 disp('Problem att öppna filen'); else P = fscanf(fid,'%f',1); i = fscanf(fid,'%f',1); fclose(fid); n = 1:(12*5); F = P*(1+i/1200).^n; utfil = 'interest.txt'; fid = fopen(utfil,'wt'); if fid < 0 disp('Problem att öppna filen'); else fprintf(fid,'År \t Månad \t Pengar\n'); for i=1:length(F) fprintf(fid,'%d \t %d \t %8.2f kr\n', floor(i/12), mod(i,12)+1,F(i)); end fclose(fid); end end