Жйелерді модельдеу
.pdfФ-ОБ-001/033
float n=p/(1-p);
float d=p/((1-p)*(1-p)); float w=(p/a)/(1-p); float t=x+w;
float N=b*t;
Label4->Caption="x = "+FloatToStr(x);
Label5->Caption="p = "+FloatToStr(p);
Label6->Caption="n = "+FloatToStr(n);
Label7->Caption="D = "+FloatToStr(d);
Label8->Caption="W = "+FloatToStr(w);
Label9->Caption="T = "+FloatToStr(t); Label11->Caption="N = "+FloatToStr(N); PageControl1->Visible=true;
int k; float pk; Series1->Clear(); for(k=0;k<=100;k++)
{
pk=(1-p)*pow(p,k); Series1->AddXY(k,pk,"",clRed);
}
Chart1->Visible=true;
}
//---------------------------------------------------------------------------
object Form1: TForm1 Left = 192
Top = 124
Width = 928
Height = 415 Caption = 'Form1' Color = clBtnFace
Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -19
Font.Name = 'Times New Roman' Font.Style = []
OldCreateOrder = False PixelsPerInch = 96 TextHeight = 21 object Label1: TLabel
53
Ф-ОБ-001/033
Left = 16
Top = 56
Width = 54
Height = 21
Caption = #1052'('#1084#1102')' end
object Label2: TLabel Left = 16
Top = 96
Width = 83
Height = 21
Caption = #1051'('#1083#1103#1084#1073#1076#1072')' end
object Label3: TLabel Left = 120
Top = 16 Width = 129 Height = 21
Caption = #1042#1074#1077#1076#1080#1090#1077' '#1076#1072#1085#1085#1099#1077
end
object Edit1: TEdit Left = 128
Top = 56 Width = 121 Height = 29 TabOrder = 0 end
object Edit2: TEdit Left = 128
Top = 96 Width = 121 Height = 29 TabOrder = 1 end
object Button1: TButton Left = 128
Top = 136
Width = 121
Height = 33
Caption = #1042#1099#1095#1080#1089#1083#1080#1090#1100 TabOrder = 2
OnClick = Button1Click end
54
Ф-ОБ-001/033
object PageControl1: TPageControl Left = 8
Top = 184
Width = 273
Height = 185 ActivePage = TabSheet2
Font.Charset = RUSSIAN_CHARSET Font.Color = clWindowText Font.Height = -13
Font.Name = 'Times New Roman' Font.Style = []
MultiLine = True
ParentFont = False TabIndex = 1 TabOrder = 3 Visible = False
object TabSheet1: TTabSheet
Caption = #1057#1088#1077#1076#1085#1077#1077' '#1074#1088#1077#1084#1103' '#1086#1073#1089#1083#1091#1078#1080#1074#1072#1085#1080#1103
object Label4: TLabel Left = 24
Top = 24
Width = 35
Height = 15 Caption = 'Label4' end
object Label5: TLabel Left = 24
Top = 56
Width = 35
Height = 15 Caption = 'Label5' end
end
object TabSheet2: TTabSheet
Caption = #1057#1088#1077#1076#1085#1077#1077' '#1095#1080#1089#1083#1086' '#1090#1088#1077#1073#1086#1074#1072#1085#1080#1081' '#1074' '#1089#1080#1089#1090#1077#1084#1077
ImageIndex = 1 object Label6: TLabel Left = 24
Top = 24
55
Ф-ОБ-001/033
Width = 35
Height = 15 Caption = 'Label6' end
object Label7: TLabel Left = 24
Top = 56
Width = 35
Height = 15 Caption = 'Label7' end
end
object TabSheet3: TTabSheet
Caption = #1057#1088#1077#1076#1085#1077#1077' '#1079#1072#1076#1077#1088#1078#1082#1080
ImageIndex = 2 object Label8: TLabel Left = 24
Top = 40
Width = 35
Height = 15 Caption = 'Label8' end
end
object TabSheet4: TTabSheet
Caption = #1057#1088#1077#1076#1085#1077#1077' '#1074#1088#1077#1084#1103' '#1087#1088#1077#1073#1099#1074#1072#1085#1080#1103' '#1090#1088#1077#1073#1086#1074#1072#1085#1080#1103
ImageIndex = 3 object Label9: TLabel Left = 24
Top = 24
Width = 35
Height = 15 Caption = 'Label9' end
object Label11: TLabel Left = 24
Top = 56
Width = 41
Height = 15 Caption = 'Label11' end
56
Ф-ОБ-001/033
end end
object Chart1: TChart Left = 304
Top = 48 Width = 593 Height = 313
BackWall.Brush.Color = clWhite BackWall.Brush.Style = bsClear Title.Text.Strings = (
'TChart') TabOrder = 4 Visible = False
object Series1: TLineSeries Marks.ArrowLength = 8 Marks.Visible = False SeriesColor = clRed Pointer.InflateMargins = True Pointer.Style = psRectangle Pointer.Visible = False XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1 YValues.Order = loNone
end end end
57
Ф-ОБ-001/033
//---------------------------------------------------------------------------
#ifndef Unit1H #define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> #include <ComCtrls.hpp> #include <Chart.hpp> #include <ExtCtrls.hpp> #include <Series.hpp> #include <TeEngine.hpp> #include <TeeProcs.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{ |
|
__published: |
// IDE-managed Components |
TLabel *Label1; |
|
TEdit *Edit1; |
|
TLabel *Label2; |
|
TEdit *Edit2; |
|
TLabel *Label3;
TButton *Button1; TPageControl *PageControl1; TTabSheet *TabSheet1; TTabSheet *TabSheet2; TTabSheet *TabSheet3; TTabSheet *TabSheet4; TLabel *Label4;
TLabel *Label5;
TLabel *Label6;
TLabel *Label7;
TLabel *Label8;
TLabel *Label9;
TLabel *Label11;
TChart *Chart1; TLineSeries *Series1;
void __fastcall Button1Click(TObject *Sender);
private: |
// User declarations |
public: |
// User declarations |
__fastcall TForm1(TComponent* Owner);
};
58
Ф-ОБ-001/033
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1; //---------------------------------------------------------------------------
#endif
59
Ф-ОБ-001/033
Қорытынды
Қазіргі озық технологиялардың дамыған заманында модельдеу, математикалық модельдеу, имитациялық модельдеу түсінігі көп қолданылуда. Мамандар есептеу техникасының, яғни дербес компьютердің ақпараттарды сақтауға, өңдеуге мүмкіншілігі мол екендігіне көздерін жеткізен. Қазіргі кездің өзінде ақ модельдеу процессінде жұмыс жасайтын мамандар көп емес.
Сол себепті математикалық модельдеу есептері өте күрделі болып есептеледі, бірақ оны компьютермен имитациялық модельдеу өте қиыншылықтар туғызады, себебі бұл жұмысты бағдарламада жазу өте ыңғайсыз, бұны атқаратын қолданбалы бағдарламалар тілдері бар. Мысалы
GPCC тілі.
Бір каналдық көпшілікке қызмет көрсету жүйесінің характеристикаларын есептеу өте күрделі. Сол себептен мен оны төмендегі параметрлерге алгоритм құрып, С++ тілінде программа жаздым:
1.Талаптың күтуінің орташа уақыты;
2.Талаптың жүйедегі орташа уақыты;
3.Жүйенің жүктелуі; 4.Талаптың орташа уақыты , орташа талаптардың кезектегі орташа саны; 5.Талаптың дисперсиясы;
Есептеудің нақты формулалары табылып, алгоритмі қарастырылып, бағдарлама құрылды.
60
Ф-ОБ-001/033
Пайдаланылған әдебиеттер
1.Нейлор Т. Машинные имитационные эксперименты с моделями экономических систем, М., Мир, 1975.
2.Соболь И.М. Численные методы Монте-Карло, М., Наука. 1973.
3.Форсайт Дж., Малькольм М., Моулер К. Машинные методы математических вычислений. М., Мир, 1980.
4.Шеннон Р. Имитационное моделирование систем - искусство и наука. М., Мир, 1978.
5.Кнут Д.Е. Искусство программирования. Получисленные алгоритмы, М., Мир. 1977. т.2.
6.Основы кибернетики. Теория кибернетических систем. Под ред. К.А. Пупкова, М. Высшая школа, 1976.
7.Аверилл М. Лоу, В. Дэвид Кельтон. Имитационное моделирование,
М. ПИТЕР, 2004.
8.Полляк С.Г. Вероятностное моделирование на ЭВМ. М.Сов.Радио,1971.
9.Абдуллина В.З., Муртазина А.У., Шукаев Д.H. Моделирование и исследование базовой последовательности, Алма-Ата, КАЗПТИ, 1987.
10.Акулинин В.И. и др. Методы проверок базовой последовательности псевдослучайных чисел. Рязань, 1976.
11.Муртазина А.У. Компьютермен модельдеу. Под редакцией Шукаева Д.Н., Алматы. КАЗНТУ. 2003.
12.Вентцель E.С. Теория вероятностей. М. .Физматгиз. 1962.
13.Кудрявцев Е.М. Основы имитационного моделирования различных систем. М., ДМК Пресс, 2004.
14.Ермаков О.М, Михайлов Г.А. Курс статистического моделирования.
М., Наука, 1976.
15.Четвериков В.Н., Баканович Э.А., Меньков А.В. Вычислительная техника для статистического модалированая. М. Сов. Радио, 1978.
16.Иванова В.М. Случайные числа и их применение. М., Финансы и статистика. 1984.
17.Пугачев В.С. Теория случайных функций и ее применение к задачам автоматического управления. М. .Физматгиз, 1960.
18.Потапов В.Д., Яризов А.Д. Имитационное моделирование произведственных процессов в горной промышленности. М. Высшая школа, 1981.
19.Овчаров Л.А.Прикладные задачи теория массового обслуживания. М.,Машиностроение, 1969.
20.Вероятностные метода в вычислительной технике. Под ред. А.Н. Лебедева и Е.А.Чернявского. М. Высшая школа, 1986.
21.Бусленко Н.П. Моделирование сложных систем. М., Наука, 1978.
22.Советов Б.Я., Яковлев С.А. Моделирование систем. М., Высшая школа, 1999.
61
Ф-ОБ-001/033
23.Шукаев Д.Н. Имитационное моделирование на ЭВМ. Алматы, КАЗНТУ, 1995.
24.Кюн Ю. Описательная и индуктивная статистика. М., Финансы и статистика, 1981.
25.Петрович М.Л., Давидович М.И. Статистическое оценивание и проверка гипотез на ЭВМ. М., Финансы и статистика,1989.
26. Афифи А.,Эйзен С. Статистический анализ: Подход |
с |
использованием ЭВМ. М., Мир, 1982. |
|
27.Вентцель Е.С.,Овчаров Л.А. Теория вероятностей в ее инженерные приложения. М., Наука,1988.
28.Крамер Г. Математические методы статистики. М.,ИЛ, 1948.
29.Крэйн М. Лемуан О. Введение в регенеративный метод анализа моделей. М., Наука, 1992.
30.Лифщиц А.Л., Мальц Э.А. Статистическое моделирование систем массового обслуживания. Сов. Радио,1978.
31.Бусленко Н.П., Калашников В.В., Коваленко М.К. Лекции по теории сложных систем. М., Сов. Радио,1973.
62