> with(linalg):
> A:=matrix(4,4,[[752, -388, 0, 0], [-388, 752, -388, 0], [ 0, -388,
> 752, -388], [0, 0, -388, 376]]);

                      [ 752    -388       0       0]
                      [                            ]
                      [-388     752    -388       0]
                 A := [                            ]
                      [   0    -388     752    -388]
                      [                            ]
                      [   0       0    -388     376]

> a:=vector([6,12,18,11]);

                         a := [6, 12, 18, 11]

> Y:=linsolve(A,a);

                [39591551   36881759  97431549   26540255]
           Y := [---------, --------, ---------, --------]
                [192100228  96050114  192100228  48025057]

> y[2]:=evalf(Y[1]);  y[3]:=evalf(Y[2]);  y[4] :=evalf(Y[3]); 
> y[5]:=evalf(Y[4]);

                         y[2] := 0.2060984071


                         y[3] := 0.3839845417


                         y[4] := 0.5071912200


                         y[5] := 0.5526334930

> 
> 
