From 710cf3be1f4f93c5a398cb02fc1ba2ba0b5dda5f Mon Sep 17 00:00:00 2001 From: 51e04949f6266538417e7f033ab546fb <51e04949f6266538417e7f033ab546fb@app-learninglab.inria.fr> Date: Fri, 24 Feb 2023 12:05:55 +0000 Subject: [PATCH] testmath_fr.Rmd --- module2/exo1/toy_document_fr.Rmd | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/module2/exo1/toy_document_fr.Rmd b/module2/exo1/toy_document_fr.Rmd index c09a30a..17f2ebf 100644 --- a/module2/exo1/toy_document_fr.Rmd +++ b/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 !!!!!!!!!!!!!!!!!!!!!!! -- 2.18.1