> with(linalg):
Warning, the protected names norm and trace have been redefined and
unprotected

> Formfunktionen:=matrix(1,2,[N[1],N[2]]);

                   Formfunktionen := [N[1]    N[2]]

> J:=multiply(transpose(Formfunktionen),Formfunktionen):
> Massenmatrix:=Int(rho*evalm(J),V);

                           /     [      2               ]
                          |      [  N[1]       N[1] N[2]]
         Massenmatrix :=  |  rho [                      ] dV
                          |      [                   2  ]
                         /       [N[1] N[2]      N[2]   ]

> N[1] := xi -> 1-xi;

                         N[1] := xi -> 1 - xi

> N[2] := xi -> xi;

                           N[2] := xi -> xi

> p := map(int,J(xi),xi=0..1); 

                               [1/3    1/6]
                          p := [          ]
                               [1/6    1/3]

> Massenmatrix:=(rho*A*l)/6*evalm(6*p);

                                             [2    1]
                 Massenmatrix := 1/6 rho A l [      ]
                                             [1    2]

> 
> 
