128
Koc = 1 ' Коэффициент передачи датчика темпе-
ратуры
E0 = 0.2 ' Порог переключения ПЭ, запирающего
ключ
Uz = 1 ' Сигнал задания
U0 = 12.5 ' Уровень ограничения усилителя Ку
Ky = 1 ' К усиления этого усилителя
'ПАРАМЕТРЫ МОДЕЛИРОВАНИЯ
dTime = 0.01 'Шаг моделирования h
EndTime = 3 'Общее время моделирования
'Специфика программы - звено запаздывания!
'Надо хранить в памяти N элементов значений вы-
ходного сигнала.
NDelay = round(Tau/dTime, 1)
'Число кадров моделирования
Frames = round(EndTime/dTime,1)
'Выделяем память для массива aMemory
DIM aMemory(Frames+1)
view (100,50)-(400,350),7,1
window (0,-1*Uz)-(EndTime,2*Uz)
FOR i=-0.5*Uz TO 1.5*Uz STEP 0.4*Uz
LINE (0,i)-(EndTime,i),1
next i
FOR i=0 TO EndTime STEP 0.2*EndTime
LINE (i,-2*Uz)-(i,2*Uz),1
next i
locate 24,13:? "0";:? space$(36);:? EndTime"cek"
'ЦИКЛ МОДЕЛИРОВАНИЯ
'Инициализация значений переменных
Gamma = exp(-dTime/T0)
EInts = 0 ' EInt - сигнал на входе инте-
гратора в регуляторе
EIntOuts = 0 ' EIntOut - сигнал с выхода ин-
тегратора в регуляторе
Us = 0 ' U - напряжение на нагревателе