Расчёт переходного процесса в электрической цепи, страница 10

LOCATE 25, 19: PRINT "Uc=f(t,C)"

LOCATE 4, 55: PRINT "Ur=f(t,C)"

LOCATE 17, 55: PRINT "Ul=f(t,C)"

LOCATE 9, 38: PRINT "t"

LOCATE 3, 3: PRINT "i"

LOCATE 28, 38: PRINT "t"

LOCATE 16, 3: PRINT "Uc"

LOCATE 9, 75: PRINT "t"

LOCATE 3, 40: PRINT "Ur"

LOCATE 22, 75: PRINT "t"

LOCATE 14, 40: PRINT "Ul"

LOCATE 9, 3: PRINT "0": LOCATE 28, 3: PRINT "0": LOCATE 9, 41: PRINT "0"

LOCATE 22, 41: PRINT "0"

'создаем легенду

LOCATE 11, 68: PRINT "Легенда:"

LINE (500, 290)-(540, 290), 3: LOCATE 12, 70: PRINT "L=0.8Гн"

LINE (500, 270)-(540, 270), 4: LOCATE 13, 70: PRINT "L=1.0Гн"

LINE (500, 250)-(540, 250), 5: LOCATE 14, 70: PRINT "L=1.2Гн"

'задаем цикл изменения параметра С

FOR l = .8 TO 1.2 STEP .2

'задаем значения коэффициентов Рунге-Кутта и параметров цепи при t=0

k1i = 0: k2i = 0: k3i = 0: k4i = 0: k1u = 0: k2u = 0: k3u = 0: k4u = 0

i = 0: Uc = 0: Ur = 0: Ul = E

t = 0

'запускаем цикл изменения времени

DO

'задаем закон изменения времени

t = t + h

'рассчитываем значения коэффициентов Рунге-Кутта

k1i = (E - i * R(m) - Uc) * h / l

k1u = i * h / c

k2i = (E - (i + k1i / 2) * R(m) - (Uc + k1u / 2)) * h / l

k2u = (i + k1i / 2) * h / c

k3i = (E - (i + k2i / 2) * R(m) - (Uc + k2u / 2)) * h / l

k3u = (i + k2i / 2) * h / c

k4i = (E - (i + k3i) * R(m) - (Uc + k3u)) * h / l k4u = (i + k3i) * h / c

'рассчитываем значения параметров цепи

i = i + (k1i + 2 * k2i + 2 * k3i + k4i) / 6

Uc = Uc + (k1u + 2 * k2u + 2 * k3u + k4u) / 6

Ur = i * R(m)

Ul = (k1i + 2 * k2i + 2 * k3i + k4i) * l / (6 * h)

'точечно строим графики семейств четырех функций

PSET (20 + t * 500, 340 + i * 25), n

PSET (20 + t * 500, 40 + Uc), n

PSET (320 + t * 500, 340 + Ur), n

PSET (320 + t * 500, 125 + Ul), n

'закрываем цикл изменения времени с пост-условием

LOOP UNTIL t > time

'изменяем цвет рисования точек

n = n + 1

'закрываем цикл изменения параметра С

NEXT l

'включаем режим ожидания нажатия любой клавиши

SLEEP

'закрываем цикл изменения параметра R

NEXT m

'заканчиваем выполнение программы

END

Графики, построенные средствами языка QBASIC, аналогичны построенным средствами табличного редактора Excel. Анализ зависимостей напряжений и тока в цепи, проведенный для графиков, построенных по рассчитанным в Excel’е данным, справедлив и для зависимостей, рассчитанных по программе на языке QBASIC. Текс программы для построения графиков находится в приложения.

Графики построенные средствами языка QBASIC для R₁ = 7 Ом

Графики построенные средствами языка QBASIC для R₂ = 7 Ом

Заключение

В результате проведенной исследовательской работы по изучению переходных процессов в RLC-цепи были получены зависимости параметров цепи от времени. Результаты расчеты в Excel,  совпали с результатами работы программы по расчету переходных процессов в RLC-цепи в программе Qbasic. Были построены графики четырех функций: U_C(t,C), U_L(t,C), U_R(t,C), I(t,C).

На графике U_C(t,C) видно (рис.1), что напряжение U_С нарастает тем быстрее, чем меньше индуктивность L. Видно что при различных индуктивность L все графики стремится к данному напряжение т.е.(110 В ).Все значения напряжения U_C индуктивность L достигают значения напряжения E на источнике, то есть U_CMAX=110 B.