Listing of file='FORMLA.BAS;01' on disk='vmedia/ncc_23-sector.ccvf'
10 REM THIS PRG GIVES ELECTRICAL FORMULAS 20 PRINT 30 PLOT 12,15,6,2:PRINT 40 PRINT "OHMS LAW RESISTANCE OHMS LAW CONDUCTANCE":PRINT 50 PRINT "E=IR I=E R=E I=EG E=I G=I" 51 PRINT " - - - -" 52 PRINT " R I G E":PRINT 60 PRINT "OHMS LAW REACTANCE OHMS LAW IMPEDANCE":PRINT 70 PRINT "E=IX I=E X=I E=IZ I=E Z=E" 71 PRINT " - - - -" 72 PRINT " X E Z I":PRINT 80 PRINT "RESISTORS IN SERIES TWO RESISTORS IN PARALLEL":PRINT 90 PRINT "R TOTAL = R1+R2+R3+ECT.. R TOTAL= R1 X R2" 100 PRINT " --------" 110 PRINT " R1 + R2":PRINT 120 PRINT "TWO CAPACITORS IN SERIES CAPACITORS IN PARALLEL":PRINT 130 PRINT " C TOTAL = C1 X C2 C TOTAL = C1+C2+C3+ECT..." 140 PRINT " ------" 150 PRINT " C1 + C2":PRINT 160 PRINT "INDUCTORS IN SERIES TWO INDUCUCTORS IN PARALLEL":PRINT 170 PRINT "L TOTAL =L1+L2+L3+ECT... L TOTAL = L1 X L2" 180 PRINT " ------- " 190 PRINT " L1 + L2":PRINT 192 INPUT "PRESS C ENTER TO CONTINUE, PRESS S ENTER TO START AGAIN ";A$:IF ASC (A$)= 83GOTO 10 200 PLOT 12,15,10,10:PRINT "MORE THAN TWO RESISTORS IN PARALLEL":PRINT 210 PRINT " 1" 220 PRINT " -------------------" 230 PRINT "R TOTAL = 1 1 1" 240 PRINT " -- + -- + -- + ECT..." 250 PRINT " R1 R2 R3":PRINT 260 PRINT "MORE THAN TWO CAPACITORS IN SERIES":PRINT 270 PRINT " 1" 280 PRINT " -------------------" 290 PRINT "C TOTAL = 1 1 1" 300 PRINT " -- + -- + -- + ECT... 310 PRINT " C1 C2 C3":PRINT 320 PRINT "MORE THAN TWO INDUCTORS IN PARALLEL":PRINT 330 PRINT " 1" 340 PRINT " -------------------" 350 PRINT "L TOTAL = 1 1 1" 360 PRINT " -- + -- + -- + ECT..." 370 PRINT " L1 L2 L3" 380 PRINT :INPUT "PRESS C ENTER TO CONTINUE, PRESS S THEN ENTER TO START AGAIN ";B$:IF ASC (B$)= 83GOTO 10 390 PLOT 12,14,6,2 400 PRINT "POWER TRANSFORMER VOLTAGE RATIO, CURRENT RATIO":PRINT 410 PRINT " 2 2 " 420 PRINT "P=I R P=E P=IE ES = NS X EP IP = NS X IS" 430 PRINT " - -- --" 440 PRINT " R NP NP":PRINT 450 PRINT "INDUCTIVE REACTANCE CAPACITIVE REACTANCE":PRINT 460 PRINT TAB( 32)" -1":PRINT " ___ _______" 490 PLOT 6,6,14,88,15,76,32,61,32,50,32,30,119,32,118,70,76,6,3,9,9,9,14,88,15,67,32,61,29 500 PRINT TAB( 2)" ___":PLOT 6,3,9,9,9,9,32,32,32,32,32,50,32,30,119,32,118,70,67,29 510 PRINT :PRINT :PRINT "IMPEDANCE SERIES", TAB( 10);" IMPEDANCE PARALLEL":PRINT :PRINT TAB( 38)" RX" 520 PRINT "Z = 2 2 Z = ----------" 530 PRINT " R + X":PRINT TAB( 38);" 2 2" 535 PRINT TAB( 38);" R + X" 540 PLOT 6,5,2,12,39,242,14,37,16,46,30,46,255 560 PLOT 6,7,2,72,32,242,74,30,76,38,91,38,255 575 PRINT :INPUT "PRESS C ENTER TO CONTINUE, PRESS S THEN ENTER TO START AGAIN ";B$:IF ASC (B$)= 83GOTO 10 580 PLOT 12 600 PRINT TAB( 15)"LENGTH OF HALF WAVE DIPOLE ANTENNA":PRINT 605 PRINT TAB( 12)"IN SPACE" TAB( 37);"ACTUAL ANTENNA":PRINT 610 PRINT TAB( 10)" 492" TAB( 40);" 468" 620 PRINT "LENGTH = ---------------- ----------------" 630 PRINT TAB( 10)"FREQUENCY(MHZ)" TAB( 37);" FREQUENCY(MHZ)":PRINT :PRINT 640 PRINT TAB( 2)"CHARACTERISTIC IMPEDANCE AIR-INSULATED TRANSMISSION LINE":PRINT 650 PRINT "PARALLEL CONDUCTOR" TAB( 35);"COAXIAL CONDUCTOR":PRINT 670 PRINT :PRINT TAB( 12)" B"TAB( 49);" B" 680 PRINT "ZO = 276 LOG ---" TAB( 36);"ZO = 138 LOG ---" 690 PRINT TAB( 13)" A" TAB( 49);" A" 700 PRINT :INPUT "PRESS C ENTER FOR MENU, PRESS S THEN ENTER TO START AGAIN ";B$:IF ASC (B$)= 83GOTO 10 800 LOAD "MENU":RUN