Return to drivers_for_homotopy_creation.ads CVS log

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

Annotation of OpenXM_contrib/PHC/Ada/Homotopy/drivers_for_homotopy_creation.ads, Revision 1.1

1.1     ! maekawa     1: with text_io;                            use text_io;
        !             2: with Standard_Complex_Numbers;           use Standard_Complex_Numbers;
        !             3: with Standard_Complex_Solutions;         use Standard_Complex_Solutions;
        !             4: with Standard_Complex_Poly_Systems;      use Standard_Complex_Poly_Systems;
        !             5:
        !             6: package Drivers_for_Homotopy_Creation is
        !             7:
        !             8: -- DESCRIPTION :
        !             9: --   Menu-driven creation of an artificial-parameter polynomial homotopy.
        !            10:
        !            11:   procedure Default_Homotopy_Settings
        !            12:                 ( k : out positive; a,t : out Complex_Number );
        !            13:   procedure Default_Homotopy_Settings
        !            14:                 ( k : out positive; a,t : out Complex_Number;
        !            15:                   proj : out boolean );
        !            16:
        !            17:   -- DESCRIPTION :
        !            18:   --   Sets the default settings of the homotopy parameters.
        !            19:
        !            20:   -- ON RETURN :
        !            21:   --   k          relaxation constant, by default equals 2;
        !            22:   --   a          randomly chosen complex number of radius 1;
        !            23:   --   t          1 is default target value of the continuation parameter;
        !            24:   --   proj       no projective transformation, proj = false.
        !            25:
        !            26:   procedure Menu_for_Homotopy_Settings
        !            27:                 ( file : in file_type; k : in out positive;
        !            28:                   a,t : in out Complex_Number; proj : in out boolean );
        !            29:   procedure Menu_for_Homotopy_Settings
        !            30:                 ( file : in file_type; k : in out positive;
        !            31:                   a,t : in out Complex_Number );
        !            32:
        !            33:   -- DESCRIPTION :
        !            34:   --   Interactive setting of the homotopy parameters.
        !            35:   --   If proj is left out, then no projective transformation is set.
        !            36:
        !            37:   procedure Driver_for_Homotopy_Construction
        !            38:                ( file : in file_type; p,q : in out Poly_Sys;
        !            39:                  qsols : in out Solution_List; target : out Complex_Number );
        !            40:
        !            41:   -- DESCRIPTION :
        !            42:   --   This is an interactive driver for the construction of an artificial
        !            43:   --   parameter homotopy.  The user can ask to homogenize the polynomial
        !            44:   --   system  and can determine the homotopy parameters and the target
        !            45:   --   value for the  continuation parameter.
        !            46:   --   This target value is returned as output.
        !            47:   --   Note that the starting value for the continuation parameter is stored
        !            48:   --   with the solutions.
        !            49:
        !            50: end Drivers_for_Homotopy_Creation;