08-03-2020, 10:23 PM
An extract from SEMI-ANNUAL PROGRESS REPORT NO. 15, NASA Grant NGL 25-001-054, 01-11-80 thru 30-04-81 {page 26}
" Figure 2
PROGRAM LISTING FOR IMPLEMENTATION OF
TRANSFORM ALGORITHM ON A
HEWLETT-PACKARD 34C HAND HELD CALCULATOR
C** Probabilities (Bj) associated with pixel vectors are
C** inserted into registers 0-8 prior to execution
C** (i.e., product of multichannel probabilities for
C** each pixel within the 9 pixel "cell")
C** Minimum value for any given channel is 1/S²
hLBL A
f (FIX) 7
CF 0
2
f (LN)
STO .0
0
R/S ► Enter # of Channels
STO .1
0
R/S ► Enter Range of GSV's
h (1/x)
RCL .1
h (y×)
STO .2
hLBL 0
.00801
STO f (I)
0
STO 9
hLBL 1
RCL f (i)
RCL .2
X⇄Y
x > y ?
GTO 2
x = y ?
GTO 2
÷
RCL .2
×
hLBL 2
F? 0
GTO 3
ENTER
f (LN)
RCL .0
÷
×
hLBL 3
STO+ 9
ISG
GTO 1
F? 0
GTO 4
SF 0
RCL 9
STO .0
GTO 0
hLBL 4
RCL 9
h (1/x)
RCL .1
÷
RCL .0
CHS
×
STO 9
RTN
Display result is entropy of the contents of registers 0-8.
Value is stored in register. 9. "
BEST!
SlideRule
" Figure 2
PROGRAM LISTING FOR IMPLEMENTATION OF
TRANSFORM ALGORITHM ON A
HEWLETT-PACKARD 34C HAND HELD CALCULATOR
C** Probabilities (Bj) associated with pixel vectors are
C** inserted into registers 0-8 prior to execution
C** (i.e., product of multichannel probabilities for
C** each pixel within the 9 pixel "cell")
C** Minimum value for any given channel is 1/S²
hLBL A
f (FIX) 7
CF 0
2
f (LN)
STO .0
0
R/S ► Enter # of Channels
STO .1
0
R/S ► Enter Range of GSV's
h (1/x)
RCL .1
h (y×)
STO .2
hLBL 0
.00801
STO f (I)
0
STO 9
hLBL 1
RCL f (i)
RCL .2
X⇄Y
x > y ?
GTO 2
x = y ?
GTO 2
÷
RCL .2
×
hLBL 2
F? 0
GTO 3
ENTER
f (LN)
RCL .0
÷
×
hLBL 3
STO+ 9
ISG
GTO 1
F? 0
GTO 4
SF 0
RCL 9
STO .0
GTO 0
hLBL 4
RCL 9
h (1/x)
RCL .1
÷
RCL .0
CHS
×
STO 9
RTN
Display result is entropy of the contents of registers 0-8.
Value is stored in register. 9. "
BEST!
SlideRule