Guest User

Untitled

a guest
Nov 17th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. function [eigValue,eigVector] = EigPowerMethod (A, epsilon)
  2. [m,n]=size(A);
  3. if (m != n)
  4. disp("Matrix Should Be Square");
  5. else
  6. u = [];
  7. t = 0;
  8. r = ones(m);
  9. u = [u transpose(r(1,:))];
  10. i = 2;
  11. d = 1;
  12. while(d > epsilon)
  13. newU = A*u(:,i-1);
  14. t = newU(m);
  15. newU = newU/t;
  16. u =[u newU];
  17. d = norm(u(:,i)-u(:,i-1));
  18. i++;
  19. end
  20. fprintf("repeats loop count : %d \r\n",i)
  21. eigValue=t;
  22. eigVector=u(:,i-1);
  23. endif
  24. endfunction
Add Comment
Please, Sign In to add comment