> with(linalg):# 
# 
> 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,[6/l^2,2/l,-6/l^2,4/l]);
> 

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

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

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

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

                         [18     9 l     -18     9 l ]
                         [                           ]
                         [          2               2]
                         [9 l    5 l     -9 l    4 l ]
                    2 EI [                           ]
                         [-18    -9 l     18     -9 l]
                         [                           ]
                         [          2               2]
                         [9 l    4 l     -9 l    5 l ]
               K := ----------------------------------
                                     3
                                    l

# Dieses Ergebnis weicht stark von der Steifigkeitsmatrix in (6.69b) und
# (3.95) in Band 1 ab und ist daher unbrauchbar.
> 
> 
