Compucolor.org – Virtual Media

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