(34C) Transform Algorithm - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Software Libraries (/forum-10.html) +--- Forum: General Software Library (/forum-13.html) +--- Thread: (34C) Transform Algorithm (/thread-15424.html) |
(34C) Transform Algorithm - SlideRule - 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 |