Update toy_document_fr.Rmd

parent b7b7820a
......@@ -9,6 +9,7 @@ output: html_document
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
## En demandant à la lib maths
Mon ordinateur m'indique que $\pi$ vaut *approximativement*
......@@ -22,7 +23,7 @@ Mais calculé avec la __méthode__ des [aiguilles de Buffon](https://fr.wikipedi
```{r}
set.seed(42)
N=100000
x =runif(N)
x = runif(N)
theta = pi/2*runif(N)
2/(mean(x+sin(theta)>1))
```
......@@ -32,7 +33,7 @@ Sinon, une méthode plus simple à comprendre et ne faisant pas intervenir d'app
```{r}
set.seed(42)
N = 1000
N=1000
df = data.frame(X = runif(N), Y = runif(N))
df$Accept = (df$X**2 + df$Y**2 <=1)
library(ggplot2)
......@@ -44,4 +45,5 @@ Il est alors aisé d'obtenir une approximation (pas terrible) de $\pi$ en compta
```{r}
4*mean(df$Accept)
```
\ No newline at end of file
```
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment