同步电动机计算程序

zl19820715

谁懂得BASICA语言？？？

zl19820715

大家帮忙看一下：
0 READ A$,PN,UN,F,P,DA,DI,Z1,Y,A,CLA,EFF,COF,T$,A$,LT,NV,TV,C,SN,C1,W,CO1,Z2,T2,D2,BO,HO
20 READ A$,BN,HN,BO1,BP,HP,BM,HM,RP,LP,LM,LF,M$,J$,A$,G,A1,B1,AI,BI,HK,HO1,AE,BE,QE,WE,R
30  READ A$,DB,LB,BK,QK,CB,CK,Z21,CH,A$,B$,C$
31  IF PN<10000 THEN PPN=PN ELSE PPN=PN/1000
32  PN$=STR$(PPN):PN$=MID$(PN$,2)
34  P$=STR$(2*P):P$=MID$(P$,2)
36  DA$=STR$(DA):DA$=MID$(DA$,2)
38  LT$=STR$(LT):LT$=MID$(LT$,2)
40  PRINT "Number:";A$;
50  IF T$="W" AND EFF<1 THEN PRINT TAB(22);"Type: T ";PN$;"-";P$;"/";DA$;
60  IF T$="W" AND EFF=1 THEN PRINT TAB(22);"Type: TF ";PN$;"-";P$;"/";DA$;
70  IF T$="L" AND EFF<1 THEN PRINT TAB(22);"Type: TL ";PN$;"-";P$;"/";DA$;
80  IF T$="WW" AND EFF=1 THEN PRINT TAB(22);"Type: TFW ";PN$;"-";P$;"/";DA$;
90  IF T$="WS" AND EFF=1 THEN PRINT TAB(22);"Type: SFW ";PN$;"-";P$;"/";DA$;
100 IF T$="LS" AND EFF=1 THEN PRINT TAB(22);"Type: SF ";PN$;"-";P$;"/";DA$;
110 IF CLA=1 THEN PRINT TAB(46);"Class B";
120 IF CLA=2 THEN PRINT TAB(46);"Class F";
125 IF CLA=3 THEN PRINT TAB(46);"Class F/B";
130 IF W<=20  THEN PRINT TAB(58);"W";W;
140 IF W>20  THEN PRINT TAB(58);"D";W;
145 PRINT TAB(65);"Mm=";M$;TAB(74);"Mj=";J$
148 FOR I=1 TO 79 :PRINT "=";:NEXT I:PRINT
150 PI=3.14159265#
160 IF A1<1.65 THEN FCU=C*(A1*B1-.2146)
170 IF A1>=1.65 AND A1<2.3 THEN FCU=C*(A1*B1-.36268)
180 IF A1>=2.3 AND A1<3.7 THEN FCU=C*(A1*B1-.54938)
185 IF A1>=3.7 THEN FCU=C*(A1*B1-.8584)
190 PRINT "Pn=";PN;TAB(12);"Da=";DA;TAB(22);"Lt=";LT;TAB(33);"Sn=";SN;TAB(42);"bnxhn=";BN;"x";HN;TAB(61);"a1xb1=";A1;"x";B1
200 PRINT "Un=";UN;TAB(12);"Di=";DI;TAB(22);"Lp=";LP;TAB(33);"C1=";C1;TAB(42);"boxho=";BO;"x";HO;TAB(61);"aixbi=";AI;"x";BI

hualikaifa

这是一段BASIC程序源代码

hualikaifa

好像是高压程序的代码

zl19820715

哪位高手看懂了帮忙翻译一下~

bg6iqh

要懂得BASICA语言才能看懂啊！

么么茶

我会这个语言

zl19820715

7楼  你的QQ多少？

histeretico

amazing, you are wonderfull!! thanks

么么茶

回复 8# zl19820715

4003579,加我

么么茶

这只是一部分程序，还没完整的。
1、0，20，30行是对参数赋值,    A$(不知是什么参数），PN（就是功率）。。。。
程序的最后肯定有一个"DATE"语名，给出实际的值.
2、31是一个判断选择语句。
3、32到38，是数变字符。。。
4，40 PRINT "Number:";A$;   在屏上显出A$的数值
。。。。。。。。。。。。。。。

sdyinan

shenmedongaaaaaaaaaaa

Z.L.jun

这段程序属于扩展BASIC语言源程序，30句以前是读入输入数据的值，31-40句是打印输出电机型号规格，50-100句是判断计算同步电动机还是同步发电机，立式还是卧式等；110-125是绝缘等级；130-140是定子硅钢片；145是极身材料；160-185是定子线规截面积计算；190-200是输入数据中的冲片尺寸、铁心长、线规等一些参数打印输出。

cxw770

0 READ A$,PN,UN,F,P,DA,DI,Z1,Y,A,CLA,EFF,COF,T$,A$,LT,NV,TV,C,SN,C1,W,CO1,Z2,T2,D2,BO,HO
不会是As吧？估计不会是。功率，电压，频率，铁心内径，定子槽数，节距，并联支路数，CLA是啥？，Eff是效率，功率因数，T，S是啥？Lt铁心长度，通风槽高及数目，利用系数C？容量，之后是转子槽数，齿距，阻尼绕组
20 READ A$,BN,HN,BO1,BP,HP,BM,HM,RP,LP,LM,LF,M$,J$,A$,G,A1,B1,AI,BI,HK,HO1,AE,BE,QE,WE,R
槽宽，槽高，磁极尺寸，Lp Lm Lf这些都是磁极的各种长度，Hk是槽楔高。
30  READ A$,DB,LB,BK,QK,CB,CK,Z21,CH,A$,B$,C$
不知道,A$,B$,C$，是什么玩意？
看不明白。
我真看了，但没看明白。

cxw770

最起码输入是什么得知道，
不然没法看明白。
110 IF CLA=1 THEN PRINT TAB(46);"Class B";
120 IF CLA=2 THEN PRINT TAB(46);"Class F";
125 IF CLA=3 THEN PRINT TAB(46);"Class F/B";
CLA是Class，绝缘等级，该厂的绝缘等级分3等，B，F，F/B。

需方

有mathcad版本就更好了

lzemg007

是高压程序一部分的代码，我有全部的源程序

sxdjwdm000

不完整,没啥用;能否提供完整?

sxdjwdm000

17楼,发个完整原程序到whw60@126.com,本人可编成windows程序共享

lzemg007

不要忽悠大家哦，这个程序论坛里有