HP 33s 16–13, function, Calculates S ⋅ 2π, Checksum and length: 0E12, Checksum and length: FA83, Statistics Programs 16–13, Loops to calculate another

Program Lines:	Description
(In RPN mode)

! !- % !   ! ) ! º6¸@ ! ! !

!  % ! #$ % ! ! 

Adds the correction to yield a new Xguess.

Tests to see if the correction is significant.

Goes back to start of loop if correction is significant. Continues if correction is not significant.

Displays the calculated value of X.

Loops to calculate another X.

Checksum and length: 0E12 63

        %  /   ≥  G    π  º  º  º   ! !  ª  -+.  )  -

This subroutine calculates the upper–tail area Q(x). Recalls the lower limit of integration.

Recalls the upper limit of integration.

Selects the function defined by LBL F for integration. Integrates the normal function using the dummy variable D.

Calculates S ⋅ 2π .Stores result temporarily for inverse routine.

Adds half the area under the curve since we integrated using the mean as the lower limit.

 !	Returns to the calling routine.
Checksum and length: FA83		72
  	This subroutine calculates the integrand for the normal
	function	e−((X −M)⎟S)2 ⎟2

    . 

Statistics Programs 16–13