Разработка приложения для моделирования работы аэропорта

int leftL = 0, int rightL = 0, int leftS = 0, int rightS = 0,

int leftDL = 0, int rightDL = 0, int leftDS = 0, int rightDS = 0, char *way = "chronology.txt")

: Port(Fog, Rain, Wind)

{

way_txt= (way == 0 ? "chronology.txt":way);

EVqueue= new list<event>();//Инициализация данных,не зависящих

curr_event= NULL;//от уст. пользователя.

new_event= NULL;//

counter= 2;//

time_sim= CommonTime;

now_time= 0;

left_lndng= leftL < 0 ? 0:leftL;//Эти данные инициализируются

right_lndng= rightL < 0 ? 0:rightL;//в соответствии с данными пользо-

left_start= leftS < 0 ? 0:leftS;//вателя.

right_start= rightS < 0 ? 0:rightS;//

left_dur_l= leftDL < 0 ? 0:leftDL;//

right_dur_l= rightDL < 0 ? 0:rightDL;//

left_dur_s= leftDS < 0 ? 0:leftDS;//

right_dur_s= rightDS < 0 ? 0:rightDS;//

curr_event = getNextEvent(landing, 1);//Занесли первое событие.

if(curr_event->time < time_sim)//Но с проверкой рамок времени.

EVqueue->Insert(curr_event);//

else {delete curr_event; curr_event = NULL; }//

}

SimulatorPort::~SimulatorPort()

{

delete EVqueue;

delete way_txt;

}

//ЗАПУСК МОДЕЛИРОВАНИЯ

void SimulatorPort::Run()

{

ofstream fout(way_txt);

if(!fout) return;

while(!EVqueue->ChekEmpty())//Главный цикл программы.Пока все события не извлекутся.

{

curr_event = EVqueue->Extract();//Извлекли событие из списка.

now_time = curr_event->time;//Основное время перешло к времени события

if(getRoad()->closetime() <= now_time) getRoad()->set_time(0);//Если время до которого полоса была занята прошло,то она свободна.

if(curr_event->type == landing)

{

if(!curr_event->stopped)//Если это не повторно прилетевший самолет.

{

new_event = getNextEvent(landing, counter);//Получаем следующее событие.

new_event->plus_time(now_time);//Корректируем время в мировое.

if(ChekEvent_andAdd(new_event)) ++counter;//Если событие не выходит за рамки,то включим и счетчик увеличим;

}

if(!getRoad()->closetime())//Если полоса свободна.

{

fout << "Время(" << now_time << ") : " << "Борт №" << curr_event->code << ". Посадка. Продолжительность "

<< curr_event->duration << " мин." << endl << endl;

if(!curr_event->stopped) stat.clear_land++;//Подсчет "чистых" посадок.

getRoad()->set_time(now_time + curr_event->duration);//Дорогa занята на время продолжительности действия.

if(getRoad()->closetime() > time_sim)//Если полоса освободится после события вне пределов моделирования,

stat.plus_work_road(time_sim - now_time);//занесем время работы полосы только до окончания симуляции,а не

else stat.plus_work_road(curr_event->duration);//с захлестом за пределы.

stat.land_bort++;//Отметили в счетчике прилетевших.

new_event = getNextEvent(start, curr_event->code);

new_event->plus_time(now_time);

ChekEvent_andAdd(new_event);//Включаем в список(если в пред. времени)

delete curr_event;

}

else//Если полоса занята

{

if(curr_event->stopped == MAX_EXTRA_CIRC)

{

fout << "Время(" << now_time << ") :" << " Борт №" << curr_event->code

<< ". Ушел на запасной эародром." << endl << endl;

stat.to_reserv_port++;

delete curr_event;

}

else

{

fout << "Время(" << now_time << ") : " << "Борт №" << curr_event->code

<< ". Пошел на " << curr_event->stopped + 1 << "й доп. круг." << endl << endl;

curr_event->plus_time(TIME_EXTRA_CIRC);

stat.plus_land_wait(TIME_EXTRA_CIRC);

if(ChekEvent_andAdd(curr_event)) curr_event->stopped++;//Включаем в список событий

stat.full_retry_circ++;//если время лежит в границах модел-ия.

}

}

}//Конец "если полоса занята"

else //Если это взлет

{

if(!getRoad()->closetime())//Если полоса свободна.

{

fout << "Время(" << now_time << ") : " << "Борт №" << curr_event->code

<< ". Взлет. Продолжительность " << curr_event->duration << " мин." << endl << endl;

stat.start_bort++;

if(!curr_event->stopped) stat.clear_start++;

getRoad()->set_time(now_time + curr_event->duration);//Заняли полосу.

if(getRoad()->closetime() > time_sim)//Если полоса освободится после события вне пределов моделирования,

stat.plus_work_road(time_sim - now_time);//занесем время работы полосы только до окончания симуляции,а не

else stat.plus_work_road(curr_event->duration);//с захлестом за пределы.

delete curr_event;

}

else//Если полоса занята.

{

fout << "Время(" << now_time << ") : " << "Борт №" << curr_event->code

<< ". Взлет задерживается на " << getRoad()->closetime() - now_time << " мин." << endl << endl;

curr_event->time = getRoad()->closetime();//Задержка до освобождения полосы.

curr_event->stopped++;//Плюс задержание в счетчик.

if(ChekEvent_andAdd(curr_event))

stat.plus_start_wait(getRoad()->closetime() - now_time);

}

}//конец "если это взлет"

}//Конец основного цикла.

fout << "Время(" << time_sim << ") " << "Конец моделирования." << endl;

}

