home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / NRPAS13.ZIP / HQR.DEM < prev    next >
Text File  |  1991-04-29  |  1KB  |  45 lines
  1. PROGRAM d11r7(input,output);
  2. (* driver for routine HQR *)
  3. CONST
  4.    np=5;
  5. TYPE
  6.    glnpnp = ARRAY [1..np,1..np] OF real;
  7.    glnp = ARRAY [1..np] OF real;
  8. VAR
  9.    i,j : integer;
  10.    a : glnpnp;
  11.    wi,wr : glnp;
  12.  
  13. (*$I MODFILE.PAS *)
  14. (*$I BALANC.PAS *)
  15.  
  16. (*$I ELMHES.PAS *)
  17.  
  18. (*$I HQR.PAS *)
  19.  
  20. BEGIN
  21.    a[1,1] := 1.0; a[1,2] := 2.0; a[1,3] := 0.0;
  22.    a[1,4] := 0.0; a[1,5] := 0.0;
  23.    a[2,1] := -2.0; a[2,2] := 3.0; a[2,3] := 0.0;
  24.    a[2,4] := 0.0; a[2,5] := 0.0;
  25.    a[3,1] := 3.0; a[3,2] := 4.0; a[3,3] := 50.0;
  26.    a[3,4] := 0.0; a[3,5] := 0.0;
  27.    a[4,1] := -4.0; a[4,2] := 5.0; a[4,3] := -60.0;
  28.    a[4,4] := 7.0; a[4,5] := 0.0;
  29.    a[5,1] := -5.0; a[5,2] := 6.0; a[5,3] := -70.0;
  30.    a[5,4] := 8.0; a[5,5] := -9.0;
  31.    writeln('matrix:');
  32.    FOR i := 1 to np DO BEGIN
  33.       FOR j := 1 to np DO write(a[i,j]:12:2);
  34.       writeln
  35.    END;
  36.    balanc(a,np);
  37.    elmhes(a,np);
  38.    hqr(a,np,wr,wi);
  39.    writeln('eigenvalues:');
  40.    writeln('real':11,'imag.':16);
  41.    FOR i := 1 to np DO BEGIN
  42.       writeln('  ',wr[i]:13,'  ',wi[i]:13)
  43.    END
  44. END.
  45.