metrostroi-repo/MetrostroiAddon
1
0
Fork 0
mirror of https://github.com/metrostroi-repo/MetrostroiAddon.git synced 2026-05-02 00:42:29 +00:00
Code Activity

Auxiliary air reservoir simulation added

Browse Source
This commit is contained in:
Moon Horse
2025-12-04 01:56:50 +03:00
parent d01446d9e9
commit 3e0162a4a1
2 changed files with 32 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
lua/metrostroi/systems/sys_81_717_pneumatic.lua
View File

@@ -49,6 +49,7 @@ function TRAIN_SYSTEM:Initialize(parameters)
self.BCPressure = 0 self.BCPressure = 0
-- Air distrubutor part -- Air distrubutor part
self.WorkingChamberPressure = 5.2 self.WorkingChamberPressure = 5.2
self.ExtendedTrainLinePressure = self.TrainLinePressure
-- Disconnected KM 334 vessels (trainline and brakeline parts between disconnect valve and KM itself) emulation -- Disconnected KM 334 vessels (trainline and brakeline parts between disconnect valve and KM itself) emulation
self.TLDisconnectPressure = 0.0 self.TLDisconnectPressure = 0.0
self.BLDisconnectPressure = 0.0 self.BLDisconnectPressure = 0.0
@@ -233,7 +234,8 @@ end
function TRAIN_SYSTEM:Outputs() function TRAIN_SYSTEM:Outputs()
return { "BrakeLinePressure", "BrakeCylinderPressure", "DriverValvePosition", "WorkingChamberPressure", "LeftDoorCloseCylPressure", "LeftDoorOpenCylPressure", return { "BrakeLinePressure", "BrakeCylinderPressure", "DriverValvePosition", "WorkingChamberPressure", "LeftDoorCloseCylPressure", "LeftDoorOpenCylPressure",
"ReservoirPressure", "TrainLinePressure", "DoorLinePressure", "WeightLoadRatio", "RightDoorCloseCylPressure", "_1stRightDoorCloseCylPressure", "RightDoorOpenCylPressure" } "ReservoirPressure", "TrainLinePressure", "ExtendedTrainLinePressure", "DoorLinePressure", "WeightLoadRatio",
"RightDoorCloseCylPressure", "_1stRightDoorCloseCylPressure", "RightDoorOpenCylPressure" }
end end
function TRAIN_SYSTEM:TriggerInput(name,value) function TRAIN_SYSTEM:TriggerInput(name,value)
@@ -385,8 +387,9 @@ function TRAIN_SYSTEM:UpdatePressures(Train,dT)
Train:SetPackedRatio("RearLeak",Rl) Train:SetPackedRatio("RearLeak",Rl)
end end
function TRAIN_SYSTEM:equalizePressure(dT,pressure,target,rate,fill_rate,no_limit,smooth) function TRAIN_SYSTEM:equalizePressure(dT,pressure,target,rate,fill_rate,no_limit,smooth,fill_smooth)
if fill_rate and (target > self[pressure]) then rate = fill_rate end if fill_rate and (target > self[pressure]) then rate = fill_rate end
if fill_smooth and (target > self[pressure]) then smooth = fill_smooth end
-- Calculate derivative -- Calculate derivative
local dPdT = rate local dPdT = rate
@@ -439,6 +442,7 @@ function TRAIN_SYSTEM:Think(dT)
end end
-- Accumulate derivatives -- Accumulate derivatives
self.TrainLinePressure_dPdT = 0.0 self.TrainLinePressure_dPdT = 0.0
self.ExtendedTrainLinePressure_dPdT = 0.0
self.BrakeLinePressure_dPdT = 0.0 self.BrakeLinePressure_dPdT = 0.0
self.EPKPressure_dPdT = 0.0 self.EPKPressure_dPdT = 0.0
self.ReservoirPressure_dPdT = 0.0 self.ReservoirPressure_dPdT = 0.0
@@ -576,7 +580,7 @@ function TRAIN_SYSTEM:Think(dT)
---------------debug---------------------]] ---------------debug---------------------]]
trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.BrakeLinePressure_dPdT) trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.BrakeLinePressure_dPdT)
trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.ReservoirPressure_dPdT)*0.05 trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.ReservoirPressure_dPdT)*0.05
else elseif not self.DisconnectType and self.TrainLinePressure > 0.95 or self.DisconnectType then
pr_speed = 2.8 pr_speed = 2.8
local pz_speed local pz_speed
-- wagc | pr_speed -- wagc | pr_speed
@@ -728,13 +732,14 @@ function TRAIN_SYSTEM:Think(dT)
trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.WorkingChamberPressure_dPdT*0.2) trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.WorkingChamberPressure_dPdT*0.2)
self.GN2Offset = self.GN2Offset or math.random(20,100)*0.002 + (self.GN2Start or 2.5) self.GN2Offset = self.GN2Offset or math.random(20,100)*0.002 + (self.GN2Start or 2.5)
self.GN1Offset = self.GN1Offset or math.random(20,100)*0.002 + (self.GN1Start or 0.9) self.GN1Offset = self.GN1Offset or math.random(20,100)*0.002 + (self.GN1Start or 0.9)
self.BcBl = (self.GN2Offset + self.WeightLoadRatio*(self.GN2Offset - 1.4))/1.82--1.92 local bcrel_thold = self.GN2Offset + self.WeightLoadRatio*(self.GN2Offset - 1.4)
self.BcBl = bcrel_thold/1.82--1.92
if Train.AirDistributorDisconnect.Value == 0 and aird_ready then if Train.AirDistributorDisconnect.Value == 0 and aird_ready then
-- Valve #1 -- Valve #1
if (Train.PneumaticNo1.Value == 1.0) and (Train.PneumaticNo2.Value == 0.0) then if (Train.PneumaticNo1.Value == 1.0) and (Train.PneumaticNo2.Value == 0.0) then
self.PN1Use = true self.PN1Use = true
if self.PN1 < self.GN1Offset then if self.PN1 < self.GN1Offset then
self.PN1 = math.min(self.TrainLinePressure,self.GN1Offset) self.PN1 = math.min(self.ExtendedTrainLinePressure,self.GN1Offset)
end end
elseif Train.PneumaticNo1.Value == 0 and self.PN1 > 0.0 then elseif Train.PneumaticNo1.Value == 0 and self.PN1 > 0.0 then
self.PN1 = 0.0 self.PN1 = 0.0
@@ -742,7 +747,7 @@ function TRAIN_SYSTEM:Think(dT)
-- Valve #2 -- Valve #2
if Train.PneumaticNo2.Value == 1.0 then if Train.PneumaticNo2.Value == 1.0 then
self.PN2Use = true self.PN2Use = true
self.PN2 = math.min(self.TrainLinePressure,(self.GN2Offset + self.WeightLoadRatio*1.3)) self.PN2 = math.min(self.ExtendedTrainLinePressure,(self.GN2Offset + self.WeightLoadRatio*1.3))
if self.BePN2 == false and self.BrakeCylinderPressure > 1.6 then if self.BePN2 == false and self.BrakeCylinderPressure > 1.6 then
Train:PlayOnce("PN2end","stop") Train:PlayOnce("PN2end","stop")
end end
@@ -752,7 +757,7 @@ function TRAIN_SYSTEM:Think(dT)
end end
self.BchExh = self.WorkingChamberPressure < 4.8 and self.BrakeLinePressure < 3.4 and 0 or 1 self.BchExh = self.WorkingChamberPressure < 4.8 and self.BrakeLinePressure < 3.4 and 0 or 1
self.cranPres = math.max(0,self.BcBl*(self.WorkingChamberPressure - self.BrakeLinePressure*self.BchExh)*(self.BrakeLinePressure > self.KM013offset and (0.6 + self.PN1*0.43) or 1)) self.cranPres = math.min(self.WorkingChamberPressure, math.max(0,self.BcBl*(self.WorkingChamberPressure - self.BrakeLinePressure*self.BchExh)*(self.BrakeLinePressure > self.KM013offset and (0.6 + self.PN1*0.43) or 1)))
local targetPressure = math.max(0,math.min(self.GN2Offset + self.WeightLoadRatio*1.3, (self.cranPres < (self.PN1 + self.WeightLoadRatio*0.7) and (Train.PneumaticNo1.Value == 1.0) and (self.PN1 + self.WeightLoadRatio*0.7) or self.PN1) + self.PN2 + self.cranPres)) local targetPressure = math.max(0,math.min(self.GN2Offset + self.WeightLoadRatio*1.3, (self.cranPres < (self.PN1 + self.WeightLoadRatio*0.7) and (Train.PneumaticNo1.Value == 1.0) and (self.PN1 + self.WeightLoadRatio*0.7) or self.PN1) + self.PN2 + self.cranPres))
if math.abs(self.BrakeCylinderPressure - targetPressure) > 0.150 then if math.abs(self.BrakeCylinderPressure - targetPressure) > 0.150 then
self.BrakeCylinderValve = 1 self.BrakeCylinderValve = 1
@@ -761,21 +766,24 @@ function TRAIN_SYSTEM:Think(dT)
self.BrakeCylinderValve = 0 self.BrakeCylinderValve = 0
end end
if self.BrakeCylinderValve == 1 then if self.BrakeCylinderValve == 1 then
local target_p = math.min(self.GN2Offset + self.WeightLoadRatio*(self.GN2Offset - 1.4),targetPressure) local target_p = math.min(bcrel_thold, targetPressure)
-- assume VZ1 or VZ2 action -- assume VZ1 or VZ2 action
local smooth_fill = 0.5*math.min(3,math.max(0.1,(self.ExtendedTrainLinePressure-target_p)))
if self.PN1Use and not self.PN2Use then if self.PN1Use and not self.PN2Use then
self:equalizePressure(dT,"BrakeCylinderPressure", target_p, self.VZ1RelRate or 1, 8.2, nil, 0.6) self:equalizePressure(dT,"BrakeCylinderPressure", math.min(target_p, self.ExtendedTrainLinePressure), self.VZ1RelRate or 1, 6.2, nil, 0.68, smooth_fill)
elseif self.PN2Use then elseif self.PN2Use then
self:equalizePressure(dT,"BrakeCylinderPressure", target_p, self.VZ2RelRate or 1, 5.2, nil, 0.6) self:equalizePressure(dT,"BrakeCylinderPressure", math.min(target_p, self.ExtendedTrainLinePressure), self.VZ2RelRate or 1, 5.2, nil, 0.5, smooth_fill)
-- assume driver's valve action -- assume driver's valve action
else else
self:equalizePressure(dT,"BrakeCylinderPressure", target_p, 0.8, 1.5, nil, 1.2) self:equalizePressure(dT,"BrakeCylinderPressure", math.min(target_p, self.ExtendedTrainLinePressure), 0.8, 1.5, nil, 1.2)
end end
end end
trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.BrakeCylinderPressure_dPdT*0.5) trainLineConsumption_dPdT = trainLineConsumption_dPdT + math.max(0,self.BrakeCylinderPressure_dPdT*0.5)
elseif Train.AirDistributorDisconnect.Value ~= 0 then elseif Train.AirDistributorDisconnect.Value ~= 0 then
self:equalizePressure(dT,"BrakeCylinderPressure", 0.0, 2.00) self:equalizePressure(dT,"BrakeCylinderPressure", 0.0, 2.00)
self:equalizePressure(dT,"WorkingChamberPressure", 0.0, 0.1)
end end
self:equalizePressure(dT,"BrakeCylinderPressure", 0.0, 0.0001, 0, nil, 1)
if (self.PN1Use or self.PN2Use) then if (self.PN1Use or self.PN2Use) then
if self.BrakeCylinderPressure_dPdT < 0 and self.BrakeCylinderPressure < 0.1 then if self.BrakeCylinderPressure_dPdT < 0 and self.BrakeCylinderPressure < 0.1 then
self.PN1Use = false self.PN1Use = false
@@ -789,8 +797,9 @@ function TRAIN_SYSTEM:Think(dT)
if self.BrakeCylinderPressure < 1 and self.BrakeCylinderPressure_dPdT < -0.1 and self.BrakeEngaged then if self.BrakeCylinderPressure < 1 and self.BrakeCylinderPressure_dPdT < -0.1 and self.BrakeEngaged then
self.BrakeEngaged = false self.BrakeEngaged = false
end end
Train:SetPackedRatio("BrakeCylinderPressure_dPdT", self.BrakeCylinderPressure_dPdT) Train:SetPackedRatio("BrakeCylinderPressure_dPdT", self.BrakeCylinderPressure_dPdT*(self.ExtendedTrainLinePressure >= bcrel_thold and 1 or 0.1))
self.TrainLinePressure = self.TrainLinePressure-math.max(0,self.BrakeCylinderPressure_dPdT*0.002) self.TrainLinePressure = self.TrainLinePressure-math.max(0,self.BrakeCylinderPressure_dPdT*0.002)
self.ExtendedTrainLinePressure = self.ExtendedTrainLinePressure-math.max(0,self.BrakeCylinderPressure_dPdT*0.002)
if Train.PneumaticNo2.Value == 0 then if Train.PneumaticNo2.Value == 0 then
if self.BePN2 == true then if self.BePN2 == true then
self.BePN2 = CurTime() self.BePN2 = CurTime()
@@ -1085,6 +1094,7 @@ function TRAIN_SYSTEM:Think(dT)
self.TrainLineOpen = true self.TrainLineOpen = true
if self.TrainLinePressure < 5.2 and self.TrainLineOverpressureValve < 20 then self.TrainLineOverpressureValve = self.TrainLineOverpressureValve + 1 end if self.TrainLinePressure < 5.2 and self.TrainLineOverpressureValve < 20 then self.TrainLineOverpressureValve = self.TrainLineOverpressureValve + 1 end
end end
self:equalizePressure(dT,"ExtendedTrainLinePressure", self.TrainLinePressure, 0.003, 100)
---------------------------------------------------------------------------- ----------------------------------------------------------------------------
-- Pressure triggered relays -- Pressure triggered relays
@@ -1103,12 +1113,14 @@ function TRAIN_SYSTEM:Think(dT)
---------------------------------------------------------------------------- ----------------------------------------------------------------------------
if self.DriverValveDisconnectPrevious ~= Train.DriverValveDisconnect.Value then if self.DriverValveDisconnectPrevious ~= Train.DriverValveDisconnect.Value then
self.DriverValveDisconnectPrevious = Train.DriverValveDisconnect.Value self.DriverValveDisconnectPrevious = Train.DriverValveDisconnect.Value
if self.DriverValveDisconnectPrevious == 0 then if self.TrainLinePressure > 0.6 then
self.DVDOffTimer = CurTime() if self.DriverValveDisconnectPrevious == 0 then
Train:PlayOnce("pneumo_disconnect2","cabin",0.9) self.DVDOffTimer = CurTime()
else Train:PlayOnce("pneumo_disconnect2","cabin",0.9)
self.DVDOffTimer = nil else
Train:PlayOnce("pneumo_disconnect1","cabin",0.9) self.DVDOffTimer = nil
Train:PlayOnce("pneumo_disconnect1","cabin",0.9)
end
end end
end end
--Написано в описании КМ013, что при закрытии разобщительного он снижает давление в ТМ на 0.7, значит так и сделаем! --Написано в описании КМ013, что при закрытии разобщительного он снижает давление в ТМ на 0.7, значит так и сделаем!

