> with(linalg):
> A[0]:=matrix(1,4,[0,-1/l,0,1/l]);
> 

                   A[0] := [0    - 1/l    0    1/l]

> M[0]:=multiply(transpose(A[0]),A[0]):
> K[0]:=(EI*l)*M[0];
> 

                          K[0] := EI l M[0]

> K[0]:=(2*EI/l^3)*evalm((l^4/2)*M[0]):
> K[1]:=(2*EI/l^3)*matrix(4,4,[[6,3*l,-6,3*l],[3*l,2*l^2,-3*l,l^2],[-6,-
> 3*l,6,-3*l],[3*l,l^2,-3*l,2*l^2]]):
> Fehlermatrix:=(2*EI/l^3)*evalm((l^3/2/EI)*(K[1]-K[0]));
> 

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

> 
