Control de amperaje en locomotoras

[444.518]

Este pequeño 'script' sirve tanto para locomotoras eléctricas como diesel-eléctricas, modificando un valor arbitrario de corriente máxima permisible. El resultado es que si nos pasamos de cierto rango de corriente enviada a los motores de tracción, un sistema de protección hará saltar el freno de emergencia.

Código: Seleccionar todo

function Initialise ()

isPlayerLoco = false

Call("BeginUpdate")

end

function OnConsistMessage ( msg, argument, direction )

   Call ( "SendConsistMessage", msg, argument, direction );
   
end


function OnControlValueChange ( name, index, value )

   if Call( "*:ControlExists", name, index ) then

      Call( "*:SetControlValue", name, index, value );

   end

end

function Update (time)
      
      
      
      if Call("GetIsEngineWithKey") > 0.5 then
         isPlayerLoco = true
      else
         isPlayerLoco = false
      end
if isPlayerLoco== true then -- comprueba si es una locomotora de jugador o IA
      amp=Call( "*:GetControlValue", "Ammeter", 0 )
      if amp > 3500 then -- estos 3500 amperios representan una corriente maxima arbitraria e imaginario para una Class 47
      Call ( "*:SetControlValue", "EmergencyBrake", 0, 1)
      end
      end
      
   
      
end

Se puede conseguir que el sistema indique una alarma sonora y/o visual antes de llegar al rango de protección. Solo es necesario ponerle un poco de imaginación.

[444.518]

Finalmente he optado por una solución menos radical que el disparo de la emergencia en caso de sobrepasar el rango de corriente, haciendo que la locomotora suelte el regulador a cero.

Código: Seleccionar todo

if ( Call( "GetIsEngineWithKey" ) == 1 ) then
         if gDriven == 0 then
            gDriven = 1
            Call( "*:SetControlValue", "Active", 0, 1 )
         end
      else
         if gDriven == 1 then
            gDriven = 0
            Call( "*:SetControlValue", "Active", 0, 0 )
         end
      end
      
      -- control de amperaje en motores de traccion
      
      if gDriven == 1 then
      amp=Call( "*:GetControlValue", "Ammeter", 0 )
      if amp > 3000 then -- este valor es configurable
      Call ( "*:SetControlValue", "Regulator", 0, 0)
      end
      end

Para los que quieran probar una 'Class 47' con control de amperaje en motores de tracción, aquí os dejo el 'script' LUA de la Class 47. Antes de reemplazarlo por el original recomiendo encarecidamente hacer una copia de seguridad del mismo.

Class47EngineScript.zip

(1.3 KiB) 2016 veces

[capitan pecho lata]

Hola

Creo que lo propio, si nos pasamos con la corriente que le damos al motor, es que salte el disyuntor y desconecte el motor, aplique frenos, y tengamos que reiniciar la maquina para continuar viaje. Como ocurre con la Diésel Rusa

[444.518]

Esto que comentas no es muy difícil de conseguir, haciendo que salte el freno de emergencia y se apague el motor. En vez de hacer la llamada a la puesta a cero del regulador, se tira de emergencia Call ( "*:SetControlValue", "EmergencyBrake", 0, 1) y se llama también al apagado de motor Call ( "*:SetControlValue", "EngineStop", 0, 1) y
Call ( "*:SetControlValue", "EngineStart", 0, 0)


Vamos a probar si da resultado

[444.518]

Pues he conseguido algo parecido, haciendo que salten los frenos de emergencia y se apague el motor. Me ha costador dar con el control, ya que no había que actuar sobre EngineStart o EngineStop, si no sobre Startup:

Código: Seleccionar todo

if gDriven == 1 then
      amp=Call( "*:GetControlValue", "Ammeter", 0 )
      if amp > 3000 then --valor en amperios configurable
      Call ( "*:SetControlValue", "EmergencyBrake", 0, 1) --corta el regulador, pone la dirección en neutro y aplica los frenos.
      --Call ( "*:SetControlValue", "EngineStop", 0, 0) no funciona
      Call ( "*:SetControlValue", "Startup", 0, -1) -- apagar el motor
      --Call ( "*:SetControlValue", "RPM", 0, 0) no funciona
      end
      end

Una vez más, se recomienda hacer copia de seguridad del original.

Class47EngineScript_hard_versión.zip

(1.33 KiB) 2023 veces

[Tolu]

Muy, muy interesante esto de la LUA.
Saludos

[444.518]

Para poner algo similar en una locomotora eléctrica, he decidido aplicar otro sistema. Esta vez, en caso de sobrecarga, la locomotora se encarga de bajar ella sola el regulador un 10% hasta que se situe por debajo del umbral de sobrecarga.

Código: Seleccionar todo

-- control de amperaje en motores de traccion para BR101
      
      if gDriven == 1 then
      
      amp=Call( "*:GetControlValue", "Ammeter", 0 )
      regulador= Call( "*:GetControlValue", "Regulator", 0 ) -- toma el valor del regulador
      
         if amp > 300 then -- si el amperaje es mayor de 300. Valor configurable aunque recomiendo no poner mas de 350 amperios
         reguladorapply = regulador - 0.1 -- baja el regulador un 10 por ciento
         
         Call( "*:SetControlValue", "Regulator", 0, reguladorapply ) -- aplica el regulador con el nuevo valor
         
         end
      end

Os recomiendo que la probeis tirando de cargas pesadas en rampas fuertes, como en la 'Seebergbahn' por ejemplo.

[javierfl]

¡Buen trabajo!

Saludos:

Javier.-