Ada Programming/Libraries/Ada.Numerics.Generic Complex Arrays

Ada.Numerics.Generic_Complex_Arrays __TOC__ Ada Numerics Generic_Complex_Arrays is a unit of the Predefined Language Environment since Ada 2005. Specification Standard Ada library specification Copyright (c) 2003-2018 Maxim Reznik <reznikmm@gmail.com> Copyright (c) 2004-2016 AXE Consultants Copyright (c) 2004, 2005, 2006 Ada-Europe Copyright (c) 2000 The MITRE Corporation, Inc. Copyright (c) 1992, 1993, 1994, 1995 Intermetrics, Inc. SPDX-License-Identifier: BSD-3-Clause and LicenseRef-AdaReferenceManual ------------------------------------------------------------------------- with Ada Numerics Generic_Real_Arrays; with Ada Numerics Generic_Complex_Types; generic with package Real_Arrays is new Adadot .Numericsdot .Generic_Real_Arrays (box <>); with package Complex_Types is new Adadot .Numericsdot .Generic_Complex_Types (Real_Arraysdot .Real); package Ada Numerics Generic_Complex_Arrays is pragma Pure (Generic_Complex_Arrays); Types type Complex_Vector is array (Integer range box <>) of Complex_Typesdot .Complex; type Complex_Matrix is array (Integer range box <>, Integer range box <>) of Complex_Typesdot .Complex; Subprograms for Complex_Vector types Complex_Vector selection, conversion and composition operations function Re (X : in Complex_Vector) return Real_Arraysdot .Real_Vector; function Im (X : in Complex_Vector) return Real_Arraysdot .Real_Vector; procedure Set_Re (X : in out Complex_Vector; Re : in Real_Arraysdot .Real_Vector); procedure Set_Im (X : in out Complex_Vector; Im : in Real_Arraysdot .Real_Vector); function Compose_From_Cartesian (Re : in Real_Arraysdot .Real_Vector) return Complex_Vector; function Compose_From_Cartesian (Re : in Real_Arraysdot .Real_Vector; Im : in Real_Arraysdot .Real_Vector) return Complex_Vector; function Modulus (X : in Complex_Vector) return Real_Arraysdot .Real_Vector; function "abs" (Right : in Complex_Vector) return Real_Arraysdot .Real_Vector renames Modulus; function Argument (X : in Complex_Vector) return Real_Arraysdot .Real_Vector; function Argument (X : in Complex_Vector; Cycle : in Real_Arraysdot .Real'Base) return Real_Arraysdot .Real_Vector; function Compose_From_Polar (Modulus : in Real_Arraysdot .Real_Vector; Argument : in Real_Arraysdot .Real_Vector) return Complex_Vector; function Compose_From_Polar (Modulus : in Real_Arraysdot .Real_Vector; Argument : in Real_Arraysdot .Real_Vector; Cycle : in Real_Arraysdot .Real'Base) return Complex_Vector; Complex_Vector arithmetic operations function "+" (Right : in Complex_Vector) return Complex_Vector; function "-" (Right : in Complex_Vector) return Complex_Vector; function Conjugate (X : in Complex_Vector) return Complex_Vector; function "+" (Left : in Complex_Vector; Right : in Complex_Vector) return Complex_Vector; function "-" (Left : in Complex_Vector; Right : in Complex_Vector) return Complex_Vector; function "*" (Left : in Complex_Vector; Right : Complex_Vector) return Complex_Typesdot .Complex; function "abs" (Right : in Complex_Vector) return Complex_Typesdot .Complex; Mixed Real_Arrays.Real_Vector and Complex_Vector arithmetic operations function "+" (Left : in Real_Arraysdot .Real_Vector; Right : in Complex_Vector) return Complex_Vector; function "+" (Left : in Complex_Vector; Right : in Real_Arraysdot .Real_Vector) return Complex_Vector; function "-" (Left : in Real_Arraysdot .Real_Vector; Right : in Complex_Vector) return Complex_Vector; function "-" (Left : in Complex_Vector; Right : in Real_Arraysdot .Real_Vector) return Complex_Vector; function "*" (Left : in Real_Arraysdot .Real_Vector; Right : in Complex_Vector) return Complex_Typesdot .Complex; function "*" (Left : in Complex_Vector; Right : in Real_Arraysdot .Real_Vector) return Complex_Typesdot .Complex; Complex_Vector scaling operations function "*" (Left : in Complex_Typesdot .Complex; Right : in Complex_Vector) return Complex_Vector; function "*" (Left : in Complex_Vector; Right : in Complex_Typesdot .Complex) return Complex_Vector; function "/" (Left : in Complex_Vector; Right : in Complex_Typesdot .Complex) return Complex_Vector; function "*" (Left : in Real_Arraysdot .Real'Base; Right : in Complex_Vector) return Complex_Vector; function "*" (Left : in Complex_Vector; Right : in Real_Arraysdot .Real'Base) return Complex_Vector; function "/" (Left : in Complex_Vector; Right : in Real_Arraysdot .Real'Base) return Complex_Vector; Other Complex_Vector operations function Unit_Vector (Index : in Integer; Order : in Positive; First : in Integer := 1) return Complex_Vector; Subprograms for Complex_Matrix types Complex_Matrix selection, conversion and composition operations function Re (X : in Complex_Matrix) return Real_Arraysdot .Real_Matrix; function Im (X : in Complex_Matrix) return Real_Arraysdot .Real_Matrix; procedure Set_Re (X : in out Complex_Matrix; Re : in Real_Arraysdot .Real_Matrix); procedure Set_Im (X : in out Complex_Matrix; Im : in Real_Arraysdot .Real_Matrix); function Compose_From_Cartesian (Re : in Real_Arraysdot .Real_Matrix) return Complex_Matrix; function Compose_From_Cartesian (Re : in Real_Arraysdot .Real_Matrix; Im : in Real_Arraysdot .Real_Matrix) return Complex_Matrix; function Modulus (X : in Complex_Matrix) return Real_Arraysdot .Real_Matrix; function "abs" (Right : in Complex_Matrix) return Real_Arraysdot .Real_Matrix renames Modulus; function Argument (X : in Complex_Matrix) return Real_Arraysdot .Real_Matrix; function Argument (X : in Complex_Matrix; Cycle : in Real_Arraysdot .Real'Base) return Real_Arraysdot .Real_Matrix; function Compose_From_Polar (Modulus : in Real_Arraysdot .Real_Matrix; Argument : in Real_Arraysdot .Real_Matrix) return Complex_Matrix; function Compose_From_Polar (Modulus : in Real_Arraysdot .Real_Matrix; Argument : in Real_Arraysdot .Real_Matrix; Cycle : in Real_Arraysdot .Real'Base) return Complex_Matrix; Complex_Matrix arithmetic operations function "+" (Right : in Complex_Matrix) return Complex_Matrix; function "-" (Right : in Complex_Matrix) return Complex_Matrix; function Conjugate (X : in Complex_Matrix) return Complex_Matrix; function Transpose (X : in Complex_Matrix) return Complex_Matrix; function "+" (Left : in Complex_Matrix; Right : in Complex_Matrix) return Complex_Matrix; function "-" (Left : in Complex_Matrix; Right : in Complex_Matrix) return Complex_Matrix; function "*" (Left : in Complex_Matrix; Right : in Complex_Matrix) return Complex_Matrix; function "*" (Left : in Complex_Vector; Right : in Complex_Vector) return Complex_Matrix; function "*" (Left : in Complex_Vector; Right : in Complex_Matrix) return Complex_Vector; function "*" (Left : in Complex_Matrix; Right : in Complex_Vector) return Complex_Vector; Mixed Real_Arrays.Real_Matrix and Complex_Matrix arithmetic operations function "+" (Left : in Real_Arraysdot .Real_Matrix; Right : in Complex_Matrix) return Complex_Matrix; function "+" (Left : in Complex_Matrix; Right : in Real_Arraysdot .Real_Matrix) return Complex_Matrix; function "-" (Left : in Real_Arraysdot .Real_Matrix; Right : in Complex_Matrix) return Complex_Matrix; function "-" (Left : in Complex_Matrix; Right : in Real_Arraysdot .Real_Matrix) return Complex_Matrix; function "*" (Left : in Real_Arraysdot .Real_Matrix; Right : in Complex_Matrix) return Complex_Matrix; function "*" (Left : in Complex_Matrix; Right : in Real_Arraysdot .Real_Matrix) return Complex_Matrix; function "*" (Left : in Real_Arraysdot .Real_Vector; Right : in Complex_Vector) return Complex_Matrix; function "*" (Left : in Complex_Vector; Right : in Real_Arraysdot .Real_Vector) return Complex_Matrix; function "*" (Left : in Real_Arraysdot .Real_Vector; Right : in Complex_Matrix) return Complex_Vector; function "*" (Left : in Complex_Vector; Right : in Real_Arraysdot .Real_Matrix) return Complex_Vector; function "*" (Left : in Real_Arraysdot .Real_Matrix; Right : in Complex_Vector) return Complex_Vector; function "*" (Left : in Complex_Matrix; Right : in Real_Arraysdot .Real_Vector) return Complex_Vector; Complex_Matrix scaling operations function "*" (Left : in Complex_Typesdot .Complex; Right : in Complex_Matrix) return Complex_Matrix; function "*" (Left : in Complex_Matrix; Right : in Complex_Typesdot .Complex) return Complex_Matrix; function "/" (Left : in Complex_Matrix; Right : in Complex_Typesdot .Complex) return Complex_Matrix; function "*" (Left : in Real_Arraysdot .Real'Base; Right : in Complex_Matrix) return Complex_Matrix; function "*" (Left : in Complex_Matrix; Right : in Real_Arraysdot .Real'Base) return Complex_Matrix; function "/" (Left : in Complex_Matrix; Right : in Real_Arraysdot .Real'Base) return Complex_Matrix; Complex_Matrix inversion and related operations function Solve (A : in Complex_Matrix; X : in Complex_Vector) return Complex_Vector; function Solve (A : in Complex_Matrix; X : in Complex_Matrix) return Complex_Matrix; function Inverse (A : in Complex_Matrix) return Complex_Matrix; function Determinant (A : in Complex_Matrix) return Complex_Typesdot .Complex; Eigenvalues and vectors of a Hermitian matrix function Eigenvalues (A : in Complex_Matrix) return Real_Arraysdot .Real_Vector; procedure Eigensystem (A : in Complex_Matrix; Values : out Real_Arraysdot .Real_Vector; Vectors : out Complex_Matrix); Other Complex_Matrix operations function Unit_Matrix (Order : in Positive; First_1 : in Integer := 1; First_2 : in Integer := 1) return Complex_Matrix; end Adadot .Numericsdot .Generic_Complex_Arrays; See also Wikibook Ada Programming/Libraries/Ada Ada Reference Manual Ada 2005 G 3 2 Complex Vectors and Matrices Ada 2012 G 3 2 Complex Vectors and Matrices Open-Source Implementations a-ngcoar.ads a-ngcoar.adb numerics/a-ngcoar.ads numerics/a-ngcoar.adb