HP25

PROGRAM 1
NAME PLOT / GRAPH

01  ->R
02  STO 2
03  X<>Y
04  STO 3
05  0
06  STO 4
07  RCL 0
08  STO + 4
09  RCL 4
10  x^2
11  RCL 1
12  *
13  2
14  /
15  CHS
16  RCL 4
17  RCL 3
18  *
19  +
20  RCL 4
21  RCL 2
22  *
23  RCL 4
24  PAUSE
25  ROLL
26  R/S
27  X<>Y
28  R/S
29  GTO 07

END

PROGRAM 2
NAME QUADR EQUATION   

01  ENTER
02  ROLL
03  /
04  2
05  /
06  CHS
07  ENTER
08  x^2
09  ROLL
10  ROLL
11  X<>Y
12  /
13  STO 0
14  -
15  PAUSE
16  x<0
17  GTO 31
18  SQRT
19  X<>Y
20  x<0
21  GTO 24
22  +
23  GTO 26
24  X<>Y
25  -
26  R/S
27  1/x
28  RCL 0
29  *
30  GTO 00
31  CHS
32  SQRT
33  X<>Y
34  R/S
35  X<>Y

END

PROGRAM 3
NAME COMPLEX ARITHMETIK

01  CHS
02  X<>Y
03  CHS
04  X<>Y
05  RCL 0
06  +
07  X<>Y
08  RCL 1
09  +
10  GTO 31
11  ->P
12  1/x
13  X<>Y
14  CHS
15  X<>Y
16  GTO 18
17  ->P
18  STO 2
19  ROLL
20  RCL 1
21  RCL 0
22  ->P
23  RCL 2
24  *
25  STO 2
26  ROLL
27  +
28  RCL 2
29  ->R
30  X<>Y
31  STO 1
32  X<>Y
33  STO 0

END

PROGRAM 4
NAME COMPLEX FUNCTIONS

01  ->P
02  GTO 00
03  ->P
04  x^2
05  X<>Y
06  ENTER
07  +
08  X<>Y
09  ->R
10  GTO 00
11  ->P
12  1/x
13  X<>Y
14  CHS
15  X<>Y
16  ->R
17  GTO 00
18  ->P
19  SQRT
20  X<>Y
21  2
22  /
23  X<>Y
24  ->R

END

PROGRAM 5
NAME DETERMINANT AND INVERSE OF A 2X2 MATRIX  

01  RCL 4
02  RCL 1
03  *
04  RCL 2
05  RCL 3
06  *
07  -
08  STO 0
09  R/S
10  RCL 4
11  RCL 0
12  /
13  R/S
14  RCL 2
15  RCL 0
16  /
17  CHS
18  R/S
19  RCL 3
20  RCL 0
21  /
22  CHS
23  R/S
24  RCL 1
25  RCL 0
26  /

END

PROGRAM 6
NAME IN BASE B TO NUMBER IN BASE 10

01  STO 1
02  RCL 0
03  ENTER
04  ENTER
05  ENTER
06  RCL 1
07  R/S
08  STO 1
09  CLX
10  +
11  *
12  RCL 1
13  +
14  GTO 07
15  RCL 0
16  1/x
17  STO 2
18  STO 3
19  *
20  R/S
21  RCL 2
22  RCL 3
23  *
24  STO 3
25  *
26  +
27  GTO 20

END

PROGRAM 7
NAME NUMBER IN BASE 10 TO NUMBER IN BASE B

01  RCL 0
02  1
03  0
04  x>=y
05  GTO 09
06  1
07  0
08  0
09  STO 2
10  0
11  STO 3
12  RCL 1
13  LN
14  RCL 0
15  LN
16  /
17  x<0
18  GTO 21
19  INT
20  GTO 24
21  INT
22  1
23  -
24  STO 4
25  RCL 2
26  X<>Y
27  Y^X
28  RCL 3
29  +
30  STO 3
31  PAUSE
32  PAUSE
33  RCL 0
34  RCL 4
35  Y^X
36  STO - 1
37  GTO 12

END

PROGRAM 8
NAME VECTOR CROSS PRODUCT

01  RCL 2
02  RCL 6
03  *
04  RCL 3
05  RCL 5
06  *
07  -
08  R/S
09  RCL 3
10  RCL 4
11  *
12  RCL 1
13  RCL 6
14  *
15  -
16  R/S
17  RCL 1
18  RCL 5
19  *
20  RCL 2
21  RCL 4
22  *
23  -

