Return to matrix_homotopies_io.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Schubert

Annotation of OpenXM_contrib/PHC/Ada/Schubert/matrix_homotopies_io.adb, Revision 1.1.1.1

1.1       maekawa     1: with integer_io;                         use integer_io;
                      2: with Standard_Complex_Numbers;           use Standard_Complex_Numbers;
                      3: with Standard_Complex_Matrices;          use Standard_Complex_Matrices;
                      4: with Standard_Complex_Matrices_io;       use Standard_Complex_Matrices_io;
                      5: with Matrix_Homotopies;
                      6:
                      7: package body Matrix_Homotopies_io is
                      8:
                      9:   procedure Write is
                     10:   begin
                     11:     Write(Standard_Output);
                     12:   end Write;
                     13:
                     14:   procedure Write ( file : in file_type ) is
                     15:   begin
                     16:     for i in 1..Matrix_Homotopies.Cardinality loop
                     17:       declare
                     18:        start : constant Matrix := Matrix_Homotopies.Eval(i,Create(0.0));
                     19:        target : constant Matrix := Matrix_Homotopies.Eval(i,Create(1.0));
                     20:       begin
                     21:         put(file,"Matrix homotopy no. "); put(file,i,1);
                     22:         put_line(file," :");
                     23:         put_line(file,"Start matrix : "); put(file,start);
                     24:         put_line(file,"Target matrix : "); put(file,target);
                     25:       end;
                     26:     end loop;
                     27:   end Write;
                     28:
                     29: end Matrix_Homotopies_io;