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

> A:=matrix(3,3,[[4*R,-3*R,0], [-3*R,15*R, -5*R], [0,-5*R,5*R]]);

                          [4 R     -3 R     0  ]
                          [                    ]
                     A := [-3 R    15 R    -5 R]
                          [                    ]
                          [ 0      -5 R    5 R ]

> a:=matrix(1,3,[V,0,2*V]);x:=matrix(1,3,[I[a],I[b],I[c]]);

                         a := [V    0    2 V]


                     x := [I[a]    I[b]    I[c]]

> X:=transpose(linsolve(A,transpose(a)));

                          [16 V    11 V    117 V]
                     X := [----    ----    -----]
                          [31 R    31 R    155 R]

# Alternativ bitetet Maple zur Lsung des Gleichungssystemsfolgende
# Version an:
> solve({4*R*I[a] - 3*R*I[b]                                            
>      = V ,                    -3*R*I[a] + 15*R*I[b] - 5*R*I[c]        
>                      =0,                                       
> -5*R*I[b]  + 5*R*I[c]                             =2*V},      {I[a],
> I[b], I[c]}); 

                       16 V         11 V         117 V
               {I[a] = ----, I[b] = ----, I[c] = -----}
                       31 R         31 R         155 R

> 
> 
