Here are several short programs made with the GO-25 iOS app. Each one can be adopted into programming routines for other RPN calculators and apps.
Enjoy!
GO SCI-25 App
; atan2 function in radians. Store x to memory 1 and y to memory 2.
01 15 33 ; RAD
02 24 02 ; RCL 2
03 24 01 ; RCL 1
04 71 ; ÷
05 15 06 ; tan⁻¹
06 24 01 ; RCL 1
07 15 41 ; x<0
08 13 11 ; GTO 11
09 22 ; R↓
10 13 00 ; GTO 00
11 22 ; R↓
12 24 02 ; RCL 2
13 15 03 ; ABS
14 14 73 ; LASTx
15 71 ; ÷
16 15 73 ; π
17 61 ; X
18 51 ; +
19 13 00 ; GTO 00
; signum function. sgn(stack x), x ≠ 0
01 15 03 ; ABS
02 14 73 ; LASTx
03 71 ; ÷
04 13 00 ; GTO 00
; Simple Simultaneous Equarions
; a + b = x
; a - b = y
; x → R1, y → R2, load before running
01 24 02 ; RCL 2
02 24 01 ; RCL 1
03 51 ; +
04 02 ; 2
05 71 ; ÷
06 74 ; R/S
07 24 01 ; RCL 1
08 24 02 ; RCL 2
09 41 ; -
10 02 ; 2
11 71 ; ÷
12 13 00 ; GTO 00
; Simple Quadratic Equation
; t^2 + y*t + x = 0
; Enter y and x before running.
01 31 ; ENTER *may or may not be needed deepening on stack operations
02 04 ; 4
03 61 ; X
04 21 ; Swap xy
05 15 02 ; x^2
06 14 73 ; LASTx
07 32 ; CHS
08 23 01 ; STO 1
09 22 ; R↓
10 21 ; Swap xy
11 41 ; -
12 14 02 ; √
13 23 02 ; STO 2
14 24 01 ; RCL 1
15 24 02 ; RCL 2
16 51 ; +
17 02 ; 2
18 71 ; ÷
19 74 ; R/S
20 24 01 ; RCL 1
21 24 02 ; RCL 2
22 41 ; -
23 02 ; 2
24 71 ; ÷
25 13 00 ; GTO 00
; Hypotenuse Function
; hypot(x,y) = √(x^2 + y^2)
; Enter x and y on the stack.
01 15 02 ; x^2
02 21 ; Swap xy
03 15 02 ; x^2
04 51 ; +
05 14 02 ; √
06 13 00 ; GTO 00
; Approximate Speed of Sound in Dry Air (4 decimal places)
; Enter temperature in degrees Fahrenheit (°F). Results are in miles per hour.
; V ≈ .7456*(x-32) + 741.3087
01 31 ; ENTER
02 03 ; 3
03 02 ; 2
04 41 ; -
05 73 ; .
06 07 ; 7
07 04 ; 4
08 05 ; 5
09 06 ; 6
10 61 ; X
11 07 ; 7
12 04 ; 4
13 01 ; 1
14 73 ; .
15 03 ; 3
16 00 ; 0
17 08 ; 8
18 07 ; 7
19 51 ; +
20 13 00 ; GTO 00
; Area of a Polygon:
; Degrees mode is used. Stack:
; y: length
; x: sides
01 15 32 ; DEG
02 23 01 ; STO 1
03 21 ; Swap xy
04 15 02 ; x^2
05 61 ; X
06 01 ; 1
07 08 ; 8
08 00 ; 0
09 24 01 ; RCL 1
10 71 ; ÷
11 14 06 ; tan
12 04 ; 4
13 61 ; X
14 71 ; ÷
15 13 00 ; GTO 00
; Doppler Effect: calculated the effective frequency given:
; y: observed frequency in Hz
; x: change in velocity of the object in m/s, if the source is coming to you, enter this velocity as negative
01 31 ; ENTER
02 02 ; 2
03 09 ; 9
04 09 ; 9
05 07 ; 7
06 09 ; 9
07 02 ; 2
08 04 ; 4
09 05 ; 5
10 08 ; 8
11 71 ; ÷
12 01 ; 1
13 51 ; +
14 61 ; X
15 13 00 ; GTO 00
; Music Scale: Approximate frequency given for x half steps from Middle C (523 Hz)
01 31 ; ENTER
02 02 ; 2
03 31 ; ENTER
04 01 ; 1
05 02 ; 2
06 15 22 ; 1/x
07 14 03 ; y^x
08 21 ; Swap xy
09 14 03 ; y^x
10 05 ; 5
11 02 ; 2
12 03 ; 3
13 61 ; X
14 13 00 ; GTO 00
Eddie
This blog is property of Edward Shore. 2015