三相异步电动机程序.docx
《三相异步电动机程序.docx》由会员分享，可在线阅读，更多相关《三相异步电动机程序.docx（24页珍藏版）》请在冰豆网上搜索。
三相异步电动机程序
2005-1-8版本
4REMThree-PhaseAsynchronousMotorsComputeprogram
5REMTPAMC-1S.Pan&H.ZhengFilenametpamc-1.BAS3-22-96
6PRINT"输入变量的长度单位全部以毫米计,面积以平方毫米计."
7CLEAR,,3000
8CLS:
PI=3.1415926#:
PI2=PI*PI:
PI3=PI*PI*PI:
GOSUB7500'中间变量清零
10DATA"输出功率P2（kW）=","极数P=","电源频率（Hz）=","线电压（V）=","定子槽数Q1=",转子槽数Q2=","气隙（g）=","机械耗Pf（W）=","杂耗Ps（W）=","定子槽口宽bo1=","转子槽口宽bo2=","定子槽口高hso=","转子槽口高hro="
15DATA"端环面积SR=","定子槽肩高hs1=","转子槽肩高hr1=","相带标志:
1-60°相带,2-120°相带,3-正弦绕组,4-不规则绕组=","效率标准值η=","转子型式:
1-鼠笼,2-绕线=","功率因数标准值Cos=","定子绕组接法:
1-Y,2-△=","绝缘等级:
E,B=1F,H=2:
"
20DATA"定子槽形:
1-圆底槽,2-平底槽=","转子槽形:
1-梯形,2-凸形,3-圆形,4-双鼠笼,5-梨形,6-梨形闭口,7-双鼠笼闭口,8-圆底=","定子单、双层标志:
1-单层,2-双层=","定子绕组型式:
1-二平面同心式,2-三平面同心或交叉式,3-链式,4-叠绕="
23DATA"定子电槽数y1=","定子机械槽数Ym1=","定子外径D1=","定子内径Di1=","转子内径D2i=","以定子槽计的斜槽数bsk=","叠压系数kfe=","定子槽绝缘厚Ci1=","定子槽楔厚h1="
25DATA"定子并联支路数a1=","定子绕组端部直线长d1=","硅钢板型号:
1-510,2-420,3-360,4-280=","端环平均直径DR=","铜线单价MGU=","硅钢片单价MGF=","铝单价MGA=","定子△电槽数=","定子△机械槽数="
27DATA"转子电槽数y2=","转子绕组:
1-圆线,2-扁线=","转子槽绝缘厚Ci2=","转子槽楔厚h2=","转子绕组接法:
1-Y,2-△=","转子并联支路数a2=","转子绕组端部直线长d2="
28DATA"转子绕组单双层标志:
1-单层,2-双层=","转子相带:
1-60°相带,2-120°相带="
30DIMA（21）,C（21）,D（8）,B（8）,H（5）,F（7）,L（9）,S（8）,I（13）,P（10）,M（16）,X（18）,R（11）,A$（21）,C$（21）,D$（8）,U（10）,V（20）,W（10,20）
34GOSUB7230'调进原数据
35CLS
36GOSUB7100:
LOCATE23,25,1:
INPUT"【要不要修改Y/N】";M$:
IFM$="Y"ORM$="y"GOTO36
40GOSUB7210:
CLS'存入数据文件
50COLOR5,0:
LOCATE1,1,1:
PRINT"TYPE:
";DJXH$:
LOCATE1,8,1:
INPUT"",O$:
OO$=DJXH$:
GOSUB8001:
DJXH$=OO$:
COLOR3:
LOCATE23,25,1:
PRINTSPACE$（20）
55LOCATE1,31,1:
PRINT"L=";L:
LOCATE1,34,1:
OO=L:
GOSUB8003:
L=OO:
L1=L*C（10）/10:
L2=（L+2*A（6））/10:
LOCATE2,1,1:
PRINT"B1=";B1:
LOCATE2,5,1:
OO=B1:
GOSUB8003:
B1=OO
60LOCATE2,11,1:
PRINT"SH=";SH:
LOCATE2,15,1:
OO=SH:
GOSUB8003:
SH=OO:
LOCATE2,21,1:
PRINT"ZC1=";ZC1:
LOCATE2,25,1:
OO=ZC1:
GOSUB8003:
ZC1=OO:
LOCATE2,31,1:
PRINT"F1=";F1:
LOCATE2,35,1:
OO=F1:
GOSUB8003:
F1=OO
62LOCATE2,41,1:
PRINT"N1=";N1:
LOCATE2,45,1:
OO=N1:
GOSUB8003:
N1=OO:
LOCATE2,51,1:
PRINT"F2=";F2:
LOCATE2,55,1:
OO=F2:
GOSUB8003:
F2=OO:
LOCATE2,61,1:
PRINT"N2=";N2:
LOCATE2,65,1:
OO=N2:
GOSUB8003:
N2=OO
65IFA（16）<>3THEN72
68COLOR2:
LOCATE3,1,1:
PRINT"ZC2=";ZC2:
LOCATE3,5,1:
OO=ZC2:
GOSUB8003:
ZC2=OO:
LOCATE3,11,1:
PRINT"F3=";F3:
LOCATE3,15,1:
OO=F3:
GOSUB8003:
F3=OO
70LOCATE3,21,1:
PRINT"N3=";N3:
LOCATE3,25,1:
OO=N3:
GOSUB8003:
N3=OO:
LOCATE3,31,1:
PRINT"F4=";F4:
LOCATE3,35,1:
OO=F4:
GOSUB8003:
F4=OO:
LOCATE3,41,1:
PRINT"N4=";N4:
LOCATE3,45,1:
OO=N4:
GOSUB8003:
N4=OO
72COLOR3:
ONC
（2）GOTO74,76
74ZC3=ZC1:
ZC4=ZC2:
GOTO80
76ZC3=2*ZC1:
ZC4=2*ZC2
80H1=A（14）:
H2=SH-H1:
B2=B1+2*H2*TAN（PI/A（4））:
LOCATE4,1,1:
PRINT"B2=";B2:
LOCATE4,5,1:
OO=B2:
GOSUB8003:
B2=OO
90D=C（7）+2*A（11）:
CI=PI/A（4）:
W1=（D+2*H1）*CI-B1:
W2=（D+2*SH）*CI-B2:
TC=C（7）*CI
100GOSUB420:
T1=W:
S
（1）=T1*A（4）/A
（1）*L1/10
110ONC（0）GOTO120,140
120S（6）=（B1+B2）/2*（SH-C（12））+B2^2*PI/8-C（11）*（2*SH+B2*PI/2）:
L
（1）=（SH+B2/6）/10
130SC=（C（6）-C（7））/2-SH-A（11）-B2/3:
GOTO155
140S（6）=（B1+B2）/2*（SH-C（12））-C（11）*（2*SH+B2）:
L
（1）=SH/10
150SC=（C（6）-C（7））/2-SH-A（11）
155L（4）=（C（6）-SC）*PI/2/A
（1）/10:
S（5）=SC*L1/10:
TP=C（7）*PI/A
（1）:
S（4）=TP*L2/10
160IFC
（2）=2THENS（6）=S（6）-C（11）*2*B2
165IFF1<1THENF5=F1+.06ELSEF5=F1+.08
170IFF2<1THENF6=F2+.06ELSEF6=F2+.08
175SY=（N1*F5^2+N2*F6^2）*ZC3/S（6）:
LOCATE4,41,1:
COLOR12:
PRINT"Sfy=";SY
180IFA（16）<>3THEN200
185IFF3<1THENF7=F3+.06ELSEF7=F3+.08
190IFF4<1THENF8=F4+.06ELSEF8=F4+.08
195SD=（N3*F7^2+N4*F8^2）*ZC4/S（6）:
LOCATE4,61,1:
COLOR12:
PRINT"Sfd=";SD
200COLOR3:
LOCATE5,1,1:
PRINT"m=0return,m=1continue":
LOCATE5,26,1:
INPUT"M=";M:
IFM=0GOTO55
210TA=TAN（PI/A（5））:
CI=PI/A（5）:
A=A（5）/A
（1）*L1/10:
D=C（7）-2*（A（6）+A（12））
220ONC
（1）GOTO230,260,300,310,360,360,310,390
230LOCATE6,1,1:
PRINT"B3=";B3:
LOCATE6,5,1:
OO=B3:
GOSUB8003:
B3=OO:
LOCATE6,11,1:
PRINT"RH=";RH:
LOCATE6,15,1:
OO=RH:
GOSUB8003:
RH=OO:
H3=A（15）:
H4=RH-H3:
B4=B3-2*H4*TA
240LOCATE6,21,1:
PRINT"B4=";B4:
LOCATE6,25,1:
OO=B4:
GOSUB8003:
B4=OO:
L
（2）=RH/10:
W1=（D-2*H3）*CI-B3:
W2=（D-2*RH）*CI-B4
250GOSUB420:
T2=W:
S
（2）=T2*A:
S（7）=（A（10）+B3）/2*H3+（B3+B4）/2*H4:
GOTO440
260LOCATE6,1,1:
PRINT"B3=";B3:
LOCATE6,5,1:
OO=B3:
GOSUB8003:
B3=OO:
LOCATE6,11,1:
PRINT"RH=";RH:
LOCATE6,15,1:
OO=RH:
GOSUB8003:
RH=OO:
LOCATE6,21,1:
PRINT"H3=";H3:
LOCATE6,25,1:
OO=H3:
GOSUB8003:
H3=OO
270LOCATE6,31,1:
PRINT"B4=";B4:
LOCATE6,35,1:
OO=B4:
GOSUB8003:
B4=OO:
H4=RH-H3:
B5=B4-2*H4*TA:
LOCATE6,41,1:
PRINT"B5=";B5:
LOCATE6,45,1:
OO=B5:
GOSUB8003:
B5=OO
280L
（2）=H3/10:
L（3）=H4/10:
T2=（D*CI-A（10）+（（D-2*H3）*CI-B3）*2）/3:
S
（2）=T2*A:
SL=（B4+B5）/2*H4:
S（7）=SL+（B3+A（10））/2*H3
290W1=（D-2*H3）*CI-B4:
W2=（D-2*RH）*CI-B5:
GOSUB420:
T3=W:
S（3）=T3*A:
GOTO440
300LOCATE6,1,1:
PRINT"RH=";RH:
LOCATE6,5,1:
OO=RH:
GOSUB8003:
RH=OO:
L
（2）=.04*RH:
T2=（D-RH）*CI-RH:
S
（2）=T2*A:
S（7）=RH^2*PI/4:
GOTO440
310LOCATE6,1,1:
PRINT"B3=";B3:
LOCATE6,5,1:
OO=B3:
GOSUB8003:
B3=OO:
LOCATE6,11,1:
PRINT"B4=";B4:
LOCATE6,15,1:
OO=B4:
GOSUB8003:
B4=OO:
LOCATE6,21,1:
PRINT"B5=";B5:
LOCATE6,25,1:
OO=B5:
GOSUB8003:
B5=OO
320LOCATE6,31,1:
PRINT"h3=";H3:
LOCATE6,35,1:
OO=H3:
GOSUB8003:
H3=OO:
LOCATE6,41,1:
PRINT"h4=";H4:
LOCATE6,45,1:
OO=H4:
GOSUB8003:
H4=OO:
B6=B5-2*H4*TA
330LOCATE6,51,1:
PRINT"B6=";B6:
LOCATE6,55,1:
OO=B6:
GOSUB8003:
B6=OO:
RH=B3+H3+H4+B5/2+B6/2
340SU=B3^2*PI/4:
SL=（B5+B6）/2*H4+（B5^2+B6^2）*PI/8:
S（7）=SU+SL+B4*H3:
L
（2）=.04*B3:
T2=（D-B3）*CI-B3:
S
（2）=T2*A:
D=D-2*（B3+H3）-B5:
W1=D*CI-B5:
W2=（D-2*H4）*CI-B6
350GOSUB420:
T3=W:
S（3）=T3*A:
L（3）=（H4+B5/2+B6/6）/10:
GOTO440
360LOCATE6,1,1:
PRINT"B3=";B3:
LOCATE6,5,1:
OO=B3:
GOSUB8003:
B3=OO:
LOCATE6,11,1:
PRINT"H4=";H4:
LOCATE6,15,1:
OO=H4:
GOSUB8003:
H4=OO:
B4=B3-2*H4*TA
370LOCATE6,21,1:
PRINT"B4=";B4:
LOCATE6,25,1:
OO=B4:
GOSUB8003:
B4=OO:
RH=（B3+B4）/2+H4
380L
（2）=（RH-B4/6）/10:
W1=（D-B3）*CI-B3:
W2=（D-B3-H4*2）*CI-B4:
GOSUB420:
T2=W:
S
（2）=T2*A:
S（7）=（B3+B4）*H4/2+（B3^2+B4^2）*PI/8:
GOTO440
390LOCATE6,1,1:
PRINT"B3=";B3:
LOCATE6,5,1:
OO=B3:
GOSUB8003:
B3=OO:
LOCATE6,11,1:
PRINT"H4=";H4:
LOCATE6,15,1:
OO=H4:
GOSUB8003:
H4=OO:
B4=B3-2*H4*TA:
H3=A（15）
400LOCATE6,21,1:
PRINT"B4=";B4:
LOCATE6,25,1:
OO=B4:
GOSUB8003:
B4=OO:
RH=H3+H4+B4/2:
L
（2）=（RH-B4/6）/10:
W1=（D-2*H3）*CI-B3:
W2=（D-2*（H3+H4））*CI-B4
410GOSUB420:
T2=W:
S
（2）=T2*A:
S（7）=（A（10）+B3）/2*H3+（B3+B4）/2*H4+B4^2*PI/8:
GOTO440
420IFW1>W2THENW=（2*W2+W1）/3:
RETURN
430W=（2*W1+W2）/3:
RETURN
440ONC
（1）GOTO442,442,445,446,448,448,446,448
442RHC=RH:
GOTO454
445RHC=RH-RH/6:
GOTO454
446RHC=RH-B6/6:
GOTO454
448RHC=RH-B4/6
454IFA
（1）=2THEND3=C（8）/3ELSED3=C（8）
456RC=（C（7）-2*（A（6）+A（12））-D3）/2-RHC:
S（8）=RC*L1/10:
L（5）=（D3+RC）*PI/20/A
（1）:
TR=（C（7）-2*A（6））*CI:
IFB1=A（9）THENKM=5ELSEKM=4.4:
K=TC*（KM*A（6）+.75*A（9））:
KC=K/（K-A（9）^2）
458IFB3=A（10）THENKM=5ELSEKM=4.4:
K=TR*（KM*A（6）+.75*A（10））:
KC=KC*K/（K-A（10）^2）:
GE=KC*A（6）/10
460A=A
（1）*PI/A（4）/2:
KP=SIN（C（4）*A）:
ONA（16）GOTO470,470,490,520
470IFA（16）=1THENQ=A（4）/3/A
（1）ELSEQ=A（4）*2/3/A
（1）
480KD=SIN（Q*A）/Q/SIN（A）:
ZC5=A（4）*ZC3/3/C（13）:
KW=KD*KP:
ZC7=KW*ZC5:
GOTO530
490KPD=SIN（C（20）*A）:
QY=A（4）/6/A
（1）:
IFQY<>INT（QY）THENQY=（A（4）+3*A
（1））/A
（1）/6:
QD=（A（4）-3*A
（1））/A
（1）/6:
GOTO500ELSEQD=A（4）/6/A
（1）
500KDY=SIN（QY*A）/QY/SIN（A）:
KDD=SIN（QD*A）/QD/SIN（A）:
KD=（QY*KDY+QD*KDD）/（QY+QD）:
KP=（QY*KP+QD*KPD）/（QY+QD）:
KW=KD*KP
510ZC5=ZC3*QY*A
（1）/C（13）:
ZC6=ZC4*QD*A
（1）/C（13）:
ZC7=KP*（KDY*ZC5+KDD*ZC6/SQR（3））:
GOTO530
520INPUT"KD=";KD:
KW=KD*KP:
ZC5=A（4）*ZC3/3/C（13）:
ZC7=ZC5*KW
530KPW=1:
IFA（20）=1THENUF=A（3）/SQR（3）ELSEUF=A（3）
535P2=A（0）*KPW:
I
（1）=P2*1000/UF/3
540B=C（4）*A
（1）/A（4）:
IFB>1THENB=2-B
550ONA（16）GOSUB552,558,560,560:
KLC=KL:
KUC=KU:
GOTO570
552IFB<=1/3THENKL=.25+9*B/16:
KU=.75*B:
RETURN
554IFB<=2/3THENKL=1/16+9*B/8:
KU=1.5*B-.25:
RETURN
556KL=（9*B+7）/16:
KU=.25+.75*B:
RETURN
558IFB<2/3THENKL=.25+27/32*B:
KU=9*B/8:
RETURNELSEKL=13/16:
KU=.75:
RETURN
560INPUT"kl=";KL:
INPUT"ku=";KU:
RETURN
570KI=I
（1）/UF:
IFA（18）=2THEN577
571IFA（21）=1THENKRR=.434ELSEKRR=.491
572K=3*ZC7^2/10000:
KR=K*1.04*KRR*L/A（5）
574IFC
（1）=4ORC
（1）=7THENRU=KR*KI/SU:
RL=KR*KI/SL:
R（3）=RU*RL/（RU+RL）:
GOTO576ELSER（3）=KR*KI/S（7）
57
升级会员 