Контрольная работа по "Информатике"

 

СОДЕРЖАНИЕ: 

 
 

 

Задача №1

1.1 Техническое задание 

Тема: одноканальная Система Массового Обслуживания (СМО) с отказами 

Входные данные:

t₁=35 мин – среднее время, через которое поступает заявка на обслуживание;

t₂=25 мин – среднее время обслуживания заявки. 

Расчетные параметры:

L₁=1/t₁ – интенсивность потока заявок, 1/мин;

L₂=1/t₂ – интенсивность потока обслуживания, 1/мин;

Q=L₂ /( L₁+ L₂) – интенсивность потока заявок, 1/мин;

P=Q 100 – средний процент обслуженных заявок, %;

A = L₁ Q – производительность системы, т;

P₁=(1-Q) 100 - средний процент не обслуженных заявок, %;

A=A(L₂)=L₂/(1+L₂/L₁) – зависимость производительности системы от системы от интенсивности обслуживания при L₁ = const;

График функции  A=A(L₂), который строят, изменяя время поступления заявок в диапазоне     с шагом h=5 мин.

 

  

1.2 Выполнение  задание в Excel

      

Формулы для  расчета в Excel:

 

Выполнение  макроса при нажатии кнопки Пуск программы

    Кнопка  Пуск программы для расчета, оформления границ и построения диаграммы.

 

    1.3 График функции в Excel

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

3. Макрос  к задачи №1

Макрос к  кнопке Пуск программы: 

Private Sub CommandButton1_Click()

Dim t1, t2, L1, L2, Q, P, A, P1, H As Double

Dim i As Integer

Sheets("VBA_1").Activate

Cells.Clear

If ActiveSheet.ChartObjects.Count > 0 Then ActiveSheet.ChartObjects.Delete

 t1 = 35

t2 = 25

title = "Одноканальная  СМО с отказами "

Range("B1") = title

Range("A2") = "Дано:"

Range("B2") = "t1="

Range("B3") = "t2="

Range("A4") = "Найти:"

Range("B4") = "L1="

Range("B5") = "L2="

Range("B6") = "Q="

Range("B7") = "P="

Range("B8") = "A="

Range("B9") = "P1="

Range("A11") = "Зависимость:"

Range("B11") = "t2="

Range("C11") = "L2="

Range("D11") = "A(L2)"

Range("C2") = t1

Range("C3") = t2

Range("C4") = 1 / t1

Range("C5") = 1 / t2

Range("C6") = Range("C5") / (Range("C4") + Range("C5"))

 Range("C7") = Range("C6") * 100

Range("C8") = Range("C2") * Range("C6")

Range("C9") = (1 - Range("C6")) * 100

i = 12

L1 = 1 / t1

H = 5

For x = 10 To 30 Step H

Cells(i, 2) = x

L2 = 1 / x

Cells(i, 3) = L2

Cells(i, 4) = L2 / (1 + L2 / L1)

i = i + 1 
 
 

Next x

  Range("A2:C9,B11:D" & CStr(i - 1)).Select

With Selection

.Borders(xlLeft).Weight = xlMedium

.Borders(xlRight).Weight = xlMedium

.Borders(xlTop).Weight = xlMedium

.Borders(xlBottom).Weight = xlMedium

.Borders(xlInsideVertical).Weight = xlMedium

.Borders(xlInsideHorizontal).Weight = xlThin

End With

  ActiveSheet.ChartObjects.Add(40, 240, 320, 260).Select

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

ActiveChart.SetSourceData Source:=Sheets("VBA_1").Range("C12:D" & CStr(i - 1)), PlotBy:=xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:="VBA_1"

 With ActiveChart

.HasTitle = False

.Axes(xlCategory, xlPrimary).HasTitle = True

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Интенсивность потока L2"

 .Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "производительность системы"

End With

ActiveChart.HasLegend = False

ActiveWindow.Visible = False

Range("A1").Select

End Sub 

 

     1 Задача №2

    1.1 Техническое задание: 

Тема: решение задачи линейного программирования планирования суточного задания добычи угля по участкам шахты.

Входные данные:

• зольность добываемого угля – a[I] по I=1, … ,4 участкам шахты – a[1}=18%; a[2}=20%; a[3}=16%; a[4}=14%;
• плановое среднее значение зольности угля – р, требуемое обогатительной фабрикой к качеству перерабатываемого сырья – р=16%;
• максимально возможная нагрузка – max d[1] на I=1, …, 4 участках шахты – max d[1]=800т; d[2]=780т; d[3]=800т; d[4]=750т;
• пропускная способность конвейеров – d1 на участках 1 и 2, d2 – на участках 3 и 4 шахты – d1=1500 т; d2=1400 т.

Расчетные параметры:

Оптимальное суточное задание добычи угля d[I] по I= 1, … ,4 участкам шахты, решая задачу линейного программирования (или нахождения максимального значения целевой функции)

F(d1[1], d[2], d[3], d[4]) = d[1] + d[2] +d[3] + d[4]= max F

1. ограничение по зольности добываемого угля в шахте

a[1]*d[1]+ a[2]*d[2]+ a[3]*d[3]+ a[4]*d[4]=p*( d[1]+ d[2]+ d[4]+ d[4]);

б)  ограничения по пропускной способности конвейеров на участках шахты

d[1]+ d[2]<= d1;

d[3]+ d[4]<= d2;

в) ограничения по добычи угля для I=1, … , 4 участков шахты

d[1]<=max d[1];

d[2]<=max d[2];

d[3]<=max d[3];

d[4]<=max d[4];

г) ограничения по физической сущности

d[1]>=0;

d[2]>=0;

d[3]>=0;

d[4]>=0; 

 

     2.1 Выполнение задание в Excel: 

Формулы для построения задания: 

 
 
 
 
 
 
 
 
 
 
 
 
 

Литература: 

1. Информатика. Базовый курс: Учеб. для Вузов / под  ред. С.В. Симоновича. – СПб.: Питер, 2001.- 640с.;
2. Симонович С.В. Windows 98: учебный курс. - СПб.: Питер, 1999.- 512с.;
3. Долженков В.А. Microsoft Excel 2000 /В.А. Долженков, Ю.В. Колесников - СПб.: Питер, 1999.- 1088с.;
4. Настоящий самоучитель Windows 98/2000; Практ. Пособие / Под ред. В.Г. Комягина. – М.: Из-во Триумф, 2000.- 320 с.
5. Резниченко С.С. Математическое моделирование в горной промышленности – М.: Недра, 1981. – 580 с.