mirror of
https://github.com/metrostroi-repo/MetrostroiAddon.git
synced 2026-05-02 00:42:29 +00:00
46 lines
1.8 KiB
Lua
46 lines
1.8 KiB
Lua
--------------------------------------------------------------------------------
|
||
-- Battery
|
||
--------------------------------------------------------------------------------
|
||
-- Copyright (C) 2013-2018 Metrostroi Team & FoxWorks Aerospace s.r.o.
|
||
-- Contains proprietary code. See license.txt for additional information.
|
||
--------------------------------------------------------------------------------
|
||
Metrostroi.DefineSystem("Battery")
|
||
|
||
function TRAIN_SYSTEM:Initialize()
|
||
-- Предохранители цепей (ПА1, ПА2)
|
||
self.Train:LoadSystem("PA1","Relay","PP-28", { trigger_level = 31.5 }) -- A
|
||
self.Train:LoadSystem("PA2","Relay","PP-28", { trigger_level = 31.5 }) -- A
|
||
|
||
-- Battery parameters
|
||
self.ElementCapacity = 80 -- A*hour
|
||
self.ElementCount = 56 -- 52 on 81-717
|
||
self.Capacity = self.ElementCapacity * self.ElementCount * 3600
|
||
self.Charge = self.Capacity
|
||
self.Voltage = 65
|
||
-- Current through battery in amperes
|
||
self.Current = 0
|
||
self.Charging = 0
|
||
end
|
||
|
||
function TRAIN_SYSTEM:Inputs()
|
||
return { "Charge" }
|
||
end
|
||
function TRAIN_SYSTEM:Outputs()
|
||
return { "Capacity", "Charge", "Voltage" }
|
||
end
|
||
function TRAIN_SYSTEM:TriggerInput(name,value)
|
||
if name == "Charge" then self.Charging = value end
|
||
end
|
||
function TRAIN_SYSTEM:Think(dT)
|
||
-- Calculate discharge
|
||
self.Current = 0--self.Train.KVC.Value*90*(self.Train.PowerSupply.XT3_1 > 0 and 3 or -1 + 4*self.Train:ReadTrainWire(27))*50*self.Train.Panel["V1"]
|
||
--print(self.Train.Panel["V1"])
|
||
self.Charge = math.min(self.Capacity,self.Charge + self.Current * dT)
|
||
|
||
-- Calculate battery voltage
|
||
if self.Train.PowerSupply then
|
||
self.Voltage = 65*(self.Charge/self.Capacity) + ((self.Train.PowerSupply.XT3_1 or self.Charging) > 0 and 17 or 0)
|
||
else
|
||
self.Voltage = 65*(self.Charge/self.Capacity) + (self.Charging > 0 and 17 or 0)
|
||
end
|
||
end |