Функция Лапласа

@Inverton · Регистрация: 16.12.2022

Author24 — интернет-сервис помощи студентам

1) Подскажите, пожалуйста, как посчитать в R аргумент функции Лапласа?

2) Если это невозможно, то я придумал такой способ - я задал таблицу значений аргумента и функции Лапласа и хочу, чтобы при задании одной переменной, он выдавал значение другой.
Например

x F(x)
1 5
2 10

Допустим я ввожу F(x) = 10 и он выдает, что х=2

@Krasme · 16.12.2022, 02:28

вариант решения

Код

# поиск аргумента
f <- function(x) (pnorm(x)-pnorm(-x))
a = 0.77754
res <- uniroot(function(x) f(x)-a, c(0,10), tol = 1e-8)
print(res$root)

# проверка
A <- 1.22
print(pnorm(A)-pnorm(-A))

@Inverton 0 / 0 / 0 Регистрация: 16.12.2022 Сообщений: 1
		1
	Функция Лапласа 16.12.2022, 01:19. Показов 907. Ответов 1 Метки нет (Все метки) 1) Подскажите, пожалуйста, как посчитать в R аргумент функции Лапласа? 2) Если это невозможно, то я придумал такой способ - я задал таблицу значений аргумента и функции Лапласа и хочу, чтобы при задании одной переменной, он выдавал значение другой. Например x F(x) 1 5 2 10 Допустим я ввожу F(x) = 10 и он выдает, что х=2 0

@Krasme 6903 / 4948 / 2092 Регистрация: 02.02.2014 Сообщений: 13,152
	16.12.2022, 02:28	2
	Сообщение было отмечено Catstail как решение Решение вариант решения Код # поиск аргумента f <- function(x) (pnorm(x)-pnorm(-x)) a = 0.77754 res <- uniroot(function(x) f(x)-a, c(0,10), tol = 1e-8) print(res$root) # проверка A <- 1.22 print(pnorm(A)-pnorm(-A)) 1

Функция Лапласа

Решение