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

LET X = X + dx

LET V = V + dv

LET integral2 = integral2 + ABS(I) * h

LET integral = integral + h * (ABS(I)) ^ 2

LET a = (Bo * Pi * D * w * I - nu * V - ksi * X) / m1

LET Ua = La * di / h + Bo * Pi * D * w * V + I * Ra

LET tall = tall + h

IF Uc > 0 AND xc = 0 THEN

LOCATE 8, 45

LET tvost = (t - tkontr) * 10 ^ 6

PRINT "tvost(¬Є‘)="; (t - tkontr) * 10 ^ 6

LET xc = 1

END IF

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