END

PROGRAM 9
NAME ANGLE BETWEEN, NORM, AND DOT PRODUCT OF VECTORS

01  ENTER
02  x^2
03  STO + 1
04  ROLL
05  X<>Y
06  ENTER
07  x^2
08  STO + 0
09  ROLL
10  *
11  STO + 2
12  GTO 00
13  RCL 2
14  RCL 0
15  RCL 1
16  *
17  SQRT
18  /
19  COS-1

END

PROGRAM 10
NAME SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS

01  RCL 3
02  RCL 5
03  *
04  RCL 2
05  RCL 6
06  *
07  -
08  RCL 1
09  RCL 5
10  *
11  RCL 2
12  RCL 4
13  *
14  -
15  STO 0
16  /
17  R/S
18  RCL 1
19  RCL 6
20  *
21  RCL 3
22  RCL 4
23  *
24  -
25  RCL 0
26  /

END

PROGRAM 11
NAME MORTGAGE LOAN ACCUMULATED INTEREST

01  RCL 1
02  1
03  +
04  RCL 5
05  CHS
06  Y^X
07  STO 7
08  1
09  -
10  RCL 1
11  /
12  RCL 2
13  *
14  RCL 3
15  +
16  RCL 7
17  /
18  STO 6
19  RCL 1
20  1
21  +
22  RCL 4
23  1
24  -
25  CHS
26  Y^X
27  STO 7
28  1
29  -
30  RCL 1
31  /
32  RCL 2
33  *
34  RCL 3
35  +
36  RCL 7
37  /
38  -
39  RCL 5
40  RCL 4
41  -
42  1
43  +
44  RCL 2
45  *
46  +
47  R/S
48  X<>Y

END

PROGRAM 12
NAME PAYMENT, PRESENT VALUE, NUMBER OF PRERIODS     

01  1
02  RCL 2
03  1
04  +
05  RCL 1
06  CHS
07  Y^X
08  -
09  RCL 2
10  X<>Y
11  /
12  RCL 4
13  *
14  GTO 00
15  1
16  RCL 2
17  1
18  +
19  RCL 1
20  CHS
21  Y^X
22  -
23  RCL 2
24  /
25  RCL 3
26  *
27  GTO 00
28  1
29  RCL 4
30  RCL 3
31  /
32  RCL 2
33  *
34  -
35  LN
36  RCL 2
37  1
38  +
39  LN
40  /
41  CHS

END

PROGRAM 13
NAME INTERST RATE

01  RCL 3
02  ENTER
03  1/x
04  X<>Y
05  RCL 1
06  x^2
07  /
08  -
09  STO 2
10  RCL 3
11  RCL 2
12  *
13  1
14  RCL 2
15  1
16  +
17  RCL 1
18  CHS
19  Y^X
20  STO 5
21  -
22  -
23  RCL 1
24  RCL 2
25  1/x
26  1
27  +
28  /
29  1
30  +
31  RCL 5
32  *
33  1
34  -
35  RCL 2
36  /
37  /
38  STO + 2
39  ABS
40  EEX
41  6
42  CHS
43  x<y
44  GTO 10
45  RCL 2

END

PROGRAM 14
NAME COMPOUND AMOUNT 

01  RCL 5
02  RCL 4
03  /
04  LN
05  RCL 2
06  1
07  +
08  LN
09  /
10  GTO 00
11  RCL 5
12  RCL 4
13  /
14  RCL 1
15  1/x
16  Y^X
17  1
18  -
19  GTO 00
20  RCL 2
21  1
22  +
23  RCL 1
24  CHS
25  Y^X
26  RCL 5
27  *
28  GTO 00
29  RCL 2
30  1
31  +
32  RCL 1
33  Y^X
34  RCL 4
35  *
36  GTO 00
37  RCL 2
38  1
39  +
40  RCL 1
41  Y^X
42  1
43  -
44  RCL 4
45  *

END

PROGRAM 15
NAME PERIODIC SAVINGS

