Example #1
0
void CNature::ProcessModel(CView *pEngine)
{
    CField *pField = static_cast<CTrafficLightDoc *>(pEngine->GetDocument())->GetField();

    m_pOptimalTLight->SetNumbersOfLines(pField->GetNCarLines(), pField->GetNHumanLines());

    CCarStreamDisctrib *pCarDistrib = new CCarStreamDisctrib();

    Days day = Monday;
    int time = 0;
    Weather weather = Sunny;
    TrafficLightType TLightType = Smart;

    int roadLen1 = pField->GetXMax()*(1-pField->GetPercentOfPedestrianCrossing()); 
    int roadLen2 = pField->GetYMax()*(1-pField->GetPercentOfCarRoad());

    m_pOptimalTLight->TeachYourSelf(m_SpeedHumanAppearance, m_SpeedCarAppearance, roadLen1, roadLen2);

    while (true)
    {
	if (m_Paused)
	{
	    while (m_Paused)
	    {
		Sleep(100);
	    };

	    pField->DeleteAllMO();

	    if (pInfoPanel != NULL)
	    {
		int Hours;
		int Minutes;
		day = pInfoPanel->GetDay();
		pInfoPanel->GetTime(Hours, Minutes);
		GetTicsByTime(Hours, Minutes, time);
		weather = pInfoPanel->GetWeather();
		TLightType = pInfoPanel->GetTrafficLightType();
	    }
	    else
	    {
		day = Monday;
		time = 0;
		weather = Sunny;
		TLightType = Smart;
	    };
	};

        for (; (day <= Sunday)&&(!m_Paused); day = static_cast<Days>(static_cast<int>(day) + 1))
        {
            float RedTime;
            float GreenTime;
            float YellowTime;

            int Counter;

            for (; (time < m_CyclesPerDay)&&(!m_Paused); time++, Counter++)
            {
		Times TypeOfTime;

		int Hours; 
		int Minutes;
		GetTimeByTics(time, Hours, Minutes);

		if ((Hours>=6)&&(Hours < 8))
		{
		    TypeOfTime = EarlyMorning;
		}
		else
		{
		    if ((Hours>=8)&&(Hours<11))
		    {
			TypeOfTime = Morning;
		    }
		    else
		    {
			if ((Hours>=11)&&(Hours<16))
			{
			    TypeOfTime = Afternoon;
			}
			else
			{
			    if ((Hours>=16)&&(Hours<21))
			    {
				TypeOfTime = Everning;
			    }
			    else
			    {
				TypeOfTime = Night;
			    };
			};
		    };
		};

                //Generate weather (obsolete, now it is setted by GUI)
                //if (time % (m_CyclesPerDay/5) == 0)
                //{
                //    weather = static_cast<Weather>(rand() % 3);
		//};
                int day1 = ((day!=Saturday)&&(day!=Sunday))?(Workday):(Holiday);

		if ((time % m_CyclesPerTrafficLight) == 0)
		{
		    if (TLightType == Ordinary)
		    {
			RedTime = m_CyclesPerTrafficLight * 0.4;
			GreenTime = m_CyclesPerTrafficLight * 0.4;
			YellowTime = m_CyclesPerTrafficLight * 0.2;
		    }
		    else
		    {
                        bool DayObserved;
                        bool TimeObserved;
                        bool WeatherObserved;

                        if (pInfoPanel != NULL)
                        {
                            pInfoPanel->GetObservation(DayObserved, TimeObserved, WeatherObserved);
                        };

                        m_pOptimalTLight->SetType(static_cast<DayType>(day1), TypeOfTime, weather);
                        m_pOptimalTLight->SetObserved(DayObserved, TimeObserved, WeatherObserved);

                        m_pOptimalTLight->Solve(-1,-1);
                        int Strategy = m_pOptimalTLight->GetOptValue();

                        GreenTime = m_CyclesPerTrafficLight*0.8*m_TrafficLightVariants[Strategy];
                        YellowTime = m_CyclesPerTrafficLight * 0.2;
                        RedTime = m_CyclesPerTrafficLight - GreenTime - YellowTime;
		    };

                    pInfoPanel->SetTrafficLightDistribution((float)GreenTime/m_CyclesPerTrafficLight, (float)RedTime/m_CyclesPerTrafficLight, (float)YellowTime/m_CyclesPerTrafficLight);

                    Counter = 0;

                    TMode = Green;
                };

                if (Counter >= GreenTime)
                {
                    TMode = Yellow;
                };

                if (Counter >= GreenTime + YellowTime/2)
                {
                    TMode = Red;
                };

                if (Counter >= GreenTime + YellowTime/2 + RedTime)
                {
                    TMode = Yellow;
                };

		CMovingObject *pObject;

#ifdef CONST_NUMBER_OF_MO
		for (int car = 0; car < static_cast<int>(m_SpeedCarAppearance[day1][TypeOfTime][weather]); car++)
		{
		    pObject = new CCar();
		    pField->AddObject(pObject);
		};

		if (rand() <= RAND_MAX*(m_SpeedCarAppearance[day1][TypeOfTime][weather] - static_cast<int>(m_SpeedCarAppearance[day1][TypeOfTime][weather])))
		{
		    pObject = new CCar();
		    pField->AddObject(pObject);
		};

		for (int human = 0; human < static_cast<int>(m_SpeedHumanAppearance[day1][TypeOfTime][weather]); human++)
		{
		    pObject = new CHuman();
		    pField->AddObject(pObject);
		};

		if (rand() <= RAND_MAX*(m_SpeedHumanAppearance[day1][TypeOfTime][weather] - static_cast<int>(m_SpeedHumanAppearance[day1][TypeOfTime][weather])))
		{
		    pObject = new CHuman();
		    pField->AddObject(pObject);
		};
#else
		pCarDistrib->SetLambda(m_SpeedCarAppearance[day1][TypeOfTime][weather]);

		int NNewCars = pCarDistrib->getPuassonValue();
		for (int car = 0; car < NNewCars; car++)
		{
		    pObject = new CCar();
		    pField->AddObject(pObject);
		};

		pCarDistrib->SetLambda(m_SpeedHumanAppearance[day1][TypeOfTime][weather]);

		int NNewHumans = pCarDistrib->getPuassonValue();
		for (int human = 0; human < NNewHumans; human++)
		{
		    pObject = new CHuman();
		    pField->AddObject(pObject);
		};
#endif

		
		pField->SetTrafficLightForCars(TMode);
                pField->Move();

		if (pInfoPanel != NULL)
		{
		    pInfoPanel->SetDay(day);
		    pInfoPanel->SetTime(Hours, Minutes);
		    pInfoPanel->SetNumbersOfCarsAndHumans(pField->GetNumberOfCars(), pField->GetNumberOfHumans());
                    pInfoPanel->SetSpeedOfCarsAndHumans(CCar::GetDefaultSpeed(), CHuman::GetDefaultSpeed());
                    pInfoPanel->SetSpeedOfCarAndHumanAppearance(m_SpeedCarAppearance[day1][TypeOfTime][weather], m_SpeedHumanAppearance[day1][TypeOfTime][weather]);
		    pInfoPanel->Invalidate(FALSE);
		};

		pEngine->Invalidate(FALSE);
	        Sleep(10);
            };

	    time = 0;
        };
	day = Monday;
    };

    delete pCarDistrib;
}