J'ai appris à écrire pi

parent 9f821b15
...@@ -10,7 +10,7 @@ knitr::opts_chunk$set(echo = TRUE) ...@@ -10,7 +10,7 @@ knitr::opts_chunk$set(echo = TRUE)
``` ```
# En demandant à la lib maths # En demandant à la lib maths
Mon ordinateur m'indique que *π* vaut *approximativement* Mon ordinateur m'indique que *$\pi$* vaut *approximativement*
```{r} ```{r}
pi pi
``` ```
...@@ -35,7 +35,7 @@ df$Accept = (df$X**2 + df$Y**2 <=1) ...@@ -35,7 +35,7 @@ df$Accept = (df$X**2 + df$Y**2 <=1)
library(ggplot2) library(ggplot2)
ggplot(df, aes(x=X,y=Y,color=Accept)) + geom_point(alpha=.2) + coord_fixed() + theme_bw() ggplot(df, aes(x=X,y=Y,color=Accept)) + geom_point(alpha=.2) + coord_fixed() + theme_bw()
``` ```
Il est alors aisé d'obtenir une approximation (pas terrible) de *π* en comptant combien de fois, en moyenne *X*2+*Y*2 est inférieur à 1 : Il est alors aisé d'obtenir une approximation (pas terrible) de *$\pi$* en comptant combien de fois, en moyenne *X*2+*Y*2 est inférieur à 1 :
```{R} ```{R}
4*mean(df$Accept) 4*mean(df$Accept)
``` ```
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