01  RCL 2
02  RCL 5
03  *
04  RCL 3
05  /
06  RCL 2
07  1
08  +
09  STO 0
10  +
11  LN
12  RCL 0
13  LN
14  /
15  1
16  -
17  GTO 00
18  RCL 5
19  RCL 2
20  *
21  RCL 2
22  1
23  +
24  /
25  LASTX
26  RCL 1
27  Y^X
28  1
29  -
30  /
31  GTO 00
32  RCL 3
33  RCL 2
34  1
35  +
36  *
37  LASTX
38  RCL 1
39  Y^X
40  1
41  -
42  *
43  RCL 2
44  /

END

PROGRAM 16
NAME DISCOUNTED CASH FLOW   

01  RCL 1
02  1
03  STO 4
04  +
05  STO 2
06  /
07  RCL 0
08  -
09  RCL 4
10  PAUSE
11  X<>Y
12  STO 3
13  R/S
14  RCL 2
15  RCL 4
16  1
17  +
18  STO 4
19  Y^X
20  /
21  RCL 3
22  +
23  GTO 09

END

PROGRAM 17
NAME CALENDAR    

01  3
02  RCL 1
03  x<y
04  GTO 09
05  1
06  +
07  RCL 3
08  GTO 15
09  1
10  3
11  +
12  RCL 3
13  1
14  -
15  3
16  6
17  5
18  .
19  2
20  5
21  *
22  INT
23  X<>Y
24  3
25  0
26  .
27  6
28  *
29  INT
30  +
31  RCL 2
32  +
33  6
34  2
35  1
36  0
37  4
38  9
39  -
40  R/S
41  7
42  /
43  FRAC
44  7
45  *

END

PROGRAM 18
NAME MOON LANDING

01  FIX 4
02  RCL 0
03  EEX
04  4
05  /
06  RCL 1
07  x<0
08  GTO 11
09  +
10  GTO 13
11  X<>Y
12  -
13  R/S
14  RCL 2
15  x<y
16  GTO 34
17  ROLL
18  STO - 2
19  5
20  -
21  STO 3
22  2
23  /
24  RCL 0
25  +
26  RCL 1
27  +
28  STO 0
29  x<0
30  GTO 44
31  RCL 3
32  STO + 1
33  GTO 02
34  RCL 1
35  x^2
36  RCL 0
37  1
38  0
39  *
40  +
41  SQRT
42  CHS
43  STO 1
44  RCL 1
45  FIX 0

END

PROGRAM 19
NAME NIMB        

01  ENTER
02  1
03  STO 2
04  ROLL
05  STO - 0
06  RCL 0
07  x=0
08  GTO 42
09  STO * 2
10  RCL 2
11  R/S
12  X<>Y
13  x>=0
14  GTO 17
15  X<>Y
16  GTO 02
17  1
18  CHS
19  STO 2
20  0
21  STO 1
22  RCL 1
23  3
24  x=y
25  GTO 40
26  1
27  STO + 1
28  CHS
29  RCL 0
30  +
31  RCL 1
32  -
33  4
34  /
35  FRAC
36  x!=0
37  GTO 22
38  RCL 1
39  GTO 05
40  1
41  GTO 05
42  RCL 2
43  x<0
44  GTO 47
45  RCL 3
46  GTO 00
47  RCL 4
48  FIX 1

END

PROGRAM 20
NAME TEACH ARITHMETIK

01  RCL 1
02  PI
03  x^2
04  *
05  FRAC
06  STO 1
07  RCL 0
08  *
09  INT
10  STO 3
11  RCL 1
12  PI
13  x^2
14  *
15  FRAC
16  STO 1
17  RCL 0
18  *
19  INT
20  STO 2
21  RCL 3
22  EEX
23  2
24  /
25  +
26  STO 4
27  R/S
28  RCL 2
29  RCL 3
30  +
31  GTO 43
32  RCL 2
33  RCL 3
34  -
35  GTO 43
36  RCL 2
37  RCL 3
38  *
39  GTO 43
40  RCL 2
41  RCL 3
42  /
43  x=y
44  GTO 01
45  RCL 4
46  CHS
47  GTO 27

END

PROGRAM 21
NAME GREAT CIRCLE PLOTTING

01  ->H
02  STO 4
03  RCL 1
04  -
05  SIN
06  RCL 2
07  TAN
08  *
09  RCL 4
10  RCL 3
11  -
12  SIN
13  RCL 0
14  TAN
15  *
16  -
17  RCL 3
18  RCL 1
19  -
20  SIN
21  /
22  TAN-1
23  ->H.MS
24  FIX 4

