Экспертная система расчета выбросов загрязняющих веществ при пересыпке пылящих материалов (растворный узел)
Курсовая работа, 12 Декабря 2011, автор: пользователь скрыл имя
Описание работы
Цель работы - разработать экспертную систему расчета выбросов загрязняющих веществ при пересыпке пылящих материалов (растворный узел).
Исходя из поставленной цели, формируются следующие задачи:
Исследование предметной области;
Выбор и изучение инструментального средства разработки ЭС;
Обоснование выбора методов представления и обработки знаний;
Разработка структур данных и знаний ЭС;
Разработка алгоритмов работы системы;
Кодирование, тестирование и отладка ЭС;
Оформление отчета по проведенной работе
Содержание
Введение 3
1.1 Анализ предметной области 5
1.2 Система пользовательского интерфейса 6
1.3 Структура базы знаний экспертной системы 9
1.4 Иерархическое дерево решений 11
1.5 Описание и реализация экспертной системы 12
Заключение 14
Список литературы 15
Приложение 1 16
Работа содержит 1 файл
курсовая-экспертная система.docx
— 141.51 Кб (Скачать)Edit7->SetFocus();
Edit7->Clear();
}
try
{
Fpl=StrToFloat(Edit8->Text);
}
catch(EConvertError&)
{
Memo1->Lines->Add("Поверхность пыления, м2");
Edit8->SetFocus();
Edit8->Clear();
}
try
{
Frab=StrToFloat(Edit9->Text);
}
catch(EConvertError&)
{
Memo1->Lines->Add("Площадь на которой систематически проводятся погрузочно-разгрузочные работы, м2");
Edit9->SetFocus();
Edit9->Clear();
}
try
{
Tc=StrToFloat(Edit11->Text);
}
catch(EConvertError&)
{
Memo1->Lines->Add("Число снежных дней в году");
Edit11->SetFocus();
Edit11->Clear();
}
try
{
koeff=StrToFloat(Edit10->Text)
}
catch(EConvertError&)
{
Memo1->Lines->Add("Коэффицент эффективности борьбы с пылением");
Edit10->SetFocus();
Edit10->Clear();
}
Memo2->Lines->Clear();
M=k1*k2*k3*k4*k5*k7*GH*B*(
P=k1*k2*k3*k4*k5*k7*GY*B;
Form1->Memo2->Lines->Add("
Form1->Memo2->Lines->Add("
k6=Fmax/Fpl;
M1=(k4*k5*k6*k7*q*Frab)+(k4*
P1=0.11*0.0864*k4*k5*k6*k7*q*
Form1->Memo2->Lines->Add("
Form1->Memo2->Lines->Add("
}
//----------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form3->Show();
}
//----------------------------