mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
d5f74e42d6
License statement text corrected; compiler warnings caused by Bison 2.41 disabled for MSVC; a few other compiler warnings on 54-bit Windows eliminated by appropriate type cast Wrong license statements corrected in several files. Copyright and license statements added in XSD and GLSL files. Copyright year updated in some files. Obsolete documentation files removed from DrawResources.
91 lines
2.8 KiB
Plaintext
91 lines
2.8 KiB
Plaintext
-- Created on: 1991-05-13
|
|
-- Created by: Laurent PAINNOT
|
|
-- Copyright (c) 1991-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
|
|
--
|
|
-- This file is part of Open CASCADE Technology software library.
|
|
--
|
|
-- This library is free software; you can redistribute it and/or modify it under
|
|
-- the terms of the GNU Lesser General Public License version 2.1 as published
|
|
-- by the Free Software Foundation, with special exception defined in the file
|
|
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
|
-- distribution for complete text of the license and disclaimer of any warranty.
|
|
--
|
|
-- Alternatively, this file may be used under the terms of Open CASCADE
|
|
-- commercial license or contractual agreement.
|
|
|
|
class SVD from math
|
|
---Purpose: SVD implements the solution of a set of N linear equations
|
|
-- of M unknowns without condition on N or M. The Singular
|
|
-- Value Decomposition algorithm is used. For singular or
|
|
-- nearly singular matrices SVD is a better choice than Gauss
|
|
-- or GaussLeastSquare.
|
|
|
|
uses Matrix from math,
|
|
Vector from math,
|
|
OStream from Standard
|
|
|
|
raises NotDone from StdFail,
|
|
DimensionError from Standard
|
|
|
|
is
|
|
|
|
Create(A: Matrix)
|
|
---Purpose:
|
|
-- Given as input an n X m matrix A with n < m, n = m or n > m
|
|
-- this constructor performs the Singular Value Decomposition.
|
|
|
|
returns SVD;
|
|
|
|
|
|
IsDone(me)
|
|
---Purpose: Returns true if the computations are successful, otherwise returns false.
|
|
---C++: inline
|
|
returns Boolean
|
|
is static;
|
|
|
|
|
|
Solve(me; B: Vector; X: out Vector; Eps: Real = 1.0e-6)
|
|
---Purpose:
|
|
-- Given the input Vector B this routine solves the set of linear
|
|
-- equations A . X = B.
|
|
-- Exception NotDone is raised if the decomposition of A was not done
|
|
-- successfully.
|
|
-- Exception DimensionError is raised if the range of B is not
|
|
-- equal to the rowrange of A.
|
|
-- Exception DimensionError is raised if the range of X is not
|
|
-- equal to the colrange of A.
|
|
|
|
raises NotDone,
|
|
DimensionError
|
|
is static;
|
|
|
|
|
|
PseudoInverse(me; Inv : out Matrix; Eps: Real= 1.0e-6)
|
|
---Purpose: Computes the inverse Inv of matrix A such as A * Inverse = Identity.
|
|
-- Exceptions
|
|
-- StdFail_NotDone if the algorithm fails (and IsDone returns false).
|
|
-- Standard_DimensionError if the ranges of Inv are
|
|
-- compatible with the ranges of A.
|
|
|
|
raises NotDone
|
|
is static;
|
|
|
|
|
|
Dump(me; o: in out OStream)
|
|
---Purpose: Prints information on the current state of the object.
|
|
-- Is used to redefine the operator <<.
|
|
|
|
is static;
|
|
|
|
|
|
fields
|
|
|
|
Done: Boolean;
|
|
U: Matrix;
|
|
V: Matrix;
|
|
Diag: Vector;
|
|
RowA: Integer;
|
|
|
|
end SVD;
|