END

PROGRAM 22
NAME RHUMBLINE NAVIGATION  

01  -
02  STO 6
03  2
04  /
05  SIN
06  SIN-1
07  9
08  0
09  /
10  PI
11  *
12  RCL 5
13  RCL 4
14  -
15  ->P
16  ROLL
17  ABS
18  STO 7
19  RCL 6
20  SIN
21  SIN-1
22  x<0
23  GTO 26
24  X<>Y
25  GTO 31
26  3
27  6
28  0
29  RCL 7
30  -
31  R/S
32  6
33  0
34  RCL 7
35  COS
36  x!=0
37  GTO 45
38  CLX
39  RCL 6
40  *
41  RCL 2
42  COS
43  *
44  GTO 00
45  /
46  RCL 2
47  RCL 0
48  -
49  *

END

PROGRAM 23
NAME SIGHT REDUCTION TABLE

01  RCL 0
02  SIN
03  RCL 1
04  SIN
05  *
06  RCL 0
07  COS
08  RCL 1
09  COS
10  *
11  RCL 2
12  COS
13  *
14  +
15  STO 3
16  SIN-1
17  STO 4
18  ->H.MS
19  R/S
20  RCL 1
21  SIN
22  RCL 3
23  RCL 0
24  SIN
25  *
26  -
27  RCL 0
28  COS
29  /
30  RCL 4
31  COS
32  /
33  COS-1
34  RCL 2
35  SIN
36  x<0
37  GTO 45
38  ROLL
39  3
40  6
41  0
42  X<>Y
43  -
44  GTO 00
45  ROLL

END

PROGRAM 24
NAME GREAT CIRCLE NAVIGATION

01  RCL 0
02  SIN
03  RCL 1
04  SIN
05  *
06  RCL 0
07  COS
08  RCL 1
09  COS
10  *
11  RCL 2
12  COS
13  *
14  +
15  STO 3
16  COS-1
17  STO 4
18  6
19  0
20  *
21  R/S
22  RCL 1
23  SIN
24  RCL 0
25  SIN
26  RCL 3
27  *
28  -
29  RCL 0
30  COS
31  /
32  RCL 4
33  SIN
34  /
35  COS-1
36  RCL 2
37  SIN
38  x<0
39  GTO 47
40  ROLL
41  3
42  6
43  0
44  X<>Y
45  -
46  GTO 00
47  ROLL

END

PROGRAM 25
NAME NEWTONS METHOD SOLUTION      

01  CLX
02  STO 0
03  RCL 1
04  GTO 17
05  ROLL
06  STO 4
07  NOP
08  1
09  STO 0
10  RCL 1
11  RCL 1
12  EEX
13  5
14  /
15  STO 3
16  +
17  GTO 00
18  GTO 00
19  GTO 00
20  GTO 00
21  GTO 00
22  GTO 00
23  GTO 00
24  GTO 00
25  GTO 00
26  GTO 00
27  GTO 00
28  GTO 00
29  GTO 00
30  GTO 00
31  x=0
32  GTO 49
33  RCL 0
34  x=0
35  GTO 05
36  ROLL
37  RCL 4
38  /
39  1
40  -
41  1/x
42  RCL 3
43  *
44  STO - 1
45  ABS
46  RCL 2
47  x<y
48  GTO 01
49  RCL 1

END

PROGRAM 26
NAME NUMERICAL INTEGRATION SIMPSON'S RULE     

01  RCL 0
02  3
03  /
04  STO 0
05  *
06  STO 1
07  R/S
08  RCL 0
09  *
10  RCL 1
11  +
12  STO 1
13  R/S
14  RCL 0
15  *
16  4
17  *
18  RCL 1
19  +
20  STO 1
21  R/S
22  RCL 0
23  *
24  2
25  *
26  RCL 1
27  +
28  STO 1
29  GTO 13

END

PROGRAM 27
NAME DIFFERENTIAL EQUATIONS