4
lua/metrostroi/systems/sys_relay.lua
View File

@@ -206,7 +206,7 @@ function TRAIN_SYSTEM:TriggerInput(name,value)
if (name == "Block") then if (name == "Block") then
self.Blocked = value self.Blocked = value
elseif (name == "Close") and (value > self.trigger_level) and (self.Value ~= 1.0 or self.TargetValue ~= 1.0) then --(self.TargetValue ~= 1.0 and self.rpb)) elseif (name == "Close") and (value > self.trigger_level) and (self.Value ~= 1.0 or self.TargetValue ~= 1.0) then --(self.TargetValue ~= 1.0 and self.rpb))
if self.pneumatic and self.Train.Pneumatic.TrainLinePressure < 3 then return end if self.pneumatic and self.Train.Pneumatic.ExtendedTrainLinePressure < 3 then return end
if (not self.ChangeTime) or (self.TargetValue ~= 1.0) then if (not self.ChangeTime) or (self.TargetValue ~= 1.0) then
self.ChangeTime = self.Time + FailSim.Value(self,"CloseTime") self.ChangeTime = self.Time + FailSim.Value(self,"CloseTime")
end end
@@ -234,7 +234,7 @@ function TRAIN_SYSTEM:TriggerInput(name,value)
if self.ChangeTime==self.Time and self.Train.DeltaTime then self:Think(self.Train.DeltaTime) end if self.ChangeTime==self.Time and self.Train.DeltaTime then self:Think(self.Train.DeltaTime) end
elseif name == "Set" then elseif name == "Set" then
if self.pneumatic and value > 0 and self.Train.Pneumatic.TrainLinePressure < 3 then return end if self.pneumatic and value > 0 and self.Train.Pneumatic.ExtendedTrainLinePressure < 3 then return end
if self.maxvalue then if self.maxvalue then
if not self.ChangeTime then if not self.ChangeTime then
self.ChangeTime = self.Time + FailSim.Value(self,"OpenTime") self.ChangeTime = self.Time + FailSim.Value(self,"OpenTime")