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

Added efficiency of transmision

Browse Source
This commit is contained in:
Królik Uszasty
2019-11-02 15:50:53 +01:00
parent 7c4f2008e0
commit 4163c251e4
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
McZapkie/MOVER.h
View File

@@ -637,6 +637,7 @@ struct TTransmision
int NToothM = 0;
int NToothW = 0;
double Ratio = 1.0;
double Efficiency = 1.0;
};
enum class TCouplerType { NoCoupler, Articulated, Bare, Chain, Screw, Automatic };

9
McZapkie/Mover.cpp
View File

@@ -5248,7 +5248,7 @@ double TMoverParameters::TractionForce( double dt ) {
Itot = Im;
else
Itot = Im * RList[MainCtrlActualPos].Bn; // prad silnika * ilosc galezi
Mw = Mm * Transmision.Ratio;
Mw = Mm * Transmision.Ratio * Transmision.Efficiency;
Fw = Mw * 2.0 / WheelDiameter;
Ft = Fw * NPoweredAxles; // sila trakcyjna
break;
@@ -5256,9 +5256,9 @@ double TMoverParameters::TractionForce( double dt ) {
case TEngineType::DieselEngine:
{
Mw = dmoment * dtrans; // dmoment i dtrans policzone przy okazji enginerotation
Mw = dmoment * dtrans * Transmision.Efficiency; // dmoment i dtrans policzone przy okazji enginerotation
if ((hydro_R) && (hydro_R_Placement == 0))
Mw -= dizel_MomentumRetarder(nrot * Transmision.Ratio, dt) * Transmision.Ratio;
Mw -= dizel_MomentumRetarder(nrot * Transmision.Ratio, dt) * Transmision.Ratio * Transmision.Efficiency;
Fw = Mw * 2.0 / WheelDiameter / NPoweredAxles;
Ft = Fw * NPoweredAxles; // sila trakcyjna
Ft = Ft * DirAbsolute; // ActiveDir*CabNo;
@@ -5826,7 +5826,7 @@ double TMoverParameters::TractionForce( double dt ) {
}
Mm = eimv[eimv_M] * DirAbsolute;
Mw = Mm * Transmision.Ratio;
Mw = Mm * Transmision.Ratio * Transmision.Efficiency;
Fw = Mw * 2.0 / WheelDiameter;
Ft = Fw * NPoweredAxles;
eimv[eimv_Fr] = DirAbsolute * Ft / 1000;
@@ -9878,6 +9878,7 @@ void TMoverParameters::LoadFIZ_Engine( std::string const &Input ) {
Transmision.Ratio = static_cast<double>( Transmision.NToothW ) / Transmision.NToothM;
else
Transmision.Ratio = 1.0;
extract_value(Transmision.Efficiency, "TransEff", Input, "");
}
switch( EngineType ) {