function [x_koz]= Jacobi_iteracio_egyszeru(A, b, k_max);
  %{
  
        [x_koz]= Jacobi_iteracio_egyszeru(A, b, k_max)
  
      Az A*x = b lineáris egyenletrendszer közelítő megoldása az
      
        x_(k+1) = B*x_k + c 
        
      Jacobi-iterációval.
      
      Az iteráció akkor áll le, ha k > k_max.
    
      Bemenő paraméterek     
       A          az egyenletrendszer együttható-mátrixa
       b          az egyenletrendszer jobboldala
       k_max      az iterációs lépések maximális száma    
   
      Kimenő paraméterek
       x_koz      az utolsó kiszámolt közelítés 
   %} 
 
    %% Az input paraméterek  ellenőrzését elhagytuk!

    %% a Jacobi-iteráció B mátrixának kiszámolása:
    D	= ;    %% az A diagonálisából álló D mátrix
    B	= ;    %% lehetne: "inverz"(D)*(D-A)

    %% a Jacobi-iteráció c vektorának kiszámolása:
    c	= ;       %% lehetne: "inverz"(D)*b
    
    %% A kódban föltesszük, hogy legalább egyszer lefut a while ciklus
    x_koz =  b;		% x közelítése
    k     =  0;
    
    while (k <= k_max)
      x_new = ;		% x újabb közelítése
      k     = k + 1;
      x_koz = x_new;
    endwhile

endfunction
