Return to ts_cmpvec.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Matrices

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Matrices/ts_cmpvec.adb, Revision 1.1.1.1

1.1       maekawa     1: with text_io,integer_io;                 use text_io,integer_io;
                      2: with Standard_Complex_Vectors;
                      3: with Standard_Complex_Vectors_io;
                      4: with Multprec_Complex_Vectors;
                      5: with Multprec_Complex_Vectors_io;
                      6:
                      7: procedure ts_cmpvec is
                      8:
                      9: -- DESCRIPTION :
                     10: --   Tests the vector packages of standard and multi-precision complex numbers.
                     11:
                     12:   procedure Test_Standard_Vectors_io is
                     13:
                     14:     use Standard_Complex_Vectors,Standard_Complex_Vectors_io;
                     15:
                     16:     n : natural;
                     17:
                     18:   begin
                     19:     put("Give the dimension : "); get(n);
                     20:     declare
                     21:       nv : Vector(1..n);
                     22:     begin
                     23:       put("Give "); put(n,1); put_line(" complex numbers : "); get(nv);
                     24:       put_line("Your vector : "); put_line(nv);
                     25:     end;
                     26:   end Test_Standard_Vectors_io;
                     27:
                     28:   procedure Test_Multprec_Vectors_io is
                     29:
                     30:     use Multprec_Complex_Vectors,Multprec_Complex_Vectors_io;
                     31:
                     32:     n : natural;
                     33:
                     34:   begin
                     35:     put("Give the dimension : "); get(n);
                     36:     declare
                     37:       nv : Vector(1..n);
                     38:     begin
                     39:       put("Give "); put(n,1); put_line(" complex numbers : "); get(nv);
                     40:       put_line("Your vector : "); put_line(nv);
                     41:     end;
                     42:   end Test_Multprec_Vectors_io;
                     43:
                     44:   procedure Main is
                     45:
                     46:     ans : character;
                     47:
                     48:   begin
                     49:     new_line;
                     50:     put_line("Interactive testing of vectors of complex numbers.");
                     51:     loop
                     52:       new_line;
                     53:       put_line("Choose one of the following : ");
                     54:       put_line("  0. exit this program.");
                     55:       put_line("  1. io of vectors of standard complex numbers.");
                     56:       put_line("  2. io of vectors of multi-precision complex numbers.");
                     57:       put("Make your choice (0,1, or 2) : "); get(ans);
                     58:       exit when (ans = '0');
                     59:       case ans is
                     60:         when '1' => Test_Standard_Vectors_io;
                     61:         when '2' => Test_Multprec_Vectors_io;
                     62:         when others => null;
                     63:       end case;
                     64:     end loop;
                     65:   end Main;
                     66:
                     67: begin
                     68:   Main;
                     69: end ts_cmpvec;