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
Files
066ce7ecf25b1671b825a540ba0dd1c103bcfefc
MetrostroiAddon/lua/metrostroi/systems/sys_als_ars_ezh3.lua

280 lines
13 KiB
Lua
Raw Blame History

--------------------------------------------------------------------------------
-- ARS-Ezh3 safety system
--------------------------------------------------------------------------------
-- Copyright (C) 2013-2018 Metrostroi Team & FoxWorks Aerospace s.r.o.
-- Contains proprietary code. See license.txt for additional information.
--------------------------------------------------------------------------------
Metrostroi.DefineSystem("ALS_ARS_Ezh3")
TRAIN_SYSTEM.DontAccelerateSimulation = false
function TRAIN_SYSTEM:Initialize()
self.Train:LoadSystem("ALSCoil")
self.Train:LoadSystem("BIS200","ALS_ARS_BIS200")
self.Train:LoadSystem("BLPM","ALS_ARS_BLPM")
self.Train:LoadSystem("BSM","ALS_ARS_BSM",1)
self.Train:LoadSystem("BUM","ALS_ARS_BUM",1)
self.Train:LoadSystem("ROT1","Relay")
self.Train:LoadSystem("ROT2","Relay")
self.Train:LoadSystem("EPKC","Relay")
-- ARS wires
self["33D"] = 0
self["33G"] = 0
self["33Zh"] = 0
self["2"] = 0
self["6"] = 0
self["8"] = 0
self["20"] = 0
--self["21"] = 0
self["48"] = 0
self.Ring = 0
self.LN = 0
self.EPK = 0
end
function TRAIN_SYSTEM:Outputs()
return {
"2", "8", "20", "48", "33Zh","33D", "33G", "48",
"NoFreq","F1","F2","F3","F4","F5","F6","LN",
"EPK",
}
end
function TRAIN_SYSTEM:Inputs()
return { "IgnoreThisARS","AttentionPedal","Ring" }
end
function TRAIN_SYSTEM:TriggerInput(name,value)
local Train = self.Train
if name == "AttentionPedal" then
self.AttentionPedal = value > 0.5
if Train and Train.PB then
Train.PB:TriggerInput("Set",value)
end
end
if name == "IgnoreThisARS" then
self.IgnoreThisARS = value > 0.5
end
end
local S = {}
function TRAIN_SYSTEM:Think(dT)
--self.CurTime = self.CurTime or CurTime()
--if CurTime()-self.CurTime < 0.05 then return end
--self.DeltaTime = CurTime()-self.CurTime
--self.CurTime = CurTime()
local Train = self.Train
local ALS = Train.ALSCoil
local BLPM = Train.BLPM
local Panel = Train.Panel
---[[
S["R0"] = ((self.GE*Train.BSM_BR2.Value
+self.KT*Train.BSM_GE.Value*(
Train.BSM_KSR1.Value*Train.BSM_KSR2.Value
*(1-Train.BSM_KRH.Value)
*(Train.BSM_KRO.Value+Train.BSM_KRT.Value)
)
)*Train.BIS_R0.Value
+self.GE*(
(1-Train.BSM_GE.Value)
+Train.BUM_KRD.Value
+Train.BSM_KRO.Value*Train.BSM_KRH.Value
)
)*(1-Train.BIS_R2.Value)*(1-Train.BIS_R3.Value)*(1-Train.BIS_R4.Value)*(1-Train.BIS_R5.Value)*(1-Train.BIS_R6.Value)*(1-Train.BIS_R7.Value)*(1-Train.BIS_R8.Value)*(1-Train.BIS_R10.Value)
--[[ (
Train.BSM_KSR1.Value*Train.BSM_KSR2.Value
*(1-Train.BSM_KRH.Value)
*(Train.BSM_KRO.Value+Train.BSM_KRT.Value)
*(1-Train.BIS_R2.Value)*(1-Train.BIS_R3.Value)*(1-Train.BIS_R4.Value)*(1-Train.BIS_R5.Value)*(1-Train.BIS_R6.Value)*(1-Train.BIS_R7.Value)*(1-Train.BIS_R8.Value)*(1-Train.BIS_R10.Value)
)--]]
--Train.BIS_R0:TriggerInput("NoOpenTime",Train.BIS_R1.Value+(1-Train.BIS_R0.Value))
Train.BIS_R0:TriggerInput("NoOpenTime",(1-Train.BIS_R0.Value)+Train.BIS_R1.Value)
Train.BIS_R0:TriggerInput("Set",S["R0"])
--[[ S["RVZ1"] = S["RVZ"]*Train.BIS_R0.Value*(1-Train.BIS_R1.Value)
S["EK0"] = S["RVZ1"]*(1-Train.BSM_GE.Value)--]]
--]]
self.ARS = self.ARS or 0
self.ALS = self.ALS or 0
self.KB = self.KB or 0
-- self.NGPower = self.NGPower or 0
-- self.DA = self.DA or 0
-- self.KT = self.KT or 0
Train.BSM_GE:TriggerInput("Set",self.GE)
S["GE"]= self.GE*Train.BSM_GE.Value
local EnableALS = self.ALS
if EnableALS ~= ALS.Enabled then
ALS:TriggerInput("Enable",EnableALS)
end
--SR1,SR2
S["SRPower"] = self.ALS*(1-Train.BSM_GE.Value)+S["GE"]
S["1SIR"] = S["SRPower"]*(1-Train.BLPM_1R3.Value)*Train.BLPM_1R1.Value*Train.BLPM_1R2.Value
S["2SIR"] = S["SRPower"]*Train.BLPM_1R3.Value*(1-Train.BLPM_2R3.Value)*Train.BLPM_2R1.Value*Train.BLPM_2R2.Value
S["3SIR"] = S["SRPower"]*Train.BLPM_1R3.Value*Train.BLPM_2R3.Value*(1-Train.BLPM_3R3.Value)*Train.BLPM_3R1.Value*Train.BLPM_3R2.Value
S["4SIR"] = S["SRPower"]*Train.BLPM_1R3.Value*Train.BLPM_2R3.Value*Train.BLPM_3R3.Value*(1-Train.BLPM_4R3.Value)*Train.BLPM_4R1.Value*Train.BLPM_4R2.Value
S["5SIR"] = S["SRPower"]*Train.BLPM_1R3.Value*Train.BLPM_2R3.Value*Train.BLPM_3R3.Value*Train.BLPM_4R3.Value*(1-Train.BLPM_5R3.Value)*Train.BLPM_5R1.Value*Train.BLPM_5R2.Value
S["NF"] = S["SRPower"]*Train.BLPM_1R3.Value*Train.BLPM_2R3.Value*Train.BLPM_3R3.Value*Train.BLPM_4R3.Value*Train.BLPM_5R3.Value
Train.BSM_SIR1:TriggerInput("Set",
S["SRPower"]*Train.BSM_SR1.Value*Train.BSM_SIR1.Value+
S["1SIR"]*(1-Train.BSM_SR1.Value)--*(1-Train.BSM_SR2.Value)
)
Train.BSM_SIR2:TriggerInput("Set",
S["SRPower"]*Train.BSM_SR1.Value*(Train.BSM_SIR1.Value+Train.BSM_SIR2.Value)+
S["2SIR"]*(1-Train.BSM_SR1.Value)--*(1-Train.BSM_SR2.Value)
)
Train.BSM_SIR3:TriggerInput("Set",
S["SRPower"]*Train.BSM_SR1.Value*(Train.BSM_SIR2.Value+Train.BSM_SIR3.Value)+
S["3SIR"]*(1-Train.BSM_SR1.Value)--*(1-Train.BSM_SR2.Value)
)
Train.BSM_SIR4:TriggerInput("Set",
S["SRPower"]*Train.BSM_SR1.Value*(Train.BSM_SIR3.Value+Train.BSM_SIR4.Value)+
S["4SIR"]*(1-Train.BSM_SR1.Value)--*(1-Train.BSM_SR2.Value)
)
Train.BSM_SIR5:TriggerInput("Set",
S["SRPower"]*Train.BSM_SR1.Value*(Train.BSM_SIR1.Value+Train.BSM_SIR2.Value+Train.BSM_SIR3.Value+Train.BSM_SIR4.Value+Train.BSM_SIR5.Value)+
S["5SIR"]*(1-Train.BSM_SR1.Value)--*(1-Train.BSM_SR2.Value)
)
S["SRSIR5"] = (S["5SIR"]*Train.BSM_SIR5.Value)
S["SRSIR4"] = (S["4SIR"]*Train.BSM_SIR4.Value)
S["SRSIR3"] = (S["3SIR"]*Train.BSM_SIR3.Value)
S["SRSIR2"] = (S["2SIR"]*Train.BSM_SIR2.Value)
S["SRSIR1"] = (S["1SIR"]*Train.BSM_SIR1.Value)
---[[
S["SR"] =
S["NF"]*(1-Train.BSM_SIR5.Value)*(1-Train.BSM_SIR4.Value)*(1-Train.BSM_SIR3.Value)*(1-Train.BSM_SIR2.Value)*(1-Train.BSM_SIR1.Value)+
S["SRSIR5"]*(1-Train.BSM_SIR4.Value)*(1-Train.BSM_SIR3.Value)*(1-Train.BSM_SIR2.Value)*(1-Train.BSM_SIR1.Value)+
S["SRSIR4"]*(1-Train.BSM_SIR3.Value)*(1-Train.BSM_SIR2.Value)*(1-Train.BSM_SIR1.Value)+
S["SRSIR3"]*(1-Train.BSM_SIR2.Value)*(1-Train.BSM_SIR1.Value)+
S["SRSIR2"]*(1-Train.BSM_SIR1.Value)+
S["SRSIR1"]
Train.BSM_SR1:TriggerInput("Set",S["SR"])
Train.BSM_SR2:TriggerInput("Set",S["SR"])
S["BSM_KSR1"] = S["GE"]*Train.BSM_SR1.Value
S["BIS1"] = S["BSM_KSR1"]*(
((1-Train.BIS_R0.Value)*Train.BIS_R2.Value+Train.BIS_R0.Value*(1-Train.BIS_R2.Value))+
((1-Train.BIS_R6.Value)*Train.BIS_R8.Value+Train.BIS_R6.Value*(1-Train.BIS_R8.Value))+
((1-Train.BIS_R3.Value)*Train.BIS_R5.Value+Train.BIS_R3.Value*(1-Train.BIS_R5.Value))+
((1-Train.BIS_R10.Value)*Train.BIS_R7.Value+Train.BIS_R10.Value*(1-Train.BIS_R7.Value))+
((1-Train.BIS_R1.Value)*Train.BIS_R4.Value+Train.BIS_R1.Value*(1-Train.BIS_R4.Value))
)
S["R10"] = S["BIS1"]*(1-Train.BIS_R10.Value)
S["R8"] = S["R10"]*(1-Train.BIS_R8.Value)
S["R7"] = S["R8"]*(1-Train.BIS_R7.Value)
S["R5"] = S["R7"]*(1-Train.BIS_R6.Value)*(1-Train.BIS_R5.Value)
S["R3"] = S["R5"]*(1-Train.BIS_R4.Value)*(1-Train.BIS_R3.Value)
S["BR1_14"] =
S["R10"]*Train.BSM_SIR1.Value+
S["R8"]*Train.BSM_SIR2.Value+
S["R7"]*Train.BSM_SIR3.Value+
S["R5"]*Train.BSM_SIR4.Value
S["BR1_16"] = S["R3"]*Train.BSM_SIR5.Value
S["BR2_16"] = S["R3"]*(1-Train.BSM_SIR5.Value)
S["KSR"] = S["BR1_14"]*(1-Train.BSM_BR1.Value)*(1-Train.BSM_BR2.Value)+S["BR1_16"]*Train.BSM_BR1.Value+S["BR2_16"]*Train.BSM_BR2.Value
Train.BSM_KSR1:TriggerInput("Set",S["KSR"])
Train.BSM_KSR2:TriggerInput("Set",S["KSR"])
Train.BSM_BR1:TriggerInput("Set",S["SRPower"]*Train.PB.Value*((Train.BSM_BR1.Value+Train.BSM_SIR5.Value)*(1-Train.BSM_BR2.Value)))
Train.BSM_BR2:TriggerInput("Set",S["SRPower"]*Train.PB.Value*((Train.BSM_BR2.Value+(1-Train.BSM_SIR5.Value))*(1-Train.BSM_BR1.Value)))
Train.BSM_RNT:TriggerInput("Set",self.ALS*(Train.BSM_BR1.Value+Train.BSM_BR2.Value+Train.KVT.Value+Train.BSM_RNT.Value*(Train.BSM_KSR1.Value*Train.BSM_KSR2.Value+Train.BSM_KRT.Value)))
self.Ring = self.GE*(1-Train.BSM_RNT.Value)*(1-Train.BSM_RVV.Value)
S["LUDS"] = S["SRPower"]*Train.BSM_SR1.Value*Train.BSM_SR2.Value
S["AR80"] = S["LUDS"]*Train.BSM_SIR1.Value
S["AR70"] = S["LUDS"]*(1-Train.BSM_SIR1.Value)*Train.BSM_SIR2.Value
S["AR60"] = S["LUDS"]*(1-Train.BSM_SIR1.Value)*(1-Train.BSM_SIR2.Value)*Train.BSM_SIR3.Value
S["AR40"] = S["LUDS"]*(1-Train.BSM_SIR1.Value)*(1-Train.BSM_SIR2.Value)*(1-Train.BSM_SIR3.Value)*Train.BSM_SIR4.Value
S["AR0"] = S["LUDS"]*(1-Train.BSM_SIR1.Value)*(1-Train.BSM_SIR2.Value)*(1-Train.BSM_SIR3.Value)*(1-Train.BSM_SIR4.Value)*Train.BSM_SIR5.Value
S["AR04"] = S["LUDS"]*(1-Train.BSM_SIR1.Value)*(1-Train.BSM_SIR2.Value)*(1-Train.BSM_SIR3.Value)*(1-Train.BSM_SIR4.Value)*(1-Train.BSM_SIR5.Value)
Train.BSM_RVV:TriggerInput("Set",Train.ARS.Value*(1-Train.KVT.Value)*Train.BSM_RNT.Value)
S["GEKSR"] = S["GE"]*Train.BSM_RVV.Value*Train.BSM_KSR1.Value*Train.BSM_KSR2.Value
Train.BUM_RB:TriggerInput("Set",S["GEKSR"])
Train.BUM_RUVD:TriggerInput("Set",S["GEKSR"]*(Train.BSM_KRO.Value+Train.BUM_RUVD.Value))
S["RVD"] = S["GEKSR"]*(1-Train.BSM_KRT.Value)*Train.BUM_RUVD.Value
Train.BUM_RVD1:TriggerInput("Set",S["RVD"])
Train.BUM_RVD2:TriggerInput("Set",S["RVD"])
Train.BUM_TR:TriggerInput("Set",self.ALS*Train.BSM_RVV.Value*Train.BSM_KSR1.Value*Train.BSM_KSR2.Value)
--Train.BUM_PTR:TriggerInput("Set",self.GE*Train.BUM_TR.Value)
--Train.BUM_RVT5:TriggerInput("Set",self.GE*(1-Train.BUM_TR.Value))
S["RVT1"] = self.GE*(1-Train.BUM_TR.Value)
Train.BUM_RVT1:TriggerInput("Set",S["RVT1"])
Train.BUM_RVT2:TriggerInput("Set",S["RVT1"])
Train.BUM_RVT4:TriggerInput("Set",S["RVT1"])
Train.BUM_RET:TriggerInput("Set",S["RVT1"])
Train.BUM_RVT5:TriggerInput("Set",S["RVT1"]*(1-Train.BUM_PTR.Value))
Train.BUM_PTR:TriggerInput("Set",self.GE*Train.BUM_TR.Value)
Train.BUM_RVZ1:TriggerInput("Set",self.GE*(1-Train.BSM_BR2.Value)*(1-Train.BSM_KRH.Value)*(1-Train.BSM_BR1.Value)*Train.BIS_R0.Value)
Train.BSM_RUT:TriggerInput("Set",self.DA*(Train.BIS_R6.Value+Train.BIS_R7.Value+Train.BIS_R8.Value+Train.BIS_R10.Value))
--EPK
--
--[=[ S["EKR0on"] =
self.GE*(
Train.BSM_KRH.Value*(1-Train.BSM_KRT.Value)*(1-Train.BSM_KRO.Value)
+(1-Train.BSM_KRH.Value)*(
Train.BSM_PR1.Value
+Train.BSM_BR2.Value)
)
+self.KT*Train.BSM_KSR1.Value*Train.BSM_KSR2.Value
S["EKR0"] = (
S["EKR0on"]*Train.BIS_R0.Value*(1-Train.BIS_R1.Value)
+self.GE*((1-Train.BIS_R0.Value)+Train.BIS_R1.Value)
--[[S["EKR0on"]*Train.BIS_R0.Value
+self.GE*(1-Train.BIS_R0.Value)]]
)*Train.BSM_KSR1.Value*Train.BSM_KSR2.Value*Train.BUM_PTR.Value
S["EK1"] = S["EKR0"]+self.KT*Train.BSM_GE.Value*(1-Train.BSM_KSR1.Value)*(1-Train.BSM_KSR2.Value)*(1-Train.BUM_PTR.Value)*(1-Train.BUM_PTR1.Value)
S["EK"] = S["EK0"]+S["EK1"]*Train.BUM_PEK.Value*Train.BUM_RIPP.Value
--]=]
S["AntiRol"] = (1-Train.BIS_R0.Value)*(1-Train.BIS_R1.Value)*(1-Train.BIS_R2.Value)*(1-Train.BIS_R3.Value)*(1-Train.BIS_R4.Value)*(1-Train.BIS_R5.Value)*(1-Train.BIS_R6.Value)*(1-Train.BIS_R7.Value)*(1-Train.BIS_R8.Value)*(1-Train.BIS_R10.Value)*Train.BSM_KRH.Value*Train.BSM_SIR5.Value
S["EKt60"] = (1-Train.BIS_R10.Value)*(1-Train.BIS_R8.Value)*(1-Train.BIS_R7.Value)
S["EKt50"] = S["EKt60"]*(1-Train.BIS_R6.Value)
S["EKt30"] = S["EKt50"]*(1-Train.BIS_R5.Value)*(1-Train.BIS_R4.Value)
S["EKt"] = (3.2+S["EKt60"]*0.7+S["EKt50"]*1.3+S["EKt30"]*2.7)--*(Train.BIS_R0.Value+Train.BIS_R1.Value+)
S["EK"] = (self.KT*((1-Train.BSM_KSR1.Value)*(1-Train.BSM_KSR2.Value)+Train.BIS_R0.Value)+S["GE"]*(Train.BUM_KRD.Value+Train.BSM_KSR1.Value*Train.BSM_KSR2.Value)*((1-Train.BIS_R0.Value*Train.BSM_SIR5.Value)))*Train.BUM_RVEK1.Value*Train.BUM_RVEK2.Value+S["R0"]*(1-Train.BSM_GE.Value)
Train.BUM_EK:TriggerInput("Set",S["EK"])
--Train.BUM_EK1:TriggerInput("Set",S["EK"])
Train.BUM_EK:TriggerInput("OpenTime",S["EKt"])
Train.BUM_EK:TriggerInput("NoOpenTime",S["AntiRol"])
--Train.BUM_EK:TriggerInput("OpenTime",S["EKt"])
self.EPK = self.GE*Train.BUM_EK.Value
Train.BUM_RVEK1:TriggerInput("Set",self.EPK)
Train.BUM_RVEK2:TriggerInput("Set",self.EPK)
self["48"] = self.GE*Train.BUM_RVZ1.Value
self["8"] = self.GE*Train.BUM_RVT5.Value
self["20"] = self.DAR*Train.BUM_RVT1.Value
self["33D"] = Train.BUM_RVD1.Value
self["33G"] = self.DAR*Train.BUM_RVT2.Value
self["33Zh"] = Train.BUM_RB.Value
self["2"] = self.DA*Train.BUM_RVT4.Value
Panel.AR80 = S["AR80"]
Panel.AR70 = S["AR70"]
Panel.AR60 = S["AR60"]
Panel.AR40 = S["AR40"]
Panel.AR0 = S["AR0"]
Panel.AR04 = S["AR04"]
Panel.KT = self.KT*Train.BSM_GE.Value
Panel.KVD = self.GE*(1-Train.BUM_RUVD.Value)
--Train:WriteTrainWire(90,self.EPK*(1-Train.ARS.Value))
Train.EPKC:TriggerInput("Set",self.EPK)
end
View Git Blame Copy Permalink