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

> A[0]:=matrix(1,4,[-6/l^2,-4/l,6/l^2,-2/l]);
> 

                      [   6                6           ]
              A[0] := [- ----    - 4/l    ----    - 2/l]
                      [    2                2          ]
                      [   l                l           ]

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

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

> A[2]:=matrix(1,4,[6/l^2,2/l,-6/l^2,4/l]);
> 

                        [ 6                6         ]
                A[2] := [----    2/l    - ----    4/l]
                        [  2                2        ]
                        [ l                l         ]

> M[0]:=multiply(transpose(A[0]),A[0]):
> M[1]:=multiply(transpose(A[1]),A[1]):
> M[2]:=multiply(transpose(A[2]),A[2]):
> K:=(EI*l/6)*(M[0]+4*M[1]+M[2]);
> 

                 K := 1/6 EI l (M[0] + 4 M[1] + M[2])

> K:=(2*EI/l^3)*evalm((l^4/12)*(M[0]+4*M[1]+M[2]));
> 

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

# Dieses Ergebnis stimmt mit der Steifigkeitsmatrix in (6.69b) und
# (3.95) in Band 1 berein.
