; HP34C Student Applications

HP34C

PROGRAM 116
NAME OHM'S LAW

001  LBL A
002  RCL 0
003  x!=0
004  GTO 1
005  RCL 1
006  x!=0
007  GTO 2
008  RCL 3
009  RCL 2
010  :
011  SQRT
012  STO 1
013  GTO 3
014  LBL 1
015  RCL 1
016  x!=0
017  GTO 4
018  RCL 2
019  x!=0
020  GTO 0
021  RCL 3
022  RCL 0
023  :
024  STO 1
025  GTO 4
026  LBL 2
027  RCL 2
028  x!=0
029  GTO 3
030  RCL 3
031  RCL 1
032  x^2
033  :
034  STO 2
035  LBL 3
036  RCL 1
037  RCL 2
038  *
039  STO 0
040  GTO 5
041  LBL 4
042  RCL 0
043  RCL 1
044  :
045  STO 2
046  GTO 5
047  LBL 0
048  RCl 0
049  RCL 2
050  :
051  STO 1
052  LBL 5
053  RCl 1
054  RCL 0
055  *
056  STO 3
057  RTN
END

PROGRAM 117
NAME REACTANCE

001  LBL B
002  RCL 4
003  x!=0
004  GTO 0
005  RCL 5
006  RCL 6
007  *
008  SQRT
009  GSB 3
010  STO 4
011  GTO 2
012  LBL 0
013  GSB 3
014  x^2
015  RCL 5
016  x!=0
017  GTO 1
018  ROLL
019  RCL 6
020  :
021  STO 5
022  GTO 2
023  LBL 1
024  :
025  STO 6
026  LBL 2
027  RCL 4
028  RCL 6
029  *
030  LBL 3
031  PI
032  *
033  2
034  *
035  1/x
036  STO 7
037  RTN
END

PROGRAM 118
NAME IMPEDANCE

001  LBL A
002  CLREG
003  2
004  *
005  PI
006  *
007  STO 0
008  CF 0
009  RTN
010  LBL B
011  SF 0
012  RTN
013  LBL 1
014  1/x
015  F? 0
016  1/x
017  0
018  GTO 9
019  LBL 2
020  F? 0
021  GTO 6
022  LBL 5
023  RCL 0
024  *
025  1/x
026  CHS
027  0
028  x<>y
029  GTO 9
030  LBL 3
031  F? 0
032  GTO 5
033  LBL 6
034  RCL 0
035  *
036  0
037  x<>y
038  LBL 9
039  RCL 2
040  RCL 1
041  F? 0
042  GSB 0
043  ROLL UP
044  +
045  ROLL
046  +
047  ROLL UP
048  F? 0
049  GSB 0
050  STO 1
051  x<>y
052  STO 2
053  x<>y
054  GSB 0
055  CF 0
056  ->P
057  RTN
058  LBL 0
059  ->P
060  1/x
061  x<>y
062  CHS
063  x<>y
064  ->R
065  RTN
END

PROGRAM 119
NAME RESISTOR ADD

001  LBL B
002  1/x
003  x<>y
004  1/x
005  +
006  1/x
007  RTN    
008  LBL 1  
009  1      
010  2      
011  0      
012  :      
013  10^x   
014  STO 2  
015  ROLL   
016  RTN    
017  LBL A  
018  LOG    
019  ENTER  
020  INT    
021  STO 4  
022  -      
023  1      
024  +      
025  10^x   
026  STO 3  
027  1      
028  STO - 4
029  1      
030  0      
031  STO 5  
032  LBL 0  
033  RCL 3  
034  RCL 5  
035  x>y    
036  GTO 9  
037  RCL 2
038  *
039  STO 5
040  GTO 0
041  LBL 9
042  GSB 8
043  STO 7
044  RCL 5
045  RCL 2
046  :
047  GSB 8
048  STO 6
049  RCL 7
050  *
051  SQRT
052  RCL 3
053  x<=y
054  GSB 7
055  RCL 7
056  RCL 4
057  10^x
058  *
059  RTN
060  LBL 8
061  .
062  5
063  +
064  INT
065  STO 6
066  2
067  6
068  x>y
069  GTO 6
070  4
071  7
072  RCL 6
073  x>y
074  GTO 3
075  1
076  +
077  RTN
078  LBL 3
079  8
080  3
081  RCL 6
082  x!=y
083  RTN
084  8
085  2
086  RTN
087  LBL 7
088  RCL 6
089  STO 7
090  RTN
091  LBL 6
092  RCL 6
093  RTN
END

