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