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

11 IF q = 1 THEN

LOCATE 1, 1: PRINT "t="; tall * 1000, " "

LOCATE 2, 1: PRINT "I="; I, " "

LOCATE 3, 1: PRINT "Uc="; Uc, " "

LOCATE 4, 1: PRINT "X="; X * 1000, " "

LOCATE 5, 1: PRINT "V="; V * 1000, " "

LOCATE 6, 1: PRINT "a="; a, " "

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 > t1 + t2 THEN GOTO 12

GOTO 5

12 LET Uc = -Uc:

LET tkontr = t:

121 LET Uc3 = Uc

LET i3 = I

LET x3 = X

LET V3 = V

13

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

LET i3 = I + h * .5 * k1i

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