PROGRAM 120
NAME GAS EQUATION

001  LBL 1
002  GSB 8
003  RCL 2
004  :
005  STO 1
006  RTN
007  LBL 2
008  GSB 8
009  RCL 1
010  :
011  STO 2
012  RTN
013  LBL 3
014  GSB 9
015  RCL 5
016  :
017  STO 3
018  RTN
019  LBL 5
020  GSB 9
021  RCL 3
022  :
023  STO 4
024  RTN
025  LBL 8
026  RCL 3
027  RCL 0
028  *
029  RCL 4
030  *
031  RTN
032  LBL 9
033  RCL 1
034  RCL 2
035  *
036  RCL 0
037  :
038  RTN
END

PROGRAM 121
NAME CONDUIT FLOW

001  LBL B
002  CF 0
003  GSB 3
004  RCL 0
005  x^2
006  *
007  RCL 5
008  *
009  STO 1
010  GTO 2
011  LBL A
012  SF 0
013  GSB 3
014  STO I
015  LBL 1
016  GSB 4
017  ENTER
018  x<>I
019  D%
020  ABS
021  EEX
022  3
023  CHS
024  x<=y
025  GTO 1
026  RCL 0
027  LBL 2
028  RCL 9
029  1/x
030  x^2
031  STO 9
032  ROLL
033  RTN
034  LBL 3
035  RCL 6
036  RCL 7
037  :
038  STO .1
039  LN
040  1
041  .
042  7
043  3
044  7
045  STO .2
046  *
047  2
048  .
049  2
050  8
051  +
052  STO .0
053  STO 9
054  F? 0
055  GTO 5
056  LBL 4
057  RCL 0
058  RCL 6
059  *
060  RCL 4
061  :
062  STO 8
063  RCL 9
064  2
065  :
066  RCL 9
067  SOLVE 0
068  GTO 5
069  0
070  :
071  LBL 5
072  STO 9
073  1/x
074  x^2
075  RCL 2
076  *
077  RCL 6
078  :
079  RCL 3
080  +
081  2
082  *
083  RCL 1
084  RCL 5
085  :
086  x<>y
087  F? 0
088  GTO 6
089  RTN
090  LBL 6
091  :
092  SQRT
093  STO 0
094  RTN
095  LBL 0
096  1
097  x<=y
098  ROLL
099  ENTER
100  ENTER
101  RCL .1
102  *
103  RCL 8
104  :
105  4
106  .
107  6
108  7
109  *
110  1
111  +
112  LN
113  RCL .2
114  *
115  +
116  CHS
117  RCL .0
118  +
119  RTN
END

PROGRAM 122
NAME MOTION EQU.

