init

lua/metrostroi/systems/sys_dk_120am.lua

@@ -0,0 +1,111 @@
+--------------------------------------------------------------------------------
+-- DK-120AM DC engine
+--------------------------------------------------------------------------------
+-- Copyright (C) 2013-2018 Metrostroi Team & FoxWorks Aerospace s.r.o.
+-- Contains proprietary code. See license.txt for additional information.
+--------------------------------------------------------------------------------
+Metrostroi.DefineSystem("DK_120AM")
+TRAIN_SYSTEM.DontAccelerateSimulation = false
+
+function TRAIN_SYSTEM:Initialize()
+    -- Speed of train in km/h
+    self.Speed = 0
+
+    -- Winding resistance
+    self.Rwa = 0.0819 -- Ohms, anchor
+    self.Rws = 0.0396 -- Ohms, stator
+
+    -- Voltage generated by engine
+    self.E13 = 0.0 -- Volts
+    self.E24 = 0.0 -- Volts
+
+    -- Rotation rate
+    self.RotationRate = 0.0
+
+    -- Magnetic flux in the engine
+    self.MagneticFlux13 = 0.0
+    self.MagneticFlux24 = 0.0
+
+    -- Field reduction (how much current goes through stator)
+    self.FieldReduction13 = 0.0
+    self.FieldReduction24 = 0.0
+
+    -- Moment generated by the engine
+    self.Moment13 = 0.0
+    self.Moment24 = 0.0
+    self.BogeyMoment = 0.0 -- Moment on front and rear bogey is equal
+
+    -- Need many iterations for engine simulation to converge
+    self.SubIterations = 16
+end
+
+function TRAIN_SYSTEM:Inputs()
+    return { "Speed" }
+end
+
+function TRAIN_SYSTEM:Outputs()
+    return { "BogeyMoment" }
+end
+
+function TRAIN_SYSTEM:TriggerInput(name,value)
+    if name == "Speed" then
+        self.Speed = value
+    end
+end
+
+function TRAIN_SYSTEM:Think(dT)
+    local Train = self.Train
+    -- Get rate of engine rotation
+    local currentRotationRate = 3000 * (self.Speed/80)
+    self.RotationRate = self.RotationRate + 5.0 * (currentRotationRate - self.RotationRate) * dT
+
+    self.Rws = 0.0396 -- Ohms, stator
+    self.Rwa = 0.1215-self.Rws -- Ohms, anchor
+
+    -- Calculate magnetic flux in the engine
+    local a = 0.1204
+    local b = 1.2075
+    local c = 0.3461--0.3461
+    local Is13 = math.abs(Train.Electric.Istator13)
+    local Is24 = math.abs(Train.Electric.Istator24)
+    local X1 = (Train.Electric.I13 > 0 and 1 or 0)
+    local X2 = (Train.Electric.I24 > 0 and 1 or 0)
+    --self.MagneticFlux13 = (Is13/450)*math.min(1.0,a+b*math.exp(-c*Is13/(100+20*X1)))--395
+    --self.MagneticFlux24 = (Is24/450)*math.min(1.0,a+b*math.exp(-c*Is24/(100+20*X2)))--395
+    self.MagneticFlux13 = (Is13/255)*math.min(1.0,a+b*math.exp(-c*Is13/74))
+    self.MagneticFlux24 = (Is24/255)*math.min(1.0,a+b*math.exp(-c*Is24/74))
+    self.MagneticFlux13 = math.min(8.0,math.max(0.01,self.MagneticFlux13))
+    self.MagneticFlux24 = math.min(8.0,math.max(0.01,self.MagneticFlux24))
+
+    -- Calculate voltage generated by engines from magnetic flux
+    self.E13 = self.RotationRate * self.MagneticFlux13
+    self.E24 = self.RotationRate * self.MagneticFlux24
+
+    self.E13 = math.max(-4000,math.min(4000,self.E13))
+    self.E24 = math.max(-4000,math.min(4000,self.E24))
+
+    -- Calculate engine force (moment)
+    --local b = 1.4539
+    --local c = 8.1975e-3*(1.3-0.5*X1)
+    local b = 1.4539
+    local c = 12.1975e-3
+    --local b = 1.4539
+    --local c = 8.7975e-3
+    local I13 = math.abs(Train.Electric.I13)
+    local I24 = math.abs(Train.Electric.I24)
+    local S13 = (Train.Electric.I13 > 0) and 1 or -1
+    local S24 = (Train.Electric.I24 > 0) and 1 or -1
+    self.Moment13 = S13*(b*I13 + c*(I13^2))*(1/720.0)*self.MagneticFlux13
+    self.Moment24 = S24*(b*I24 + c*(I24^2))*(1/720.0)*self.MagneticFlux24 --1/800
+
+    -- Apply moment to bogeys
+    if (math.abs(Train.Electric.I13) > 1.0) or (math.abs(Train.Electric.I24) > 1.0) then
+        self.BogeyMoment = (self.Moment13 + self.Moment24) / 2
+    else
+        self.BogeyMoment = 0.0
+    end
+
+    -- Calculate reduction in magnetic field
+    self.FieldReduction13 = math.abs(100 * Is13 / (I13+1e-9))
+    self.FieldReduction24 = math.abs(100 * Is24 / (I24+1e-9))
+end