home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / progr3.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  1.2 KB  |  31 lines
  1. 300  REM UNBALANCE BRIDGE
  2. 301  CLS
  3. 302  PRINT "THIS PROGRAM DETERMINES THE VALUE AND DIRECTION OF THE CURRENT";
  4. 303  PRINT "THROUGH THE CENTER RESISTOR OF AN UNBALANCED BRIDGE."
  5. 304  PRINT
  6. 305  PRINT "ENTER ALL VALUES IN BASE UNITS."
  7. 306  PRINT
  8. 307  INPUT; "UPPER LEFT RESISTOR EQUALS?  ", R1 : PRINT " ohms"
  9. 308  INPUT; "UPPER RIGHT RESISTOR EQUALS? ", R2 : PRINT " ohms"
  10. 309  INPUT; "LOWER LEFT RESISTOR EQUALS?  ", R3 : PRINT " ohms"
  11. 310  INPUT; "LOWER RIGHT RESISTOR EQUALS? ", R4 : PRINT " ohms"
  12. 311  INPUT; "CENTER RESISTOR EQUALS?      ", R5 : PRINT " ohms"
  13. 312  INPUT; "THE SOURCE VOLTAGE EQUALS?   ", VT : PRINT " volts"
  14. 313  PRINT "IS THE SOURCE VOLTAGE - OR + WITH RESPECT TO THE BOTTOM";
  15. 314  INPUT " OF THE BRIDGE? ", P$
  16. 315  IF P$="+" OR P$="-" THEN 319
  17. 316  PRINT
  18. 317  PRINT "PLEASE ENTER EITHER A + OR - SIGN."
  19. 318  GOTO 313
  20. 319  RTH=(R1*R3/(R1+R3)) + (R2*R4/(R2+R4))
  21. 320  VTH=(R1*VT/(R1+R3)) - (R2*VT/(R2+R4))
  22. 321  V5=R5*VTH/(R5+RTH)
  23. 322  I5=V5/R5
  24. 323  PRINT
  25. 324  PRINT "THE CURRENT THROUGH THE CENTER RESISTOR IS"; ABS(I5); "amperes."
  26. 325  PRINT "THE VOLTAGE ACROSS THE CENTER RESISTOR IS "; ABS(V5); "volts."
  27. 326  IF V5=0 THEN 329
  28. 327  PRINT "THE DIRECTION OF THE CURRENT IN THE CENTER RESISTOR IS ";
  29. 328  IF V5<0 AND P$="+" THEN PRINT "RIGHT TO LEFT." ELSE PRINT "LEFT TO RIGHT."
  30. 329  LOCATE 25,20: INPUT ; "MORE CALCULATIONS (Y/N) ",A$: IF A$="Y" OR A$="y" THEN RUN 300 ELSE IF A$ = "N" OR A$ ="n" THEN RUN "MENU1"
  31.