МУ_Проектирование распределенных систем управления 04.09.2023

FUNCTION_BLOCK CONT_C

AUTHOR : SIMATIC

FAMILY : ICONT

NAME : CONT_C//reversed by komatic

VAR_INPUT

COM_RST

: BOOL ;

//Полный рестарт

MAN_ON

: BOOL := TRUE;

//Ручной режим включить

PVPER_ON

: BOOL ;

//Чтение входной переменной с периферии

включить

P_SEL

: BOOL := TRUE;

//Пропорциональную составляющую включить

I_SEL

: BOOL := TRUE;

//Интегральную составляющую включить

INT_HOLD

: BOOL ;

//Удержание интегральной составляющей

I_ITL_ON

: BOOL ;

//Инициализировать интегральную составляющую

D_SEL

: BOOL ;

//Дифференциальную составляющую включить

CYCLE

: TIME := T#1S;

//Время выполнения блока

SP_INT

: REAL ;

//Внутреннее задание

PV_IN

: REAL ;

//Входная переменная

PV_PER

: WORD ;

//Входная переменная (периферия)

MAN

: REAL ;

//Ручной выход

GAIN

: REAL := 2.000000e+000;

//Коэффициент пропорциональности

TI

: TIME := T#20S;

//Время интегрирования

TD

: TIME := T#10S;

//Время дифференцирования

TM_LAG

: TIME

:= T#2S;

//Время действия дифференциальной

составляющей

DEADB_W

: REAL ;

//Ширина зоны нечувствительности

LMN_HLM

: REAL := 1.000000e+002; //Верхний предел выходного сигнала

LMN_LLM

: REAL ;

//Нижний предел выходного сигнала

PV_FAC

: REAL := 1.000000e+000; //Коэффициент для корректировки входной

переменной (умножение)

PV_OFF

: REAL ;

//Коэффициент для корректировки входной

переменной (сложение)

LMN_FAC

: REAL := 1.000000e+000; //Коэффициент для корректировки

выходной переменной (умножение)

LMN_OFF

: REAL ;

//Коэффициент для корректировки входной

переменной (сложение)

I_ITLVAL

: REAL ;

//Начальное значение интегральной составляющей

DISV

: REAL ;

//Возмущающая переменная

END_VAR

VAR_OUTPUT

LMN

: REAL ;

//Выходное значение

LMN_PER

: WORD ;

//Выходное значение (переферия)

QLMN_HLM

: BOOL ;

//Верхний предел выхода достигнут

QLMN_LLM

: BOOL ;

//Нижний предел выхода достигнут

LMN_P

: REAL ;

//Пропорциональная составляющая

LMN_I

: REAL ;

//Интегральная составляющая

LMN_D

: REAL ;

//Дифференциальная составляющая

PV

: REAL ;

//Входная переменная

ER

: REAL ;

//Сигнал рассогласования

END_VAR

VAR

sInvAlt

: REAL ;

sIanteilAlt

: REAL ;

sRestInt

: REAL ;

sRestDif

: REAL ;

sRueck

: REAL ;

sLmn

: REAL ;

sbArwHLmOn

: BOOL ;

//Выход достиг максимального значения

sbArwLLmOn

: BOOL ;

//Выход достиг минимального значения

sbILimOn

: BOOL := TRUE;

END_VAR

VAR_TEMP

Hvar

: REAL ;

//Hilfsvariable

rCycle

: REAL ;

//Abtastzeit in real

Diff

: REAL ;

//Дnderungswert

Istwert

: REAL ;

//Istwert

ErKp

: REAL ;

//Вспомогательная переменная

rTi

: REAL ;

//Integrationszeit in real

rTd

: REAL ;

//Differentiationszeit in real

rTmLag

: REAL ;

//Verzцgerungszeit in real

Panteil

: REAL ;

//P-Anteil

Ianteil

: REAL ;

//I-Anteil

Danteil

: REAL ;

//D-Anteil

Verstaerk

: REAL ;

//Verstдrkung

RueckDiff

: REAL ;

//Differenz des Rьckkopplungswertes

RueckAlt

: REAL ;

//Alter Rьckkopplungswert

