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

> M:=matrix(2,2,[[m[2],0],[0,m[3]]]);

                              [m[2]     0  ]
                         M := [            ]
                              [ 0      m[3]]

> M:=subs(m[2]=2,m[3]=3,%);

                                 [2    0]
                            M := [      ]
                                 [0    3]

> K:=matrix(2,2,[[k[1]+k[2],-k[2]],[-k[2],k[2]+k[3]]]);

                       [k[1] + k[2]       -k[2]   ]
                  K := [                          ]
                       [   -k[2]       k[2] + k[3]]

> K:=subs(k[1]=1,k[2]=2,k[3]=3,%);
> 

                                [ 3    -2]
                           K := [        ]
                                [-2     5]

> evalf(solve(cp=0,lambda));
> X:=matrix(2,1,[[u[2](t)],[u[3](t)]]);

                                 [u[2](t)]
                            X := [       ]
                                 [u[3](t)]

# Mit den angenommen Zahlenwerten fr die Massen und die Federkonstanten
# erhlt man das folgende System von Differentialgleichungen:
> System:=2*diff(u[2](t),t$2)+3*u[2](t)-2*u[3](t)=0,                    
>               3*diff(u[3](t),t$2)-2*u[2](t)+5*u[3](t)=0;

              / 2         \
              |d          |
  System := 2 |--- u[2](t)| + 3 u[2](t) - 2 u[3](t) = 0,
              |  2        |
              \dt         /

          / 2         \
          |d          |
        3 |--- u[3](t)| - 2 u[2](t) + 5 u[3](t) = 0
          |  2        |
          \dt         /

> initvals:=u[2](0)=2, u[3](0)=3, D(u[2])(0)=0, D(u[3])(0)=0:
> funcs:={u[2](t), u[3](t)}:
> simplify(evalf(dsolve({System,initvals},funcs)));

  {u[2](t) = 2.929157714 cos(0.8732669600 t)

         - 0.9291577138 cos(1.550506848 t), u[3](t) =

        2.159975008 cos(0.8732669600 t)

         + 0.8400249926 cos(1.550506848 t)}

> plot({0.8400249926*cos(1.550506848*t)+2.159975008*cos(.8732669600*t),
>  -.9291577138*cos(1.550506848*t)+2.929157714*cos(.8732669600*t)},t=0..
> 10,-4..4,numpoints=100,color=black);

> 
> 
