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

> delta:=matrix(4,4,[1,0,0,0, 0,1,0,0, 0,0,1,0,  0,0,0,1]);

                              [1    0    0    0]
                              [                ]
                              [0    1    0    0]
                     delta := [                ]
                              [0    0    1    0]
                              [                ]
                              [0    0    0    1]

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

                           [0    1     0      0]
                           [                   ]
                           [           1       ]
                           [0    0    ----    0]
                      A := [           EI      ]
                           [                   ]
                           [0    0     0      1]
                           [                   ]
                           [0    0     0      0]

> U:=evalm(delta+x*A+(1/2)*x^2*multiply(A,A)+(1/6)*x^3*multiply(A,A,A));

                         [            2       3 ]
                         [           x       x  ]
                         [1    x    ----    ----]
                         [          2 EI    6 EI]
                         [                      ]
                         [                    2 ]
                    U := [           x       x  ]
                         [0    1    ----    ----]
                         [           EI     2 EI]
                         [                      ]
                         [0    0     1       x  ]
                         [                      ]
                         [0    0     0       1  ]

# mit x = l folgt:
> U:=subs(x=l,%);
> 
> 
> 

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

> 
