This project involves finishing the Mathematica program which I started. This problem is referenced in the text book as Example 15-2 in chapter 15.
A loop must be added to the program.
The trial value for k is to be replaced by the calculated value of k and then recalculated in the loop, over and over, until the error between the trial value of k and the calculated value of k is less than 0.001.
At this point the k trial value is correct and is the answer.