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

IF I < 0 THEN LET ti = t: GOTO 19

18 GOTO 121

19 LET x31 = X

LET V31 = V

191LET k1V = (nu / m1) * V31 - (ksi / m1) * X

LET V31 = V + k1V * h * .5

LET k2V = (nu / m1) * V31 - (ksi / m1) * X

LET V31 = V + k2V * h * .5

LET k3V = (nu / m1) * V31 - (ksi / m1) * X

LET V31 = V + k3V * h

LET k4V = (nu / m1) * V31 - (ksi / m1) * X

LET dv = h * (2 * k2V + k1V + 2 * k3V + k4V) / 6

192LET k1x = V

LET x31 = X + k1x * h * .5

LET k2x = V

LET x31 = X + k2x * h * .5

LET k3x = V

LET x31 = X + k3x * h

LET k4x = V

LET dx = (k1x + 2 * k2x + 2 * k3x + k4x) * h / 6

193LET X = X + dx

LET V = V + dv

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

LET Ua = Bo * Pi * D * w * V + I * Ra

LET tall = tall + h

IF q = 1 THEN

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

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

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