Главная Обратная связь

Дисциплины:






Прогнозирование степени повреждения зданий



(Практическая работа №4)

Цели :

1. Закрепить теоретический материал

2. Приобрести практические навыки

Задания:

1. Определить степень повреждения кирпичных домов по значению балльности землетрясения.

2. Определить степень повреждения разных типов зданий по значению балльности землетрясения

3. Отразить в последней программе материальный ущерб разных типов зданий.

Таблица3.14

Степень повреждения кирпичных домов

J – 5.5 Степень повреждения
0–0.5 90% 10%        
0.5–1.5 40% 50% 10%      
1.5–2.5 10% 30% 50% 10%    
2.5–3.5 10% 30% 50% 10%  
3.5–4.5 10% 30% 50% 10%
4.5–5.5 10% 30% 60%
>5.5 10% 90%

 

1. С помощью управляющих элементов создать интерфейс пользователя.

 

Рис.3.22 «Интерфейс»

2. В режиме выполнения приложение должно выглядеть следующим образом:

 

Рис.3.23 «Интерфейс»

3. Код программы:

Private Sub Command1_Click()

Select Case Val(Text0.Text) - 5.5

Case Is < 0

MsgBox "Разрушений нет", vbOKOnly, "Сообщение"

Case 0 To 0.5

Text1.Text = "10%"

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Case 0.5 To 1.5

Text1.Text = "50%"

Text2.Text = "10%"

Case 1.5 To 2.5

Text1.Text = "30%"

Text2.Text = "50%"

Text3.Text = "10%"

Case 2.5 To 3.5

Text1.Text = "10%"

Text2.Text = "30%"

Text3.Text = "50%"

Text4.Text = "10%"

Case 3.5 To 4.5

Text2.Text = "10%"

Text3.Text = "30%"

Text4.Text = "50%"

Text5.Text = "10%"

Case 4.5 To 5.5

Text2.Text = "10%"

Text4.Text = "30%"

Text5.Text = "60%"

Case Else

Text4.Text = "10%"

Text5.Text = "90%"

End Select

End Sub

 

Степень повреждения зданий

.

1. С помощью управляющих элементов создать интерфейс пользователя.

Рис.3.24 «Интерфейс»

2. В режиме выполнения приложение должно выглядеть следующим образом:

Рис.3.25 «Интерфейс»

3. Код программы:

 

Private Sub Command1_Click()

Select Case Combo1.ListIndex

Case 0

J = 4

Case 1

J = 4.5

Case 2

J = 5

Case 3

J = 5.5

Case 4

J = 6

Case 5, 6

J = 6.5



End Select

 

Select Case Val(Text1.Text) - J

Case Is < 0

MsgBox "Разрушений нет", vbOKOnly, "Сообщение"

Case 0 To 0.5

Text2.Text = "10%"

Case 0.5 To 1.5

Text2.Text = "50%"

Text3.Text = "10%"

Case 1.5 To 2.5

Text2.Text = "30%"

Text3.Text = "50%"

Text4.Text = "10%"

Case 2.5 To 3.5

Text2.Text = "10%"

Text3.Text = "30%"

Text4.Text = "50%"

Text5.Text = "10%"

Case 3.5 To 4.5

Text3.Text = "10%"

Text4.Text = "30%"

Text5.Text = "50%"

Text6.Text = "10%"

Case 4.5 To 5.5

Text4.Text = "10%"

Text5.Text = "30%"

Text6.Text = "60%"

Case Else

Text5.Text = "10%"

Text6.Text = "90%"

End Select

End Sub

Таблица 3.15

Величина материального ущерба зависит от степени повреждения здания

  Степень повреждения зданий
УЩЕРБ, % 5% 15% 30% 50% 100%

 

Величина среднего ущерба определяется по формуле:

Damage=0.05*Pповр(1)+0.15*Pповр(2)+0.3*Pповр(3)+0.5*Pповр(4)+Pповр(5)

Материальный ущерб

Таблица 3.16

Степень повреждения здания

ПОТЕРИ Степень повреждения зданий
Общие 0.0 0.0 0.05 0.5 0.95
безвозвратные 0.0 0.0 0.01 0.17 0.65

 

Поскольку степень повреждения здания является случайной величиной, вероятность безусловных потерь населения определяется по формулам:

Общие потери

Pобщ=0.05*Pповр(3)+0.5*Pповр(4)+0.95*Pповр(5)

 

Безвозвратные потери (доля жертв)

Pбезв=0.01*Pповр(3)+0.17*Pповр(4)+0.65*Pповр(5)

 

Санитарные потери (доля раненых)

Pсан=Pобщ-Pбезв

 





sdamzavas.net - 2019 год. Все права принадлежат их авторам! В случае нарушение авторского права, обращайтесь по форме обратной связи...