home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / matlab_1 / Scripts / WilkinsonM < prev    next >
Text File  |  1994-02-24  |  610b  |  23 lines
  1. A=<
  2. 13,12,11,10,9,8,7,6,5,4,3,2,1;...
  3. 12,12,11,10,9,8,7,6,5,4,3,2,1;...
  4.  0,11,11,10,9,8,7,6,5,4,3,2,1;...
  5.  0, 0,10,10,9,8,7,6,5,4,3,2,1;...
  6.  0, 0, 0, 9,9,8,7,6,5,4,3,2,1;...
  7.  0, 0, 0, 0,8,8,7,6,5,4,3,2,1;...
  8.  0, 0, 0, 0,0,7,7,6,5,4,3,2,1;...
  9.  0, 0, 0, 0,0,0,6,6,5,4,3,2,1;...
  10.  0, 0, 0, 0,0,0,0,5,5,4,3,2,1;...
  11.  0, 0, 0, 0,0,0,0,0,4,4,3,2,1;...
  12.  0, 0, 0, 0,0,0,0,0,0,3,3,2,1;...
  13.  0, 0, 0, 0,0,0,0,0,0,0,2,2,1;...
  14.  0, 0, 0, 0,0,0,0,0,0,0,0,1,1>,
  15. LONG E , EIG(A)
  16. SHORT E,...
  17. A=<1,    2,    3,    4   ;...
  18.    1E-3, 3E-3, 2E-3, 1E-3;...
  19.    0,    1E-6, 3E-6, 2E-6;...
  20.    0,    0   , 1E-9, 2E-9>,
  21. LONG E, EIG(A)
  22. EXIT
  23.