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

Zmiana projektu do użycia przetłumaczonego movera.

Browse Source
This commit is contained in:
firleju
2016-10-12 06:46:46 +02:00
parent 751ab653be
commit 1731757ce3
4 changed files with 142 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
EU07.bpr
View File

@@ -4,17 +4,17 @@
<MACROS> <MACROS>
<VERSION value="BCB.05.03"/> <VERSION value="BCB.05.03"/>
<PROJECT value="E:\Gry\MaSzyna_15_04\EU07.exe"/> <PROJECT value="E:\Gry\MaSzyna_15_04\EU07.exe"/>
<OBJFILES value="QueryParserComp.obj McZapkie\_mover.obj EU07.obj dumb3d.obj Camera.obj <OBJFILES value="QueryParserComp.obj EU07.obj dumb3d.obj Camera.obj Texture.obj World.obj
Texture.obj World.obj Model3d.obj MdlMngr.obj Train.obj wavread.obj Model3d.obj MdlMngr.obj Train.obj wavread.obj Timer.obj Event.obj
Timer.obj Event.obj MemCell.obj Logs.obj Spring.obj Button.obj Globals.obj MemCell.obj Logs.obj Spring.obj Button.obj Globals.obj Gauge.obj
Gauge.obj AnimModel.obj Ground.obj TrkFoll.obj Segment.obj Sound.obj AnimModel.obj Ground.obj TrkFoll.obj Segment.obj Sound.obj AdvSound.obj
AdvSound.obj Track.obj DynObj.obj RealSound.obj EvLaunch.obj FadeSound.obj Track.obj DynObj.obj RealSound.obj EvLaunch.obj FadeSound.obj Traction.obj
Traction.obj TractionPower.obj parser.obj sky.obj AirCoupler.obj TractionPower.obj parser.obj sky.obj AirCoupler.obj opengl\glew.obj
opengl\glew.obj ResourceManager.obj VBO.obj mtable.obj TextureDDS.obj ResourceManager.obj VBO.obj mtable.obj TextureDDS.obj
opengl\ARB_Multisample.obj Float3d.obj Classes.obj Driver.obj Names.obj opengl\ARB_Multisample.obj Float3d.obj Classes.obj Driver.obj Names.obj
Console.obj Mover.obj McZapkie\hamulce.obj McZapkie\Oerlikon_ESt.obj Console.obj McZapkie\Mover.obj McZapkie\hamulce.obj
McZapkie\friction.obj Console\PoKeys55.obj Forth.obj Console\LPT.obj McZapkie\Oerlikon_ESt.obj McZapkie\friction.obj Console\PoKeys55.obj
PyInt.obj"/> Forth.obj Console\LPT.obj PyInt.obj"/>
<RESFILES value="EU07.res"/> <RESFILES value="EU07.res"/>
<IDLFILES value=""/> <IDLFILES value=""/>
<IDLGENFILES value=""/> <IDLGENFILES value=""/>
@@ -25,7 +25,7 @@
<SPARELIBS value="Vcl50.lib bcbsmp50.lib VCLX50.lib bcbsmp50.bpi dclocx50.bpi"/> <SPARELIBS value="Vcl50.lib bcbsmp50.lib VCLX50.lib bcbsmp50.bpi dclocx50.bpi"/>
<PACKAGES value="Vcl50.bpi Vclx50.bpi"/> <PACKAGES value="Vcl50.bpi Vclx50.bpi"/>
<PATHCPP value=".;opengl;McZapkie;Console"/> <PATHCPP value=".;opengl;McZapkie;Console"/>
<PATHPAS value=".;McZapkie"/> <PATHPAS value=".;"/>
<PATHRC value=".;"/> <PATHRC value=".;"/>
<PATHASM value=".;"/> <PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/> <DEBUGLIBPATH value="$(BCB)\lib\debug"/>

3
EU07.cpp
View File

@@ -79,8 +79,7 @@ USEUNIT("Classes.cpp");
USEUNIT("Driver.cpp"); USEUNIT("Driver.cpp");
USEUNIT("Names.cpp"); USEUNIT("Names.cpp");
USEUNIT("Console.cpp"); USEUNIT("Console.cpp");
USEUNIT("Mover.cpp"); USEUNIT("McZapkie\Mover.cpp");
USEUNIT("McZapkie\_mover.pas");
USEUNIT("McZapkie\hamulce.cpp"); USEUNIT("McZapkie\hamulce.cpp");
USEUNIT("McZapkie\Oerlikon_ESt.cpp"); USEUNIT("McZapkie\Oerlikon_ESt.cpp");
USEUNIT("McZapkie\friction.cpp"); USEUNIT("McZapkie\friction.cpp");

154
McZapkie/hamulce.cpp
View File

