Swiss Micros DM16L: Advanced Boolean and Factorial (up to 20)

Swiss Micros DM16L:   Advanced Boolean and Factorial (up to 20)

Introduction

The program listing, for the Swiss Micros DM16L and Hewlett Packard HP 16C,  will assign the following functions to the labels:

A:  NAND:   nand(x, y) = not(x and y)

B:  NOR:   nor(x, y) =  not(x or y)

C:  XNOR:  xnor(x, y) = (not x and not y) or (x and y)

D:  Implication:  y → x = (not y) or x

E:  Factorial:  x!  (x is a positive integer up to 20, 64 word size

NAND, NOR, NXOR, and Implication are advanced Boolean functions.  You can check out program code for the HP Prime here:

http://edspi31415.blogspot.com/2020/03/hp-prime-advanced-boolean-functions.html

Program - DM16L/HP 16C

// NAND

001 43,22,A LBL A

002 42,20   AND

003 42,30   NOT

004 43,21   RTN

// NOR

005 43,22,b LBL B

006 42,40   OR

007 42,30  NOT

008 43,21  RTN

// XNOR

009 43,22,C LBL C

010 44,1    STO 1

011 42,30  NOT

012 34      x<>y

013 44,2    STO 2

014 42,30   NOT

015 42,20   AND

016 45,1    RCL 1

017 45,2    RCL 2

018 42,20  AND

019 42,40   OR

020 43,21   RTN

// Implication

021 43,22,d LBL D

022 34      x<>y

023 42,30   NOT

024 42,40   OR

025 43,21   RTN

// Factorial

026 43,22,E LBL E

027 44,32  STO I

028 1      1

029 44,1    STO 1

030 43,22,1 LBL 1

031 45,1    RCL 1

032 45,32   RCL I

033 20      ×

034  44,1    STO 1

035 43,23   DSZ

036 22,1    GTO 1

037 45,1    RCL 1

038 43,21   RTN

Examples

Let:

R1 = 1011 0001

R2 = 1100 1100

Set up: 2-16-0000 (2's complement, 16 bits)

RCL 2, RCL 1, GSB A NAND(R2, R1):  0111 1111*

RCL 2, RCL 1, GSB B NOR(R2, R1): 0000 0010*

RCL 2, RCL 1, GSB C XNOR(R2, R1): 1000 0010*

RCL 2, RCL 1, GSB D R2 → R1:  1100 1110* 

* only the last eight bits 

Set word size to 64:

0 [ f ] [ STO ] (WSIZE)

5 GSB E 5! = 120

9 GSB E 9! = 362880*

* if the word size is insufficient, it will not show 362880 but a weird result as an overflow

12 GSB E   (64 word size)

12! = 4 79001600

Window 1:  4

Window 0:  79001600

20 GSB E

20! = 243 29020081 76640000

Window 2: 243

Window 1: 29020081

Window 0: 76640000

Source for the Advanced Boolean Functions:

John W. Harris and Horst Stocker.  Handbook of Mathematics and Computation Science  Springer:  New York, NY.  2006.  ISBN 978-0-387-94746-4

Eddie

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

Fun with the HP 20S (April 17, 2021 Edition)

Fun with the HP 20S (April 17, 2021 Edition)

A Quick Note - Spam Comments 

I noticed that my blog recently had a lot spam comments, especially since the beginning of this year.  Because of this I am considering turning off the ability to leave comments altogether.  If you are going to comment, please be courteous and stay on topic.  No one wants to read the same spam post about off-shore casinos, printers, or scandalous divorce inquiries.

Thank you and now, on with the post.  

Integer Division

The program calculates the quotient and remainder of the division: 

a ÷ b

Instructions:

Enter a, press [ XEQ ] ( F ), enter b.   Get the quotient, press [ R/S ], get the remainder

Program:

01 61,41,F         LBL F

02 21,2 STO 2

03 45        ÷

04 26        R/S

05 21, 1    STO 1

06 74          =

07 21,0      STO 1

08 51,45    IP

09 26          R/S

10 22,0      STO 0

11 61,45    FP

12 55        ×

13 22,1      RCL 1

14 74        =

15 51,33,0         FIX 0

16 61,44    RND   (round)

17 61,34    ALL

18 61,26    RTN

FIX 0, RND, ALL:  round the number in the display to the nearest integer

Examples:

74 ÷ 6  = 12 R 2

Keystrokes:  74, XEQ F, 6, R/S (12) R/S (2)

1576 ÷ 237 = 6 R154

Day Number

This calculates the day number given the month and the date.   A 365-day year is assumed.  

Instructions:

1.  Store month in memory register 1

2.  Store day in memory register 2

3.  Press XEQ A

Program:

01 61,41,A         LBL A

02 22,1      RCL 1

03 31        INPUT

04 2          2

05 61,42    x≤y?

06 51,41,1         GTO 1

07 33          (

08 33        (

09 22,1      RCL 1

10 75        +

11 1          1

12 34          )

13 55        ×

14 3            3

15 0          0

16 73        .

17 6          6

18 34          )

19 51,45    IP

20 65        -

21 6            6

22 3          3

23 74          =

24 21,3      STO 3

25 51,41,2         GTO 2

26 61,41,1         LBL 1

27 33          (

28 33        (

29 22,1      RCL 1

30 65        -

31 1          1

32 34      )

33 55        ×

34 6            6

35 3          3

36 45        ÷

37 2          2

38 34        )

39 51,45    IP

40 74        =

41 21,3      STO 3

42 61,41,2         LBL 2

43 75        +

44 22,2      RCL 2

45 74        =

46 21,3      STO 3

47 61,26    RTN

Examples:

February 16:  2 STO 1, 16 STO 2, XEQ A.  Result:  47

August 22:  8 STO 1, 22 STO 2, XEQ A.   Result:  234

Source:

Duffett-Smith, Peter.  Practical Astronomy With Your Calculator  2nd Ed.  Cambridge University Press: Cambridge.  1979  ISBN 0-521-28411-2

Astronomy:  Geocentric Parallax

The program calculates the quantities ρ sin θ' and ρ cos θ' where:

ρ = distance the observer is from the center of the Earth in meters

θ' = geocentric latitude in degrees

Inputs:

h = height of observer above sea level in meters

L = latitude of the observer in degrees, north is positive

Calculations:

h' = h / 6378140   (estimated radius of Earth is about 6,378 km)

u = atan(0.996647 tan L)

ρ sin θ' = 0.996647 sin u + h' sin L

ρ cos θ' = cos u + h' cos L

Program:

01 61,41,b         LBL B

02 61,23    DEG

03 33          (

04 22,1      RCL 1

05 25        TAN

06 55        ×

07 73        .

08 9          9

09 9          9

10 6            6

11 6          6

12 4          4

13 7          7

14 21,0      STO 0

15 34          )

16 51,25    ATAN

17 21,3      STO 3

18 22,2      RCL 2

19 45        ÷

20 6            6

21 3            3

22 7            7

23 8          8

24 1            1

25 4          4

26 0          0

27 74          =

28 21,4        STO 4

29 22,0      RCL 0

30 55          ×

31 22,3      RCL 1

32 23        SIN

33 75        +

34 21,1      RCL 1

35 23          SIN

36 55            ×

37 22, 4        RCL 4

38 74        =

39 26          R/S

40 22, 3        RCL 3

41 24            COS

42 75          +

43 22, 4      RCL 4

44 55        ×

45 22, 1      RCL 1

46 24          COS

47 74          =

48 61,26      RTN

Registers used:

R1 = L  (input)

R2 = h   (input)

R3 = u

R4 = h / 6378140

R0 = 0.996647

Example:

Input:

L = 45.76° N

h = 53.48 m

54.76 STO 1, 53.48 STO 2, XEQ B

Result:  

ρ sin θ' = .712859241, R/S

ρ cos θ' = .698873028

Source:

Duffett-Smith, Peter.  Practical Astronomy With Your Calculator  2nd Ed.  Cambridge University Press: Cambridge.  1979  ISBN 0-521-28411-2

Eddie

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

Spotlight: Jim Cullen - Mathematical Topics

Spotlight:  Jim Cullen - Mathematical Topics 

On today's blog I want to feature Jim Cullen, who has a mathematical web page:

Mathematical Topics Index Page - Associated Calculator Programs

Topics include:

Pi and several series to approximate π

Random Normal Number Generators

Generalized Fibonacci Sequences

A Comparison between Casio fx-115ES and Sharp EL-W516 (2 pdf files)

Diophantine Equations

Cullen also has a page of family's genealogy:  http://members.bex.net/jtcullen515/CullOrig.htm

Check it out,  

Eddie

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

Retro Review: Hot Rod Calculator

 Retro Review:   Hot Rod Calculator

Quick Facts:

Model:  8703, Hot Rod Calc

Company:  Mr. Gasket Co/Calculated Industries

Years of Production: 2009 - 2020*

Memory Registers:  1

Batteries:  2 LR-44

Operating System:  Chain

Display:  8 digits, unit indicators 

New Price: $80 retail; can be found on sale or clearance

* I can no longer find the Hot Rod calculator as a new calculator on the Calculated Industries website.  However, the Hot Rod app for both iOS and Android.  

Ladies and Gentlemen, Start Your Engines!

The Hot Rod Calc is a specialty calculator that emphasizes on automotive mathematics, with solvers and applications including:  

*  Air Temperature, Relative Humidity (Moisture), Elevation

*  Vehicle Weight, Elapsed Time (1/4 mile traveled in seconds), MPH

*  Bore, Stroke, RPM, Torque, Engine Displacement

*  Tire Ratio, Gear Ratio

*  Engine Volumetric Efficiency

*  Carburetor Size

*  Vehicle Weight, Horsepower, Elapsed Time

*  Conversions including length, area, volume, temperature, mass, velocity (speed)

You can download a PDF version of the manual here: 

https://documents.holley.com/mr_gasket_instructions_hot_rod_calculator_8703.pdf

The manual has several reference tables:

*  Drag Coefficients depending on the automobile type

*  Holley Jet Chart

*  Jet Orifice Area Conversation Chart

Keyboard

The calculator comes in a bright red Armadillo Gear case.   The keys are bright and colorful, with most of them sporting a warm color palette (red, orange).  The keys are responsive, but have a rubber feel to them.  I believe the keys are made to handle dirt and oils given the target audience of the Hot Rod Calc.

The case has a quick reference guide.

Example Calculations

The calculator is set to U.S. units (default)

Example 1:

Calculate Air Temperature given:

Elevation:  1,284 ft

Air Pressure:  30.12 inHg

Humidity:  33%

1284 [ Elev/ADI ]

33 [ Moisture ]

30.12 [ Conv ] [Air Temp] (Pressure)

[Air Temp],  Result:  55.4211 °F

Example 2:

Find the weight of a vehicle given:

It's horsepower:  426 HP

It's elapsed time:  9.73 sec to run 1/4 mi

426 [ HP ]

9.73 [ ET ]

[ Vehicle Wt ],  Result:  1999.7337 lb

Example 3:

Find the speed, in miles per hour, for an automobile traveling with the following specifications:

1st Gear:  3.26

Final Drive Gear: 3.03

RPM: 5800 (revolutions per minute)

Diameter of the tires: 26 inches

3.26 [ × ] 3.03 [ Gear Ratio ]

5800 [ RPM ]

26 [ Conv ] [ Gear Ratio ] (New Tire Dia)

[ MPH ],  Result:  45.417902  mph

Verdict

If you are into racing, hot rods, and automobiles, and you need a quick mathematics tool, the Hot Rod calculator is worth the investment.  Its user manual is a well written.  Now may be the best time to purchase one before the calculator becomes a rare item.  

Eddie

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author. 

Fun with the HP 20S (April 10, 2021 Edition)

 Fun with the HP 20S (April 10, 2021 Edition)

In all the programs presented on the blog, all inputs are stored in the appropriate registers before the program is run.  

The Power of a Windmill

This program calculates the power generated by a windmill, given the diameter and velocity of the windmill’s fans.   SI units (meters, kilograms, seconds) are used.   The general equations used are:

Area of the swept by the windmill’s fans (in m^2):

A = ( π * diameter^2 ) / 4 

Power generated (in W (Watts), J/s, m^2 kg/s^3):

P = ½ * area * density * velocity^3 

Density of air = 1.225 kg/m^3

Input:

R1 = diameter of the fans, m 

R2 = velocity of the fans, m/s 

Output:

R3 = area that the fans cover, m^2;  press [ R/S ]

R4 = power of the fan, W

Program:

01 LBL A         61,41, A

02 RCL 1         22, 1

03 x² 51, 11

04 × 55

05 π 61, 22

06 ÷ 45

07 4 4

08 = 74

09 STO 3         21, 3

10 R/S 26

11 × 55

12 RCL 2         22, 2

13 y^x 14

14 3 3

15 × 55

16 . 73

17 6 6

18 1 1

19 2 2

20 5 5

21 = 74

22 STO 4         21, 4

23 RTN 61, 26

Example:

Inputs:  

diameter = R1 = 6.65 m

velocity = R2 = 10 m/s

Results:

R3 = area = 34.7322702808 m^2

R4 = power = 21,273.515547 W

Source:

Sharp Electronics Corporation.  Conquering The Sciences: Applications for the SHARP Scientific Calculators EL-506P, EL-510S, EL-515S  Japan. 1984

Depth of a Well

This program calculates the depth of a well, which is determined by the time between a person drops a rock and the person hears the rock hit the bottom of the well.  The program uses SI units (meters, kilograms, seconds) with the following constants:

Earth’s Gravitational Acceleration:  g = 9.80665 m/s^2

g/2 = 4.903325 m/s^2

Speed of Sound, in dry air, 20°C temperature: s = 343.21 m/s

Equations:

X = (-B + √(B^2 + 4*A*B)) / 2

Y = g/2 * a^2

where:

B = s / (g/2) (see the above constants)

A = amount of time, in seconds, between the person drops the rock and hears the rock hit the bottom (input)

X = amount of time, in seconds, that it actually takes the rock from the time it was dropped until the rock hits the bottom of the well (output)

Y = depth of the well, in meters (output)

Input:

R1 = time until you hear the rock hit the bottom of the well (sec) 

Output:

R2 = time until the rock actually hits the bottom of the well (sec), [ R/S ]

R3 = depth of the well (m)

Program:

01 LBL B         61, 41, B

02 3 3

03 4 4

04 3 3

05 . 73

06 2 2

07 1 1

08 ÷ 45

09 4 4

10 . 73

11 9 9

12 0 0

13 3 3

14 3 3

15 2 2

16 5 5

17 STO 0         21, 0

18 = 74

19 STO 4         21, 4

20 +/- 32

21 + 75

22 ( 33

23 RCL 4         22, 4

24 x² 51, 11

25 + 75

26 4 4

27 × 55

28 RCL 4         22, 4

29 × 55

30 RCL 1         22, 1

31 ) 34

32 √ 11

33 = 74

34 ÷ 45

35 2 2

36 = 74

37 STO 2         21, 2

38 R/S 26

39 x² 51, 11

40 × 55

41 RCL 0         22, 0

42 = 74

43 STO 3         21, 3

44 RTN 61, 26

Example:

Input:  

time until you hear the rock hit the ground = R1 = 3 sec

Results:

R2 = time the rock travels to the bottom of the well = 2.8813865 sec

R3 = depth of the well = 40.70930098622 m

Source:

Saul, Ken.  The Physics Collection:  Ten HP-41C Programs for First-Year Physics Class   Corvallis, OR.  1986

Thevenin’s Theorem

This program calculated the equivalent resistance and voltage of a linear network of two resistors and a capacitor.  

Formulas:

R_TH = (R1 * R2) / (R1 + R2)

V_TH = V * R2 / (R1 + R2)

Inputs:

R1 = resistor 1 ( Ω )

R2 = resistor 2 ( Ω )

R3 = capacitor ( V )

Output:

R4 = equivalent resistor, R_TH, [ R/S ]

R5 = equivalent capacitor, V_TH

Program:

01 LBL C         61, 41, C

02 RCL 1         22, 1

03 × 55

04 RCL 2         22, 2

05 ÷ 45

06 ( 33

07 RCL 1         22, 1

08 + 75

09 RCL 2         22, 2

10 ) 34

11 = 74

12 STO 4         21, 4

13 R/S 26

14 RCL 3         22, 3

15 × 55

16 RCL 2     22, 2

17 ÷ 45

18 ( 33

19 RCL 1     22, 1

20 + 75

21 RCL 2         22, 2

22 ) 34

23 = 74

24 STO 5     21, 5

25 RTN 61, 26

Example:

Input:

R1 = 8 Ω

R2 = 9 Ω

R3 = 11 V

Results: 

R4 = 4.23529411765 Ω

R5 = 5.82352941176 V

Source:

Gussow, Milton and William T. Smith  Schaum’s Easy Outlines: Basic Electricity  New York. 2012  ISBN 978-0-07-178068-1

Norton’s Theorem

This program calculates an equivalent resistance and current when any network connected to a positive and a negative terminal.

Formulas:

R_N = (R1 * R2) / (R1 + R2)

I_N = V / R1

Inputs:

R1 = resistor 1 ( Ω )

R2 = resistor 2 ( Ω )

R3 = capacitor ( V )

Output:

R4 = equivalent resistor, R_N, [ R/S ]

R5 = equivalent current, I_N

Program:

01 LBL D         61, 41, D

02 RCL 1         22, 1

03 × 55

04 RCL 2         22, 2

05 ÷ 45

06 ( 33

07 RCL 1         22, 1

08 + 75

09 RCL 2         22, 2

10 ) 34

11 = 74

12 STO 4         21, 4

13 R/S 26

14 RCL 3         22, 3

15 ÷ 45

16 RCL 1         22, 1

17 = 74

18 STO 5         21, 5

19 RTN 61, 26

Example:

Input:

R1 = 8 Ω

R2 = 9 Ω

R3 = 11 V

Results: 

R4 = 4.23529411765 Ω

R5 = 1.375 A

Source:

Gussow, Milton and William T. Smith  Schaum’s Easy Outlines: Basic Electricity  New York. 2012  ISBN 978-0-07-178068-1

Eddie 

All original content copyright, © 2011-2021.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.