Advertisement
Guest User

Untitled

a guest
May 22nd, 2018
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. function [x, iteracje] = ils(A, b, omega, tol)
  3.  
  4. n= length(A(1,:));
  5. maxit = 1000;
  6. x = zeros(n,1);
  7.  
  8. D = diag(diag(A));
  9. L = tril(A)-D;
  10. U = triu(A)-D;
  11.  
  12. B = ((D+omega*L)^(-1))*((1-omega)*D-omega*U);
  13. c = omega*(D+omega*L)^(-1)*b';
  14.  
  15.  
  16.  
  17. iteracje = 0;
  18. temp = zeros(n,1);
  19.  
  20. while( iteracje < 1000 )
  21.  
  22. temp = x;
  23. x = B*x + c;
  24. iteracje = iteracje + 1;
  25.  
  26. if norm(x) > tol^(-1/2)
  27. iteracje = -1;
  28. break;
  29. end
  30.  
  31. if norm(x-temp) < tol
  32. break;
  33. end
  34. end
  35.  
  36. if iteracje == 1000
  37. iteracje = -1;
  38. end
  39.  
  40.  
  41.  
  42. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement