Example 3. Use the improved Gauss-Jordan elimination subroutine with row interchanges to solve [Graphics:Images/GaussianJordanMod_gr_89.gif].  
Use the matrix A and vector B in Example 2.

Solution 3.

[Graphics:../Images/GaussianJordanMod_gr_90.gif]




[Graphics:../Images/GaussianJordanMod_gr_91.gif]

[Graphics:../Images/GaussianJordanMod_gr_92.gif]

[Graphics:../Images/GaussianJordanMod_gr_93.gif]

[Graphics:../Images/GaussianJordanMod_gr_94.gif]

[Graphics:../Images/GaussianJordanMod_gr_95.gif]

[Graphics:../Images/GaussianJordanMod_gr_96.gif]

Perform Gauss-Jordan elimination with row interchanges.

[Graphics:../Images/GaussianJordanMod_gr_97.gif]




[Graphics:../Images/GaussianJordanMod_gr_98.gif]

[Graphics:../Images/GaussianJordanMod_gr_99.gif]

[Graphics:../Images/GaussianJordanMod_gr_100.gif]

[Graphics:../Images/GaussianJordanMod_gr_101.gif]

Verify the solution.

[Graphics:../Images/GaussianJordanMod_gr_102.gif]




[Graphics:../Images/GaussianJordanMod_gr_103.gif]

[Graphics:../Images/GaussianJordanMod_gr_104.gif]

[Graphics:../Images/GaussianJordanMod_gr_105.gif]

[Graphics:../Images/GaussianJordanMod_gr_106.gif]

[Graphics:../Images/GaussianJordanMod_gr_107.gif]

We are done.

Aside.  We can compare our answer with the answer obtained by using Mathematica's built in  RowReduce  procedure.  

[Graphics:../Images/GaussianJordanMod_gr_108.gif]



[Graphics:../Images/GaussianJordanMod_gr_109.gif]

[Graphics:../Images/GaussianJordanMod_gr_110.gif]

[Graphics:../Images/GaussianJordanMod_gr_111.gif]

This agrees with our answer that was obtained with our subroutine GaussJordan[M,3].   

Aside.  We can compute the solution X with Mathematica's "LinearSolve" procedure.

[Graphics:../Images/GaussianJordanMod_gr_112.gif]



[Graphics:../Images/GaussianJordanMod_gr_113.gif]

[Graphics:../Images/GaussianJordanMod_gr_114.gif]

[Graphics:../Images/GaussianJordanMod_gr_115.gif]

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(c) John H. Mathews 2004