4 #ifndef DUNE_FMATRIX_HH
5 #define DUNE_FMATRIX_HH
32 template<
class K,
int ROWS,
int COLS >
class FieldMatrix;
34 template<
class K,
int ROWS,
int COLS >
50 template<
class K,
int ROWS,
int COLS >
65 template<
class K,
int ROWS,
int COLS>
93 template<
class Other >
96 DenseMatrixAssigner< FieldMatrix< K, ROWS, COLS >, Other >::apply( *
this, other );
100 using Base::operator=;
113 (*
this)[i][j] += M[i][k]*C[k][j];
130 C[i][j] += M[i][k]*(*
this)[k][j];
145 (*
this)[i][j] += C[i][k]*M[k][j];
160 C[i][j] += (*
this)[i][k]*M[k][j];
183 #ifndef DOXYGEN // hide specialization
187 class FieldMatrix<K,1,1> :
public DenseMatrix< FieldMatrix<K,1,1> >
189 FieldVector<K,1> _data;
190 typedef DenseMatrix< FieldMatrix<K,1,1> > Base;
233 template<
class Other >
236 DenseMatrixAssigner< FieldMatrix< K, 1, 1 >, Other >::apply( *
this, other );
245 FieldMatrix<K,l,1> C;
247 C[j][0] = M[j][0]*(*
this)[0][0];
262 FieldMatrix<K,1,l> C;
265 C[0][j] = M[0][j]*_data[0];
315 operator K ()
const {
return _data[0]; }
321 std::ostream& operator<< (std::ostream& s, const FieldMatrix<K,1,1>& a)
329 namespace FMatrixHelp {
332 template <
typename K>
335 inverse[0][0] = 1.0/matrix[0][0];
340 template <
typename K>
348 template <
typename K>
352 K det = (matrix[0][0]*matrix[1][1] - matrix[0][1]*matrix[1][0]);
354 inverse[0][0] = matrix[1][1] * det_1;
355 inverse[0][1] = - matrix[0][1] * det_1;
356 inverse[1][0] = - matrix[1][0] * det_1;
357 inverse[1][1] = matrix[0][0] * det_1;
363 template <
typename K>
367 K det = (matrix[0][0]*matrix[1][1] - matrix[0][1]*matrix[1][0]);
369 inverse[0][0] = matrix[1][1] * det_1;
370 inverse[1][0] = - matrix[0][1] * det_1;
371 inverse[0][1] = - matrix[1][0] * det_1;
372 inverse[1][1] = matrix[0][0] * det_1;
377 template <
typename K>
381 K t4 = matrix[0][0] * matrix[1][1];
382 K t6 = matrix[0][0] * matrix[1][2];
383 K t8 = matrix[0][1] * matrix[1][0];
384 K t10 = matrix[0][2] * matrix[1][0];
385 K t12 = matrix[0][1] * matrix[2][0];
386 K t14 = matrix[0][2] * matrix[2][0];
388 K det = (t4*matrix[2][2]-t6*matrix[2][1]-t8*matrix[2][2]+
389 t10*matrix[2][1]+t12*matrix[1][2]-t14*matrix[1][1]);
392 inverse[0][0] = (matrix[1][1] * matrix[2][2] - matrix[1][2] * matrix[2][1])*t17;
393 inverse[0][1] = -(matrix[0][1] * matrix[2][2] - matrix[0][2] * matrix[2][1])*t17;
394 inverse[0][2] = (matrix[0][1] * matrix[1][2] - matrix[0][2] * matrix[1][1])*t17;
395 inverse[1][0] = -(matrix[1][0] * matrix[2][2] - matrix[1][2] * matrix[2][0])*t17;
396 inverse[1][1] = (matrix[0][0] * matrix[2][2] - t14) * t17;
397 inverse[1][2] = -(t6-t10) * t17;
398 inverse[2][0] = (matrix[1][0] * matrix[2][1] - matrix[1][1] * matrix[2][0]) * t17;
399 inverse[2][1] = -(matrix[0][0] * matrix[2][1] - t12) * t17;
400 inverse[2][2] = (t4-t8) * t17;
406 template <
typename K>
410 K t4 = matrix[0][0] * matrix[1][1];
411 K t6 = matrix[0][0] * matrix[1][2];
412 K t8 = matrix[0][1] * matrix[1][0];
413 K t10 = matrix[0][2] * matrix[1][0];
414 K t12 = matrix[0][1] * matrix[2][0];
415 K t14 = matrix[0][2] * matrix[2][0];
417 K det = (t4*matrix[2][2]-t6*matrix[2][1]-t8*matrix[2][2]+
418 t10*matrix[2][1]+t12*matrix[1][2]-t14*matrix[1][1]);
421 inverse[0][0] = (matrix[1][1] * matrix[2][2] - matrix[1][2] * matrix[2][1])*t17;
422 inverse[1][0] = -(matrix[0][1] * matrix[2][2] - matrix[0][2] * matrix[2][1])*t17;
423 inverse[2][0] = (matrix[0][1] * matrix[1][2] - matrix[0][2] * matrix[1][1])*t17;
424 inverse[0][1] = -(matrix[1][0] * matrix[2][2] - matrix[1][2] * matrix[2][0])*t17;
425 inverse[1][1] = (matrix[0][0] * matrix[2][2] - t14) * t17;
426 inverse[2][1] = -(t6-t10) * t17;
427 inverse[0][2] = (matrix[1][0] * matrix[2][1] - matrix[1][1] * matrix[2][0]) * t17;
428 inverse[1][2] = -(matrix[0][0] * matrix[2][1] - t12) * t17;
429 inverse[2][2] = (t4-t8) * t17;
435 template<
class K,
int m,
int n,
int p >
442 for( size_type i = 0; i < m; ++i )
444 for( size_type j = 0; j < p; ++j )
446 ret[ i ][ j ] = K( 0 );
447 for( size_type k = 0; k < n; ++k )
448 ret[ i ][ j ] += A[ i ][ k ] * B[ k ][ j ];
454 template <
typename K,
int rows,
int cols>
459 for(size_type i=0; i<cols; i++)
460 for(size_type j=0; j<cols; j++)
463 for(size_type k=0; k<rows; k++)
464 ret[i][j]+=matrix[k][i]*matrix[k][j];
470 template <
typename K,
int rows,
int cols>
475 for(size_type i=0; i<rows; ++i)
478 for(size_type j=0; j<cols; ++j)
480 ret[i] += matrix[i][j]*x[j];
489 template <
typename K,
int rows,
int cols>
494 for(size_type i=0; i<cols; ++i)
497 for(size_type j=0; j<rows; ++j)
498 ret[i] += matrix[j][i]*x[j];
503 template <
typename K,
int rows,
int cols>
512 template <
typename K,
int rows,
int cols>