(12C Platinum) Statistics

[Gamo]

This program implement the Statistics Program section from
HP-12C Platinum Solution Handbook start from page 98

What include in this program sets are
1. Expoential Curve Fit
2. Logarithmic Curve Fit
3. Power Curve Fit
4. Geometric and Harmonic Mean (my own version)
5. Standard Error of the Mean
6. Mean, Standard Deviation, Standard Error for Grouped Data
7. Hidden Special Program: Weibull Distribution

All above program are easy to navigate to each of the programs.

To start: [FIX] 2

Pick a program number from 1 - 6
If you want to use Geometric and Harmonic program that is Program# 4
Follow these steps to use each program

f [REG] f [∑] f [PRGM] 4 [R/S] display 4.00 // 4 indicated that now is on Program#4

For Program#4 which is the Geometric and Harmonic Mean
To use this program enter data when done enter 0 to calculate.
Example: What is the Geometric and Harmonic Mean of 10 and 30 ?

f [REG] f [∑] f [PRGM] 4 [R/S] display 4.00
10 [R/S] display 1.00 // Data #1
30 [R/S] display 2.00 // Data #2
0 [R/S] display 17.32 // Activate Calculation by pressing 0 [R/S] answer Geometric Mean
[X<>Y] 15 // Answer Harmonic Mean

To re-run this same program simply clear statistic register and start new data sets
---------------------------------------------------------------
To use special program g [GTO] 158 [R/S]
For Weibull Distribution
Enter the total data count [R/S] display data count
Enter each Data Sets to the same amount of data count
0 [R/S] Activate calculation display b [R/S] display Answer
---------------------------------------------------------------
For All the Curve Fit programs
Use the same steps procedure as shown in the Solutions Handbook
When finish input Data
Enter 0 [R/S] to activate calculation briefly shown Correlation coefficient
then continue and briefly shown A continue ans stop at B --->Enter X for Y-estimate [R/S]
----------------------------------------------------------------
Program: RPN mode

Code:


001  1
002  -
003 X=0
004 GTO 018  // Exponential Curve Fit
005  1
006  -
007 X=0
008 GTO 053  // Loganrithmic Curve Fit
009  1
010  -
011 X=0
012 GTO 077  // Power Curve Fit
013  1
014  -
015 X=0
016 GTO 106  // Geometric & Harmonic Mean
017 GTO 122  // Standard Error of the Mean
018  1
019 R/S
020 X=0
021 GTO 027
022 X<>Y
023 LN
024 X<>Y
025 ∑+
026 GTO 019
027 ŷ,r
028 X<>Y
029 PSE
030 PSE // display correlation coefficient
031  1
032 ŷ,r
033 e^x
034  0
035 ŷ,r
036 e^x
037 PSE  // Display A briefly
038 X<>Y
039 R↓
040  ÷
041 LN
042 PSE // Display B briefly
043 e^x
044  1
045  -
046 EEX
047  2
048  x
049 R/S  // Stop and display Growth Rate in %
050 ŷ,r
051 e^x
052 GTO 049  // Display Answer then ready for another estimate for the same problem.
----------------------------------
053  2
054 R/S
055 X=0
056 GTO 061
057 X<>Y
058 LN
059 ∑+
060 GTO 054
061 ŷ,r
062 X<>Y
063 PSE
064 PSE  // display correlation coefficient
065  1
066 ŷ,r
067  0
068 ŷ,r
069 PSE  // A
070 X<>Y
071 R↓
072  -
073 R/S  // Display B and ready for estimate 
074 LN
075 ŷ,r
076 GTO 073  // ready for new estimate
--------------------------------------------
077  3
078 R/S
079 X=0
080 GTO 086
081 LN
082 X<>Y
083 LN
084 ∑+
085 GTO 078
086 ŷ,r
087 X<>Y
088 PSE
089 PSE  // display correlation coefficient
090  0
091 ŷ,r
092 e^x
093 PSE  // A
094  1
095 ŷ,r
096  0
097 ŷ,r
098 X<>Y
099 R↓
100  -
101 R/S  // Stop and display B, enter estimate
102 LN
103 ŷ,r
104 e^x
105 GTO 101  // New estimate
--------------------------------------------------
106  4
107 R/S
108 X=0
109 GTO 116
110 1/x
111 ENTER
112 LSTx
113 LN
114 ∑+
115 GTO 107
116 X-bar
117 X<>Y
118 1/x
119 X<>Y
120 e^x
121 GTO 107
--------------------------
122  1
123  -
124 X=0
125 GTO 127
126 GTO 138
-------------------------
127  5
128 R/S
129 X=0
130 GTO 133
131 ∑+
132 GTO 128
133  s
134 RCL 1
135 √x
136  ÷
137 GTO 128
-------------------------
138  6
139 R/S
140 X=0
141 GTO 146
142 STO+0
143  x
144 ∑+
145 GTO 139
146 RCL 0
147 STO 1
148 RCL 6
149 STO 3
150 x-bar
151 R/S
152  s
153 R/S
154 RCL 0
155 √x
156  ÷
157 GTO 139
----------------------
158 R/S
159 STO 7
160  1
161 STO 0
162 X<>Y
163 R/S
164 X=0
165 GTO 186
166 LN
167 RCL 0
168  .   // decimal point
169  3
170  -
171 RCL 7
172  .  // decimal point
173  4
174  +
175  ÷
176  1
177 STO+0
178 X<>Y
179  -
180 1/x
181 LN
182 LN
183 X<>Y
184 ∑+
185 GTO 163
186  1
187 ŷ,r
188  0
189 ŷ,r
190 X<>Y
191 R↓
192  -
193 LSTx
194 X<>Y
195 R/S
196  ÷
197 CHS
198 e^x
199 GTO 158

Remark: More example is coming soon.

Gamo

[Gamo]

The Curve Fitting program examples are from
HP-11C Owner's Handbook start from Page 162

Example 1:
(Exponential, Code = 1)

Data:
Xi (0.72, 1.36, 1.95, 2.58, 3.14)
Yi (2.16, 1.61, 1.16, 0.85, 0.5)

Solution:
a = 3.45, b = -0.58
r^2 = 0.98


Keystrokes using HP-12C Platinum

f [REG] f [∑] f [PRGM] 1 [R/S] display 1.00 // 1.00 indicated that now is on Program#1

2.16 [ENTER] .72 [R/S] display 1.00
1.61 [ENTER] 1.31 [R/S] display 2.00
1.16 [ENTER] 1.5 [R/S] display 3.00
.85 [ENTER] 2.58 [R/S] display 4.00
.5 [ENTER] 3.14 [R/S] display 5.00

0 [R/S] display Correlation coefficient momentary ....... -0.99

Display A momentary ...... 3.45
Display B momentary ...... -0.58
Display growth rate ...... -44.12%

For X = 1.5

1.5 [R/S] display ŷ = 1.44

To find another X simply enter X value and [R/S] display ŷ

To run a new problem press f [REG] f [∑] f [PRGM] 1 [R/S]


Gamo