dLmn

: REAL ;

//Stellwert

gf

: REAL ;

//Hilfwert

rVal

: REAL ;

//Real Hilfsvariable

END_VAR

BEGIN

IF COM_RST

//Полный рестарт

THEN

// Обнуление переменных

sIanteilAlt:=I_ITLVAL;

LMN:=0.0;

//Выходное значение

QLMN_HLM:=0;

//Верхний предел выхода достигнут

QLMN_LLM:=0;

//Нижний предел выхода достигнут

LMN_P:=0.0;

//Пропорциональная составляющая

LMN_I:=0.0;

//Интегральная составляющая

LMN_D:=0.0;

//Дифференциальная составляющая

LMN_PER:=0;

//Выходное значение (периферия)

PV:=0.0;

//Входная переменная

ER:=0.0;

//Сигнал рассогласования

sInvAlt:=0.0;

sRestInt:=0.0;

sRestDif:=0.0;

sRueck:=0.0;

sLmn:=0.0;

sbArwHLmOn:=0;

sbArwLLmOn:=0;

ELSE

rCycle:= DINT_TO_REAL(TIME_TO_DINT(CYCLE)) / 1000.0;

//Время выполнения

блока в секундах

Istwert:=INT_TO_REAL(WORD_TO_INT(PV_PER))

* 100.0 / 27648.0;

// Получили

входную переменную от периферии (0-2768 в 0-100)

Istwert:=Istwert * PV_FAC + PV_OFF;

// Скорректировали входную

переменную

IF NOT PVPER_ON THEN Istwert:=PV_IN; END_IF;

// Если периферийный

вход отключен берем переменную из PV_IN

PV:= Istwert;

// Входная переменная

ErKp:=SP_INT - PV;

// Получили рассогласование между

заданием и входом

IF ErKp < (-DEADB_W)

THEN ER:=ErKp+DEADB_W;

// Если рассогласование

больше зоны нечувствительности

ELSIF ErKp >

DEADB_W

THEN ER:=ErKp-DEADB_W;

// уменьшаем

рассогласование на величину зоны нечуств.

ELSE

ER:=0.0;

// иначе принимаем рассогласование равным

нулю.

END_IF;

ErKp:=ER * GAIN;

// Рассогласование, умноженное на кфт

пропорциональности

rTi:=DINT_TO_REAL(TIME_TO_DINT(TI)) / 1000.0;

// Время интегрирования в

секундах

rTd:=DINT_TO_REAL(TIME_TO_DINT(TD)) / 1000.0;

// Время

дифференцирования в секундах

rTmLag:=DINT_TO_REAL(TIME_TO_DINT(TM_LAG)) / 1000.0;

// Время действия

диф.составляющей в секундах

// Проверка на допустимость временных настроек регулятора

IF rTi < (rCycle * 0.5)

THEN

rTi:=rCycle * 0.5;

END_IF; // Минимальное время

интегрирования - Cycle / 2

IF rTd < rCycle

THEN

rTd:=rCycle;

END_IF; // Минимальное время

дифференцирования - Cycle

IF rTmLag < rCycle * 0.5 THEN

rTmLag:=rCycle * 0.5;

END_IF; // Минимальное время

действия диф.сост.- Cycle / 2

// Вычисление пропорциональной составляющей

IF P_SEL

THEN

Panteil:=ErKp;

// Если выбрана пропорциональная

составляющая

ELSE

Panteil:=0.0;

END_IF;

//---------------------------------------------------------------------------------------------

// Вычисление интегральной составляющей

//---------------------------------------------------------------------------------------------

IF I_SEL

//Интегральную составляющую включить

THEN

IF I_ITL_ON

//Инициализировать интегральную составляющую

THEN

Ianteil:=I_ITLVAL;

sRestInt:=0.0;

ELSE

IF MAN_ON

//Ручной режим

THEN

IF MAN_ON

// Если ручной режим

THEN

dLmn:=MAN;

// Ручной выход

Для мониторинга переменных нужно нажать на кнопку

.

Для записи значений переменных в поле Modify Value

вводится

необходимое значение, затем записывается кнопкой

.