3. 5. Статистика землетрясений

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

Цели :

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

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

Задания:

1. По заданной частоте землетрясений λ определить сейсмический риск, повторяемость землетрясения и равновероятные промежутки времени.

статистика землетрясений

Примечание:

1. Частота землетрясений

λ = число землетрясений/время наблюдения

2. Сейсмический риск

R=1-exp(-λt)

3. Повторяемость землетрясения

E=1/λ

4. Равновероятные периоды времени

(0,Me), (Me,∞)

Me=ln2/λ

Ввод:

1. число землетрясений

2. время наблюдения

3. прогнозируемый период времени t

Вывод:

1. R(t)

2. E

3. Me

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

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

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

Private Sub Command1_Click()

Dim Y As Single

Y = Val(Text3.Text) / Val(Text2.Text)

Text4.Text = Round(1 - Exp(-Y * Val(Text1.Text)), 2)

Text5.Text = Round(1 / Y, 1)

List1.Clear

List1.AddItem " < " & Round(Log(2) / Y, 1)

List1.AddItem " > " & Round(Log(2) / Y, 1)

End Sub

Private Sub Command2_Click()

End

End Sub

Вопросы:

1. В какой строке заполняются формулы

2. Что пишется вводе, а что в выводе

3. 6. Прогноз наводнения по погодным условиям

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

Цели :

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

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

Задания:

1.Написать процедуру для прогноза возможности наводнения по простым признакам

2. Написать процедуру для прогноза возможности наводнения по составным признакам

3. Написать процедуру для прогноза возможности наводнения по следующим признакам (известно, что температура выше нуля):

Таблица 3.17

прогноз наводнения

А признак	ливневый дождь
В признак	обильное таяние снега
С признак	заторы при ледоходе

Таблица 3.18

Сценарии развития ситуации на реке

Номер сценария	Количество признаков	Описание
0	0	благоприятная обстановка
1	1	малое наводнение
2	2	высокое наводнение
3	3	большое наводнение

Алгоритм прогноза:

Рис.3.27 «Алгоритм прогноза»

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

Function Rain() As Integer

Dim p As Byte

p = MsgBox("ливневый дождь", vbYesNo, "Опрос")

If p = vbYes Then Rain = 1

End Function

Function Snow() As Integer

Dim p As Byte

p = MsgBox("обильное таяние снега", vbYesNo, "Опрос")

If p = vbYes Then Snow = 1

End Function

Function Ice() As Integer

Dim p As Byte

p = MsgBox("заторы при ледоходе", vbYesNo, "Опрос")

If p = vbYes Then Ice = 1

End Function

Private Sub Command1_Click()

Dim j As Integer

j = Rain() + Snow() + Ice()

Select Case j

Case 0: Label1.Caption = "благоприятная обстановка"

Case 1: Label1.Caption = "малое наводнение"

Case 2: Label1.Caption = "высокое наводнение"

Case 3: Label1.Caption = "большое наводнение"

End Select

End Sub

Таблица 3.19

прогноз наводнения

признак A	оттепель & ливневый дождь
признак B	оттепель & снежная зима
признак C	внезапная оттепель & холодная зима

Комментарии:

1. Сочетание условий оттепель & ливневый дождь является причиной возникновения паводка.

2. Сочетание условий оттепель & снежная зима является причиной возникновения половодья.

3. Сочетание условий внезапная оттепель & холодная зима является причиной возникновения ледяных заторов.

4. Если оттепель = False, то внезапная оттепель = False.

Алгоритм прогноза:

ЕСЛИ оттепель = да ТО

ливневый дождь: да/ нет

снежная зима: да/ нет

ЕСЛИ внезапная оттепель = да ТО

холодная зима: да/ нет

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

Function Thaw() As Boolean

Dim p As Byte

p = MsgBox("оттепель", vbYesNo, "Опрос")

If p = vbYes Then Thaw = True

End Function

Function SuddenThaw() As Boolean

Dim p As Byte

p = MsgBox("внезапная оттепель", vbYesNo, "Опрос")

If p = vbYes Then SuddenThaw = True

End Function

Function Rain() As Integer

Dim p As Byte

p = MsgBox("ливневый дождь", vbYesNo, "Опрос")

If p = vbYes Then Rain = 1

End Function

Function SnowWinter() As Integer

Dim p As Byte

p = MsgBox("снежная зима", vbYesNo, "Опрос")

If p = vbYes Then SnowWinter = 1

End Function

Function ColdWinter() As Integer

Dim p As Byte

p = MsgBox("холодная зима", vbYesNo, "Опрос")

If p = vbYes Then ColdWinter = 1

End Function

Private Sub Command1_Click()

Dim j As Integer

If Thaw() Then

j = Rain() + SnowWinter()

If SuddenThaw() Then

j = j + ColdWinter()

End If

End If

Select Case j

Case 0: Label1.Caption = "благоприятная обстановка"

Case 1: Label1.Caption = "малое наводнение"

Case 2: Label1.Caption = "высокое наводнение"

Case 3: Label1.Caption = "большое наводнение"

End Select

End Sub

Таблица 3.20

детальный прогноз наводнения

признак A	высокий уровень воды в реке
признак B	ливневый дождь
признак C	среднесуточная температура >3°С & много снега

Таблица 3.21