> with(linalg):
> a:=-6/l^2+12*x/l^3: b:=-4/l+6*x/l^2: c:=6/l^2-12*x/l^3:
> d:=-2/l+6*x/l^2:
> f:=matrix(4,4,[[a*a,a*b,a*c,a*d],[b*a,b*b,b*c,b*d],[c*a,c*b,c*c,c*d],[
> d*a,d*b,d*c,d*d]]):
> m:=map(diff,f,x$2):
> Fehlermatrix:=-(1/12)*EI*l^3*m;
> 

                                            3
                                        EI l  m
                      Fehlermatrix := - -------
                                          12

> Fehlermatrix:=-(2*EI/l^3)*evalm((l^6/24)*m);
> 

                                [12     6 l     -12     6 l ]
                                [                           ]
                                [          2               2]
                                [6 l    3 l     -6 l    3 l ]
                           2 EI [                           ]
                                [-12    -6 l     12     -6 l]
                                [                           ]
                                [          2               2]
                                [6 l    3 l     -6 l    3 l ]
         Fehlermatrix := - ----------------------------------
                                            3
                                           l

> 
> 
