HP33

PROGRAM 122
NAME QUAD. EQU.

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
36  GTO 00

END

PROGRAM 123
NAME COMPLEX ARIT

01  CHS
02  X<>Y
03  CHS
04  X<>Y
05  RCL 0
06  +
07  X<>Y
08  RCL 1
09  +
10  GTO 29
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  STO * 2
24  ROLL
25  +
26  RCL 2
27  ->R
28  X<>Y
29  STO 1
30  X<>Y
31  STO 0
32  GTO 00

END

PROGRAM 124
NAME COMPLEX FUNC

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

END

PROGRAM 125
NAME DETERMINANT

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  /
27  GTO 00

END

PROGRAM 126
NAME EQU 2 UNKNOWN

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  /
27  GTO 00

END

PROGRAM 127
NAME 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 128
NAME 10 - BASE

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

END

PROGRAM 129
NAME CROSS PROD

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  -
24  GTO 00

END

PROGRAM 130
NAME DOT PROD

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
20  GTO 00

END

PROGRAM 131
NAME NEWTON

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

END

PROGRAM 132
NAME SIMPSON

01  RCL 0
02  3
03  /
04  STO 0
05  *
06  STO 1
07  R/S
08  GSB 18
09  R/S
10  4
11  *
12  GSB 18
13  R/S
14  2
15  *
16  GSB 18
17  GTO 09
18  RCL 0
19  *
20  STO + 1
21  RCL 1
22  RTN

END

PROGRAM 133
NAME HYPERBOLIC

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  /
24  GTO 00

END

PROGRAM 134
NAME INV.HYPERBOL

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  /
31  GTO 00

END

PROGRAM 135
NAME CIRCLE 3 P

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

END

PROGRAM 136
NAME INTERSECTION

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

END
