Как расчитать функцию Лапласса для параметра Z - VB
Формулировка задачи:
Собственно само задание:
Эксперты оценили поздние сроки окончания работ, как 25% опоздания по каждой из них, а ранние – как 20% опережения, с учетом нормального закона распределения оценок работ. Рассчитать вероятность окончания
всего проекта в срок– 30 дней.
Вот сетевая модель. Вложение 336594
Но вопрос не в этом. Это так, в качестве дополнения. Вопрос в том, как расчитать функцию Лапласса для параметра Z.
Вот код:
Формула расчета функции Лапласса:Вложение 336601
дело в том, что интеграл я расчиывал по методу трапеций. Вот по этой формуле: Вложение 336598
Но в этой формуле нужно расчитать вот это число:Вложение 336599
а я не знаю что это за f с двумя штрихами, и расчитал без него. И расчет оказался не правильным((
Посмотрите пожалуйста код, подскажите, может ошибка не в этом??
не пойму, куда делись вложенные картинки, модератор?
Короче вот заново.
Сетевая модель:
Формула расчета функции Лапласса:
дело в том, что интеграл я расчиывал по методу трапеций. Вот по этой формуле:
Но в этой формуле нужно расчитать вот это число:
Решение задачи: «Как расчитать функцию Лапласса для параметра Z»
textual
Листинг программы
Public Function Метод_Трапеций(a As Double, b As Double) As Double Dim h As Double Dim n As Double Dim e As Double Dim sum As Double, F0 As Double, Fn As Double, Fx As Double e = 2.71828182845905 n = 1000 h = Round(((a - b) / n), 8) sum = 0 For i = 1 To n - 1 Fx = b + i * h sum = sum + e ^ (-Fx * Fx / 2) Next i F0 = e ^ (-0.5 * 0 ^ 2) Fn = e ^ (-0.5 * n ^ 2) Метод_Трапеций = Round(((h * ((F0 + Fn) / 2 + sum))), 8) End Function Public Function Лапласс(a As Double) As Double Dim pi As Double pi = 3.1415926535 Лапласс = Round((Метод_Трапеций(a, 0) / Sqr(2 * pi)), 8) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д