001  LBL A
002  RCL 1
003  x!=0
004  GTO 1
005  RCL 2
006  x!=0
007  GTO 0
008  RCL I
009  RCL 0
010  *
011  RCL 3
012  RCL 0
013  x^2
014  *
015  2
016  :
017  +
018  STO 1
019  GTO 2
020  LBL 0
021  RCL 3
022  x!=0
023  GTO 0
024  RCL I
025  RCL 2
026  +
027  2
028  :
029  RCL 0
030  *
031  STO 1
032  GTO 9
033  LBL 0
034  RCL 0
035  x!=0
036  GTO 0
037  RCL 2
038  x^2
039  RCL I
040  x^2
041  -
042  RCL 3
043  2
044  *
045  :
046  STO 1
047  GTO 5
048  LBL 0
049  RCL 2
050  RCL 0
051  *
052  RCL 3
053  RCL 0
054  x^2
055  *
056  2
057  :
058  -
059  STO 1
060  GTO 8
061  LBL 1
062  RCL 2
063  x!=0
064  GTO 3
065  RCL 3
066  x!=0
067  GTO 0
068  RCL 1
069  RCL 0
070  :
071  2
072  *
073  RCL I
074  -
075  STO 2
076  GTO 7
077  LBL 0
078  RCL 0
079  x!=0
080  GTO 2
081  RCL 1
082  RCL 3
083  *
084  2
085  *
086  RCL I
087  x^2
088  +
089  SQRT
090  RCL 1
091  ENTER
092  ABS
093  :
094  *
095  STO 2
096  GTO 5
097  LBL 2
098  RCL 1
099  RCL 0
100  :
101  RCL 3
102  RCL 0
103  *
104  2
105  :
106  +
107  STO 2
108  GTO 8
109  LBL 3
110  RCL 3
111  x=0
112  GTO 0
113  GSB 6
114  GTO 8
115  LBL 0
116  RCL 0
117  x!=0
118  GTO 7
119  LBL 9
120  RCL 2
121  x^2
122  RCL I
123  x^2
124  -
125  RCL 1
126  :
127  2
128  :
129  STO 3
130  LBL 5
131  RCL 1
132  RCL 2
133  RCL I
134  +
135  :
136  2
137  *
138  STO 0
139  RTN
140  LBL 6
141  RCL 2
142  x^2
143  RCL 1
144  RCL 3
145  *
146  2
147  *
148  -
149  SQRT
150  RCL 1
151  ENTER
152  ABS
153  :
154  CHS
155  *
156  RCL 2
157  +
158  RCL 3
159  :
160  STO 0
161  RTN
162  LBL 7
163  RCL 2
164  RCL 1
165  RCL 0
166  :
167  -
168  RCL 0
169  :
170  2
171  *
172  STO 3
173  LBL 8
174  RCL 2
175  RCL 3
176  RCL 0
177  *
178  -
179  STO I
180  RTN
END

PROGRAM 123
NAME KINETIC ENERGY

001  LBL A
002  2
003  STO 0
004  RTN
005  LBL B
006  6
007  4
008  .
009  3
010  4
011  7
012  9
013  6
014  STO 0
015  RTN
016  LBL 1
017  RCL 2
018  RCL 3
019  x^2
020  *
021  RCL 0
022  :
023  STO 1
024  RTN
025  LBL 2
026  RCL 1
027  RCL 3
028  x^2
029  :
030  RCL 0
031  *
032  STO 2
033  RTN
034  LBL 3
035  RCL 1
036  RCL 2
037  :
038  RCL 0
039  *
040  SQRT
041  STO 3
042  RTN
END

PROGRAM 124
NAME MOHR CYCLE

001  LBL A
002  ENTER
003  ROLL
004  STO 3
005  ROLL
006  x<>y
007  STO 1
008  x<>y
009  STO + 1
010  -
011  2
012  STO : 1
013  :
014  STO 4
015  ->P
016  STO 2
017  RCL 1
018  +
019  R/S
020  x<>y
021  RCL 1
022  RCL 2
023  -
024  R/S
025  x<>y
026  2
027  :
028  R/S
029  RCL 4
030  RCL 3
031  :
032  CHS
033  TAN-1
034  2
035  :
036  R/S
037  RCL 2
038  RTN
END

PROGRAM 125
NAME SIMPLY BEAMS

