Commit aaaedab0 authored by Moi's avatar Moi

essai nouveau

parent d5856e0b
.Rproj.user
.Rhistory
.RData
.Ruserdata
...@@ -5,6 +5,25 @@ date: "30 aout 2022" ...@@ -5,6 +5,25 @@ date: "30 aout 2022"
output: html_document output: html_document
--- ---
# En demandant à la lib maths
Mon ordinateur m’indique que π vaut approximativement
```{r}
pi
```
#En utilisant la méthode des aiguilles de Buffon
Mais calculé avec [la méthode des aiguilles de Buffon] (https://fr.wikipedia.org/wiki/Aiguille_de_Buffon) , on obtiendrait comme approximation :
```{r}
set.seed(42)
N = 100000
x = runif(N)
theta = pi/2*runif(N)
2/(mean(x+sin(theta)>1))
```
```{r setup, include=FALSE} ```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE) knitr::opts_chunk$set(echo = TRUE)
......
Version: 1.0
RestoreWorkspace: Default
SaveWorkspace: Default
AlwaysSaveHistory: Default
EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 2
Encoding: UTF-8
RnwWeave: Sweave
LaTeX: pdfLaTeX
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