01  CLX
02  STO 4
03  RCL 2
04  RCL 1
05  GTO 18
06  ROLL
07  STO 3
08  RCL 0
09  *
10  RCL 2
11  +
12  RCL 1
13  RCL 0
14  +
15  1
16  STO 4
17  ROLL
18  GTO 00
19  GTO 00
20  GTO 00
21  GTO 00
22  GTO 00
23  GTO 00
24  GTO 00
25  GTO 00
26  GTO 00
27  GTO 00
28  GTO 00
29  GTO 00
30  GTO 00
31  RCL 4
32  x=0
33  GTO 06
34  ROLL
35  RCL 3
36  +
37  RCL 0
38  *
39  2
40  /
41  RCL 2
42  +
43  STO 2
44  RCL 1
45  RCL 0
46  +
47  STO 1
48  PAUSE
49  X<>Y

END

PROGRAM 28
NAME LINEAR INTERPOLATION

01  STO 4
02  RCL 0
03  -
04  RCL 3
05  *
06  RCL 2
07  RCL 4
08  -
09  RCL 1
10  *
11  +
12  RCL 2
13  RCL 0
14  -
15  /

END

PROGRAM 29
NAME LINEAR REGRESS

01  ENTER
02  x^2
03  STO + 2
04  ROLL
05  X<>Y
06  E+
07  GTO 00
08  RCL 5
09  RCL 7
10  RCL 4
11  *
12  RCL 3
13  /
14  -
15  RCL 6
16  RCL 7
17  x^2
18  RCL 3
19  /
20  -
21  /
22  STO 1
23  RCL 7
24  *
25  CHS
26  RCL 4
27  +
28  RCL 3
29  /
30  STO 0
31  R/S
32  RCL 1
33  R/S
34  X<>Y
35  ROLL
36  *
37  RCL 2
38  RCL 4
39  x^2
40  RCL 3
41  /
42  -
43  /

END

PROGRAM 30
NAME EXPONENTIAL CURVE FIT

01  LN
02  ENTER
03  x^2
04  STO + 2
05  ROLL
06  X<>Y
07  E+
08  GTO 00
09  RCL 5
10  RCL 7
11  RCL 4
12  *
13  RCL 3
14  /
15  -
16  RCL 6
17  RCL 7
18  x^2
19  RCL 3
20  /
21  -
22  /
23  STO 1
24  RCL 7
25  *
26  CHS
27  RCL 4
28  +
29  RCL 3
30  /
31  e^x
32  STO 0
33  R/S
34  RCL 1
35  R/S
36  X<>Y
37  ROLL
38  *
39  RCL 2
40  RCL 4
41  x^2
42  RCL 3
43  /
44  -
45  /

END

PROGRAM 31
NAME LOGARITHMIC CURVE FIT

01  ENTER
02  x^2
03  STO + 2
04  ROLL
05  X<>Y
06  LN
07  E+
08  GTO 00
09  RCL 5
10  RCL 7
11  RCL 4
12  *
13  RCL 3
14  /
15  -
16  RCL 6
17  RCL 7
18  x^2
19  RCL 3
20  /
21  -
22  /
23  STO 1
24  RCL 7
25  *
26  CHS
27  RCL 4
28  +
29  RCL 3
30  /
31  STO 0
32  R/S
33  RCL 1
34  R/S
35  X<>Y
36  ROLL
37  *
38  RCL 2
39  RCL 4
40  x^2
41  RCL 3
42  /
43  -
44  /

END

PROGRAM 32
NAME POWER CURVE FIT     

01  LN
02  ENTER
03  x^2
04  STO + 2
05  ROLL
06  X<>Y
07  LN
08  E+
09  GTO 00
10  RCL 5
11  RCL 7
12  RCL 4
13  *
14  RCL 3
15  /
16  -
17  RCL 6
18  RCL 7
19  x^2
20  RCL 3
21  /
22  -
23  /
24  STO 1
25  RCL 7
26  *
27  CHS
28  RCL 4
29  +
30  RCL 3
31  /
32  e^x
33  STO 0
34  R/S
35  RCL 1
36  R/S
37  X<>Y
38  ROLL
39  *
40  RCL 2
41  RCL 4
42  x^2
43  RCL 3
44  /
45  -
46  /

END

PROGRAM 33
NAME COVARIANCE AND CORRELATION COEFFICIENT

