LET tall = tall + h
39 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
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
LET k1x = V
LET x61 = X + k1x * h * .5
LET k2x = V
LET x61 = X + k2x * h * .5
LET k3x = V
LET x61 = X + k3x * h
LET k4x = V
LET dx = (k1x + 2 * k2x + 2 * k3x + k4x) * h / 6
44 LET 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, " "
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 t > (ti2 + t56) THEN GOTO 45
GOTO 41
45 LET Id = SQR(integral / t)
LET Isr = integral2 / t
LET integral = 0
LET integral2 = 0
LET tcycle = t
t = 0
CLS 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(В)"
LOCATE 8, 45: PRINT "tvost(мс)="; tvost
LOCATE 9, 45: PRINT "Id="; Id
LOCATE 10, 45: PRINT "Isr="; Isr
LOCATE 11, 45: PRINT "P(Вт)="; Isr * 15
LOCATE 12, 45: PRINT "цикл "; schet + 1
LOCATE 13, 45: PRINT "времяцикла(мс)"; tcycle * 1000
LOCATE 14, 45: PRINT "частота(Гц)"; 1 / tcycle
LET schet = schet + 1
GOTO 0
7. Результаты расчета
Минимальные значения интервалов 0…t1, 0…t2,при которых обеспечивается заданное время выключения тиристоров.
0…t1=0,001 с
0…t2=0,001001 с
время переходного процесса при включении схемы на частоте ½ от fmax
Тпп= 35,4797 мс
активные мощности, потребляемые от источника питания Е на частоте fmin и fmax
P(f=fmax)=90,01246
P(f=fmin)=428,7574
действующие значения тока нагрузки на частоте fmin и fmax
IН(f=fmax)= 8,39709
IН(f=fmin)=34,11996
На рис.5 построили графики зависимостей i(t), ua(t), v(t), x(t) при установившемся режиме и частоте f=fmax/2.
На рис. 6 построили графики зависимостей i(t),uс(t) в случае короткого замыкания нагрузки (обмотки якоря).
При старении конденсатора и как следствие уменьшении его емкости уменьшается время необходимое на его зарядку. Но затем вследствие малой емкости напряжение не может достичь нуля и перевалить через него. Что является причиной выхода схемы из строя
Вывод
Из проделанной работы следует, что объект исследования может работать на относительно узкой полосе частот определяемой временем срабатывания тиристоров. Тиристоры очень чувствительны к изменению параметров внутри схемы. При расчете подобных устройств необходимо учитывать многие факторы, в том числе механико-динамические.