> solve({-k[1]*u[2]                                                     
>                  =R[1],            (k[1]+k[2]+k[3])*u[2]    
> -(k[2]+k[3])*u[3]             =0,                  -(k[2]+k[3])*u[2]+
> (k[2]+k[3]+k[4])*u[3] -k[4]*u[4] =0,                                  
>                              -k[4]*u[3]+k[4]*u[4]=F},    {R[1],
> u[2],u[3],u[4]});

          F (k[1] + k[2] + k[3])          F
  {u[3] = ----------------------, u[2] = ----, u[4] = F
            k[1] (k[2] + k[3])           k[1]

        (k[4] k[1] + k[4] k[2] + k[4] k[3] + k[1] k[2] + k[1] k[3])/(

        k[4] k[1] (k[2] + k[3])), R[1] = -F}

> 
> 
