Directory of image this file is from
This file as a plain text file
@E' PROGRAM TO DESIGN A DC MULTIMETER @@@G FOR G=0 TO 8\PRINT\NEXT G@@@J DIM M(5),V(5),O(5),R(5),A(5),E(5)@@@O PRINT TAB(22)"***** METER MOVEMENT *****"\PRINT@@@T PRINT"RESISTANCE (OHMS)";\INPUT R@@@Y PRINT"FULL SCALE CURRENT (AMPS)";\INPUT I @@@^ PRINT\PRINT\PRINT@@@ PRINT TAB(16)"***** METER RANGES (5 FOR EACH) *****"\PRINT@@@( PRINT"DC VOLTS";\INPUT V(1),V(2),V(3),V(4),V(5)@@@- PRINT"AMPS IN INCREASING ORDER" @@@. FOR Q=5 TO 1 STEP -1\PRINT TAB(5);\INPUT A(Q)\IF A(Q)>A(Q+1) THEN 49 @@@/ PRINT\PRINT\PRINT"*** VALUES IN INCREASING ORDER!!! ***"\PRINT\PRINT @@@0 Q=Q+1@@@1 NEXT Q @@@2 PRINT"OHMS (LARGER THAN METER MOVEMENT) HALF SCALE" @@@8 FOR Q=1 TO 5\PRINT TAB(5);\INPUT O(Q)\IF O(Q)>R THEN 59 @@@9 PRINT\PRINT\PRINT"*** VALUE IS NOT SUITIBLE FOR THE SERIES OHMMETER !!! ***" @@@: PRINT\PRINT\Q=Q-1@@@; NEXT Q @@@< FOR P=0 TO 6\PRINT\NEXT P@@AA' VOLTMETER DESIGN@@AF FOR A=1 TO 5\M(A)=(V(A)-(I*R))/I\NEXT A@@AK PRINT TA B(22)"***** VOLTMETER *****"\PRINT@@AN PRINT"OHMS PER VOLT=";1/I@@AP PRINT"RANGE(VOLTS)"," ","MULTIPLIER RESISTOR (OHMS)" @@AU FOR A=1 TO 5\PRINT V(A)," ",M(A)\NEXT A @@AZ FOR P=0 TO 6\PRINT\NEXT P@@A[' OHMMETER DESIGN @@A\ PRINT TAB(23)"***** OHMMETER *****"\PRINT@@A FOR O=1 TO 5 @@A) PRINT\PRINT\PRINT@@A3 PRINT"HALF SCALE VALUE=";O(O)\E(O)=INT((I*R)+1)*1.5 @@A8 PRINT"VOLTAGE=";E(O);" VOLTS","ZERO ADJUST RHEOSTAT=";(E(O)*.2)/I;" OHMS"@@A= PRINT"CURRENT LIMITING RESISTOR=";(E(O)/I)-(R+(E(O)*.2)/I);" OHMS" @@BB PRINT TAB(20)"OHMMETER SCALE DIVIDED BY TENTHS"@@BG FOR X=1 TO 10\X1=X1+.1\X2=X1*I\Z=(E(O)/I)*((I-X2)/X2)@@BL PRINT Z,\NEXT X\PRINT\PRINT@@BM X1=0 @@BN NEXT O @@BQ FOR P=0 TO 6\PRINT\NEXT P@@BV' AMMETER DESIGN@@B[ E=I*R\R1=R\S=E/(A(5)-I)\S1=S @@B FOR N=5 TO 2 STEP -1 @@B% R(N)=((A(N-1)*S1)-(I*S1)-(R1*I))/A(N-1) @@B* S1=S1-R(N)\R1=R1+R(N)@@B/ NEXT N\R(1)=S1 @@B4 PRINT TAB(26)"***** AMMETER *****"\PRINT @@B9 PRINT"SHUNT RESISTOR","VALUE"@@B> FOR N=1 TO 5\PRINT N,R(N)\NEXT N @@CC FOR P=0 TO 8\PRINT\NEXT P@@CH PRINT"DO YOU WANT ANOTHER RUN";\LINPUT A$@@CM IF A$="YES"THEN 15\IF A$="NO"THEN 250 @@CR PRINT"WHAT?"\GO TO 200 @@C: END@@ ?@@@J DIM M(5),V(5),O(5),R(5),A(5),E(5)@@@O PRINT TAB(22)"***** METER MOVEMENT *****"\PRINT@@@T PRINT"RESISTANCE (OHMS)";\INPUT R@@@Y PRINT"FULL SCALE CURRENT (AMPS)";\INPUT I @@@^ PRINT\PRINT\PRINT@@@ PRINT TAB(16)"***** METER RANGES (5 FOR EACH) *****"\PRINT@@@( PRINT"DC VOLTS";\INPUT V(1),V(2),V(3),V(4),V(5)@@@- PRINT"AMPS IN INCREASING ORDER" @@@. FOR Q=5 TO 1 STEP -1\PRINT TAB(5);\INPUT A(Q)\IF A(Q)>A(Q+1) THEN 49 @@@/ PRINT