Example 3.  Find the "least squares cubic" that for the four data points[Graphics:Images/CholeskyMod_gr_185.gif].   

Solution 3.

(a). Write down the linear system AC = B to be solved.

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



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

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

(b).  Construct the Cholesky factorization of matrix A.

Invoke the subroutine Cholesky.  

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



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

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

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

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

Verify the factorization.

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



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

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

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

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

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

(c). Solve the linear system for the coefficients [Graphics:../Images/CholeskyMod_gr_200.gif] using our  ForeSub[n]  and  [BackSub[n]  subroutines.

First, solve the lower-triangular system    LY = B  for  Y.

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



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

Verify that  LY = B.

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



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

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

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

Second, solve the upper-triangular system    UX = Y  for  X.

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



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

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

Verify that  UX = Y.  

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



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

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

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

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

Therefore X is the solution to  LUX = B. and hence AX = B
And we can verify that it is the solution.

 

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

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

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

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

Now use the solution to X make the coefficients  [Graphics:../Images/CholeskyMod_gr_219.gif].

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


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

(d). Construct the polynomial  p[x].  The coefficients are stored in the array  c  and the elements are [Graphics:../Images/CholeskyMod_gr_222.gif].

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


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

Of course we could do all this work in two lines by using Mathematica's built in  [Graphics:../Images/CholeskyMod_gr_225.gif]  procedure.

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


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

We are done.

We can graph the polynomial, this is just for fun !

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


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

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

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

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(c) John H. Mathews 2004