01  ENTER
02  x^2
03  STO + 2
04  ROLL
05  X<>Y
06  E+
07  GTO 00
08  RCL 5
09  RCL 4
10  RCL 7
11  *
12  RCL 3
13  /
14  -
15  RCL 3
16  1
17  -
18  STO 0
19  /
20  STO 1
21  R/S
22  RCL 0
23  *
24  RCL 3
25  /
26  R/S
27  s
28  STO / 1
29  RCL 2
30  RCL 4
31  x^2
32  RCL 3
33  /
34  -
35  RCL 0
36  /
37  SQRT
38  STO / 1
39  RCL 1

END

PROGRAM 34
NAME MOMENTS AND SKEWNESS    

01  ENTER
02  x^2
03  E+
04  GTO 00
05  RCL 4
06  RCL 3
07  /
08  STO 2
09  R/S
10  RCL 7
11  RCL 3
12  /
13  RCL 2
14  x^2
15  -
16  STO 1
17  R/S
18  RCL 5
19  RCL 3
20  /
21  RCL 7
22  RCL 2
23  *
24  RCL 3
25  /
26  3
27  *
28  -
29  RCL 2
30  ENTER
31  x^2
32  *
33  2
34  *
35  +
36  STO 0
37  R/S
38  RCL 0
39  RCL 1
40  1
41  .
42  5
43  Y^X
44  /

END

PROGRAM 35
NAME NORMAL DISTRIBUTION

01  ENTER
02  STO 6
03  *
04  2
05  /
06  CHS
07  e^x
08  PI
09  2
10  *
11  SQRT
12  /
13  STO 7
14  R/S
15  RCL 0
16  RCL 6
17  *
18  1
19  +
20  1/x
21  ENTER
22  ENTER
23  ENTER
24  RCL 5
25  *
26  RCL 4
27  +
28  *
29  RCL 3
30  +
31  *
32  RCL 2
33  +
34  *
35  RCL 1
36  +
37  *
38  RCL 7
39  *

END

PROGRAM 36
NAME INVERSE NORMAL INTEGRAL 

01  ENTER
02  *
03  1/x
04  LN
05  SQRT
06  STO 6
07  ENTER
08  ENTER
09  ENTER
10  RCL 5
11  *
12  RCL 4
13  +
14  *
15  RCL 3
16  +
17  *
18  1
19  +
20  STO 7
21  CLX
22  RCL 2
23  *
24  RCL 1
25  +
26  *
27  RCL 0
28  +
29  RCL 7
30  /
31  -

END

PROGRAM 37
NAME FACTORIAL   

01  ENTER
02  1
03  STO 0
04  X<>Y
05  STO * 0
06  1
07  -
08  x!=y
09  GTO 05
10  RCL 0

END


PROGRAM 38
NAME PERMUTATION 

01  RCL 0
02  RCL 0
03  RCL 1
04  x=0
05  GTO 29
06  x=y
07  GTO 31
08  x>=y
09  GTO 39
10  1
11  x=y
12  GTO 41
13  ROLL
14  -
15  1
16  +
17  *
18  LASTX
19  RCL 0
20  1
21  -
22  x=y
23  GTO 26
24  ROLL
25  GTO 15
26  ROLL
27  ROLL
28  GTO 00
29  1
30  GTO 00
31  1
32  -
33  x=0
34  GTO 37
35  STO * 0
36  GTO 31
37  RCL 0
38  GTO 00
39  0
40  /
41  ROLL
42  ROLL
43  GTO 00

END

PROGRAM 39
NAME COMBINATION 

01  -
02  LASTX
03  x<y
04  X<>Y
05  STO 0
06  1
07  STO 1
08  +
09  STO 2
10  ROLL
11  x=0
12  GTO 30
13  1
14  RCL 1
15  +
16  STO 1
17  X<>Y
18  x>=y
19  GTO 22
20  RCL 2
21  GTO 00
22  X<>Y
23  RCL 0
24  +
25  RCL 1
26  /
27  STO * 2
28  ROLL
29  GTO 13
30  1

END

PROGRAM 40
NAME RANDOM NUMBER GENERATOR      

01  PI
02  RCL 0
03  +
04  5
05  Y^X
06  FRAC
07  STO 0

END

PROGRAM 41
NAME CHI SQUARE EVALUATION  

01  0
02  STO 0
03  STO 1
04  R/S
05  STO 2
06  -
07  x^2
08  RCL 2
09  /
10  STO + 1
11  RCL 0
12  1
13  +
14  STO 0
15  GTO 04
16  STO 2
17  -
18  x^2
19  RCL 2
20  /
21  STO - 1
22  RCL 0
23  1
24  -
25  STO 0
26  GTO 04

