eu07/maszyna
16
0
Fork 0
mirror of https://github.com/MaSzyna-EU07/maszyna.git synced 2026-07-22 11:39:19 +02:00
Code Issues 123 Wiki Activity

Prowizoryczna poprawka na podtrzymanie napięcia na sprzęgu WN @yB

Browse Source
This commit is contained in:
antonisauren
2016-07-27 20:32:24 +02:00
parent cb06375aec
commit d6d9e3a554
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
McZapkie/_mover.pas
View File

@@ -4981,7 +4981,7 @@ var b:byte;
const Vepsilon=1e-5; Aepsilon=1e-3; //ASBSpeed=0.8; const Vepsilon=1e-5; Aepsilon=1e-3; //ASBSpeed=0.8;
begin begin
TotalCurrent:=0; TotalCurrent:=0;
hvc:=Max0R(Max0R(PantFrontVolt,PantRearVolt),ElectricTraction.TractionVoltage); hvc:=Max0R(Max0R(PantFrontVolt,PantRearVolt),ElectricTraction.TractionVoltage*0.9);
for b:=0 to 1 do //przekazywanie napiec for b:=0 to 1 do //przekazywanie napiec
if ((Couplers[b].CouplingFlag and ctrain_power) = ctrain_power)or(((Couplers[b].CouplingFlag and ctrain_heating) = ctrain_heating)and(Heating)) then if ((Couplers[b].CouplingFlag and ctrain_power) = ctrain_power)or(((Couplers[b].CouplingFlag and ctrain_heating) = ctrain_heating)and(Heating)) then
begin begin