| ||
- КПД дросселя, значение которого задается переменной ShareExit1 на выходе элемента,
- количество элементов "Дроссель" в схеме модели (подсчитывается в программе автоматически),
- давление на выходе элемента Сток,
- давление на выходе элемента Исток,
- температура окружающей среды (рассчитывается по параметрам элемента Исток),
- давление окружающей среды (рассчитывается по параметрам элемента Сток).
(переменная ShareExit1) нужно щелкнуть правой кнопкой мыши на выходе элемента (выходящая треугольная стрелка) и выбрать пункт открывающегося меню Редактор кода соединения. По умолчанию параметр
уже имеет некоторое значение (ShareExit1=0.35), которое при необходимости можно изменить. Изменения сохраняются только в файле созданной схемы модели.
//-------------------------------------------------- //Подпрограмма элемента "Дроссель" //-------------------------------------------------- double K = 0.3; InputGas.IsobarHeat = K * InputGas.IsobarHeat + (1 - K) * InputGas.TempIsobarHeat; InputGas.TempIsobarHeat = InputGas.IsobarHeat; InputGas.GasConst = K * InputGas.GasConst + (1 - K) * InputGas.TempGasConst; InputGas.TempGasConst = InputGas.GasConst; InputGas.Pressure = K * InputGas.Pressure + (1 - K) * InputGas.TempPressure; InputGas.TempPressure = InputGas.Pressure; InputGas.Temperature = K * InputGas.Temperature + (1 - K) * InputGas.TempTemperature; InputGas.TempTemperature = InputGas.Temperature; InputGas.Charge = K * InputGas.Charge + (1 - K) * InputGas.TempCharge; InputGas.TempCharge = InputGas.Charge; //double DNDR = 1; // - количество последовательных дросселей double Ndr= OutputGas.ShareExit1; // - КПД дросселя OutputGas.Temperature = InputGas.Temperature; OutputGas.Pressure = InputGas.Pressure * (1 - (1 - Ndr) * (1 - pow((Drain1.InputGas.Pressure / InputGas.Pressure), (1 / DNDR)))); OutputGas.Charge = InputGas.Charge; OutputGas.IsobarHeat = InputGas.IsobarHeat; OutputGas.GasConst = InputGas.GasConst; //-------------------------------------------------- /* При изменении параметров выходов элемента используем функции : 1)double pow(double x, double y); - возвращает число x возведенное в степень y. 2) простейшие операции: +,-,/,*,() 3) величину количества последовательных дросселей DNDR 4) давление газа в стоке = Drain1.InputGas.Pressure 5) давление газа в истоке = Source1.OutputGas.Pressure Объект 1-го уровня (наборы параметров для…): OutputGas //- выход газа InputGas //- вход газа InputCapacity //- вход мощности OutputCapacity //- выход мощности Объект 2-го уровня (значения параметров): Pressure //давление Temperature //температура Charge //расход IsobarHeat //изобарная теплоемкость GasConst //газовая постоянная Capacity_FlowExergs1 //мощность или поток эксергии ShareExit1 //доля выхода / //--------------------------------------------------