1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
// File: GeomFill_Tensor.cxx
// Created: Thu Dec 5 09:52:07 1996
// Author: Philippe MANGIN
// <pmn@sgi29>
#include <GeomFill_Tensor.ixx>
GeomFill_Tensor::GeomFill_Tensor(const Standard_Integer NbRow,
const Standard_Integer NbCol,
const Standard_Integer NbMat) :
Tab(1,NbRow*NbMat*NbCol),
nbrow( NbRow ),
nbcol( NbCol ),
nbmat( NbMat ),
nbmtcl( NbMat*NbCol )
{
}
void GeomFill_Tensor::Init(const Standard_Real InitialValue)
{
// Standard_Integer I, T = nbrow * nbcol * nbmat;
// for (I=1; I<=T; I++) {Tab(I) = InitialValue;}
Tab.Init(InitialValue);
}
void GeomFill_Tensor::Multiply(const math_Vector& Right,
math_Matrix& M) const
{
Standard_Integer i, j, k;
Standard_Real Somme;
for ( i=1; i<=nbrow; i++)
{
for ( j=1; j<=nbcol; j++)
{
Somme = 0;
for ( k=1; k<=nbmat; k++)
{
Somme += Value(i,j,k)*Right(k);
}
M(i,j) = Somme;
}
}
}
|
