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

LET x5 = X + k1x * h * .5

LET k2x = V

LET x5 = X + k2x * h * .5

LET k3x = V

LET x5 = X + k3x * h

LET k4x = V

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

30 LET k1V = (Bo * Pi * D * w * I) / m1 - (nu / m1) * V5 - (ksi / m1) * X

LET V5 = V + k1V * h * .5

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

LET V5 = V + k2V * h * .5

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

LET V5 = V + k3V * h

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

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

31 LET I = I + di

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

32 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, " "