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

> K:=(A*E/4/l)*matrix(5,5,[6,-1,sqrt(3),-1,-sqrt(3),   -1,6,0,-4,0,  
> sqrt(3),0,6,0,0,   -1,-4,0,5,sqrt(3), -sqrt(3),0,0,sqrt(3),3]);

                      [                1/2              1/2]
                      [  6      -1    3        -1     -3   ]
                      [                                    ]
                      [ -1       6     0       -4       0  ]
                      [                                    ]
                      [ 1/2                                ]
                  A E [3         0     6       0        0  ]
                      [                                    ]
                      [                                1/2 ]
                      [ -1      -4     0       5      3    ]
                      [                                    ]
                      [  1/2                   1/2         ]
                      [-3        0     0      3         3  ]
         K := 1/4 ------------------------------------------
                                      l

> f:=vector([0,0,0,0,-F]);

                        f := [0, 0, 0, 0, -F]

> delta:=linsolve(K,f):convert(delta,matrix):
> u[2]:=delta[1];u[3]:=delta[2];v[3]:=delta[3];u[4]:=delta[4];v[4]:=delt
> a[5];

                                     1/2
                                    3    F l
                          u[2] := - --------
                                     6 A E


                                     1/2
                                  7 3    F l
                          u[3] := ----------
                                    12 A E


                                     F l
                            v[3] := ------
                                    12 A E


                                     1/2
                                 11 3    F l
                         u[4] := -----------
                                   12 A E


                                     29 F l
                           v[4] := - ------
                                     12 A E

> solve({sqrt(3)*F/6-7*sqrt(3)*F/12/4-sqrt(3)*F/12/4=X[1],  
> -sqrt(3)*7*sqrt(3)*F/12/4-3*F/12/4=Y[1],       
> sqrt(3)*7*sqrt(3)*F/12/4-3*F/12/4-sqrt(3)*11*sqrt(3)*F/12/4-3*(-1)*29*
> F/12/4=Y[2]}, {X[1],Y[1],Y[2]});

                                                 3 F
                 {X[1] = 0, Y[1] = - F/2, Y[2] = ---}
                                                  2

> 
