maszyna/TractionPower.cpp

//---------------------------------------------------------------------------

/*
    MaSzyna EU07 locomotive simulator component
    Copyright (C) 2004  Maciej Czapkiewicz and others

*/


#include    "system.hpp"
#include    "classes.hpp"
#pragma hdrstop

#include "Mover.h"
#include "mctools.hpp"
#include "Timer.h"
#include "Globals.h"
#include "TractionPower.h"

#include "Usefull.h"
#include "Ground.h"

//---------------------------------------------------------------------------

__fastcall TTractionPowerSource::TTractionPowerSource()
{
 NominalVoltage=0;
 VoltageFrequency=0;
 InternalRes=0.2;
 MaxOutputCurrent=0;
 FastFuseTimeOut=1;
 FastFuseRepetition=3;
 SlowFuseTimeOut=60;
 Recuperation=false;

 TotalAdmitance=1e-10; //10Mom - jakaœ tam up³ywnoœæ
 TotalPreviousAdmitance=1e-10; //zero jest szkodliwe
 OutputVoltage=0;
 FastFuse=false;
 SlowFuse=false;
 FuseTimer=0;
 FuseCounter=0;
 psNode[0]=NULL; //sekcje zostan¹ pod³¹czone do zasilaczy
 psNode[1]=NULL;
 bSection=false; //sekcja nie jest Ÿród³em zasilania, tylko grupuje przês³a
};

__fastcall TTractionPowerSource::~TTractionPowerSource()
{
};

void __fastcall TTractionPowerSource::Init(double u,double i)
{//ustawianie zasilacza przy braku w scenerii
 NominalVoltage=u;
 VoltageFrequency=0;
 MaxOutputCurrent=i;
};

bool __fastcall TTractionPowerSource::Load(cParser *parser)
{
 std::string token;
 //AnsiString str;
 //str= Parser->GetNextSymbol()LowerCase();
 //asName= str;
 parser->getTokens(5);
 *parser >> NominalVoltage >> VoltageFrequency >> InternalRes >> MaxOutputCurrent >> FastFuseTimeOut;
 parser->getTokens();
 *parser >> FastFuseRepetition;
 parser->getTokens();
 *parser >> SlowFuseTimeOut;
 parser->getTokens();
 *parser >> token;
 if (token.compare("recuperation")==0)
  Recuperation=true;
 else if (token.compare("section")==0) //od³¹cznik sekcyjny
  bSection=true; //nie jest Ÿród³em zasilania, a jedynie informuje o pr¹dzie od³¹czenia sekcji z obwodu
 parser->getTokens();
 *parser >> token;
 if (token.compare("end")!=0)
  Error("tractionpowersource end statement missing");
 //if (!bSection) //od³¹cznik sekcji zasadniczo nie ma impedancji (0.01 jest OK)
  if (InternalRes<0.1) //coœ ma³a ta rezystancja by³a...
   InternalRes=0.2; //tak oko³o 0.2, wg http://www.ikolej.pl/fileadmin/user_upload/Seminaria_IK/13_05_07_Prezentacja_Kruczek.pdf
 return true;
};


bool __fastcall TTractionPowerSource::Render()
{
 return true;
};

bool __fastcall TTractionPowerSource::Update(double dt)
{//powinno byæ wykonane raz na krok fizyki
 if (NominalVoltage*TotalPreviousAdmitance>MaxOutputCurrent) //iloczyn napiêcia i admitancji daje pr¹d
 {
  FastFuse=true;
  FuseCounter+=1;
  if (FuseCounter>FastFuseRepetition)
  {SlowFuse=true;
   ErrorLog("Power overload: \""+gMyNode->asName+"\" disabled for "+AnsiString(SlowFuseTimeOut)+"s");
  }
  else
   ErrorLog("Power overload: \""+gMyNode->asName+"\" disabled for "+AnsiString(FastFuseTimeOut)+"s");
  FuseTimer=0;
 }
 if (FastFuse||SlowFuse)
 {//jeœli któryœ z bezpieczników zadzia³a³
  TotalAdmitance=0;
  FuseTimer+=dt;
  if (!SlowFuse)
  {//gdy szybki, odczekaæ krótko i za³¹czyæ
   if (FuseTimer>FastFuseTimeOut)
    FastFuse=false;
  }
  else
   if (FuseTimer>SlowFuseTimeOut)
   {SlowFuse=false;
    FuseCounter=0; //dajemy znów szansê
   }
 }
 TotalPreviousAdmitance=TotalAdmitance; //u¿ywamy admitancji z poprzedniego kroku
 if (TotalPreviousAdmitance==0.0)
  TotalPreviousAdmitance=1e-10; //przynajmniej minimalna up³ywnoœæ
 TotalAdmitance=1e-10; //a w aktualnym kroku sumujemy admitancjê
 return true;
};

double __fastcall TTractionPowerSource::CurrentGet(double res)
{//pobranie wartoœci pr¹du przypadaj¹cego na rezystancjê (res)
 //niech pamiêta poprzedni¹ admitancjê i wg niej przydziela pr¹d
 if (SlowFuse||FastFuse)
 {//czekanie na zanik obci¹¿enia sekcji
  if (res<100.0)  //liczenie czasu dopiero, gdy obci¹¿enie zniknie
   FuseTimer=0;
  return 0;
 }
 if ((res>0)||((res<0)&&(Recuperation)))
  TotalAdmitance+=1.0/res; //po³¹czenie równoleg³e rezystancji jest równowa¿ne sumie admitancji
 TotalCurrent=(TotalPreviousAdmitance!=0.0)?NominalVoltage/(InternalRes+1.0/TotalPreviousAdmitance):0.0; //napiêcie dzielone przez sumê rezystancji wewnêtrznej i obci¹¿enia
 OutputVoltage=NominalVoltage-InternalRes*TotalCurrent; //napiêcie na obci¹¿eniu
 return TotalCurrent/(res*TotalPreviousAdmitance); //pr¹d proporcjonalny do udzia³u (1/res) w ca³kowitej admitancji
};

void __fastcall TTractionPowerSource::PowerSet(TTractionPowerSource *ps)
{//wskazanie zasilacza w obiekcie sekcji
 if (!psNode[0])
  psNode[0]=ps;
 else if (!psNode[1])
  psNode[1]=ps;
 //else ErrorLog("nie mo¿e byæ wiêcej punktów zasilania ni¿ dwa");
};

//---------------------------------------------------------------------------

#pragma package(smart_init)