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

# Steifigkeitsmatrix im lokalen Koordinatensystem [k] 
> k:=(EA/l)*matrix(2,2,[1,-1,-1,1]); 

                                  [ 1    -1]
                               EA [        ]
                                  [-1     1]
                          k := -------------
                                     l

# und Transformationsmatrix [T]:
> T:=matrix(2,4,[c,s,0,0,0,0,c,s]);

                            [c    s    0    0]
                       T := [                ]
                            [0    0    c    s]

# Mit diesen Matrizen erhlt man durch Multiplikationnen die gesuchte
# Steifigkeitsmatrix [K]
# des finiten Stabelementes bezglich des globalen Koordinatensystems:
> K:=(EA/l)*evalm((multiply(transpose(T),k,T))*l/(EA));

                        [  2               2         ]
                        [ c      c s     -c      -c s]
                        [                            ]
                        [          2               2 ]
                        [c s      s      -c s    -s  ]
                     EA [                            ]
                        [  2               2         ]
                        [-c      -c s     c      c s ]
                        [                            ]
                        [          2               2 ]
                        [-c s    -s      c s      s  ]
                K := ---------------------------------
                                     l

# Dieses Ergebnis stimmt mit Gleichung (3.53) und mit der bung 6.1.3
# berein!
> 
> 
