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

AI: Better acceleration with ElectricSeriesMotor - motor current is set acording to ahdesion and fuse limit

Browse Source
This commit is contained in:
Królik Uszasty
2017-08-20 20:22:04 +02:00
parent e31c7d8f60
commit f06f997946
2 changed files with 94 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

139
Driver.cpp
View File

@@ -1720,7 +1720,41 @@ void TController::AutoRewident()
fAccThreshold = -fBrake_a0[BrakeAccTableSize] - 1 * fBrake_a1[BrakeAccTableSize]; fAccThreshold = -fBrake_a0[BrakeAccTableSize] - 1 * fBrake_a1[BrakeAccTableSize];
fBrakeReaction = 1.00 + fLength*0.005; fBrakeReaction = 1.00 + fLength*0.005;
} }
}; }
double TController::ESMVelocity(bool Main)
{
double fCurrentCoeff = 0.9;
double fFrictionCoeff = 0.85;
double ESMVel = 9999;
int MCPN = mvControlling->MainCtrlActualPos;
int SCPN = mvControlling->ScndCtrlActualPos;
if (Main)
MCPN += 1;
else
SCPN += 1;
if ((mvControlling->RList[MCPN].ScndAct < 255)&&(mvControlling->ScndCtrlActualPos==0))
SCPN = mvControlling->RList[MCPN].ScndAct;
double FrictionMax = mvControlling->Mass*9.81*mvControlling->Adhesive(mvControlling->RunningTrack.friction)*fFrictionCoeff;
double IF = mvControlling->Imax;
double MS = 0;
double Fmax = 0;
for (int i = 0; i < 5; i++)
{
MS = mvControlling->MomentumF(IF, IF, SCPN);
Fmax = MS * mvControlling->RList[MCPN].Bn*mvControlling->RList[MCPN].Mn * 2 / mvControlling->WheelDiameter * mvControlling->Transmision.Ratio;
IF = 0.5*IF*(1 + FrictionMax/Fmax);
}
IF = std::min(IF, mvControlling->Imax*fCurrentCoeff);
double R = mvControlling->RList[MCPN].R + mvControlling->CircuitRes + mvControlling->RList[MCPN].Mn*mvControlling->WindingRes;
double pole = mvControlling->MotorParam[SCPN].fi *
std::max(abs(IF) / (abs(IF) + mvControlling->MotorParam[SCPN].Isat) - mvControlling->MotorParam[SCPN].fi0, 0.0);
double Us = abs(mvControlling->Voltage) - IF*R;
double ns = std::max(0.0, Us / (pole*mvControlling->RList[MCPN].Mn));
ESMVel = ns * mvControlling->WheelDiameter*M_PI*3.6/mvControlling->Transmision.Ratio;
return ESMVel;
}
;
int TController::CheckDirection() { int TController::CheckDirection() {
@@ -2499,51 +2533,64 @@ bool TController::IncSpeed()
(mvControlling->StLinFlag)) // youBy polecił dodać 2012-09-08 v367 (mvControlling->StLinFlag)) // youBy polecił dodać 2012-09-08 v367
// na pozycji 0 przejdzie, a na pozostałych będzie czekać, aż się załączą liniowe // na pozycji 0 przejdzie, a na pozostałych będzie czekać, aż się załączą liniowe
// (zgaśnie DelayCtrlFlag) // (zgaśnie DelayCtrlFlag)
if (Ready || (iDrivigFlags & movePress)) if (Ready || (iDrivigFlags & movePress))
if (fabs(mvControlling->Im) < {
(fReady < 0.4 ? mvControlling->Imin : mvControlling->IminLo)) bool scndctrl = ((mvOccupied->Vel <= 30) ||
{ // Ra: wywalał nadmiarowy, bo Im może być ujemne; jak nie odhamowany, to nie (mvControlling->Imax > mvControlling->ImaxLo) ||
// przesadzać z prądem (fVoltage + fVoltage <
if ((mvOccupied->Vel <= 30) || mvControlling->EnginePowerSource.CollectorParameters.MinV +
(mvControlling->Imax > mvControlling->ImaxLo) || mvControlling->EnginePowerSource.CollectorParameters.MaxV) ||
(fVoltage + fVoltage < (mvControlling->MainCtrlPos == mvControlling->MainCtrlPosNo));
mvControlling->EnginePowerSource.CollectorParameters.MinV + scndctrl = ((scndctrl) && (mvControlling->MainCtrlPos > 1) && (mvControlling->RList[mvControlling->MainCtrlActualPos].R < 0.01)&& (mvControlling->ScndCtrlPos != mvControlling->ScndCtrlPosNo));
mvControlling->EnginePowerSource.CollectorParameters.MaxV)) double Vs = 99999;
{ // bocznik na szeregowej przy ciezkich bruttach albo przy wysokim rozruchu if((mvControlling->MainCtrlPos != mvControlling->MainCtrlPosNo)||(mvControlling->ScndCtrlPos!=mvControlling->ScndCtrlPosNo))
// pod górę albo przy niskim napięciu Vs = ESMVelocity(!scndctrl);
if (mvControlling->MainCtrlPos ?
mvControlling->RList[mvControlling->MainCtrlPos].R > 0.0 : if ((fabs(mvControlling->Im) <
true) // oporowa (fReady < 0.4 ? mvControlling->Imin : mvControlling->IminLo))||(mvControlling->Vel>Vs))
{ { // Ra: wywalał nadmiarowy, bo Im może być ujemne; jak nie odhamowany, to nie
OK = (mvControlling->DelayCtrlFlag ? // przesadzać z prądem
true : if ((mvOccupied->Vel <= 30) ||
mvControlling->IncMainCtrl(1)); // kręcimy nastawnik jazdy (mvControlling->Imax > mvControlling->ImaxLo) ||
if ((OK) && (fVoltage + fVoltage <
(mvControlling->MainCtrlPos == mvControlling->EnginePowerSource.CollectorParameters.MinV +
1)) // czekaj na 1 pozycji, zanim się nie włączą liniowe mvControlling->EnginePowerSource.CollectorParameters.MaxV))
iDrivigFlags |= moveIncSpeed; { // bocznik na szeregowej przy ciezkich bruttach albo przy wysokim rozruchu
else // pod górę albo przy niskim napięciu
iDrivigFlags &= ~moveIncSpeed; // usunięcie flagi czekania if (mvControlling->MainCtrlPos ?
} mvControlling->RList[mvControlling->MainCtrlPos].R > 0.0 :
else // jeśli bezoporowa (z wyjątekiem 0) true) // oporowa
OK = false; // to dać bocznik {
} OK = (mvControlling->DelayCtrlFlag ?
else true :
{ // przekroczone 30km/h, można wejść na jazdę równoległą mvControlling->IncMainCtrl(1)); // kręcimy nastawnik jazdy
if (mvControlling->ScndCtrlPos) // jeśli ustawiony bocznik if ((OK) &&
if (mvControlling->MainCtrlPos < (mvControlling->MainCtrlPos ==
mvControlling->MainCtrlPosNo - 1) // a nie jest ostatnia pozycja 1)) // czekaj na 1 pozycji, zanim się nie włączą liniowe
mvControlling->DecScndCtrl(2); // to bocznik na zero po chamsku iDrivigFlags |= moveIncSpeed;
// (ktoś miał to poprawić...) else
OK = mvControlling->IncMainCtrl(1); iDrivigFlags &= ~moveIncSpeed; // usunięcie flagi czekania
} }
if ((mvControlling->MainCtrlPos > 2) && else // jeśli bezoporowa (z wyjątekiem 0)
(mvControlling->Im == 0)) // brak prądu na dalszych pozycjach OK = false; // to dać bocznik
Need_TryAgain = true; // nie załączona lokomotywa albo wywalił }
// nadmiarowy else
else if (!OK) // nie da się wrzucić kolejnej pozycji { // przekroczone 30km/h, można wejść na jazdę równoległą
OK = mvControlling->IncScndCtrl(1); // to dać bocznik if (mvControlling->ScndCtrlPos) // jeśli ustawiony bocznik
} if (mvControlling->MainCtrlPos <
mvControlling->MainCtrlPosNo - 1) // a nie jest ostatnia pozycja
mvControlling->DecScndCtrl(2); // to bocznik na zero po chamsku
// (ktoś miał to poprawić...)
OK = mvControlling->IncMainCtrl(1);
}
if ((mvControlling->MainCtrlPos > 2) &&
(mvControlling->Im == 0)) // brak prądu na dalszych pozycjach
Need_TryAgain = true; // nie załączona lokomotywa albo wywalił
// nadmiarowy
else if (!OK) // nie da się wrzucić kolejnej pozycji
OK = mvControlling->IncScndCtrl(1); // to dać bocznik
}
}
mvControlling->AutoRelayCheck(); // sprawdzenie logiki sterowania mvControlling->AutoRelayCheck(); // sprawdzenie logiki sterowania
break; break;
case Dumb: case Dumb:

1
Driver.h
View File

@@ -314,6 +314,7 @@ class TController
void Activation(); // umieszczenie obsady w odpowiednim członie void Activation(); // umieszczenie obsady w odpowiednim członie
void ControllingSet(); // znajduje człon do sterowania void ControllingSet(); // znajduje człon do sterowania
void AutoRewident(); // ustawia hamulce w składzie void AutoRewident(); // ustawia hamulce w składzie
double ESMVelocity(bool Main);
public: public:
Mtable::TTrainParameters *Timetable() Mtable::TTrainParameters *Timetable()
{ {