function primjer_sv_vrij_kredit(n)
%Primjer racunanja ravnoteznog stanja kod problema kreditnih razreda
%Ulazni parametar n oznacava broj iteracija metode potencija.

%Inicijalizacija pocetnog vektora gustoce
u = zeros(8,1); 
u(1) = 1;

%Inicijalizacija matrice vjerojatnosti prelaska iz jednog razreda u drugi
load kreditni_razredi_A;

%Petlja sa n+1 koraka
for i=0:n       

    %Crtanje grafa komponenti tekuceg vektora gustoce
	plot( 1:8, u, 'o-', 'LineWidth', 2 );
	axis( [ 0.5 8.5 0 1 ] );
	xlabel('Razred');   ylabel('Gustoca');
    title(sprintf('Korak %d',i));
	set(gca,'XTick',1:8);
	set(gca,'XTickLabel', { 'AAA', 'AA', 'A', 'BBB', 'BB', 'B', 'CCC', 'D' } );
	grid on
	figure(gcf);
	
    %Racunanje novog vektora gustoce
	u = A*u;
    
    %Pauza od 0.2 sekunde
    pause(0.2)

end