Question

Develop a Excel VBA to solve a system of equations via Gauss elimination (with partial pivoting). VBA should be able to read matrices [A] and {b} of different sizes from the excel spreadsheet, and calculations to solve for solution {x} should be done within the VBA and the solution appear in a message box or on the spreadsheet. VBA may also incorporate LU decomposition. Test the VBA with problem 9.18 and 12.15 from the text.

Answer 1

AnSwe Option explicit Private a C0,20) AS Double .b(20) AS double Private i AS in teger ,jAs integer, n AS Private AS integer Private factor As Double Private xc10) AS Double , Sum As Double Sub gaussturkog(uc) numben equations Reading A anb b for J TO O cellsCi) Next bi)Ces (i,n+1) Next i Foruo d elimination foY i To n SteD I Sacto Ya Ci, k } fa (K,k) for +1 TOn CJ Nev bci)bi) - factor * bck).

Next Next le outputing Aanbb forwand elimination Fnr To n cells Cn+,3).valuez aCi,j) Next J Nevt i Back Substitution Cn)bena Cn, n for n-{ To step - | Sumo NextJ Nexi out put X FoY iTon Nev ti E D SUb