Return to matrix_homotopies_io.adb CVS log

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

Initial revision

with integer_io;                         use integer_io;
with Standard_Complex_Numbers;           use Standard_Complex_Numbers;
with Standard_Complex_Matrices;          use Standard_Complex_Matrices;
with Standard_Complex_Matrices_io;       use Standard_Complex_Matrices_io;
with Matrix_Homotopies;

package body Matrix_Homotopies_io is

  procedure Write is
  begin
    Write(Standard_Output);
  end Write;

  procedure Write ( file : in file_type ) is
  begin
    for i in 1..Matrix_Homotopies.Cardinality loop
      declare
	start : constant Matrix := Matrix_Homotopies.Eval(i,Create(0.0));
	target : constant Matrix := Matrix_Homotopies.Eval(i,Create(1.0));
      begin
        put(file,"Matrix homotopy no. "); put(file,i,1);
        put_line(file," :");
        put_line(file,"Start matrix : "); put(file,start);
        put_line(file,"Target matrix : "); put(file,target);
      end;
    end loop;
  end Write;

end Matrix_Homotopies_io;