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

LETschet = 1

INPUT "параметры выводить на экран? n-нет"; q1$

IF q1$ = "n" OR q1$ = "N" THEN q = 0 ELSE q = 1

SCREEN 12

Uc = 0

LOCATE 1, 45: PRINT "время t(мс)"

LOCATE 2, 45: PRINT "белаялиния I(А)"

LOCATE 3, 45: PRINT "синяялиния Uc(В)"

LOCATE 4, 45: PRINT "фиолетовая линия X(мм)"

LOCATE 5, 45: PRINT "красная линия V(мм/с)"

LOCATE 6, 45: PRINT "зеленаялиния a(m/S)"

LOCATE 7, 45: PRINT "коричневая линия Ua(В)"

0 LET i1 = I

LET Uc1 = Uc

LET x1 = X

LET V1 = V

LET xc = 0

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

LET i1 = I + h * .5 * k1i

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

LET i1 = I + k2i * h * .5

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

LET i1 = I + k3i * h

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

LET di = h * (2 * k2i + k1i + 2 * k3i + k4i) / 6

2 LET k1Uc = I / C

LET Uc1 = Uc + h * .5 * k1Uc

LET k2Uc = I / C

LET Uc1 = Uc + h * .5 * k2Uc