
192
Circuit calculations pocket book
10 PRINT "PROG 170"
20 PRINT "SERIES R-C CIRCUIT"
30 INPUT "ENTER CURRENT IN AMPS" ; I
40 INPUT "ENTER RESISTANCE" ; R
50 INPUT "ENTER VOLTAGE" ; V
60 INPUT "ENTER FREQUENCY" ; F
70 LET Z=V/I
80 LET XC=SQR<Z*2-R
A
2)
90 LET C=10*6/(2*3.141593*F*XC)
100 LET VR-I*R
110 LET VC=I*XC
120 LET P1=VR»I
130 LET P2=VC*I
140 LET P3=V*I
150 LET PF=VR/V
160 LET PAsATN(VC/VR)*180/3.141593
170 PRINT "XC="XC "Z="Z "C="C "VR="VR "VC="VC
180 PRINT "TRUE P0WER="PI "REACTIVE P0WER="P2
190 PRINT "APPARENT POWER="P3 POWER FACT0R="PF
200 PRINT "PHASE ANGLE*"PA"DEGREES"
Example
19 A voltage applied to an 8-kft resistor in series