src/BlendFunc/BlendFunc_Tensor.cxx

   1 // Created on: 1996-12-05
   2 // Created by: Philippe MANGIN
   3 // Copyright (c) 1996-1999 Matra Datavision
   4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
   5 //
   6 // This file is part of Open CASCADE Technology software library.
   7 //
   8 // This library is free software; you can redistribute it and/or modify it under
   9 // the terms of the GNU Lesser General Public License version 2.1 as published
  10 // by the Free Software Foundation, with special exception defined in the file
  11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
  12 // distribution for complete text of the license and disclaimer of any warranty.
  13 //
  14 // Alternatively, this file may be used under the terms of Open CASCADE
  15 // commercial license or contractual agreement.
  16
  17
  18 #include <BlendFunc_Tensor.hxx>
  19 #include <math_Matrix.hxx>
  20 #include <math_Vector.hxx>
  21 #include <Standard_DimensionError.hxx>
  22 #include <Standard_RangeError.hxx>
  23 #include <TColStd_Array1OfReal.hxx>
  24
  25 BlendFunc_Tensor::BlendFunc_Tensor(const Standard_Integer NbRow,
  26                                    const Standard_Integer NbCol,
  27                                    const Standard_Integer NbMat) :
  28                                    Tab(1,NbRow*NbMat*NbCol),
  29                                    nbrow( NbRow ),
  30                                    nbcol( NbCol ),
  31                                    nbmat( NbMat ),
  32                                    nbmtcl( NbMat*NbCol )
  33 {
  34 }
  35
  36 void BlendFunc_Tensor::Init(const Standard_Real InitialValue)
  37 {
  38 // Standard_Integer I, T = nbrow * nbcol *  nbmat;
  39 // for (I=1; I<=T; I++) {Tab(I) = InitialValue;}
  40   Tab.Init(InitialValue);
  41 }
  42
  43 void BlendFunc_Tensor::Multiply(const math_Vector& Right,
  44                                 math_Matrix& M) const
  45 {
  46   Standard_Integer i, j, k;
  47   Standard_Real Somme;
  48   for ( i=1; i<=nbrow; i++) {
  49     for ( j=1; j<=nbcol; j++) {
  50        Somme = 0;
  51        for ( k=1; k<=nbmat; k++) {
  52          Somme += Value(i,j,k)*Right(k);
  53        }
  54        M(i,j) = Somme;
  55      }
  56   }
  57 }
  58