CLS
PRINT "ELECTRIC MOTOR PERFORMANCE"
DIM N(20)
DIM A(20)
DIM P(20)
REM ==READ MOTOR DATA==
FOR J = 1 TO 20
 READ NN
 N(J)=NN
 READ AA
 A(J)=AA
 READ PP
 P(J)=PP
NEXT J
[ONEIZE]
PRINT
PRINT
PRINT "INPUT NOMINAL HP (1-250) =          ";
INPUT " ";H1
PRINT "INPUT NOMINAL VOLTS (200,230,460) = ";
INPUT " ";V1
PRINT "INPUT LOAD HORSEPOWER =             ";
INPUT " ";H2
PRINT "INPUT LINE VOLTAGE =                ";
INPUT " ";V2
PRINT
PRINT
REM ==TEST INPUT DATA==
IF H1 < 1 THEN [FOFOZE]
IF H1 > 250 THEN [FOFOZE]
IF H2 > H1 THEN [FOFOZE]
IF V1 = 200 THEN [THEIZE]
IF V1 = 230 THEN [THEIZE]
IF V1 = 460 THEN [THEIZE]
GOTO [FOEIZE]
[THEIZE]
Y = H2 / H1
IF Y < .5 THEN [FOFOZE]
Z = V2 / V1
IF Z < .85 THEN [FOSIZE]
IF Z > 1.15 THEN [FOSIZE]
GOTO [FIONZE]
[FOFOZE]
PRINT "INCORRECT NOMINAL HORSEPOWER"
GOTO [ONEIZE]
[FOSIZE]
PRINT "OUTSIDE VOLTAGE UTILIZATION RANGE"
GOTO [ONEIZE]
[FOEIZE]
PRINT "INCORRECT NOMINAL VOLTAGE"
GOTO [ONEIZE]
REM ==TEST FOR NOMINAL SIZE==
[FIONZE]
K = 1
[FITWZE]
IF N(K) >= H1 THEN [FISIZE]
K = K + 1
GOTO [FITWZE]
REM ==CALCULATE FULL LOAD==
[FISIZE]
X = N(K)
Y = 1
GOSUB [ONZEZEZE]
F1 = A(K)/B
F2 = P(K)/C
A1 = A(K)*460/V1
REM ==CALCULATE FULL LOAD==
Y = H2/H1
GOSUB [ONZEZEZE]
A2 = B*460/V1
P1 = C
REM ==CALCULATE VOLTAGE ADJUSTMENT===
GOSUB [ONZEZEZE]
A2 = B*460/V1
P1 = C
REM ==CALCULATE VOLTAGE ADJUSTMENT==
F3 = 1
F4 = 1
IF Z = 1 THEN [SEFOZE]
F3 = 7.17311269 -11.9961805*Z+5.82460674*Z*Z
F4 = -.765600727 + 4.28767874 * Z -2.52543 * Z * Z
REM ==CALCULATE MOTOR VALUES==
[SEFOZE]
A3 = A2 * F1 * F3
P2 = P1 * F2 * F4
K1=(V2 * A1 * F3 *P(K)*(3^.5))/1000
E1 = (.746 * H1) / K1
K2 =(V2 *A3 * P2 *(3^.5))/1000
E2 = (.746 * H2) / K2
PRINT "FULL LOAD HP =    ";H1
PRINT "FL AMPERAGE =     ";A1
PRINT "FL POWER FACTOR = ";P(K)
PRINT "FL KILOWATTS =    ";K1
PRINT "FL EFFICIENCY =   ";E1
PRINT
PRINT "RATED LOAD HP =   ";H2
PRINT "RL AMPERAGE =     ";A3
PRINT "RL POWER FACTOR = ";P2
PRINT "RL KILOWATTS =    ";K2
PRINT "RL EFFICIENCY =   ";E2
[NITWZE]
PRINT
PRINT "RERUN PROGRAM WITH NEW DATA (Y/N)? ";
INPUT " ";Q$
IF Q$ = "Y" OR Q$="y" THEN [ONEIZE]
IF Q$ <> "N" AND Q$<>"n" THEN [NITWZE]
GOTO [ONFITWZE]
[ONZEZEZE]
REM ==POLYNOMIAL-AMPS==
B1 = 3.20607431
B2 = .310338345 * X
B3 = (-3.35324861/10^4)* X^2
B4 = -.506590351 * Y
B5 = .155589858 * Y^2
B6 = .4725898 * X * Y
B7 = (6.77369891/10^4) * X^2 * Y
B8 = .366744037 * X * Y^2
B9 = (-4.6061703/10^4) * X^2 * Y^2
B = B1 + B2 + B3 + B4 + B5 + B6 + B7 + B8 + B9
REM ==POLYNOMIAL EFFICIENCY==
C1 = .309145751
C2 = (1.23049012/10^3) * X
C3 = (-3.76440456/10^7) * X^2
C4 = .725339116 * Y
C5 = -.25574737*Y^2
C6 = (4.22942991/10^3) * X * Y
C7 = (-2.04667461/10^5)*X^2 *Y
C8 = (-4.28755616/10^3)*X*Y^2
C9 = (1.77828477/10^5)*X^2*Y^2
C = C1 + C2 + C3 + C4 + C5 + C6 + C7 + C8 + C9
RETURN
REM ==FULL LOAD MOTOR DATA==
REM HP,AMPS,PF
DATA 1,1.7,.710
DATA 1.5,2.82,.673
DATA 2,3.15,.770
DATA 3,4.6,.777
DATA 5,7.0,.799
DATA 7.5,10.5,.780
DATA 10,13.5,.805
DATA 15,20,.809
DATA 20,26,.822
DATA 25,32,.818
DATA 30,37,.841
DATA 40,50,.831
DATA 50,62,.829
DATA 60,74,.840
DATA 75,90,.857
DATA 100,120,.856
DATA 125,148,.862
DATA 150,174,.875
DATA 200,228,.883
DATA 250,281,.893
[ONFITWZE]
END