END

PROGRAM 42
NAME PAIRED t STATISTIC

01  -
02  E+
03  GTO 00
04  s
05  RCL 3
06  SQRT
07  /
08  /x
09  X<>Y
10  /
11  R/S
12  RCL 3
13  1
14  -

END

PROGRAM 43
NAME t STATISTIC for TWO MEANS   

01  RCL 3
02  STO 0
03  RCL 6
04  STO 1
05  /x
06  STO 2
07  CLX
08  STO 3
09  STO 6
10  STO 7
11  R/S
12  ENTER
13  /x
14  +
15  RCL 2
16  X<>Y
17  -
18  RCL 0
19  1/x
20  RCL 3
21  1/x
22  +
23  SQRT
24  /
25  RCL 1
26  RCL 2
27  x^2
28  RCL 0
29  *
30  -
31  RCL 6
32  +
33  /x
34  x^2
35  RCL 3
36  *
37  -
38  RCL 0
39  RCL 3
40  +
41  2
42  -
43  /
44  SQRT
45  /

END

PROGRAM 44
NAME ONE SAMPLE TEST STATISTICS FOR THE MEAN

01  /x
02  X<>Y
03  -
04  RCL 3
05  SQRT
06  *
07  STO 0
08  CLX
09  R/S
10  RCL 0
11  s
12  /
13  R/S
14  RCL 0
15  X<>Y
16  /

END

PROGRAM 45
NAME FIELD ANGLE TRAVERSE    

01  ->H
02  1
03  8
04  0
05  +
06  STO 0
07  RCL 1
08  STO 5
09  0
10  STO 3
11  STO 4
12  R/S
13  ->H
14  1
15  8
16  0
17  +
18  ->H.MS
19  ->H
20  RCL 0
21  +
22  STO 0
23  ->H.MS
24  R/S
25  GTO 29
26  X<>Y
27  SIN
28  *
29  STO + 3
30  RCL 0
31  X<>Y
32  ->R
33  STO + 1
34  X<>Y
35  STO + 2
36  RCL 5
37  RCL 1
38  STO 5
39  +
40  *
41  2
42  /
43  STO + 4
44  RCL 1
45  R/S
46  RCL 2
47  GTO 12

END

PROGRAM 46
NAME AREA BY DOUBLE MERIDIAN DISTANCE       

01  ->H
02  R/S
03  2
04  /
05  ENTER
06  INT
07  x!=y
08  GTO 14
09  ROLL
10  ROLL
11  CHS
12  ROLL
13  ROLL
14  ROLL
15  INT
16  1
17  8
18  0
19  *
20  +
21  STO 0
22  ->H.MS
23  R/S
24  RCL 0
25  X<>Y
26  ->R
27  X<>Y
28  RCL 2
29  X<>Y
30  STO 2
31  +
32  RCL 1
33  +
34  STO 1
35  *
36  2
37  /
38  STO + 3
39  RCL 3

END

PROGRAM 47
NAME INVERSE FROM COORDINATES

01  CLREG
02  STO 2
03  X<>Y
04  STO 0
05  STO 1
06  R/S
07  RCL 2
08  -
09  STO + 2
10  STO 5
11  X<>Y
12  RCL 1
13  -
14  STO + 1
15  ->P
16  STO + 3
17  R/S
18  X<>Y
19  x>=0
20  GTO 25
21  3
22  6
23  0
24  +
25  ENTER
26  ENTER
27  9
28  0
29  /
30  1
31  +
32  INT
33  X<>Y
34  SIN
35  SIN-1
36  x<0
37  CHS
38  ->H.MS
39  RCL 0
40  RCL 1
41  STO 0
42  +
43  RCL 5
44  *
45  2
46  /
47  STO + 4
48  ROLL
49  GTO 06

END

PROGRAM 48
NAME COORDINATE TRANSLATION/ROTATION

01  STO 3
02  ROLL
03  RCL 2
04  X<>Y
05  RCL 0
06  -
07  ->R
08  RCL 3
09  RCL 1
10  -
11  RCL 2
12  X<>Y
13  ->R
14  ROLL
15  +
16  R/S
17  ROLL
18  -

END

