Advertisement
MLCPRO

simple iterations

Jan 29th, 2022
1,063
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 0.63 KB | None | 0 0
  1. %Исходные данные
  2. A = [1,-0.08,0.23,-0.32;
  3.     -0.16,1.23,-0.18,-0.16;
  4.     -0.15,-0.12,0.68,0.18;
  5.     -0.25,-0.21,0.16,0.97;];
  6.  
  7. B = [1.34,-2.33,0.34,0.63];
  8.  
  9. %размер системы
  10. N = max(size(B));
  11.  
  12. %требуемая точность
  13. e = 0.01;
  14.  
  15. Xprev = zeros(1,N);
  16. roots = zeros(1,N);
  17.  
  18. m = max(abs(root));
  19.  
  20. while m > e
  21.     for i = 1:N
  22.         ss = 0;
  23.         for j = 1:N
  24.             if (i ~= j)
  25.                 ss = ss + A(i,j) * Xprev(j);
  26.             end;
  27.         end
  28.         roots(i) = (B(i) - ss)/A(i,i);
  29.     end
  30.     m = max(abs(roots - Xprev));
  31.     Xprev = roots;
  32. end;
  33.  
  34. disp(roots)
  35.  
  36.  
  37.  
  38.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement