Exercise 5.  Observe that the subroutine NewtonSystem involves vector functions and is not dependent on the dimension.
Use the subroutine NewtonSystem to solve the nonlinear system in 3D space:  
        [Graphics:Images/NewtonSystemMod_gr_357.gif]   
        [Graphics:Images/NewtonSystemMod_gr_358.gif]  
        [Graphics:Images/NewtonSystemMod_gr_359.gif]  
Hint.  There are four solutions.  Good starting vectors are [Graphics:Images/NewtonSystemMod_gr_360.gif].  

Solution 5.

First, enter the coordinate functions [Graphics:../Images/NewtonSystemMod_gr_361.gif] and construct the vector function [Graphics:../Images/NewtonSystemMod_gr_362.gif] using Mathematica, and then find the Jacobian matrix [Graphics:../Images/NewtonSystemMod_gr_363.gif].  

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



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

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

[Graphics:../Images/NewtonSystemMod_gr_367.gif]
[Graphics:../Images/NewtonSystemMod_gr_368.gif]
[Graphics:../Images/NewtonSystemMod_gr_369.gif]

Second, graph the curves [Graphics:../Images/NewtonSystemMod_gr_370.gif] and [Graphics:../Images/NewtonSystemMod_gr_371.gif] using Mathematica.  The points of intersection are the solutions we seek.  

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


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

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

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

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

Use the Newton-Raphson method to find a numerical approximation to the solution near [Graphics:../Images/NewtonSystemMod_gr_377.gif].  

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



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

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

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

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

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

A solution to the system satisfies [Graphics:../Images/NewtonSystemMod_gr_384.gif].  Our last approximation is stored in [Graphics:../Images/NewtonSystemMod_gr_385.gif], check it out.  

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


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

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

Use the Newton-Raphson method to find a numerical approximation to the solution near [Graphics:../Images/NewtonSystemMod_gr_389.gif].  

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



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

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

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

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

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

A solution to the system satisfies [Graphics:../Images/NewtonSystemMod_gr_396.gif].  Our last approximation is stored in [Graphics:../Images/NewtonSystemMod_gr_397.gif], check it out.  

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


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

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

Use the Newton-Raphson method to find a numerical approximation to the solution near [Graphics:../Images/NewtonSystemMod_gr_401.gif].  

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



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

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

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

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

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

A solution to the system satisfies [Graphics:../Images/NewtonSystemMod_gr_408.gif].  Our last approximation is stored in [Graphics:../Images/NewtonSystemMod_gr_409.gif], check it out.  

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


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

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

Use the Newton-Raphson method to find a numerical approximation to the solution near [Graphics:../Images/NewtonSystemMod_gr_413.gif].  

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



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

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

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

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

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

A solution to the system satisfies [Graphics:../Images/NewtonSystemMod_gr_420.gif].  Our last approximation is stored in [Graphics:../Images/NewtonSystemMod_gr_421.gif], check it out.  

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


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

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

We are done.

Aside.  We can have Mathematica solve the system analytically.  There is a surprise.

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



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

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

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

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

 

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

 

Since Mathematica performs its solution using complex number arithmetic, the first four solutions are extraneous.
The solutions that we seek are the latter four solutions where x, y, and z are real numbers.  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(c) John H. Mathews 2004