Курсовая работа: Электродинамический преобразователь энергии с тиристорной схемой питания
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 I > 0 THEN LET ti2 = t: GOTO 41
GOTO 331
41 LET x61 = X
LET V61 = V
LET tall = tall + h
42 LET k1V = (nu / m1) * V61 - (ksi / m1) * X
LET V61 = V + k1V * h * .5
LET k2V = (nu / m1) * V61 - (ksi / m1) * X
LET V61 = V + k2V * h * .5
LET k3V = (nu / m1) * V61 - (ksi / m1) * X
LET V61 = V + k3V * h
LET k4V = (nu / m1) * V61 - (ksi / m1) * X
LET dv = h * (2 * k2V + k1V + 2 * k3V + k4V) / 6
43