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     ! 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;