PROGRAM 49
NAME TRIANGLE SOLUTION B,b,c

01  RCL 3
02  RCL 1
03  SIN
04  *
05  RCL 2
06  /
07  SIN-1
08  STO 5
09  R/S
10  RCL 1
11  +
12  1
13  SIN-1
14  2
15  *
16  STO 4
17  X<>Y
18  -
19  R/S
20  SIN
21  RCL 2
22  *
23  RCL 1
24  SIN
25  /
26  R/S
27  RCL 3
28  *
29  RCL 1
30  SIN
31  *
32  2
33  /
34  R/S
35  RCL 4
36  RCL 5
37  -
38  R/S
39  GTO 10

END

PROGRAM 50
NAME TRIANGLE SOLUTION a,b,c

01  RCL 1
02  RCL 2
03  ->P
04  x^2
05  RCL 3
06  x^2
07  -
08  RCL 1
09  RCL 2
10  *
11  2
12  *
13  /
14  COS-1
15  R/S
16  SIN
17  RCL 3
18  /
19  STO 0
20  RCL 2
21  *
22  SIN-1
23  R/S
24  RCL 0
25  RCL 1
26  *
27  SIN-1
28  R/S
29  RCL 1
30  RCL 2
31  +
32  RCL 3
33  +
34  2
35  /
36  ENTER
37  STO 0
38  RCL 1
39  -
40  *
41  RCL 0
42  RCL 2
43  -
44  *
45  RCL 0
46  RCL 3
47  -
48  *
49  SQRT

END

PROGRAM 51
NAME TRIANGLE SOLUTION a,A,C

01  1
02  SIN-1
03  2
04  *
05  RCL 2
06  RCL 3
07  +
08  -
09  R/S
10  SIN
11  RCL 1
12  *
13  RCL 2
14  SIN
15  /
16  STO 4
17  R/S
18  RCL 1
19  LASTX
20  /
21  RCL 3
22  SIN
23  *
24  R/S
25  RCL 1
26  RCL 4
27  *
28  RCL 3
29  SIN
30  *
31  2
32  /

END

PROGRAM 52
NAME TRIANGLE SOLUTION a,b,C

01  RCL 1
02  RCL 2
03  ->P
04  x^2
05  RCL 1
06  RCL 2
07  *
08  2
09  *
10  RCL 3
11  COS
12  *
13  -
14  SQRT
15  R/S
16  RCL 1
17  RCL 3
18  SIN
19  *
20  X<>Y
21  /
22  SIN-1
23  R/S
24  1
25  SIN-1
26  2
27  *
28  X<>Y
29  RCL 3
30  +
31  -
32  R/S
33  RCL 3
34  SIN
35  RCL 1
36  *
37  RCL 2
38  *
39  2
40  /

END

PROGRAM 53
NAME TRIANGLE SOLUTION a,B,C

01  1
02  SIN-1
03  2
04  *
05  RCL 2
06  RCL 3
07  +
08  -
09  STO 4
10  R/S
11  RCL 1
12  RCL 4
13  SIN
14  /
15  STO 4
16  RCL 2
17  SIN
18  *
19  R/S
20  RCL 4
21  RCL 3
22  SIN
23  *
24  R/S
25  RCL 1
26  x^2
27  2
28  /
29  RCL 2
30  SIN
31  *
32  RCL 3
33  SIN
34  *
35  RCL 2
36  RCL 3
37  +
38  SIN
39  /

END

PROGRAM 54
NAME HYPERBOLIC FUNCTIONS 

01  e^x
02  ENTER
03  1/x
04  -
05  2
06  /
07  GTO 00
08  e^x
09  ENTER
10  1/x
11  +
12  GTO 05
13  e^x
14  ENTER
15  1/x
16  -
17  ENTER
18  ENTER
19  LASTX
20  2
21  *
22  +
23  /

END

PROGRAM 55
NAME INVERSE HYPERBOLIC FUNCTIONS

01  ENTER
02  ENTER
03  *
04  1
05  +
06  SQRT
07  +
08  LN
09  GTO 00
10  ENTER
11  ENTER
12  *
13  1
14  -
15  SQRT
16  +
17  LN
18  GTO 00
19  ENTER
20  ENTER
21  1
22  +
23  X<>Y
24  CHS
25  1
26  +
27  /
28  LN
29  2
30  /

END
