(34C) Transform Algorithm

[SlideRule]

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