Расчёт параметров асинхронного короткозамкнутого двигателя (Пример использования возможностей компьютерной техники для решения инженерных задач), страница 8

I1F = SQR(I1FA ^ 2 + I1FP ^ 2)

cosF = COS(ATN(I1FP / I1FA))

REM 15

PE = 3 * I2F ^ 2 * R2 / S

P2 = (1 - S) * PE

REM 16

P1 = 3 * U1FH * I1F * cosF

REM 17

KPDO = P2 / P1

n1 = nO * (1 - S)

MO = 9.549 * PE / nO

PRINT USING " ## #.### #.### #####.### #####.### #### ##.######.### "; f1; S; cosF; P2; P1; n1; KPDO; MO

REM Конец цикла

NEXT i

PRINT

PRINT "----------------------------------------------------------"

REM задаем дополнительные условия

f2 = 60

nH = 1.2 * nH

KPDH = KPDH - .08 * KPDH

REM Расчет параметров

REM 1.Нахождение мощности, линейного и фазного токов статора

REM и фазного напряжения при номинальной нагрузке

P1H = P2H / KPDH

I1H = P1H / (SQR(3) * U1H * cosFH)

I1FH = I1H / SQR(3) ^ (1 - BO)

U1FH = U1H / SQR(3) ^ BO

REM 2

nO = 60 * f2 / pO

SH = (nO - nH) / nO

F2H = SH * f2

REM 3

dP1H = P2H / KPDH - P2H

kO = 3 + .5 * ((D1H - 100) / 400)

PTP = kO * (nO / 1000) ^ 2 * (D1H / 1000) ^ 3

PDOB = PDOB + .18 * PDOB

R1 = kt * R10

REM 4

PE1 = 3 * I1FH ^ 2 * R1

PMEX = P2H + PTP + PDOB

PE2 = SH / (1 - SH) * PMEX

PCT = dP1H - PE1 - PE2 - PTP - PDOB

REM 5

I10 = I1H * KX

I1FO = I1FH * KX

PE10 = 3 * I1FO ^ 2 * R10

P10 = PE10 + PTP + PDOB + PCT

cosFO = P10 / (SQR(3) * U1H * I10)

sinFO = SQR(1 - cosFO ^ 2)

REM 6

'PRINT "   f1    S    cosF    P2         P1      n1    KPDO   MO"

MH = 9.549 * (P2H / nH)

MM = KMM * MH

REM 7

SKP = SH * (KMM + SQR(KMM ^ 2 - 1))

REM 8

K1 = 3 * pO * U1FH ^ 2 / (4 * 3.14 * f2 * MH) - R1

XK = SQR((3 * pO * U1FH ^ 2 / (4 * 3.14 * f2 * MM) - R1) ^ 2 - R1 ^ 2)

R2 = SH * (K1 + SQR(K1 ^ 2 - (R1 ^ 2 + XK ^ 2)))

REM 9

ZO = U1FH / I1FO

RO = P10 / (3 * I1FO ^ 2)

XO = SQR(ZO ^ 2 - RO ^ 2)

REM 10

I1FOA = I1FO * cosFO

I1FOP = I1FO * -sinFO

REM цикл

FOR i = .25 TO 1.25 STEP .25

S = SH * i

REM 11

R11 = R1 + R2 / S

Z11 = SQR(R11 ^ 2 + XK ^ 2)

F11 = -ATN(XK / R11)

REM 12

I2F = U1FH / Z11

I2FA = I2F * COS(F11)

I2FP = I2F * SIN(F11)

REM 13

I1FA = I1FOA + I2FA

I1FP = I1FOP + I2FP

REM 14

I1F = SQR(I1FA ^ 2 + I1FP ^ 2)

cosF = COS(ATN(I1FP / I1FA))

REM 15

PE = 3 * I2F ^ 2 * R2 / S

P2 = (1 - S) * PE

REM 16

P1 = 3 * U1FH * I1F * cosF

REM 17

KPDO = P2 / P1

n1 = nO * (1 - S)

MO = 9.549 * PE / nO

PRINT USING " ## #.### #.### #####.### #####.### #### ##.### ###.### "; f2; S; cosF; P2; P1; n1; KPDO; MO

REM Конец цикла

NEXT i

END

Таблица 6

Результаты в Qbasic

  f    S            cosF         P2             P1          n1     KPDO      MO

 50    0.007    0.481    347.757      476.606     745     0.730      4.457

 50    0.013    0.663    683.633      820.352     740     0.833      8.822

 50    0.020    0.750    1002.307    1151.810    735     0.870     13.022

 50    0.027    0.790    1299.301    1466.060    730     0.886     16.996

 50    0.033    0.807    1571.154    1759.090    725     0.893     20.694

-----------------------------------------------------------------------------------------------------

 60    0.007    0.549    347.756      603.047      894     0.577     3.714

 60    0.013    0.697    683.633      946.792      888     0.722    7.351

 60    0.020    0.768    1002.307    1278.250    882     0.784    10.852

 60    0.027    0.802    1299.301    1592.501    876     0.816    14.163

 60    0.033    0.815    1571.154    1885.530    870     0.833    17.245

Библиографический список

1.  Методические указания «Расчёт параметров и рабочих характеристик  короткозамкнутых асинхронных двигателей», Л., 1983.

2.  Самаринов Н.Д. «Excel для начинающих», Л, 1989.

3.  Мельникова О.И., Бонюшкина А.Ю. «Начала программирования на языке QBasic»,   изд. Эком, 1997.

4.  Г. Зельднер «Программируем на языке QuickBasic 4.5», ABF, М., 1997