| ||
//-------------------------------------------------- //Подпрограмма элемента "Дроссель" //-------------------------------------------------- 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 //доля выхода / //--------------------------------------------------