![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / PHC / Ada / Schubert / matrix_homotopies_io.adb (download)
Revision 1.1.1.1 (vendor branch), Sun Oct 29 17:45:32 2000 UTC (23 years, 10 months ago) by maekawa
Import the second public release of PHCpack. OKed by Jan Verschelde. |
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;