三相异步电动机程序Word下载.docx
- 文档编号:21991307
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:24
- 大小:31.45KB
三相异步电动机程序Word下载.docx
《三相异步电动机程序Word下载.docx》由会员分享,可在线阅读,更多相关《三相异步电动机程序Word下载.docx(24页珍藏版)》请在冰豆网上搜索。
"
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="
转子绕组接法:
转子并联支路数a2="
转子绕组端部直线长d2="
28DATA"
转子绕组单双层标志:
转子相带:
相带,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:
O$:
OO$=DJXH$:
GOSUB8001:
DJXH$=OO$:
COLOR3:
PRINTSPACE$(20)
55LOCATE1,31,1:
L="
L:
LOCATE1,34,1:
OO=L:
GOSUB8003:
L=OO:
L1=L*C(10)/10:
L2=(L+2*A(6))/10:
LOCATE2,1,1:
B1="
B1:
LOCATE2,5,1:
OO=B1:
B1=OO
60LOCATE2,11,1:
SH="
SH:
LOCATE2,15,1:
OO=SH:
SH=OO:
LOCATE2,21,1:
ZC1="
ZC1:
LOCATE2,25,1:
OO=ZC1:
ZC1=OO:
LOCATE2,31,1:
F1="
F1:
LOCATE2,35,1:
OO=F1:
F1=OO
62LOCATE2,41,1:
N1="
N1:
LOCATE2,45,1:
OO=N1:
N1=OO:
LOCATE2,51,1:
F2="
F2:
LOCATE2,55,1:
OO=F2:
F2=OO:
LOCATE2,61,1:
N2="
N2:
LOCATE2,65,1:
OO=N2:
N2=OO
65IFA(16)<
>
3THEN72
68COLOR2:
LOCATE3,1,1:
ZC2="
ZC2:
LOCATE3,5,1:
OO=ZC2:
ZC2=OO:
LOCATE3,11,1:
F3="
F3:
LOCATE3,15,1:
OO=F3:
F3=OO
70LOCATE3,21,1:
N3="
N3:
LOCATE3,25,1:
OO=N3:
N3=OO:
LOCATE3,31,1:
F4="
F4:
LOCATE3,35,1:
OO=F4:
F4=OO:
LOCATE3,41,1:
N4="
N4:
LOCATE3,45,1:
OO=N4:
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:
B2="
B2:
LOCATE4,5,1:
OO=B2:
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:
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:
Sfd="
SD
200COLOR3:
LOCATE5,1,1:
m=0return,m=1continue"
:
LOCATE5,26,1:
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:
B3="
B3:
LOCATE6,5,1:
OO=B3:
B3=OO:
LOCATE6,11,1:
RH="
RH:
LOCATE6,15,1:
OO=RH:
RH=OO:
H3=A(15):
H4=RH-H3:
B4=B3-2*H4*TA
240LOCATE6,21,1:
B4="
B4:
LOCATE6,25,1:
OO=B4:
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:
LOCATE6,21,1:
H3="
H3:
OO=H3:
H3=OO
270LOCATE6,31,1:
B4="
LOCATE6,35,1:
B5=B4-2*H4*TA:
LOCATE6,41,1:
B5="
B5:
LOCATE6,45,1:
OO=B5:
B5=OO
280L
(2)=H3/10:
L(3)=H4/10:
T2=(D*CI-A(10)+((D-2*H3)*CI-B3)*2)/3:
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:
300LOCATE6,1,1:
L
(2)=.04*RH:
T2=(D-RH)*CI-RH:
S(7)=RH^2*PI/4:
310LOCATE6,1,1:
B5="
320LOCATE6,31,1:
h3="
H3=OO:
h4="
H4:
OO=H4:
H4=OO:
B6=B5-2*H4*TA
330LOCATE6,51,1:
B6="
B6:
LOCATE6,55,1:
OO=B6:
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:
D=D-2*(B3+H3)-B5:
W1=D*CI-B5:
W2=(D-2*H4)*CI-B6
350GOSUB420:
L(3)=(H4+B5/2+B6/6)/10:
360LOCATE6,1,1:
H4="
370LOCATE6,21,1:
RH=(B3+B4)/2+H4
380L
(2)=(RH-B4/6)/10:
W1=(D-B3)*CI-B3:
W2=(D-B3-H4*2)*CI-B4:
S(7)=(B3+B4)*H4/2+(B3^2+B4^2)*PI/8:
390LOCATE6,1,1:
B4=B3-2*H4*TA:
H3=A(15)
400LOCATE6,21,1:
RH=H3+H4+B4/2:
L
(2)=(RH-B4/6)/10:
W2=(D-2*(H3+H4))*CI-B4
410GOSUB420:
S(7)=(A(10)+B3)/2*H3+(B3+B4)/2*H4+B4^2*PI/8:
420IFW1>
W2THENW=(2*W2+W1)/3:
RETURN
430W=(2*W1+W2)/3:
440ONC
(1)GOTO442,442,445,446,448,448,446,448
442RHC=RH:
GOTO454
445RHC=RH-RH/6:
446RHC=RH-B6/6:
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)):
520INPUT"
KD="
KD:
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:
554IFB<
=2/3THENKL=1/16+9*B/8:
KU=1.5*B-.25:
556KL=(9*B+7)/16:
KU=.25+.75*B:
558IFB<
2/3THENKL=.25+27/32*B:
KU=9*B/8:
RETURNELSEKL=13/16:
KU=.75:
560INPUT"
kl="
KL:
ku="
KU:
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 三相 异步电动机 程序