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

# Punktmatrix fr Einzelmasse:
> P:=matrix(4,4,[1,0,0,0,  0,1,0,0,  0,0,1,0,  m*omega^2,0,0,1]):
# Feldmatrix fr Balkenelement:
> F:=matrix(4,4,[1,l,l^2/2/EI,l^3/6/EI, 0,1,l/EI,l^2/2/EI,0,0,1,l, 
> 0,0,0,1]):
# Die Masse liege am rechten Balkenende. Die bertragungsrichtung sei
# von links nach rechts festgelegt. Dann ergibt sich die
# bertragungsmatrix [U] zu:
> U:=multiply(P,F);

          [                                 2                 3 ]
          [                                l                 l  ]
          [1 ,             l ,            ---- ,            ----]
          [                               2 EI              6 EI]
          [                                                     ]
          [                                                   2 ]
          [                                l                 l  ]
     U := [0 ,             1 ,            ---- ,            ----]
          [                                EI               2 EI]
          [                                                     ]
          [0 ,               0 ,              1 ,              l]
          [                                                     ]
          [                               2  2          2  3    ]
          [       2          2     m omega  l    m omega  l     ]
          [m omega  , m omega  l , ----------- , ----------- + 1]
          [                           2 EI          6 EI        ]

# Kehrt man die bertragungsrichtung um, so erhlt man folgende
# bertragungsmatrix:
> U:=multiply(inverse(F),inverse(P));

                [       2  3                 2          3 ]
                [m omega  l                 l          l  ]
                [----------- + 1    -l     ----     - ----]
                [   6 EI                   2 EI       6 EI]
                [                                         ]
                [          2  2                        2  ]
                [   m omega  l               l        l   ]
           U := [ - -----------     1     - ----     ---- ]
                [      2 EI                  EI      2 EI ]
                [                                         ]
                [         2                               ]
                [  m omega  l       0       1         -l  ]
                [                                         ]
                [           2                             ]
                [   -m omega        0       0         1   ]

# Die Zustandsvektoren (Z) wurden folgendermaen definiert:
> transpose(z):=matrix(1,4,[[-w,-phi,M,Q]]);

                transpose(z) := [-w    -phi    M    Q]

> 
> 