001  LBL A
002  STO 4
003  RCL 1
004  ENTER
005  *
006  LastX
007  *
008  RCL 4
009  F? 0
010  4
011  F? 0
012  *
013  RCL 1
014  2
015  *
016  F? 0
017  3
018  F? 0
019  *
020  -
021  RCL 4
022  x^2
023  *
024  +
025  R/S
026  *
027  2
028  4
029  :
030  RCL 4
031  x<>y
032  *
033  F? 0
034  LastX
035  CHS
036  GSB 1
037  RCL 5
038  x^2
039  F? 0
040  3
041  F? 0
042  *
043  RCL I
044  x^2
045  +
046  RCL 1
047  x^2
048  -
049  *
050  6
051  :
052  GSB 2
053  RCL 5
054  x^2
055  RCL 1
056  :
057  6
058  :
059  F? 0
060  3
061  F? 0
062  *
063  RCL 1
064  3
065  :
066  +
067  RCL I
068  x^2
069  2
070  :
071  RCL 1
072  :
073  +
074  RCL I
075  -
076  *
077  RCL 1
078  *
079  RCL 6
080  +
081  RCL 0
082  :
083  RTN
084  LBL B
085  STO 4
086  2
087  :
088  RCL 1
089  F? 0
090  2
091  F? 0
092  :
093  RCL 4
094  -
095  R/S
096  *
097  *
098  F? 0
099  LastX
100  GSB 1
101  GSB 2
102  RCL 6
103  +
104  RTN
105  LBL 1
106  STO 6
107  RCL 1
108  RCL 2
109  -
110  STO I
111  RCL 4
112  STO 5
113  RCL 2
114  x>y
115  GTO 0
116  RCL 2
117  CHS
118  STO I
119  RCL 1
120  STO - 5
121  LBL 0
122  R/S
123  RCL I
124  *
125  RCL 1
126  :
127  F? 0
128  RTN
129  RCL 5
130  *
131  RTN
132  LBL 2
133  STO + 6
134  RCL 4
135  STO 5
136  RCL 3
137  STO I
138  x>y
139  GTO 0
140  RCL 4
141  RCL 1
142  -
143  STO 5
144  RCL 1
145  RCL 3
146  -
147  STO I
148  LBL 0
149  R/S
150  RCL 1
151  :
152  F? 0
153  RTN 
154  RCL 5
155  *
156  RTN
END

PROGRAM 126
NAME SECTION PROPERTIES

001  LBL A
002  STO 4
003  ROLL
004  STO 3
005  ROLL
006  STO 2
007  x<>y
008  STO 1
009  *
010  STO .3
011  ENTER
012  STO + 0
013  RCL 3
014  *
015  STO + 5
016  ROLL
017  RCL 4
018  *
019  STO + 6
020  RCL 2
021  x^2
022  1
023  2
024  :
025  RCL 4
026  x^2
027  +
028  RCL .3
029  *
030  STO + 7
031  RCL 1
032  x^2
033  1
034  2
035  :
036  RCL 3
037  x^2
038  +
039  RCL .3
040  *
041  STO + 8
042  RCL 3
043  RCL 4
044  *
045  RCL .3
046  *
047  STO + 9
048  RTN
049  LBL B
050  GSB 1
051  R/S
052  GSB 0
053  R/S
054  RCL 0
055  R/S
056  RCL 7
057  R/S
058  RCL 8
059  R/S
060  RCL 9
061  R/S
062  RCL 7
063  GSB 0
064  x^2
065  RCL 0
066  *
067  -
068  STO .0
069  R/S
070  RCL 8
071  GSB 1
072  x^2
073  RCL 0
074  *
075  -
076  STO .1
077  R/S
078  RCL 9
079  GSB 1
080  GSB 0
081  *
082  RCL 0
083  *
084  -
085  STO .2
086  R/S
087  RCL .2
088  2
089  *
090  RCL .1
091  RCL .0
092  -
093  :
094  TAN-1
095  2
096  :
097  RTN
098  LBL 1
099  RCL 5
100  RCL 0
101  :
102  RTN
103  LBL 0
104  RCL 6
105  RCL 0
106  :
107  RTN
END

PROGRAM 127
NAME EQUILIBRIUM

001  LBL 1
002  ->P
003  x<>y
004  LBL 2
005  1
006  ->R
007  STO 0
008  x<>y
009  STO 1
010  RTN
011  LBL 3
012  ->P
013  x<>y
014  LBL 4
015  1
016  ->R
017  STO 2
018  x<>y
019  STO 3
020  RTN
021  LBL A
022  ->R
023  STO 4
024  x<>y
025  STO 5
026  RCL 4
027  RCL 3
028  *
029  RCL 5
030  RCL 2
031  *
032  -
033  RCL 1
034  RCL 2
035  *
036  RCL 0
037  RCL 3
038  *
039  -
040  :
041  R/S
042  LastX
043  STO 6
044  RCL 5
045  RCL 0
046  *
047  RCL 4
048  RCL 1
049  *
050  -
051  RCL 6
052  :
053  RTN
END
