The Museum of HP Calculators

Forcasting using Exponential Smoothing for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Business Stats Solution Book. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "SMOOTH"
 02 SF 21
 03 CF 29
 04 CLRG
 05 1
 06 STO 10
 07 STO 11
 08 STO 12
 09 STO 13
 10 "ALPHA=?"
 11 PROMPT
 12 STO 18
 13 -
 14 STO 19
 15 CLX
 16 RTN
 17 LBL b
 18 STO 13
 19 RDN
 20 STO 12
 21 RDN
 22 STO 11
 23 RDN
 24 STO 10
 25 RDN
 26 RTN
 27 LBL A
 28 STO 20
 29 X<>Y
 30 STO 08
 31 9
 32 +
 33 RDN
 34 RCL IND T
 35 *
 36 STO 21
 37 STO 01
 38 RTN
 39 LBL B
 40 STO 00
 41 RCL 08
 42 4
 43 /
 44 FRC
 45 4
 46 *
 47 1
 48 +
 49 STO 08
 50 9
 51 +
 52 RDN
 53 RCL IND T
 54 *
 55 STO 22
 56 1
 57 ST+ 09
 58 "B="
 59 XEQ 02
 60 AVIEW
 61 1
 62 RCL 09
 63 X=Y?
 64 GTO 01
 65 RCL 22
 66 RCL 17
 67 -
 68 ST+ 14
 69 STO 16
 70 ABS
 71 ST+ 15
 72 X^2
 73 ST+ 03
 74 LBL 01
 75 RCL 19
 76 RCL 01
 77 *
 78 RCL 18
 79 RCL 22
 80 STO 21
 81 *
 82 +
 83 STO 02
 84 RCL 01
 85 -
 86 RCL 18
 87 *
 88 RCL 04
 89 RCL 19
 90 *
 91 +
 92 STO 04
 93 RCL 19
 94 RCL 18
 95 /
 96 *
 97 RCL 02
 98 STO 01
 99 +
100 STO 06
101 XEQ 03
102 XEQ 00
103 RCL 08
104 9
105 +
106 RCL 06
107 RCL IND Y
108 /
109 "SD"
110 XEQ 02
111 XEQ 00
112 1
113 ST+ 09
114 RCL 02
115 RCL 04
116 RCL 18
117 /
118 +
119 XEQ 03
120 "^"
121 XEQ 00
122 STO 17
123 RCL 08
124 10
125 +
126 RCL 17
127 RCL IND Y
128 /
129 "SD"
130 XEQ 02
131 "^"
132 1
133 ST- 09
134 RDN
135 GTO 00
136 LBL C
137 RCL 14
138 RCL 15
139 RCL 09
140 1
141 -
142 /
143 "MD"
144 XEQ 00
145 /
146 "T"
147 XEQ 00
148 RCL 03
149 "~e2"
150 XEQ 00
151 "B"
152 RCL 09
153 XEQ 00
154 /
155 "V"
156 LBL 00
157 "="
158 ARCL X
159 AVIEW
160 RTN
161 LBL 03
162 "D"
163 LBL 02
164 FIX 00
165 ARCL 09
166 FIX 02
167 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall