The following warnings occurred:
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 795 - File: showthread.php PHP 7.4.33 (FreeBSD)
File Line Function
/showthread.php 795 errorHandler->error





Post Reply 
(34C) Transform Algorithm
08-03-2020, 10:23 PM
Post: #1
(34C) Transform Algorithm
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
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(34C) Transform Algorithm - SlideRule - 08-03-2020 10:23 PM



User(s) browsing this thread: 1 Guest(s)