用R语言exp(sinx)的试投密度函数和试投密度采样
时间: 2024-06-04 18:12:16 浏览: 11
试投密度函数:
```R
# 定义试投密度函数
exp_sinx_pdf <- function(x){
return(exp(sin(x)))
}
# 绘制试投密度函数图像
curve(exp_sinx_pdf, xlim = c(-pi, pi), ylab = "Density", main = "PDF of exp(sinx) distribution")
```
![PDF of exp(sinx) distribution](https://i.imgur.com/vvF2Q9X.png)
试投密度采样:
```R
# 定义采样函数
exp_sinx_sampler <- function(n){
# 生成均匀分布采样点
u <- runif(n, 0, 1)
# 转换为exp(sinx)分布采样点
x <- asin(-log(u))
return(x)
}
# 采样10000个点
set.seed(123)
samples <- exp_sinx_sampler(10000)
# 绘制采样点的直方图
hist(samples, freq = FALSE, breaks = seq(-pi, pi, length.out = 50),
main = "Histogram of exp(sinx) samples", xlab = "Sampled value")
# 绘制试投密度函数图像
curve(exp_sinx_pdf, add = TRUE, col = "red")
```
![Histogram of exp(sinx) samples](https://i.imgur.com/ZGpUv7V.png)
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)