testmath_fr.Rmd

module2/exo1/toy_document_fr.Rmd

@@ -6,10 +6,29 @@ 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*  
+
+```{r pi}
+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 aiguilles}
+set.seed(42)
+N = 100000
+x = runif(N)
+theta = pi/2*runif(N)
+2/(mean(x+sin(theta)>1))
 ```
 
+# Avec un argument "fréquentiel" de surface
+Sinon, avec une méthode plus sumple à comprendre et ne faisant pas intervenir d'appel à la fonction sinus se base sur le fait que si $XapproxU(0,1)$ alors
+
+
+
 ## Quelques explications  
 
 On fait des tests !!!!!!!!!!!!!!!!!!!!!!!