HP33

PROGRAM 153
NAME OHMS LAW

01  *
02  SQRT
03  GSB 18
04  GTO 00
05  X<>Y
06  GSB 18
07  x^2
08  X<>Y
09  /
10  GTO 00
11  *
12  GSB 18
13  GTO 00
14  *
15  GSB 18
16  1/x
17  GTO 00
18  PI
19  *
20  2
21  *
22  1/x
23  RTN
24  1/x
25  *
26  GTO 00
27  1/x
28  X<>Y
29  x^2
30  X<>Y
31  *
32  GTO 00
33  1/x
34  *
35  SQRT
36  GTO 00

END

PROGRAM 154
NAME RESISTORS

01  0
02  GTO 04
03  1
04  STO 0
05  R/S
06  RCL 0
07  x=0
08  GSB 20
09  ROLL
10  STO + 1
11  GTO 05
12  RCL 1
13  RCL 0
14  x=0
15  GSB 20
16  CLX
17  STO 1
18  ROLL
19  GTO 00
20  ROLL
21  1/x
22  ENTER
23  RTN

END

PROGRAM 155
NAME EXP.GROWTH

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

END

PROGRAM 156
NAME BLACK BODY

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

END

PROGRAM 157
NAME IDEAL GAS

01  GSB 28
02  STO 2
03  ROLL
04  GSB 28
05  STO 1
06  ROLL
07  R/S
08  GSB 28
09  STO 5
10  ROLL
11  GSB 28
12  STO 4
13  ROLL
14  GSB 28
15  STO 3
16  RCL 3
17  RCL 4
18  *
19  RCL 5
20  *
21  RCL 1
22  RCL 2
23  *
24  /
25  R/S
26  1/x
27  GTO 00
28  x!=0
29  RTN
30  ROLL
31  1
32  RTN

END

PROGRAM 158
NAME EQU.MOTION

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

END

PROGRAM 159
NAME FREQ. OSCI

01  STO 3
02  ROLL
03  STO 2
04  ROLL
05  STO 1
06  x=0
07  GTO 18
08  RCL 2
09  x=0
10  GTO 14
11  GSB 27
12  /
13  GTO 00
14  GSB 27
15  RCL 3
16  *
17  GTO 00
18  RCL 2
19  RCL 3
20  /
21  SQRT
22  PI
23  2
24  *
25  /
26  GTO 00
27  RCL 1
28  PI
29  *
30  2
31  *
32  x^2
33  RTN
34  RCL 0
35  /
36  GTO 00
37  RCL 0
38  *
39  GTO 00

END

PROGRAM 160
NAME KINETIC ENERGY

01  2
02  STO 0
03  GTO 13
04  6
05  4
06  .
07  3
08  4
09  7
10  9
11  6
12  STO 0
13  R/S
14  x^2
15  *
16  RCL 0
17  /
18  GTO 13
19  1
20  9
21  8
22  EEX
23  4
24  /
25  GTO 13
26  x^2
27  X<>Y
28  RCL 0
29  *
30  X<>Y
31  /
32  GTO 13
33  /
34  RCL 0
35  *
36  SQRT
37  GTO 13


END

PROGRAM 161
NAME RPM TORQUE

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

END

PROGRAM 162
NAME STATIC EQU.

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

END

PROGRAM 163
NAME 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  -
24  GTO 00

END

PROGRAM 164
NAME DOT PRODUCT

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 165
NAME 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 4
15  RCL 4
16  1
17  +
18  STO 4
19  Y^X
20  /
21  RCL 3
22  +
23  GTO 09

END

PROGRAM 166
NAME COMPOUND AMOUNT

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

END

