Ada 编程/库/Ada.Numerics.Generic Real Arrays
外观
此语言特性仅从 Ada 2005 开始可用。
Ada.Numerics.Generic_Real_Arrays 是 预定义语言环境 自 Ada 2005 以来的一部分。
-- Standard Ada library specification -- Copyright (c) 2003-2018 Maxim Reznik <[email protected]> -- 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 -- -------------------------------------------------------------------------generic
type
Realis
digits
<>;package
Ada.Numerics.Generic_Real_Arraysis
pragma
Pure (Generic_Real_Arrays); -- Typestype
Real_Vectoris
array
(Integerrange
<>)of
Real'Base;type
Real_Matrixis
array
(Integerrange
<>, Integerrange
<>)of
Real'Base; -- Subprograms for Real_Vector types -- Real_Vector arithmetic operationsfunction
"+" (Right :in
Real_Vector)return
Real_Vector;function
"-" (Right :in
Real_Vector)return
Real_Vector;function
"abs" (Right :in
Real_Vector)return
Real_Vector;function
"+" (Left :in
Real_Vector; Right : Real_Vector)return
Real_Vector;function
"-" (Left :in
Real_Vector; Right : Real_Vector)return
Real_Vector;function
"*" (Left :in
Real_Vector; Right : Real_Vector)return
Real'Base;function
"abs" (Right :in
Real_Vector)return
Real'Base; -- Real_Vector scaling operationsfunction
"*" (Left :in
Real'Base; Right :in
Real_Vector)return
Real_Vector;function
"*" (Left :in
Real_Vector; Right :in
Real'Base)return
Real_Vector;function
"/" (Left :in
Real_Vector; Right :in
Real'Base)return
Real_Vector; -- Other Real_Vector operationsfunction
Unit_Vector (Index :in
Integer; Order :in
Positive; First :in
Integer := 1)return
Real_Vector; -- Subprograms for Real_Matrix types -- Real_Matrix arithmetic operationsfunction
"+" (Right :in
Real_Matrix)return
Real_Matrix;function
"-" (Right :in
Real_Matrix)return
Real_Matrix;function
"abs" (Right :in
Real_Matrix)return
Real_Matrix;function
Transpose (X :in
Real_Matrix)return
Real_Matrix;function
"+" (Left :in
Real_Matrix; Right :in
Real_Matrix)return
Real_Matrix;function
"-" (Left :in
Real_Matrix; Right :in
Real_Matrix)return
Real_Matrix;function
"*" (Left :in
Real_Matrix; Right :in
Real_Matrix)return
Real_Matrix;function
"*" (Left :in
Real_Matrix; Right :in
Real_Vector)return
Real_Matrix;function
"*" (Left :in
Real_Vector; Right :in
Real_Matrix)return
Real_Vector;function
"*" (Left :in
Real_Matrix; Right :in
Real_Vector)return
Real_Vector; -- Real_Matrix scaling operationsfunction
"*" (Left :in
Real'Base; Right :in
Real_Matrix)return
Real_Matrix;function
"*" (Left :in
Real_Matrix; Right :in
Real'Base)return
Real_Matrix;function
"/" (Left :in
Real_Matrix; Right :in
Real'Base)return
Real_Matrix; -- Real_Matrix inversion and related operationsfunction
Solve (A :in
Real_Matrix; X :in
Real_Vector)return
Real_Vector;function
Solve (A :in
Real_Matrix; X :in
Real_Matrix)return
Real_Matrix;function
Inverse (A :in
Real_Matrix)return
Real_Matrix;function
Determinant (A :in
Real_Matrix)return
Real'Base; -- Eigenvalues and vectors of a real symmetric matrixfunction
Eigenvalues (A :in
Real_Matrix)return
Real_Vector;procedure
Eigensystem (A :in
Real_Matrix; Values :out
Real_Vector; Vectors :out
Real_Matrix); -- Other Real_Matrix operationsfunction
Unit_Matrix (Order : Positive; First_1 : Integer := 1; First_2 : Integer := 1)return
Real_Matrix;end
Ada.Numerics.Generic_Real_Arrays;
外部示例
[编辑源代码]- 在以下位置搜索
Ada.Numerics.Generic_Real_Arrays
的 **示例**: Rosetta Code, GitHub (gists), 任何 Alire 包 或 此维基教科书. - 在以下位置搜索与
Ada.Numerics.Generic_Real_Arrays
相关的 **帖子**: Stack Overflow, comp.lang.ada 或 任何与 Ada 相关的页面.
FSF GNAT
- 规范: a-ngrear.ads
- 主体: a-ngrear.adb
drake