Advertisement
Guest User

Untitled

a guest
Jan 16th, 2019
277
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Octave 0.32 KB | None | 0 0
  1. 1. close all;
  2. 2. clear all;
  3. 3.
  4. 4. i = 0;
  5. 5. max = 6;
  6. 6.
  7. 7. A = [1 2 3
  8. 8. 2 4 5
  9. 9. 3 5 -1];
  10. 10.
  11. 11. v = [0
  12. 12. 0
  13. 13. 1];
  14. 14.
  15. 15. lambda = v' * A * v;
  16. 16.
  17. 17. while i < max
  18. 18. i++;
  19. 19. w = (A - lambda * eye(rows(A))) \ v;
  20. 20. v = w / norm(w);
  21. 21. lambda = v' * A * v;
  22. 22. endwhile
  23. 23.
  24. 24. save Rayleigh.txt;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement