This is the script referenced in step 9 of ISQC Example 6.1 Flow Width New Data Added, in Chapter 3 of the book Douglas Montgomery's Introduction to Statistical Quality Control: A JMP.