c o m p u t e   v a r 1   =   H - h i   . 
 
 c o m p u t e   v a r 2   =   ( H - h i ) / ( H - 1 . 3 )   . 
 
 c o m p u t e   v a r 3   =   D * ( H - h i ) / ( H - 1 . 3 )   . 
 
 c o m p u t e   v a r 4   =   ( ( H - h i ) * ( h i - 1 . 3 ) ) / ( H * * 2 )   . 
 
 c o m p u t e   v a r 5   =   D * ( ( H - h i ) * ( h i - 1 . 3 ) ) / ( H * * 2 )   . 
 
 c o m p u t e   v a r 6   =   ( D * * 2 ) * ( ( H - h i ) * ( h i - 1 . 3 ) ) / ( H * * 2 )   . 
 
 c o m p u t e   v a r 7   =   ( ( H - h i ) * ( h i - 1 . 3 ) * ( 2 * H - h i - 1 . 3 ) ) / ( H * * 3 )   . 
 
 c o m p u t e   v a r 8   =   1 . 3 / h i   . 
 
 c o m p u t e   v a r 9   =   ( D * * 2 ) * H   . 
 
 c o m p u t e   v a r 1 0   =   1 / ( ( D * * 2 ) * H )   . 
 
 c o m p u t e   v a r 1 1   =   a b s ( ( H   -   h i   ) /   ( H   -   1 . 3 ) )   . 
 
 c o m p u t e   v a r 1 2   =   d h i / D   . 
 
 c o m p u t e   v a r 1 3   =   h i / H   . 
 
 c o m p u t e   v a r 1 4   =   ( H - h i ) / H   . 
 
 c o m p u t e   v a r 1 5   =   ( ( H * * 2 - h i * * 2 ) * h i ) / ( H * * 2 - D )   . 
 
 c o m p u t e   v a r 1 6   =   ( ( H * * 2 - h i * * 2 ) * ( h i - 1 . 3 ) ) / H * * 2   . 
 
 c o m p u t e   v a r 1 7   =   ( ( H - h i ) * h i ) / D   . 
 
 c o m p u t e   v a r 1 8   =   ( H * ( H - h i ) * h i ) / D   . 
 
 c o m p u t e   v a r 1 9   =   ( ( H - h i ) * h i * ( H + h i + 1 . 3 ) ) / D   . 
 
 c o m p u t e   v a r 2 0   =   ( h i / H ) * * 2   . 
 
 c o m p u t e   v a r 2 1   =   ( h i / H ) * * 3   . 
 
 c o m p u t e   v a r 2 2   =   ( h i / H ) * * 4   . 
 
 c o m p u t e   v a r 2 3   =   ( h i / H ) * * 5   . 
 
 c o m p u t e   v a r 2 4   =   ( h i / H ) * * 6   . 
 
 c o m p u t e   v a r 2 5   =   ( h i / H ) * * 7   . 
 
 c o m p u t e   v a r 2 6   =   ( h i / H ) * * 8   . 
 
 c o m p u t e   v a r 2 7   =   ( ( H - h i ) / ( H - 1 . 3 ) ) * * ( 3 / 2 )   . 
 
 c o m p u t e   v a r 2 8   =   ( ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * ( 3 / 2 ) ) - ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * 3 ) ) * H   . 
 
 c o m p u t e   v a r 2 9   =   ( ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * ( 3 / 2 ) ) - ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * 3 ) ) * D * H   . 
 
 c o m p u t e   v a r 3 0   =   ( ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * ( 3 / 2 ) ) - ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * 3 0 ) ) * D   . 
 
 c o m p u t e   v a r 3 1   =   ( ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * ( 3 / 2 ) ) - ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * 3 0 ) ) * D * H   . 
 
 c o m p u t e   v a r 3 2   =   ( d h i / D ) * * 2   . 
 
 c o m p u t e   v a r 3 3   =   ( ( H - h i ) / ( H - 1 . 3 ) ) * * 6   . 
 
 c o m p u t e   v a r 3 4   =   D / H   . 
 
 c o m p u t e   v a r 3 5   =   ( ( H - h i ) / ( H - 1 . 3 ) ) * ( D / H )   . 
 
 c o m p u t e   v a r 3 6   =   ( ( H - h i ) / ( H - 1 . 3 ) ) * ( ( D / H ) * * 2 )   . 
 
 c o m p u t e   v a r 3 7   =   1 / h i   . 
 
 c o m p u t e   v a r 3 8   =   ( h i / H ) - 1   . 
 
 c o m p u t e   v a r 3 9   =   s i n ( 2 * 3 . 1 4 * ( h i / H ) )   . 
 
 c o m p u t e   v a r 4 0   =   ( c o s ( ( 3 . 1 4 * ( h i / H ) ) / 2 ) ) / ( s i n ( ( 3 . 1 4 * ( h i / H ) ) / 2 ) )   . 
 
 c o m p u t e   v a r 4 1   =   ( L N ( S I N ( ( 3 . 1 4 * h i ) / ( 2 * H ) ) ) ) / ( l n ( s i n ( ( 3 . 1 4 * 1 . 3 ) / ( 2 * H ) ) ) )   . 
 
 c o m p u t e   v a r 4 2   =   s i n ( h i / H )   . 
 
 c o m p u t e   v a r 4 3   =   s i n ( 2 * ( h i / H ) )   . 
 
 c o m p u t e   v a r 4 4   =   s i n ( 3 * ( h i / H ) )   . 
 
 c o m p u t e   v a r 4 5   =   c o s ( h i / H )   . 
 
 c o m p u t e   v a r 4 6   =   c o s ( 2 * ( h i / H ) )   . 
 
 c o m p u t e   v a r 4 7   =   c o s ( 3 * ( h i / H ) )   . 
 
 c o m p u t e   v a r 4 8   =   s i n ( ( 3 . 1 4 * h i ) / ( 2 * H ) )   . 
 
 c o m p u t e   v a r 4 9   =   c o s ( ( 3 * 3 . 1 4 * h i ) / ( 2 * H ) )   . 
 
 c o m p u t e   v a r 5 0   =   ( h i * ( s i n ( ( 3 . 1 4 * H ) / ( 2 * h i ) ) ) ) / ( h i / H )   . 
 
 c o m p u t e   v a r 5 1   =   ( h i / H ) * s q r t ( D )   . 
 
 c o m p u t e   v a r 5 2   =   ( h i / H ) * s q r t ( H )   . 
 
 c o m p u t e   v a r 5 3   =   ( ( ( H - h i ) / ( H - 1 . 3 ) ) * * 2 ) * ( D / H )   . 
 
 T I T L E " E Q U A T I O N   1 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / D E P E N D E N T   d h i   / M E T H O D =   
 
     E N T E R   h i . 
 
 T I T L E " E Q U A T I O N   2 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N   / D E P E N D E N T   d h i 
 
     / M E T H O D = E N T E R   v a r 1 . 
 
 T I T L E " E Q U A T I O N   3 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / D E P E N D E N T   d h i       
 
     / M E T H O D = S T E P W I S E   D   H   v a r 1 3 . 
 
 T I T L E " E Q U A T I O N   4 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N   
 
     / D E P E N D E N T   d h i   / M E T H O D = E N T E R   v a r 3   v a r 4   v a r 5   v a r 6   v a r 7 . 
 
 T I T L E " E Q U A T I O N   5 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   b 1 = 1   b 2 = 1   b 3 = 1   a 1 = 1   . 
 
 C O M P U T E   P R E D _   =   b 1 - b 2 * e x p ( - b 3 * h i * * a 1 ) . 
 
 N L R   d h i   / P R E D   P R E D _ . 
 
 T I T L E " E Q U A T I O N   6 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   a 1 = 1   . 
 
 C O M P U T E   P R E D _ 1   =   D   *   ( v a r 8 ) * * a 1 . 
 
 N L R   d h i   / P R E D   P R E D _ 1 . 
 
 T I T L E " E Q U A T I O N   7 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   a 1 = 1   . 
 
 C O M P U T E   P R E D _ 2   =   D   *   ( v a r 2 ) * * a 1 . 
 
 N L R   d h i   / P R E D   P R E D _ 2 . 
 
 T I T L E " E Q U A T I O N   8 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   a 1 = 1   b 1 = 1   . 
 
 C O M P U T E   P R E D _ 3   =   b 1 * D   *   ( v a r 1 1 ) * * a 1 . 
 
 N L R   d h i   / P R E D   P R E D _ 3 . 
 
 T I T L E " E Q U A T I O N   9 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   a 1 = 1   a 2 = 1   a 3 = 1   b 1 = 1   . 
 
 C O M P U T E   P R E D _ 4   =   b 1 * ( D * * a 1 )   *   ( v a r 1 * * a 2 ) * ( H   * *   a 3 ) . 
 
 N L R   d h i   / P R E D   P R E D _ 4 .   
 
 T I T L E " E Q U A T I O N   1 0 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   b 1 = 1   b 2 = 1   b 3 = 1   b 4 = 1   a 1 = 1   a 2 = 1   a 3 = 1   a 4 = 1   . 
 
 C O M P U T E   P R E D _ 5   =   ( b 1 * ( v a r 1 * * a 1 ) * ( D * * a 2 ) * ( ( b 2 + b 3 * v a r 9 + b 4 * v a r 1 0 ) * *   
 
     a 3 ) ) / H * * a 4 . 
 
 N L R   d h i   / P R E D   P R E D _ 5 . 
 
 T I T L E " E Q U A T I O N   1 1 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / D E P E N D E N T   v a r 1 2   / M E T H O D = E N T E R   v a r 1 3 . 
 
 T I T L E " E Q U A T I O N   1 2 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N       
 
     / D E P E N D E N T   v a r 1 2   / M E T H O D = E N T E R   v a r 1 4   v a r 1 5 . 
 
 T I T L E " E Q U A T I O N   1 3 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N   
 
     / D E P E N D E N T   v a r 1 2   / M E T H O D = E N T E R   v a r 3   v a r 1 6 . 
 
 T I T L E " E Q U A T I O N   1 4 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N   
 
     / D E P E N D E N T   v a r 1 2   / M E T H O D = E N T E R   v a r 1 4   v a r 1 7   v a r 1 8   v a r 1 9 . 
 
 T I T L E " E Q U A T I O N   1 5 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N   
 
     / D E P E N D E N T   v a r 1 2   / M E T H O D = E N T E R   v a r 1 3   v a r 2 0   v a r 2 1   v a r 2 2   v a r 2 3   
 
     v a r 2 4   v a r 2 5   v a r 2 6 . 
 
 T I T L E " E Q U A T I O N   1 6 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N   
 
     / D E P E N D E N T   v a r 1 2   / M E T H O D = E N T E R   v a r 2 7   v a r 2 8   v a r 2 9   v a r 3 0   v a r 3 1 . 
 
 T I T L E " E Q U A T I O N   1 7 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / D E P E N D E N T   
 
     v a r 3 2   / M E T H O D = E N T E R   v a r 1 3   v a r 2 0 . 
 
 T I T L E " E Q U A T I O N   1 8 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / D E P E N D E N T   
 
     v a r 3 2   / M E T H O D = E N T E R   v a r 1 3   v a r 2 0   v a r 2 1 . 
 
 T I T L E " E Q U A T I O N   1 9 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   b 1 = 1   a 1 = 1   a 2 = 1 . 
 
 C O M P U T E   P R E D _ 6   = 0 . 3 + b 1 * l n ( 0 . 3 - ( 0 . 3 - ( e x p ( - 0 . 3 / a 1 ) ) * ( v a r 1 3 * *   a 2 ) ) ) . 
 
 N L R   v a r 1 2   / P R E D   P R E D _ 6 .   
 
 T I T L E " E Q U A T I O N   2 0 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   b 1 = 1   b 2 = 1   a 1 = 1   a 2 = 1   . 
 
 C O M P U T E   P R E D _ 7   =   b 1 + b 2 * l n ( 1 - ( v a r 1 3   * *   a 1 ) * ( 1 + ( e x p ( - a 2 ) ) ) ) . 
 
 N L R   v a r 1 2   / P R E D   P R E D _ 7 .   
 
 T I T L E " E Q U A T I O N   2 1 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   b 1 = 1   b 2 = 1   b 3 = 1   b 4 = 1   . 
 
 C O M P U T E   P R E D _ 8   =   v a r 2   * *   ( 1 / ( b 1 + b 2 * v a r 3 3 + b 3 * v a r 3 4 + b 4 * v a r 5 3 ) ) . 
 
 N L R   v a r 1 2   / P R E D   P R E D _ 8 .   
 
 T I T L E " E Q U A T I O N   2 2 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   b 1 = 1   b 2 = 1   b 3 = 1   b 4 = 1   . 
 
 C O M P U T E   P R E D _ 9   =   v a r 2   * *   ( 1   /   ( b 1 + b 2 * v a r 3 4 + b 3 * v a r 3 6 + b 4 * v a r 3 7 ) ) . 
 
 N L R   v a r 1 2   / P R E D   P R E D _ 9 .   
 
 T I T L E " E Q U A T I O N   2 3 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / O R I G I N   
 
     / D E P E N D E N T   v a r 3 2   / M E T H O D = E N T E R   v a r 3 8   v a r 3 9   v a r 4 0 . 
 
 T I T L E " E Q U A T I O N   2 4 " . 
 
 R E G R E S S I O N   / S T A T I S T I C S   A L L   / D E P E N D E N T   v a r 1 2   / M E T H O D = E N T E R   v a r 4 2   v a r 4 3   v a r 4 4   v a r 4 5   v a r 4 6   v a r 4 7 . 
 
 T I T L E " E Q U A T I O N   2 5 " . 
 
 *   N O N L I N E A R   R E G R E S S I O N . 
 
 M O D E L   P R O G R A M   b 1 = 1   b 2 = 1   b 3 = 1   b 4 = 1   b 5 = 1   b 6 = 1   b 7 = 1   . 
 
 C O M P U T E   P R E D _ 1 0   =   v a r 4 1 * * ( 1 / ( b 1 + b 2 * v a r 4 8 + b 3 * v a r 4 9 + b 4 * v a r 5 0 + b 5 * D   
 
     + b 6 * v a r 5 1 + b 7 * v a r 5 2 ) ) . 
 
 N L R   v a r 1 2   / P R E D   P R E D _ 1 0 . 
 
 