@@ -13,7 +13,7 @@ Copyright (C) 2007-2014 Maciej Cierniak
*/ */
#include "hamulce.h" #include "hamulce.h"
#include "../Mover.h" #include "Mover.h"
#include <typeinfo> #include <typeinfo>
#include <cmath> #include <cmath>
@@ -210,7 +210,7 @@ double TBrakeCyl::P()
//---HAMULEC--- //---HAMULEC---
/* /*
constructor TBrake.Create(i_mbp, i_bcr, i_bcd, i_brc: real; i_bcn, i_BD, i_mat, i_ba, i_nbpa: byte); constructor TBrake.Create(i_mbp, i_bcr, i_bcd, i_brc: real; i_bcn, i_BD, i_mat, i_ba, i_nbpa: int);
begin begin
inherited Create; inherited Create;
MaxBP:=i_mbp; MaxBP:=i_mbp;
@@ -237,8 +237,8 @@ begin
end ; */ end ; */
TBrake::TBrake(double i_mbp, double i_bcr, double i_bcd, double i_brc, Byte i_bcn, Byte i_BD, TBrake::TBrake(double i_mbp, double i_bcr, double i_bcd, double i_brc, int i_bcn, int i_BD,
Byte i_mat, Byte i_ba, Byte i_nbpa) int i_mat, int i_ba, int i_nbpa)
{ {
// inherited:: Create; // inherited:: Create;
MaxBP = i_mbp; MaxBP = i_mbp;
@@ -293,7 +293,7 @@ TBrake::TBrake(double i_mbp, double i_bcr, double i_bcd, double i_brc, Byte i_bc
} }
// inicjalizacja hamulca (stan poczatkowy) // inicjalizacja hamulca (stan poczatkowy)
void TBrake::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TBrake::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
} }
@@ -348,7 +348,7 @@ double TBrake::GetBCF()
return BCA * 100 * BrakeCyl->P(); return BCA * 100 * BrakeCyl->P();
} }
bool TBrake::SetBDF(Byte nBDF) bool TBrake::SetBDF(int nBDF)
{ {
bool result; bool result;
if (((nBDF && BrakeDelays) == nBDF) && (nBDF != BrakeDelayFlag)) if (((nBDF && BrakeDelays) == nBDF) && (nBDF != BrakeDelayFlag))
@@ -360,7 +360,7 @@ bool TBrake::SetBDF(Byte nBDF)
return false; return false;
} }
void TBrake::Releaser(Byte state) void TBrake::Releaser(int state)
{ {
BrakeStatus = (BrakeStatus & 247) || state * b_rls; BrakeStatus = (BrakeStatus & 247) || state * b_rls;
} }
@@ -369,19 +369,19 @@ void TBrake::SetEPS(double nEPS)
{ {
} }
void TBrake::ASB(Byte state) void TBrake::ASB(int state)
{ // 255-b_asb(32) { // 255-b_asb(32)
BrakeStatus = (BrakeStatus & 223) || state * b_asb; BrakeStatus = (BrakeStatus & 223) || state * b_asb;
} }
Byte TBrake::GetStatus() int TBrake::GetStatus()
{ {
return BrakeStatus; return BrakeStatus;
} }
Byte TBrake::GetSoundFlag() int TBrake::GetSoundFlag()
{ {
Byte result = SoundFlag; int result = SoundFlag;
SoundFlag = 0; SoundFlag = 0;
return result; return result;
} }
@@ -401,12 +401,12 @@ void TBrake::ForceEmptiness()
//---WESTINGHOUSE--- //---WESTINGHOUSE---
void TWest::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TWest::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ValveRes->CreatePress(PP); ValveRes->CreatePress(PP);
BrakeCyl->CreatePress(BP); BrakeCyl->CreatePress(BP);
BrakeRes->CreatePress(PP * 1.0 / 2 + HPP * 1.0 / 2); BrakeRes->CreatePress(PP * 1.0 / 2 + HPP * 1.0 / 2);
// BrakeStatus:=3*Byte(BP>0.1); // BrakeStatus:=3*int(BP>0.1);
} }
double TWest::GetPF(double PP, double dt, double Vel) double TWest::GetPF(double PP, double dt, double Vel)
@@ -449,8 +449,8 @@ double TWest::GetPF(double PP, double dt, double Vel)
BrakeCyl->Flow(-dv); BrakeCyl->Flow(-dv);
// hamulec EP // hamulec EP
temp = BVP * Byte(EPS > 0); temp = BVP * int(EPS > 0);
dv = PF(temp, LBP, 0.0015) * dt * EPS * EPS * Byte(LBP * EPS < MaxBP * LoadC); dv = PF(temp, LBP, 0.0015) * dt * EPS * EPS * int(LBP * EPS < MaxBP * LoadC);
LBP = LBP - dv; LBP = LBP - dv;
dv = 0; dv = 0;
@@ -532,7 +532,7 @@ void TWest::PLC(double mass)
{ {
LoadC = LoadC =
1 + 1 +
Byte(mass < LoadM) * int(mass < LoadM) *
((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP - ((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP -
1); 1);
} }
@@ -720,7 +720,7 @@ double TESt::GetPF(double PP, double dt, double Vel)
return dv - dV1; return dv - dV1;
} }
void TESt::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TESt::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ValveRes->CreatePress(PP); ValveRes->CreatePress(PP);
BrakeCyl->CreatePress(BP); BrakeCyl->CreatePress(BP);
@@ -746,7 +746,7 @@ double TESt::GetCRP()
//---EP2--- //---EP2---
void TEStEP2::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TEStEP2::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ImplsRes->CreateCap(1); ImplsRes->CreateCap(1);
ImplsRes->CreatePress(BP); ImplsRes->CreatePress(BP);
@@ -816,9 +816,9 @@ double TEStEP2::GetPF(double PP, double dt, double Vel)
dV1 = dV1 - 0.96 * dv; dV1 = dV1 - 0.96 * dv;
// hamulec EP // hamulec EP
temp = BVP * Byte(EPS > 0); temp = BVP * int(EPS > 0);
dv = PF(temp, LBP, 0.00053 + 0.00060 * Byte(EPS < 0)) * dt * EPS * EPS * dv = PF(temp, LBP, 0.00053 + 0.00060 * int(EPS < 0)) * dt * EPS * EPS *
Byte(LBP * EPS < MaxBP * LoadC); int(LBP * EPS < MaxBP * LoadC);
LBP = LBP - dv; LBP = LBP - dv;
// luzowanie KI // luzowanie KI
@@ -872,7 +872,7 @@ void TEStEP2::PLC(double mass)
{ {
LoadC = LoadC =
1 + 1 +
Byte(mass < LoadM) * int(mass < LoadM) *
((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP - ((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP -
1); 1);
} }
@@ -926,14 +926,14 @@ double TESt3::GetPF(double PP, double dt, double Vel)
// luzowanie // luzowanie
if ((BrakeStatus & b_hld) == b_off) if ((BrakeStatus & b_hld) == b_off)
dv = PF(0, BCP, 0.0042 * (1.37 - Byte(BrakeDelayFlag == bdelay_G)) * SizeBC) * dt; dv = PF(0, BCP, 0.0042 * (1.37 - int(BrakeDelayFlag == bdelay_G)) * SizeBC) * dt;
else else
dv = 0; dv = 0;
BrakeCyl->Flow(-dv); BrakeCyl->Flow(-dv);
// przeplyw ZP <-> silowniki // przeplyw ZP <-> silowniki
if ((BrakeStatus & b_on) == b_on) if ((BrakeStatus & b_on) == b_on)
dv = PF(BVP, BCP, 0.017 * (1 + Byte((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) * dv = PF(BVP, BCP, 0.017 * (1 + int((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) *
(1.13 - Byte((BCP > 0.6) && (BrakeDelayFlag == bdelay_G))) * SizeBC) * (1.13 - int((BCP > 0.6) && (BrakeDelayFlag == bdelay_G))) * SizeBC) *
dt; dt;
else else
dv = 0; dv = 0;
@@ -1023,7 +1023,7 @@ double TESt4R::GetPF(double PP, double dt, double Vel)
RapidStatus = (BrakeDelayFlag == bdelay_R) && (((Vel > 55) && (RapidStatus)) || (Vel > 70)); RapidStatus = (BrakeDelayFlag == bdelay_R) && (((Vel > 55) && (RapidStatus)) || (Vel > 70));
RapidTemp = RapidTemp + (0.9 * Byte(RapidStatus) - RapidTemp) * dt * 1.0 / 2; RapidTemp = RapidTemp + (0.9 * int(RapidStatus) - RapidTemp) * dt * 1.0 / 2;
temp = 1.9 - RapidTemp; temp = 1.9 - RapidTemp;
if (((BrakeStatus & b_asb) == b_asb)) if (((BrakeStatus & b_asb) == b_asb))
temp = 1000; temp = 1000;
@@ -1055,7 +1055,7 @@ double TESt4R::GetPF(double PP, double dt, double Vel)
return result; return result;
} }
void TESt4R::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TESt4R::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ImplsRes = new TReservoir(); ImplsRes = new TReservoir();
ImplsRes->CreateCap(1); ImplsRes->CreateCap(1);
@@ -1099,14 +1099,14 @@ double TESt3AL2::GetPF(double PP, double dt, double Vel)
// luzowanie KI // luzowanie KI
if ((BrakeStatus && b_hld) == b_off) if ((BrakeStatus && b_hld) == b_off)
dv = PF(0, BCP, 0.00017 * (1.37 - Byte(BrakeDelayFlag == bdelay_G))) * dt; dv = PF(0, BCP, 0.00017 * (1.37 - int(BrakeDelayFlag == bdelay_G))) * dt;
else else
dv = 0; dv = 0;
ImplsRes->Flow(-dv); ImplsRes->Flow(-dv);
// przeplyw ZP <-> KI // przeplyw ZP <-> KI
if (((BrakeStatus & b_on) == b_on) && (BCP < MaxBP)) if (((BrakeStatus & b_on) == b_on) && (BCP < MaxBP))
dv = PF(BVP, BCP, 0.0008 * (1 + Byte((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) * dv = PF(BVP, BCP, 0.0008 * (1 + int((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) *
(1.13 - Byte((BCP > 0.6) && (BrakeDelayFlag == bdelay_G)))) * (1.13 - int((BCP > 0.6) && (BrakeDelayFlag == bdelay_G)))) *
dt; dt;
else else
dv = 0; dv = 0;
@@ -1153,7 +1153,7 @@ void TESt3AL2::PLC(double mass)
{ {
LoadC = LoadC =
1 + 1 +
Byte(mass < LoadM) * int(mass < LoadM) *
((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP - ((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP -
1); 1);
} }
@@ -1165,7 +1165,7 @@ void TESt3AL2::SetLP(double TM, double LM, double TBP)
TareBP = TBP; TareBP = TBP;
} }
void TESt3AL2::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TESt3AL2::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ImplsRes = new TReservoir(); ImplsRes = new TReservoir();
ImplsRes->CreateCap(1); ImplsRes->CreateCap(1);
@@ -1226,17 +1226,17 @@ double TLSt::GetPF(double PP, double dt, double Vel)
// if VVP>BCP then // if VVP>BCP then
// dV:=PF(VVP,BCP,0.00004)*dt // dV:=PF(VVP,BCP,0.00004)*dt
// else if (CVP-BCP)<1.5 then // else if (CVP-BCP)<1.5 then
// dV:=PF(VVP,BCP,0.00020*(1.33-Byte((CVP-BCP)*BVM>0.65)))*dt // dV:=PF(VVP,BCP,0.00020*(1.33-int((CVP-BCP)*BVM>0.65)))*dt
// else dV:=0; 0.00025 P // else dV:=0; 0.00025 P
/*P*/ /*P*/
if (VVP > BCP) if (VVP > BCP)
dv = PF(VVP, BCP, dv = PF(VVP, BCP,
0.00043 * (1.5 - Byte(((CVP - BCP) * BVM > 1) && (BrakeDelayFlag == bdelay_G))), 0.00043 * (1.5 - int(((CVP - BCP) * BVM > 1) && (BrakeDelayFlag == bdelay_G))),
0.1) * 0.1) *
dt; dt;
else if ((CVP - BCP) < 1.5) else if ((CVP - BCP) < 1.5)
dv = PF(VVP, BCP, dv = PF(VVP, BCP,
0.001472 * (1.36 - Byte(((CVP - BCP) * BVM > 1) && (BrakeDelayFlag == bdelay_G))), 0.001472 * (1.36 - int(((CVP - BCP) * BVM > 1) && (BrakeDelayFlag == bdelay_G))),
0.1) * 0.1) *
dt; dt;
else else
@@ -1254,14 +1254,14 @@ double TLSt::GetPF(double PP, double dt, double Vel)
// temp:=1;{R} // temp:=1;{R}
// cisnienie PP // cisnienie PP
RapidTemp = RapidTemp + RapidTemp = RapidTemp +
(RM * Byte((Vel > 55) && (BrakeDelayFlag == bdelay_R)) - RapidTemp) * dt * 1.0 / 2; (RM * int((Vel > 55) && (BrakeDelayFlag == bdelay_R)) - RapidTemp) * dt * 1.0 / 2;
temp = 1 - RapidTemp; temp = 1 - RapidTemp;
if (EDFlag > 0.2) if (EDFlag > 0.2)
temp = 10000; temp = 10000;
// powtarzacz — podwojny zawor zwrotny // powtarzacz — podwojny zawor zwrotny
temp = temp =
Max0R(((CVP - BCP) * BVM + ASBP * Byte((BrakeStatus & b_asb) == b_asb)) * 1.0 / temp, LBP); Max0R(((CVP - BCP) * BVM + ASBP * int((BrakeStatus & b_asb) == b_asb)) * 1.0 / temp, LBP);
// luzowanie CH // luzowanie CH
if ((BrakeCyl->P() > temp + 0.005) || (temp < 0.28)) if ((BrakeCyl->P() > temp + 0.005) || (temp < 0.28))
// dV:=PF(0,BrakeCyl->P(),0.0015*3*sizeBC)*dt // dV:=PF(0,BrakeCyl->P(),0.0015*3*sizeBC)*dt
@@ -1289,7 +1289,7 @@ double TLSt::GetPF(double PP, double dt, double Vel)
return result; return result;
} }
void TLSt::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TLSt::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ValveRes->CreateCap(1); ValveRes->CreateCap(1);
ImplsRes->CreateCap(8); ImplsRes->CreateCap(8);
@@ -1349,7 +1349,7 @@ double TEStED::GetPF(double PP, double dt, double Vel)
double CVP; double CVP;
double MPP; double MPP;
double nastG; double nastG;
Byte i; int i;
BVP = BrakeRes->P(); BVP = BrakeRes->P();
VVP = ValveRes->P(); VVP = ValveRes->P();
@@ -1401,7 +1401,7 @@ double TEStED::GetPF(double PP, double dt, double Vel)
dv = 0; dv = 0;
ImplsRes->Flow(-dv); ImplsRes->Flow(-dv);
if (((BrakeStatus & b_on) == b_on) && (BCP < MaxBP)) if (((BrakeStatus & b_on) == b_on) && (BCP < MaxBP))
dv = PF(BVP, BCP, Nozzles[2] * (nastG + 2 * Byte(BCP < 0.8)) + Nozzles[0] * (1 - nastG)) * dv = PF(BVP, BCP, Nozzles[2] * (nastG + 2 * int(BCP < 0.8)) + Nozzles[0] * (1 - nastG)) *
dt; dt;
else else
dv = 0; dv = 0;
@@ -1435,7 +1435,7 @@ double TEStED::GetPF(double PP, double dt, double Vel)
Miedzypoj->Flow(dv * dt * 0.15); Miedzypoj->Flow(dv * dt * 0.15);
RapidTemp = RapidTemp + RapidTemp = RapidTemp +
(RM * Byte((Vel > 55) && (BrakeDelayFlag == bdelay_R)) - RapidTemp) * dt * 1.0 / 2; (RM * int((Vel > 55) && (BrakeDelayFlag == bdelay_R)) - RapidTemp) * dt * 1.0 / 2;
temp = Max0R(1 - RapidTemp, 0.001); temp = Max0R(1 - RapidTemp, 0.001);
// if EDFlag then temp:=1000; // if EDFlag then temp:=1000;
// temp:=temp/(1-); // temp:=temp/(1-);
@@ -1487,7 +1487,7 @@ double TEStED::GetPF(double PP, double dt, double Vel)
return dv - dV1; return dv - dV1;
} }
void TEStED::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TEStED::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
int i; int i;
@@ -1498,7 +1498,7 @@ void TEStED::Init(double PP, double HPP, double LPP, double BP, Byte BDF)
// CntrlRes.CreateCap(15); // CntrlRes.CreateCap(15);
// CntrlRes.CreatePress(1*HPP); // CntrlRes.CreatePress(1*HPP);
BrakeStatus = Byte(BP > 1) * 1; BrakeStatus = int(BP > 1) * 1;
Miedzypoj = new TReservoir(); Miedzypoj = new TReservoir();
Miedzypoj->CreateCap(5); Miedzypoj->CreateCap(5);
Miedzypoj->CreatePress(PP); Miedzypoj->CreatePress(PP);
@@ -1542,7 +1542,7 @@ void TEStED::PLC(double mass)
{ {
LoadC = LoadC =
1 + 1 +
Byte(mass < LoadM) * int(mass < LoadM) *
((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP - ((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP -
1); 1);
} }
@@ -1615,7 +1615,7 @@ double TCV1::BVs(double BCP)
else if ((BCP > 0.05)) else if ((BCP > 0.05))
return 0; return 0;
else else
return 0.2 * (1.5 - Byte(BVP > VVP)); return 0.2 * (1.5 - int(BVP > VVP));
} }
double TCV1::GetPF(double PP, double dt, double Vel) double TCV1::GetPF(double PP, double dt, double Vel)
@@ -1649,15 +1649,15 @@ double TCV1::GetPF(double PP, double dt, double Vel)
// luzowanie // luzowanie
if ((BrakeStatus & b_hld) == b_off) if ((BrakeStatus & b_hld) == b_off)
dv = PF(0, BCP, 0.0042 * (1.37 - Byte(BrakeDelayFlag == bdelay_G)) * SizeBC) * dt; dv = PF(0, BCP, 0.0042 * (1.37 - int(BrakeDelayFlag == bdelay_G)) * SizeBC) * dt;
else else
dv = 0; dv = 0;
BrakeCyl->Flow(-dv); BrakeCyl->Flow(-dv);
// przeplyw ZP <-> silowniki // przeplyw ZP <-> silowniki
if ((BrakeStatus & b_on) == b_on) if ((BrakeStatus & b_on) == b_on)
dv = PF(BVP, BCP, 0.017 * (1 + Byte((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) * dv = PF(BVP, BCP, 0.017 * (1 + int((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) *
(1.13 - Byte((BCP > 0.6) && (BrakeDelayFlag == bdelay_G))) * SizeBC) * (1.13 - int((BCP > 0.6) && (BrakeDelayFlag == bdelay_G))) * SizeBC) *
dt; dt;
else else
dv = 0; dv = 0;
@@ -1684,7 +1684,7 @@ double TCV1::GetPF(double PP, double dt, double Vel)
return dv - dV1; return dv - dV1;
} }
void TCV1::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TCV1::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ValveRes->CreatePress(PP); ValveRes->CreatePress(PP);
BrakeCyl->CreatePress(BP); BrakeCyl->CreatePress(BP);
@@ -1721,7 +1721,7 @@ double TCV1L_TR::GetHPFlow(double HP, double dt)
return dv; return dv;
} }
void TCV1L_TR::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TCV1L_TR::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ImplsRes = new TReservoir(); ImplsRes = new TReservoir();
ImplsRes->CreateCap(2.5); ImplsRes->CreateCap(2.5);
@@ -1760,14 +1760,14 @@ double TCV1L_TR::GetPF(double PP, double dt, double Vel)
// luzowanie KI // luzowanie KI
if ((BrakeStatus & b_hld) == b_off) if ((BrakeStatus & b_hld) == b_off)
dv = PF(0, BCP, 0.000425 * (1.37 - Byte(BrakeDelayFlag == bdelay_G))) * dt; dv = PF(0, BCP, 0.000425 * (1.37 - int(BrakeDelayFlag == bdelay_G))) * dt;
else else
dv = 0; dv = 0;
ImplsRes->Flow(-dv); ImplsRes->Flow(-dv);
// przeplyw ZP <-> KI // przeplyw ZP <-> KI
if (((BrakeStatus & b_on) == b_on) && (BCP < MaxBP)) if (((BrakeStatus & b_on) == b_on) && (BCP < MaxBP))
dv = PF(BVP, BCP, 0.002 * (1 + Byte((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) * dv = PF(BVP, BCP, 0.002 * (1 + int((BCP < 0.58) && (BrakeDelayFlag == bdelay_G))) *
(1.13 - Byte((BCP > 0.6) && (BrakeDelayFlag == bdelay_G)))) * (1.13 - int((BCP > 0.6) && (BrakeDelayFlag == bdelay_G)))) *
dt; dt;
else else
dv = 0; dv = 0;
@@ -1965,19 +1965,19 @@ double TKE::GetPF(double PP, double dt, double Vel)
else // jesli tarczowki, to zostan else // jesli tarczowki, to zostan
RapidStatus = ((BrakeDelayFlag & bdelay_R) == bdelay_R); RapidStatus = ((BrakeDelayFlag & bdelay_R) == bdelay_R);
// temp:=1.9-0.9*Byte(RapidStatus); // temp:=1.9-0.9*int(RapidStatus);
if ((RM * RM > 0.1)) // jesli jest rapid if ((RM * RM > 0.1)) // jesli jest rapid
if ((RM > 0)) // jesli dodatni (naddatek); if ((RM > 0)) // jesli dodatni (naddatek);
temp = 1 - RM * Byte(RapidStatus); temp = 1 - RM * int(RapidStatus);
else else
temp = 1 - RM * (1 - Byte(RapidStatus)); temp = 1 - RM * (1 - int(RapidStatus));
else else
temp = 1; temp = 1;
temp = temp * 1.0 / LoadC; temp = temp * 1.0 / LoadC;
// luzowanie CH // luzowanie CH
// temp:=Max0R(BCP,LBP); // temp:=Max0R(BCP,LBP);
IMP = Max0R(IMP * 1.0 / temp, Max0R(LBP, ASBP * Byte((BrakeStatus & b_asb) == b_asb))); IMP = Max0R(IMP * 1.0 / temp, Max0R(LBP, ASBP * int((BrakeStatus & b_asb) == b_asb)));
// luzowanie CH // luzowanie CH
if ((BCP > IMP + 0.005) || (Max0R(ImplsRes->P(), 8 * LBP) < 0.25)) if ((BCP > IMP + 0.005) || (Max0R(ImplsRes->P(), 8 * LBP) < 0.25))
@@ -2014,7 +2014,7 @@ double TKE::GetPF(double PP, double dt, double Vel)
return dv - dV1; return dv - dV1;
} }
void TKE::Init(double PP, double HPP, double LPP, double BP, Byte BDF) void TKE::Init(double PP, double HPP, double LPP, double BP, int BDF)
{ {
ValveRes->CreatePress(PP); ValveRes->CreatePress(PP);
BrakeCyl->CreatePress(BP); BrakeCyl->CreatePress(BP);
@@ -2054,7 +2054,7 @@ void TKE::PLC(double mass)
{ {
LoadC = LoadC =
1 + 1 +
Byte(mass < LoadM) * int(mass < LoadM) *
((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP - ((TareBP + (MaxBP - TareBP) * (mass - TareM) * 1.0 / (LoadM - TareM)) * 1.0 / MaxBP -
1); 1);
} }
@@ -2098,12 +2098,12 @@ double TDriverHandle::GetCP()
return 0; return 0;
} }
double TDriverHandle::GetSound(Byte i) double TDriverHandle::GetSound(int i)
{ {
return 0; return 0;
} }
double TDriverHandle::GetPos(Byte i) double TDriverHandle::GetPos(int i)
{ {
return 0; return 0;
} }
@@ -2203,7 +2203,7 @@ double TFV4aM::GetPF(double i_bcp, double PP, double HP, double dt, double ep)
double ActFlowSpeed; double ActFlowSpeed;
double DP; double DP;
double pom; double pom;
Byte i; int i;
ep = PP * 1.0 / 2 * 1.5 + ep * 1.0 / 2 * 0.5; // SPKS!! ep = PP * 1.0 / 2 * 1.5 + ep * 1.0 / 2 * 0.5; // SPKS!!
// ep:=pp; // ep:=pp;
@@ -2337,7 +2337,7 @@ void TFV4aM::SetReductor(double nAdj)
RedAdj = nAdj; RedAdj = nAdj;
} }
double TFV4aM::GetSound(Byte i) double TFV4aM::GetSound(int i)
{ {
if (i > 4) if (i > 4)
return 0; return 0;
@@ -2345,7 +2345,7 @@ double TFV4aM::GetSound(Byte i)
return Sounds[i]; return Sounds[i];
} }
double TFV4aM::GetPos(Byte i) double TFV4aM::GetPos(int i)
{ {
static double const table[11] = { -2, 6, -1, 0, -2, 1, 4, 6, 0, 0, 0 }; static double const table[11] = { -2, 6, -1, 0, -2, 1, 4, 6, 0, 0, 0 };
@@ -2377,7 +2377,7 @@ double TMHZ_EN57::GetPF(double i_bcp, double PP, double HP, double dt, double ep
double ActFlowSpeed; double ActFlowSpeed;
double DP; double DP;
double pom; double pom;
Byte i; int i;
{ {
long i_end = 5; long i_end = 5;
@@ -2471,7 +2471,7 @@ void TMHZ_EN57::SetReductor(double nAdj)
RedAdj = nAdj; RedAdj = nAdj;
} }
double TMHZ_EN57::GetSound(Byte i) double TMHZ_EN57::GetSound(int i)
{ {
if (i > 4) if (i > 4)
return 0; return 0;
@@ -2479,7 +2479,7 @@ double TMHZ_EN57::GetSound(Byte i)
return Sounds[i]; return Sounds[i];
} }
double TMHZ_EN57::GetPos(Byte i) double TMHZ_EN57::GetPos(int i)
{ {
static double const table[11] = { -2, 10, -1, 0, 0, 2, 9, 10, 0, 0, 0 }; static double const table[11] = { -2, 10, -1, 0, 0, 2, 9, 10, 0, 0, 0 };
@@ -2539,13 +2539,13 @@ double TM394::GetPF(double i_bcp, double PP, double HP, double dt, double ep)
if ((BCP != 2)) if ((BCP != 2))
if (CP < LimPP) if (CP < LimPP)
CP = CP + 4 * Min0R(abs(LimPP - CP), 0.05) * PR(CP, LimPP) * dt; // zbiornik sterujacy CP = CP + 4 * Min0R(abs(LimPP - CP), 0.05) * PR(CP, LimPP) * dt; // zbiornik sterujacy
// cp:=cp+6*(2+Byte(bcp<0))*Min0R(abs(Limpp-cp),0.05)*PR(cp,Limpp)*dt //zbiornik // cp:=cp+6*(2+int(bcp<0))*Min0R(abs(Limpp-cp),0.05)*PR(cp,Limpp)*dt //zbiornik
// sterujacy; // sterujacy;
else if (BCP == 0) else if (BCP == 0)
CP = CP - 0.2 * dt * 1.0 / 100; CP = CP - 0.2 * dt * 1.0 / 100;
else else
CP = CP + CP = CP +
4 * (1 + Byte(BCP != 3) + Byte(BCP > 4)) * Min0R(abs(LimPP - CP), 0.05) * 4 * (1 + int(BCP != 3) + int(BCP > 4)) * Min0R(abs(LimPP - CP), 0.05) *
PR(CP, LimPP) * dt; // zbiornik sterujacy PR(CP, LimPP) * dt; // zbiornik sterujacy
LimPP = CP; LimPP = CP;
@@ -2583,7 +2583,7 @@ double TM394::GetCP()
return CP; return CP;
} }
double TM394::GetPos(Byte i) double TM394::GetPos(int i)
{ {
static double const table[11] = { -1, 5, -1, 0, 1, 2, 4, 5, 0, 0, 0 }; static double const table[11] = { -1, 5, -1, 0, 1, 2, 4, 5, 0, 0, 0 };
@@ -2651,7 +2651,7 @@ double TH14K1::GetCP()
return CP; return CP;
} }
double TH14K1::GetPos(Byte i) double TH14K1::GetPos(int i)
{ {
static double const table[11] = { -1, 4, -1, 0, 1, 2, 3, 4, 0, 0, 0 }; static double const table[11] = { -1, 4, -1, 0, 1, 2, 3, 4, 0, 0, 0 };
@@ -2713,7 +2713,7 @@ double TSt113::GetCP()
return EPS; return EPS;
} }
double TSt113::GetPos(Byte i) double TSt113::GetPos(int i)
{ {
static double const table[11] = { -1, 5, -1, 0, 2, 3, 4, 5, 0, 0, 1 }; static double const table[11] = { -1, 5, -1, 0, 2, 3, 4, 5, 0, 0, 1 };
@@ -2778,7 +2778,7 @@ double TFD1::GetPF(double i_bcp, double PP, double HP, double dt, double ep)
// temp:=Min0R(i_bcp*MaxBP,Min0R(5.0,HP)); // temp:=Min0R(i_bcp*MaxBP,Min0R(5.0,HP));
temp = Min0R(i_bcp * MaxBP, HP); // 0011 temp = Min0R(i_bcp * MaxBP, HP); // 0011
DP = DP =
10 * Min0R(abs(temp - BP), 0.1) * PF(temp, BP, 0.0006 * (2 + Byte(temp > BP))) * dt * Speed; 10 * Min0R(abs(temp - BP), 0.1) * PF(temp, BP, 0.0006 * (2 + int(temp > BP))) * dt * Speed;
BP = BP - DP; BP = BP - DP;
return -DP; return -DP;
} }
@@ -2852,7 +2852,7 @@ double TFVel6::GetPF(double i_bcp, double PP, double HP, double dt, double ep)
double dpMainValve; double dpMainValve;
double ActFlowSpeed; double ActFlowSpeed;
LimPP = Min0R(5 * Byte(i_bcp < 3.5), HP); LimPP = Min0R(5 * int(i_bcp < 3.5), HP);
if ((i_bcp >= 3.5) && ((i_bcp < 4.3) || (i_bcp > 5.5))) if ((i_bcp >= 3.5) && ((i_bcp < 4.3) || (i_bcp > 5.5)))
ActFlowSpeed = 0; ActFlowSpeed = 0;
else if ((i_bcp > 4.3) && (i_bcp < 4.8)) else if ((i_bcp > 4.3) && (i_bcp < 4.8))
@@ -2879,7 +2879,7 @@ double TFVel6::GetPF(double i_bcp, double PP, double HP, double dt, double ep)
EPS = 1; EPS = 1;
else else
EPS = 0; EPS = 0;
// EPS:=i_bcp*Byte(i_bcp<2) // EPS:=i_bcp*int(i_bcp<2)
return dpMainValve; return dpMainValve;
} }
@@ -2888,14 +2888,14 @@ double TFVel6::GetCP()
return EPS; return EPS;
} }
double TFVel6::GetPos(Byte i) double TFVel6::GetPos(int i)
{ {
static double const table[11] = { -1, 6, -1, 0, 6, 4, 4.7, 5, -1, 0, 1 }; static double const table[11] = { -1, 6, -1, 0, 6, 4, 4.7, 5, -1, 0, 1 };
return table[i]; return table[i];
} }
double TFVel6::GetSound(Byte i) double TFVel6::GetSound(int i)
{ {
if (i > 2) if (i > 2)
return 0; return 0;

106
McZapkie/hamulce.h
View File

@@ -182,26 +182,26 @@ Knorr/West EP -
TReservoir *BrakeCyl; //silownik TReservoir *BrakeCyl; //silownik
TReservoir *BrakeRes; //ZP TReservoir *BrakeRes; //ZP
TReservoir *ValveRes; //komora wstepna TReservoir *ValveRes; //komora wstepna
Byte BCN; //ilosc silownikow int BCN; //ilosc silownikow
double BCM; //przekladnia hamulcowa double BCM; //przekladnia hamulcowa
double BCA; //laczny przekroj silownikow double BCA; //laczny przekroj silownikow
Byte BrakeDelays; //dostepne opoznienia int BrakeDelays; //dostepne opoznienia
Byte BrakeDelayFlag; //aktualna nastawa int BrakeDelayFlag; //aktualna nastawa
TFricMat *FM; //material cierny TFricMat *FM; //material cierny
double MaxBP; //najwyzsze cisnienie double MaxBP; //najwyzsze cisnienie
Byte BA; //osie hamowane int BA; //osie hamowane
Byte NBpA; //klocki na os int NBpA; //klocki na os
double SizeBR; //rozmiar^2 ZP (w stosunku do 14") double SizeBR; //rozmiar^2 ZP (w stosunku do 14")
double SizeBC; //rozmiar^2 CH (w stosunku do 14") double SizeBC; //rozmiar^2 CH (w stosunku do 14")
bool DCV; //podwojny zawor zwrotny bool DCV; //podwojny zawor zwrotny
double ASBP; //cisnienie hamulca pp double ASBP; //cisnienie hamulca pp
Byte BrakeStatus; //flaga stanu int BrakeStatus; //flaga stanu
Byte SoundFlag; int SoundFlag;
public: public:
TBrake(double i_mbp, double i_bcr, double i_bcd, double i_brc, TBrake(double i_mbp, double i_bcr, double i_bcd, double i_brc,
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa); int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa);
//maksymalne cisnienie, promien, skok roboczy, pojemnosc ZP; //maksymalne cisnienie, promien, skok roboczy, pojemnosc ZP;
//ilosc cylindrow, opoznienia hamulca, material klockow, osie hamowane, klocki na os; //ilosc cylindrow, opoznienia hamulca, material klockow, osie hamowane, klocki na os;
@@ -213,15 +213,15 @@ Knorr/West EP -
double GetBRP(); //cisnienie zbiornika pomocniczego double GetBRP(); //cisnienie zbiornika pomocniczego
double GetVRP(); //cisnienie komory wstepnej rozdzielacza double GetVRP(); //cisnienie komory wstepnej rozdzielacza
virtual double GetCRP(); //cisnienie zbiornika sterujacego virtual double GetCRP(); //cisnienie zbiornika sterujacego
virtual void Init(double PP, double HPP, double LPP, double BP, Byte BDF); //inicjalizacja hamulca virtual void Init(double PP, double HPP, double LPP, double BP, int BDF); //inicjalizacja hamulca
bool SetBDF(Byte nBDF); //nastawiacz GPRM bool SetBDF(int nBDF); //nastawiacz GPRM
void Releaser(Byte state); //odluzniacz void Releaser(int state); //odluzniacz
virtual void SetEPS(double nEPS); //hamulec EP virtual void SetEPS(double nEPS); //hamulec EP
void ASB(Byte state); //hamulec przeciwposlizgowy void ASB(int state); //hamulec przeciwposlizgowy
Byte GetStatus(); //flaga statusu, moze sie przydac do odglosow int GetStatus(); //flaga statusu, moze sie przydac do odglosow
void SetASBP(double Press); //ustalenie cisnienia pp void SetASBP(double Press); //ustalenie cisnienia pp
virtual void ForceEmptiness(); virtual void ForceEmptiness();
Byte GetSoundFlag(); int GetSoundFlag();
// procedure // procedure
}; };
@@ -242,14 +242,14 @@ Knorr/West EP -
public: public:
void SetLBP(double P); //cisnienie z hamulca pomocniczego void SetLBP(double P); //cisnienie z hamulca pomocniczego
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
double GetHPFlow(double HP, double dt)/*override*/; double GetHPFlow(double HP, double dt)/*override*/;
void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej
void SetEPS(double nEPS)/*override*/; //stan hamulca EP void SetEPS(double nEPS)/*override*/; //stan hamulca EP
void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej
inline TWest(double i_mbp, double i_bcr, double i_bcd, double i_brc, inline TWest(double i_mbp, double i_bcr, double i_bcd, double i_brc,
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -265,7 +265,7 @@ Knorr/West EP -
public: public:
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void EStParams(double i_crc); //parametry charakterystyczne dla ESt void EStParams(double i_crc); //parametry charakterystyczne dla ESt
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
double GetCRP()/*override*/; double GetCRP()/*override*/;
void CheckState(double BCP, double & dV1); //glowny przyrzad rozrzadczy void CheckState(double BCP, double & dV1); //glowny przyrzad rozrzadczy
void CheckReleaser(double dt); //odluzniacz void CheckReleaser(double dt); //odluzniacz
@@ -273,7 +273,7 @@ Knorr/West EP -
double BVs(double BCP); //napelniacz pomocniczego double BVs(double BCP); //napelniacz pomocniczego
inline TESt(double i_mbp, double i_bcr, double i_bcd, double i_brc, inline TESt(double i_mbp, double i_bcr, double i_bcd, double i_brc,
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -289,7 +289,7 @@ Knorr/West EP -
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
inline TESt3(double i_mbp, double i_bcr, double i_bcd, double i_brc, inline TESt3(double i_mbp, double i_bcr, double i_bcd, double i_brc,
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TESt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -308,10 +308,10 @@ Knorr/West EP -
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej
void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
inline TESt3AL2(double i_mbp, double i_bcr, double i_bcd, double i_brc inline TESt3AL2(double i_mbp, double i_bcr, double i_bcd, double i_brc
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt3(i_mbp, i_bcr, i_bcd, i_brc, i_bcn , int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TESt3(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -328,10 +328,10 @@ Knorr/West EP -
public: public:
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
inline TESt4R(double i_mbp, double i_bcr, double i_bcd, double i_brc inline TESt4R(double i_mbp, double i_bcr, double i_bcd, double i_brc
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn , int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TESt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -352,12 +352,12 @@ Knorr/West EP -
void SetRM(double RMR); //ustalenie przelozenia rapida void SetRM(double RMR); //ustalenie przelozenia rapida
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
double GetHPFlow(double HP, double dt)/*override*/; //przeplyw - 8 bar double GetHPFlow(double HP, double dt)/*override*/; //przeplyw - 8 bar
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
virtual double GetEDBCP(); //cisnienie tylko z hamulca zasadniczego, uzywane do hamulca ED w EP09 virtual double GetEDBCP(); //cisnienie tylko z hamulca zasadniczego, uzywane do hamulca ED w EP09
void SetED(double EDstate); //stan hamulca ED do luzowania void SetED(double EDstate); //stan hamulca ED do luzowania
inline TLSt(double i_mbp, double i_bcr, double i_bcd, double i_brc, inline TLSt(double i_mbp, double i_bcr, double i_bcd, double i_brc,
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TESt4R(i_mbp, i_bcr, i_bcd, i_brc, i_bcn int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TESt4R(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -376,14 +376,14 @@ Knorr/West EP -
double LoadC; double LoadC;
public: public:
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
double GetEDBCP()/*override*/; //cisnienie tylko z hamulca zasadniczego, uzywane do hamulca ED double GetEDBCP()/*override*/; //cisnienie tylko z hamulca zasadniczego, uzywane do hamulca ED
void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej
void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej
inline TEStED(double i_mbp, double i_bcr, double i_bcd, double i_brc inline TEStED(double i_mbp, double i_bcr, double i_bcd, double i_brc
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TLSt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn , int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TLSt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -400,13 +400,13 @@ Knorr/West EP -
public: public:
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; //inicjalizacja void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/; //inicjalizacja
void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej void PLC(double mass); //wspolczynnik cisnienia przystawki wazacej
void SetEPS(double nEPS)/*override*/; //stan hamulca EP void SetEPS(double nEPS)/*override*/; //stan hamulca EP
void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej
inline TEStEP2(double i_mbp, double i_bcr, double i_bcd, double i_brc inline TEStEP2(double i_mbp, double i_bcr, double i_bcd, double i_brc
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TLSt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn , int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TLSt(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -422,14 +422,14 @@ Knorr/West EP -
public: public:
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
double GetCRP()/*override*/; double GetCRP()/*override*/;
void CheckState(double BCP, double & dV1); void CheckState(double BCP, double & dV1);
double CVs(double BP); double CVs(double BP);
double BVs(double BCP); double BVs(double BCP);
inline TCV1(double i_mbp, double i_bcr, double i_bcd, double i_brc, inline TCV1(double i_mbp, double i_bcr, double i_bcd, double i_brc,
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -444,10 +444,10 @@ Knorr/West EP -
public: public:
// function GetPF(PP, dt, Vel: real): real; override; //przeplyw miedzy komora wstepna i PG // function GetPF(PP, dt, Vel: real): real; override; //przeplyw miedzy komora wstepna i PG
// procedure Init(PP, HPP, LPP, BP: real; BDF: byte); override; // procedure Init(PP, HPP, LPP, BP: real; BDF: int); override;
inline TCV1R(double i_mbp, double i_bcr, double i_bcd, double i_brc, inline TCV1R(double i_mbp, double i_bcr, double i_bcd, double i_brc,
Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TCV1(i_mbp, i_bcr, i_bcd, i_brc, i_bcn int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TCV1(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -462,12 +462,12 @@ Knorr/West EP -
public: public:
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
void SetLBP(double P); //cisnienie z hamulca pomocniczego void SetLBP(double P); //cisnienie z hamulca pomocniczego
double GetHPFlow(double HP, double dt)/*override*/; //przeplyw - 8 bar double GetHPFlow(double HP, double dt)/*override*/; //przeplyw - 8 bar
inline TCV1L_TR(double i_mbp, double i_bcr, double i_bcd, double i_brc inline TCV1L_TR(double i_mbp, double i_bcr, double i_bcd, double i_brc
, Byte i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TCV1(i_mbp, i_bcr, i_bcd, i_brc, i_bcn , int i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TCV1(i_mbp, i_bcr, i_bcd, i_brc, i_bcn
, i_BD, i_mat, i_ba, i_nbpa) { } , i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -491,7 +491,7 @@ Knorr/West EP -
public: public:
void SetRM(double RMR); //ustalenie przelozenia rapida void SetRM(double RMR); //ustalenie przelozenia rapida
double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG double GetPF(double PP, double dt, double Vel)/*override*/; //przeplyw miedzy komora wstepna i PG
void Init(double PP, double HPP, double LPP, double BP, Byte BDF)/*override*/; void Init(double PP, double HPP, double LPP, double BP, int BDF)/*override*/;
double GetHPFlow(double HP, double dt)/*override*/; //przeplyw - 8 bar double GetHPFlow(double HP, double dt)/*override*/; //przeplyw - 8 bar
double GetCRP()/*override*/; double GetCRP()/*override*/;
void CheckState(double BCP, double & dV1); void CheckState(double BCP, double & dV1);
@@ -502,8 +502,8 @@ Knorr/West EP -
void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej void SetLP(double TM, double LM, double TBP); //parametry przystawki wazacej
void SetLBP(double P); //cisnienie z hamulca pomocniczego void SetLBP(double P); //cisnienie z hamulca pomocniczego
inline TKE(double i_mbp, double i_bcr, double i_bcd, double i_brc, Byte inline TKE(double i_mbp, double i_bcr, double i_bcd, double i_brc, int
i_bcn, Byte i_BD, Byte i_mat, Byte i_ba, Byte i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn, i_bcn, int i_BD, int i_mat, int i_ba, int i_nbpa) : TBrake(i_mbp, i_bcr, i_bcd, i_brc, i_bcn,
i_BD, i_mat, i_ba, i_nbpa) { } i_BD, i_mat, i_ba, i_nbpa) { }
}; };
@@ -527,8 +527,8 @@ Knorr/West EP -
virtual void Init(double Press); virtual void Init(double Press);
virtual double GetCP(); virtual double GetCP();
virtual void SetReductor(double nAdj); virtual void SetReductor(double nAdj);
virtual double GetSound(Byte i); virtual double GetSound(int i);
virtual double GetPos(Byte i); virtual double GetPos(int i);
}; };
@@ -565,8 +565,8 @@ Knorr/West EP -
double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/; double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/;
void Init(double Press)/*override*/; void Init(double Press)/*override*/;
void SetReductor(double nAdj)/*override*/; void SetReductor(double nAdj)/*override*/;
double GetSound(Byte i)/*override*/; double GetSound(int i)/*override*/;
double GetPos(Byte i)/*override*/; double GetPos(int i)/*override*/;
inline TFV4aM(void) : TDriverHandle() { } inline TFV4aM(void) : TDriverHandle() { }
}; };
@@ -587,8 +587,8 @@ Knorr/West EP -
double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/; double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/;
void Init(double Press)/*override*/; void Init(double Press)/*override*/;
void SetReductor(double nAdj)/*override*/; void SetReductor(double nAdj)/*override*/;
double GetSound(Byte i)/*override*/; double GetSound(int i)/*override*/;
double GetPos(Byte i)/*override*/; double GetPos(int i)/*override*/;
double GetCP()/*override*/; double GetCP()/*override*/;
double GetEP(double pos); double GetEP(double pos);
@@ -608,8 +608,8 @@ Knorr/West EP -
function GetPF(i_bcp:real; pp, hp, dt, ep: real): real; override; function GetPF(i_bcp:real; pp, hp, dt, ep: real): real; override;
procedure Init(press: real); override; procedure Init(press: real); override;
procedure SetReductor(nAdj: real); override; procedure SetReductor(nAdj: real); override;
function GetSound(i: byte): real; override; function GetSound(i: int): real; override;
function GetPos(i: byte): real; override; function GetPos(i: int): real; override;
end; */ end; */
/* TD2= class(TTDriverHandle) /* TD2= class(TTDriverHandle)
@@ -623,8 +623,8 @@ Knorr/West EP -
function GetPF(i_bcp:real; pp, hp, dt, ep: real): real; override; function GetPF(i_bcp:real; pp, hp, dt, ep: real): real; override;
procedure Init(press: real); override; procedure Init(press: real); override;
procedure SetReductor(nAdj: real); override; procedure SetReductor(nAdj: real); override;
function GetSound(i: byte): real; override; function GetSound(i: int): real; override;
function GetPos(i: byte): real; override; function GetPos(i: int): real; override;
end;*/ end;*/
@@ -640,7 +640,7 @@ Knorr/West EP -
void Init(double Press)/*override*/; void Init(double Press)/*override*/;
void SetReductor(double nAdj)/*override*/; void SetReductor(double nAdj)/*override*/;
double GetCP()/*override*/; double GetCP()/*override*/;
double GetPos(Byte i)/*override*/; double GetPos(int i)/*override*/;
inline TM394(void) : TDriverHandle() { } inline TM394(void) : TDriverHandle() { }
}; };
@@ -659,7 +659,7 @@ Knorr/West EP -
void Init(double Press)/*override*/; void Init(double Press)/*override*/;
void SetReductor(double nAdj)/*override*/; void SetReductor(double nAdj)/*override*/;
double GetCP()/*override*/; double GetCP()/*override*/;
double GetPos(Byte i)/*override*/; double GetPos(int i)/*override*/;
inline TH14K1(void) : TDriverHandle() { } inline TH14K1(void) : TDriverHandle() { }
}; };
@@ -675,7 +675,7 @@ Knorr/West EP -
public: public:
double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/; double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/;
double GetCP()/*override*/; double GetCP()/*override*/;
double GetPos(Byte i)/*override*/; double GetPos(int i)/*override*/;
void Init(double Press)/*override*/; void Init(double Press)/*override*/;
inline TSt113(void) : TH14K1() { } inline TSt113(void) : TH14K1() { }
@@ -746,8 +746,8 @@ Knorr/West EP -
public: public:
double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/; double GetPF(double i_bcp, double PP, double HP, double dt, double ep)/*override*/;
double GetCP()/*override*/; double GetCP()/*override*/;
double GetPos(Byte i)/*override*/; double GetPos(int i)/*override*/;
double GetSound(Byte i)/*override*/; double GetSound(int i)/*override*/;
void Init(double Press)/*override*/; void Init(double Press)/*override*/;
inline TFVel6(void) : TDriverHandle() { } inline TFVel6(void) : TDriverHandle() { }