//Получить время следующего события "посадка" из заданного интервала

int SimulatorPort::getNextLanding()

{

return (left_lndng + rnd.Random(right_lndng - left_lndng + 1));

}

//Получить время следующего события "взлет" из заданного интервала

int SimulatorPort::getNextStart()

{

return (left_start + rnd.Random(right_start - left_start + 1));

}

//Получить продолжительность события с учетом влияния погоды

int SimulatorPort::getDuration(flag type_event)

{

int time;

if(type_event == landing)//

time = left_dur_l + rnd.Random(right_dur_l - left_dur_l + 1);//Время посадки чистое.

else//

return (left_dur_s + rnd.Random(right_dur_s - left_dur_s + 1));//

switch(getWether()->fog)

{

case none: time = time + time * METEO_EF_none;

break;

case easy: time = time + time * METEO_EF_easy;

break;

case medium: time = time + time * METEO_EF_medium;

break;

case hard: time = time + time * METEO_EF_hard;

break;

}

switch(getWether()->rain)

{

case none: time = time + (int)(time * METEO_EF_none);

break;

case easy: time = time + (int)(time * METEO_EF_easy);

break;

case medium: time = time + (int)(time * METEO_EF_medium);

break;

case hard: time = time + (int)(time * METEO_EF_hard);

break;

}

time = time + (int)(getWether()->wind * METEO_EF_wind);

return time;

}

//Создает динамически новое событие и возаращает указатель

event *SimulatorPort::getNextEvent(flag even_type, int number)

{

event *nextEV = new event(even_type, number);

if(even_type == landing) nextEV->time = getNextLanding();

else nextEV->time = getNextStart();

nextEV->duration = getDuration(even_type);

return nextEV;

}

//Метод,проверяющий,не выходит ли событие за пределы времени и если все хорошо,добавляет в очередь.

bool SimulatorPort::ChekEvent_andAdd(event *tested)

{

if(tested->time < time_sim)

EVqueue->Insert(tested);

else

{

delete tested;

tested = NULL;

return false;

}

return true;

}

void SimulatorPort::setCOM_TIME(int time)

{

time_sim = (time < 0 ? 0:time);

}

//Установка интервала времени,через которое будет появляться событие посадка.

void SimulatorPort::setINTERVAL_L(int LL, int RL)

{

left_lndng= (LL < 0 ? 0:LL);

right_lndng = (RL < 0 ? 0:RL);

}

//Интервал времени для появления события взлет.

void SimulatorPort::setINTERVAL_S(int LS, int RS)

{

left_start= (LS < 0 ? 0:LS);

right_start = (RS < 0 ? 0:RS);

}

//Интервал продолжительности события посадки.

void SimulatorPort::setDUR_LAND (int value1, int value2)

{

left_dur_l= (value1 < 0 ? 0:value1);

right_dur_l = (value2 < 0 ? 0:value2);

}

//Интервал продолжительности события взлет.

void SimulatorPort::setDUR_START(int value1, int value2)

{

left_dur_s= (value1 < 0 ? 0:value1);

right_dur_s = (value2 < 0 ? 0:value2);

}

void SimulatorPort::Print(System::Windows::Forms::RichTextBox^ screen)

{

screen->Text += "******************************РЕЗУЛЬТАТЫ МОДЕЛИРОВАНИЯ*******************************" + "\n\n";

screen->Text += "Время работы:" + time_sim + " мин." + "\n";

screen->Text += "Время последнего события:" + now_time + " мин." + "\n\n";

screen->Text += "Всего приземлилось:" + stat.land_bort + " самолетов." + "\n";

screen->Text += "Приземлилось без задержек:" + stat.clear_land + " самолетов." + "\n\n";

screen->Text += "Взлетело:" + stat.start_bort + " самолетов."+ "\n";

screen->Text += "Взлетело без задержек:" + stat.clear_start + " самолетов."+ "\n\n";

screen->Text += "Всего было сделано дополнительных кругов: " + stat.full_retry_circ + "\n";

screen->Text += "Общее время ожид. при посадке: \t" + stat.land_wait_borts + " мин." + "\n";

screen->Text += "На запасной аэродром улетело:" + stat.to_reserv_port + " самолетов." + "\n";

screen->Text += "Общее время задержания взлетов:" + stat.strt_wait_borts + " мин." + "\n";

screen->Text += "Нагрузка полосы:" + System::Convert::ToString((float)(stat.worktime_road*100)/time_sim) + "%" +".\n\n";

screen->Text += "Журнал событий:" + and_CharToSysString(way_txt) + "\n";

screen->Text += "**********************************************************************************************************" + "\n\n";

}

//////////////////////////////////////////////////////////////////////

char *and_SysStringToChar(System::String^ string)

{

return (char*)(void*)Marshal::StringToHGlobalAnsi(string);

}

System::String^ and_CharToSysString(char* ch)

{

char *chr = new char[] = ch;

System::String^ str;

for(int i = 0; chr[i] != '\0'; i++)

str += wchar_t(ch[i]);

return str;

}

Размещено на Allbest.ru

...