Курсовая работа: Электродинамический преобразователь энергии с тиристорной схемой питания

LOCATE 7, 1: PRINT "Ua="; Ua, " "

END IF

PSET (t * 20000 * .01 / t2, 250 - I * .5)

PSET (t * 20000 * .01 / t2, 250 + Uc * .1), 3

PSET (t * 20000 * .01 / t2, 250)

PSET (t * 20000 * .01 / t2, 250 - V * 100), 4

PSET (t * 20000 * .01 / t2, 250 - X * 100000), 5

PSET (t * 20000 * .01 / t2, 250 - a / 3), 2

PSET (t * 20000 * .01 / t2, 250 - Ua * .1), 6

LET t = t + h

IF t > (ti + t1 + t2 + t56) THEN GOTO 33

GOTO 27

33 LET Uc = -Uc

331 LET Uc6 = Uc

LET i6 = I

LET x6 = X

LET V6 = V

34 LET k1i = E / La - (R / La) * i6 - (Uc / La) - (Bo * Pi * D * w / La) * V

LET i6 = I + h * .5 * k1i

LET k2i = E / La - (R / La) * i6 - (Uc / La) - (Bo * Pi * D * w / La) * V

LET i6 = I + k2i * h * .5

LET k3i = E / La - (R / La) * i6 - (Uc / La) - (Bo * Pi * D * w / La) * V

LET i6 = I + k3i * h

LET k4i = E / La - (R / La) * i6 - (Uc / La) - (Bo * Pi * D * w / La) * V

LET di = h * (2 * k2i + k1i + 2 * k3i + k4i) / 6

35 LET k1Uc = I / C

LET Uc6 = Uc + h * .5 * k1Uc

LET k2Uc = I / C

LET Uc6 = Uc + h * .5 * k2Uc