Ohm's Law

Description

Origin: HP-34C Student Engineering Applications, August 1979, p. 4

This program provides interchangeable solutions for the Ohm's Law relations. Specifically, one may solve for:
Formulas used:
V = IR
P = I2R

Where
V = Voltage, I = Current, R = Resistant, P = Power dissipation

Instructions
  1. Store any two of the following:
  2. Clear the two unknowns:
    V: 0 STO 0, C: 0 STO 1, I: 0 STO 2, P: 0 STO 3
Example 1:
V = 43.2 volts, I = .1 amperes; calculate R and P:

43.2 STO 0
.1 STO 1
0 STO 2 STO 3
A → 4.3200 (P, watts)
RCL 2 → 432.00 (I, amps)

Example 2:
After Example 1 let V = 43.2 volts, R =430; calculate I and P:

430 STO 2
0 STO 1 STO 3
A → 4.3401 (P, watts)
RCL 1 → 4.3401 (I, amps)

Program Resources

Labels

Name Description
 A Calculate unknown values
 0 Voltage / Resistance → Current
 1 Power / Resistance → Current
 2 Power / Current² → Resistance
 3 Current × Impedance → Voltage
 4 Voltage / Current → Resistance
 5 Voltage × Current → Power

Storage Registers

Name Description
 0 Voltage
 1 Current
 2 Resistance
 3 Power

Program

Line Display Key Sequence Line Display Key Sequence Line Display Key Sequence
000 020 22 0 GTO 0 040 22 5 GTO 5
001 42,21,11 f LBL A 021 45 3 RCL 3 041 42,21, 4 f LBL 4
002 45 0 RCL 0 022 45 2 RCL 2 042 45 0 RCL 0
003 43,30, 0 g TEST x≠0 023 10 ÷ 043 45 1 RCL 1
004 22 1 GTO 1 024 44 1 STO 1 044 10 ÷
005 45 1 RCL 1 025 22 4 GTO 4 045 44 2 STO 2
006 43,30, 0 g TEST x≠0 026 42,21, 2 f LBL 2 046 22 5 GTO 5
007 22 2 GTO 2 027 45 2 RCL 2 047 42,21, 0 f LBL 0
008 45 3 RCL 3 028 43,30, 0 g TEST x≠0 048 45 0 RCL 0
009 45 2 RCL 2 029 22 3 GTO 3 049 45 2 RCL 2
010 10 ÷ 030 45 3 RCL 3 050 10 ÷
011 11 √x̅ 031 45 1 RCL 1 051 44 1 STO 1
012 44 1 STO 1 032 43 11 g 052 42,21, 5 f LBL 5
013 22 3 GTO 3 033 10 ÷ 053 45 1 RCL 1
014 42,21, 1 f LBL 1 034 44 2 STO 2 054 45 0 RCL 0
015 45 1 RCL 1 035 42,21, 3 f LBL 3 055 20 ×
016 43,30, 0 g TEST x≠0 036 45 1 RCL 1 056 44 3 STO 3
017 22 4 GTO 4 037 45 2 RCL 2 057 43 32 g RTN
018 45 2 RCL 2 038 20 ×
019 43,30, 0 g TEST x≠0 039 44 0 STO 0