(15C) Quadratic Regression

[Eddie W. Shore]

Revised code: with comments on user mode.

Code:

#  Label A:   Initialization
001 :  42,21,11 :   LBL A
002 :  42,34 :  CLEAR REG
003 :  42,16, 0 :  MATRIX 0
004 :  0 :   0
005 :  43,32  : RTN

# Label B:  Data Entry and Processing
006 : 42,21,12 :  LBL B
007 : 44, 0 :   STO 0
008 :  43,11 : x^2
009 :  34  :  x<>y
010 :  44, 1  : STO 1
011 :  20  :  ×
012 :  44,40,.0 :  STO+ .0  (# store-add to register point zero)
013 :  45, 0  : RCL 0  
014 :  3 :  3
015 :  14 : y^x
016 :  44,40, 8 :  STO+ 8
017 :  45,20, 0 :  RCL× 0
018 :  44,40, 9 : STO+ 9
019 :  45, 1 : RCL 1
020 :  45, 0 : RCL 0
021 :  49  : Σ+
022 :  43,32 : RTN

# Label C:  Calculation
023 : 42,21,13 : LBL C
024 : 3 :  3
025 : 36 : ENTER
026 : 42,23,11 : DIM A
027 : 42,16, 1 : MATRIX A

# Matrix A - Row 1
# Turn on USER Mode ( [ f ] [ RCL ] (USER))
028 : 45, 2 : RCL 2
029 u 44,11 :  STO A
030 : 45, 3 : RCL 3
031 u 44,11 : STO A
032 :  45, 4 :  RCL 4
033 u 44,11 : STO A

# Matrix A - Row 2
034 : 45, 3 : RCL 3
035 u 44,11 : STO A
036 : 45, 4 :  RCL 4
037 u 44,11 : STO A
038 :  45, 8 : RCL 8
039 u 44,11 : STO A

# Matrix A - Row 3
040 : 45, 4 : RCL 4
041 u 44,11 : STO A
042 : 45, 8:  RCL 8
043 u 44,11 : STO A
044 : 45, 9 : RCL 9
045 u 44,11 : STO A
# Turn off USER Mode (unless the next step would be skipped unnecessarily)

# Matrix B
046 : 42,16, 1 : MATRIX 1
047 : 3 :  3
048 : 36 : ENTER
049 : 1 : 1
# Turn on USER Mode
050 : 42,23,12 : DIM B
051 : 45, 5 : RCL 5
052 u 44,12 : STO B
053 : 45, 7 : RCL 7
054 u 44,12 : STO B
055 : 45,.0 : RCL .0   (# recall registers point-zero)
# Turn off USER Mode (unless the next step would be skipped unnecessarily and in this case, an Error 11 would occur)
056 :  44,12 : STO B


# Matrix C - Results
057 : 42,26,13 : RESULT C
058 : 45,16,12 : RCL MATRIX B
059 : 45,16,11 : RCL MATRIX A
060 : 10 : ÷
061 : 42,16, 1 : MATRIX 1
062 u 45,13 : RCL C
063 : 31 : R/S
064 u 45,13 : RCL C
065 : 31 : R/S
066 u 45,13 : RCL C
067 : 43,32 : RTN