From aa2c5bf9f51214bb7586cc0edb119c7977a09295 Mon Sep 17 00:00:00 2001 From: Adam Taheraly Date: Mon, 30 Mar 2020 22:13:11 +0200 Subject: [PATCH] Mon commit pour org --- module2/exo1/cars.png | Bin 6690 -> 6571 bytes module2/exo1/toy_document_orgmode_R_fr.org | 76 ++++++++++++++++++++- 2 files changed, 74 insertions(+), 2 deletions(-) diff --git a/module2/exo1/cars.png b/module2/exo1/cars.png index c6d11231a623dd84dd346684b7ad070020623436..e767d182c4215ec7a0220fa7c9bc46ed07d8ed53 100644 GIT binary patch delta 5454 zcmZWtXIPWX(xwE1bm@XL3&I;Z0@9_5NRK3;hmM9Oy~(2iETKyi=_pMC1YUX%N=KT~ zdl7^Hp(9OB^gHL*_hYYXpPhSWX6KpRDYdL?HK7j(jp@xBPS=PprD|nqy&LL zR8&-8FgRY3myVT{m5q&!ot>S7gCia#TAmg`0bIS>w?sz9?)yMf?NLDb=FH;|R;?_s z=k$mv`?Jg>tFcbsXWtJjd1I{vj7AV6KvN$0LWt@zFCH|ABs5b%iP=y>kWhBalr4^TP8(!}JxHowc8!Q4| zrBM>#!hU(Gw>sOByJw8{Z4JBwTAeDnQJ3mhbfqI9&gdHGC&3OY&EMk%J?*niq zX`S?(gIilA|E0EL#`@khpKw^opntdsf+7PuxWrJXDz_YO|t5v-a>G2 zt4jSR`0$?GQ#X`4E^)Mn&+u3j(ODL~RujFtPBwmj;CfyFfwt7GJ*;YfmM1EsmdNgQ zj$5r$AUoWdfIS?+3gMzq7A#vd|L!F&p51jLDGAKd(nOxdctE9JayM$=uF>Num>2Qy z&F=sAfG2a3T^fJqmkZiPQH`)0h!`hzoY(!J5^WNigP4G))B$X@agAkqFaDZ@%RH3= z?{#MfDN`v$MY4hq1j>(y(XRRbADr%F%>Nsp&-7;hDxoJa`?Rhx$XbCicSj6^oie4x zXHUww)<45u`W^*IIYcUj4$_f^|3#AUa}X?_jJY-d3@}r($KAs{&w}_K3-s$>5t;Xs z^f{SaeiJfv9ntD$vOZQ6F%#qI7KtRUsg?{|?eMketP(|2O`A6tu>uAQlk9j3cjE!a zbhDl1pi(!|{!w7+H7{*PzW3ifVex^bqE|*N|8Ns;a9*x8X(kEbe}N>w45HQHMa_U++%wG9>b5Jis3{^-)aH~Uc z@X&LjwP~+}z9`xeJo8b#SJkJC1oYR3nwAWyWYL4^lQjKzULp9(zTjaT- zC)Ya|dX?~K5s!H%dzk4z!(C~kt{{PsfvT&&eYQ`lyrx$RaoEU2sk$#WBGr@yLB;c@ z7KXU%QTA%j7V+j|`-gdqjh=IMZpvuK+$dhRRm-Y+mY455;Ry3KhWw=5Eq;>cq0Adt^9c% zIf-k7`9TaX;zng;*@qbTvumFf)7{C?j?PubAvG@a!D{E{j9;ZbNXsqKB|Bg5vVVCP zg`801K5%QVD_SAGgCLTUE-cK<%uc`>!P+>i$ytARSwKw&?v13sUe0mGJPi!NG9r5U z&o;AV&ECYOGJt+*`j-hIK5}vP)=w%pZo0HtETwn;kuP+aQbi^Fu? z_(_8BY*=iM2qSUI1)hJ`s75LxRz*m2b+U&w@UKJf`)E9E0tzBxtW$Hj*~#`u_5dOk ztmV2d_sO5Ns;Xccs{gq1;Ul?+9w=Y&5D*+ECG|Gp$cf?FPv3;q*$G8A3t}U3 zq@VgS!NTqjXtikD>;O7@+I70r)84cT@C}VBiX)5|opHP(rllWzG)#HP*RZ_;$$OR6 zyrk!`ANe(CzAEQPbhrKi4A`svs9Npb{O6%f6>385V`*lik9;CCgHkKxlmdt}HL=&K z8eX`GVKeXe4H?!y0re_PEz*{i>Mc(P_-`1R5+*H_(_f|tZ)7)l-D-P#cg%eg%Md_^ z3vwet8R$y%uH-cL$;_;;ax;l|Z6!+5_I~k`G^(R}O66UuCwT@yI-cCXw43X3%UQVE z1%e_iV~fC}mCP0a2bSaGfyM-RIkCuVGO9s&M!~LakYG7*h|R_5v*Mdd=O=F_9eJxo(-+F>A@#4m%)-xemWB9`p!Mo;|7z+lhk!N+o_HR zuH{Z}%sl0*)k#38y}SQ6c4d z^kFP+u%!U?7Fb?Bi8mEon;p92Wb5gY`$IfO0MUF)PV%}>$+#Gd-naY)-gITZV2DYi z<(mOdG*8Ckr{bjfQYv+zmj>h8UNllhyL@D;_)QK zxpJ;M0M1|ILpwB0s3)}fO1;AAVx8$ncCRk<1m0*Gi_V718xx0|mV13e6b-a5H> znx_+FwkY9FJ5BwrWm7Ox0aPi#Xwhm0m=Wu!vWkcL4|G!9aD$l|k_pHmiBRcAl2X>G4mYFo5L` zSC_C zY}nb>yMAnv@cOyGF)4OsaLowcevLK8s7y}qDT_l{7aTE!-}*KY&;@-_Ug&43+^Qu2 zj*h9oWZIYy-|&6|CNTO7y90FuF;c+sg>D53EIiwn_P<7CX75+@%`#+R9L;~FGBD7h zsA}`SENFTaw(y9W%gNH-YHgydu6gtYUU!p8`Tk1wz2h%krOgW0Jo?*D?Phcp4CqED zKkk`6Jn2G}$vPzzOUPPu7)`w}jg?o%Wi< zpL6*+c?((tBw?A5oYjbx_gh8QGJI!-(E6n^5_9Sw)g|T|ET|lXdZ|xU2-Q;e^RB71 z?K+hIo3C!g=|weVy&TgKcUP%U@Lwx#Jfp8SmwwMjC=;2}_;Z9jCx>0mYtSCI#rWpT zU1w(Y1j@uwHF_=_f}Ykm#P2ET2zEW_cLVCRVjwv9%RB2HQ3u~_Kd+_6fV^Km6@!^J zGu`hRs^)uG+pckn%+1$*=iZ6V_Y14f4%SK^%q*9R_|RTRYveOLtFggX$|`>zemHHa ze7_|;N%-0m)Y+Sg<9cy+l-;P!iP)pl)(Xkf+?Zq_4tXE}LOUi!aVUrl86vy`wHtot zCICjE-)hbk;Z#QgbfgsXZ!)>Qf#PAWH-=ltCD>7kG81;waNe1-=yd9#p zuKtZ|JQa!{!uzE4n`#p`szx%0@lYk=M&a(-0OwaPk4_9)2>P43bHj71S=_v{$_?dBRiY%z{x1HJ z^smh~QxBJk8_3eq!^OSwH^!Y+RdDpTnL68g=Q#N76qqQXq@;-}85S(n_K@y8Z4b@% zDKv@QxTM%W>rkQPFwgs>{(DW5-Gz{wZ}_Ss%_f!EBx~L;_qd&yNfH?NQRljDdA%a? z5-fjvBd}FcfAc+??o%=2kIIT(*0{x_8!CK#4Wts~!vSq256q^{yfApVs8gUrj9{JL zWeN`nwE>b3y!&Zk?(-iXzc^_hZ=AYPM<6T*)~}~-t~QQa9Vzs$&6od+u33}KE!X=MSZ?BLM07kH^Q?}?9T zy!4@2Gw7r`-F-)>#$;k45z`$E9s$Ntjx_$n6gY$4+h253&GXSy%qnqXnHRXR9@Z@V zM;JNTcP&eo*!t7fYRmPZBsAs$0LPrG)bHQ;?p&56oLoEr@MEo9f5&jcJS~6G6z_t; zD!jHNiWuml)#O$FoiQJ=>fjdsa(`}wZY!ibtR%EXO(CsB@2Q{9>5%$2G0wzvJi_?( zpcsugTv~STS%QKCHwXfCh}sE|)y6uj;H6_mmMXi%RLnoII-lDb4KR_4EhWCamalT# z-lSLSGI0HT_ev(RomP~!_J?R**R$@#t?}0ZxaPpx3FME@%|+F-@cXlnS5&VKRx$!? zCo9d9C$$Qjc3bT?Ow{WKRa|wH5G5)K6Gf3zDtN9>(`Na;E7P@3elEWTBkkx{{OF@~ z*`^}sQ$68@X9t~z6^1w^=bCDG<%s;7obs4c1R&r*swWADyPePtHY~$rZ~ohCB^a~l zT^w1<6~@uwV1Eg}#b%4j1LiQ((@?#>hQ_6L&l0yn%Pbx~tvX3xRf$?l>j-aX+fd58 zTb9OVZimZ{tuv8N@;6@}?tjX&WbhcpQ6SVF|6=8^w|nDoJPIzb{`|hs(f5p$My2SZ zCP0BWfJn9RIF$#eVfr7vL(G1nBtPh{F%+H&AVjp~|IHXNY;e~*R`Uq6kY~~U zoi!hm(JhWnV!8WRH``Ca5bElYkvX%za4Obg1LpKj}-_i#6&EQB#lV^H3Wc0~Oz1k;;M?CTtqST!MCP@6IJO)lG*>#Vfxa z)WwFT@UaJJGJ z%@Q6w0YR|YLcC!S{ARMqGGvKmE-SG_0_a4_22-JO72-1A9O=5~O>CDdOxQCErKyBn4@lDq8FP`k%glTucN~o{MDepXdYANFjr- zzqLvgFU-8cY96{1WBqm9acdVpLyKakLryqeAa`gJhIE{jv%V%xBSpUUHPH7EMQfC0 z{aS`pUm#P-@xyAkzURm_euUFKoDY+TG(SRtI{7M-2#+ux^L9u_IZHfl8re|nHKjNL zcMozGpWgk0BSyJBG#od=>#2Pb56asleLqw}UDi|@AJw%zvguPwybE!(xxM#yJ805Idr(G`YAbn?eif+} zv*e>PF2Bgu!hj@}y)e`nbor}g!S76G24vrird;%8t1v0X3fZT)Y05|3cS4?fiOm*! zK;njDbkCIykItGN)_0k3KYF0hwaZ}jDUUb1KrJbU@*^W`G$`+3P3A3+RroqF&{weo zvz2&}^rVYAi~BT-P8Tr!>UkcA9R=k`DZkc!4+< zAd(TdNJ5znA|SlaB(xVN4>P5|CEw=5DBu29%?vF6J2@ZIyUVaWb}5>d|B}v&gmOx4 zK(O1z)|WAa7VXFkB4|^ym+i&?flnlQgRtIqMzZ#VtiXRZrU@0iFSzeTHFF0TN%Ok2g u=*v3qI4P;1L$_Zhxy(O*nvLuij053iZ6nrqO-Nl+vIklQnx*PU^nU;dxtv=7 delta 5618 zcmZWtc{tQx)VCXCU&fMDsAN!NiDa#0NhJ)zWI~L68{7CY%&$V0FlCpr&S1uFY>g#5 zS+ffvJITJiQ@{83ynnoZ+~+y>o^!YJe9rxxb8&K+H)6!VyASoB+@YePqM@OorKP2# zqob#%2Z2Dbx6g5Lb93|X@bL2T^6~M3!C-!V{@52%v{$ZNAtqpGfZ)WKOe!kA`TN=$ zPkd8WCmaHK?o2Xn?0w&?gpf8sw-4~q#fK{g-y2DV%vCa)Tn&k!=~uxX;h;>K_Sy^% zmz!9UAfSMtcvh%uOeUWSFKYwFm&9f-&Y;2OE6N?v+$ip$9Xrog;v zs&`DcyIpev97(t%CVnbvwGtJoI;OZ@+VD7aIw48}187O8ys6_YC#fTTC#PDiYf#=e z0Ex4X8#1~&VZE2z!%Qd&7NHB>_Ntg@?w(m`3Q2-V9XA6kb<1YGF!}oV1EX#0HJS6! z@=Is&<;hP0AJwH38ni8Db^~KOQd!;y^kO8K_?w{2-O& z=1qnF=o<34^CS#c=tg*)^beRg(<0J806#ksfun^9Co|lHY6Qq4p#bK4+LF3tK7Ne zLm6)hEt4GiE4gj5#ToKni91hs9=J=_vDMD=*A+N&f&^tXZZ?xpNh6B)?pDasQ@rN& z|2zLoGn^0k-==YG+|3QE2fIv63(4X!$>HrOyh6}{E;h9~a)M>^`rg3?vWo6wDT(q{NW2rRIRf+LY zzWx#?jiw)0zN4n5rm(41NCNS>A$Co(e6L~tDlVpXDpxGUmOb_6gnUGqpsINiCRg`b%&%eAE3CQWwI%L6iX1bc>tK%B2U2c&6_3=u_^c?CYn%IbkjpdS;{4^3 z>S;4Sm^^%c)5U@lBI$-YtM5@CxydIf7pF_!02~y5w1no@4jASk$BOBfWXcQI{VLujZAE?F}#8E4jrx=ElR7B zdv&RQUNt9 zxi)@Ge@KsWG&Qsd@qaOen01y~ zH~Y1bJLF2L4~7X`!5QXM@!BCZ!JDoa%wY#~K3*zm6@+#7X-cgj615zh-iGyVfw$Ags6& zGCSpZHT%IIg#E=*j5;Bh4oxq{0r@(;6g`+CPeFx=+$Asd!-Bv+2q|}DfX_W!s9L%R z{Vb({Dt!j@GW^Aqo^lpX$zC@GgvHFYyreIBJ3NW~#Ecd3{R1;w%WpKE@8PX2To!?9 zVx?n`>heKY?^TqsgtXt{Z1NxZeId`B)xmjDimmw4T=&erjmpj8qS?~N@B>d;x{e0f zQTA7YR^p`*w6T5(B6qgfa+ZT(W@g*K{kozTtO4ez(|Zot%v>#Ce7nE63*ze7w7hqjG3lEX&pn(}!Miqd~GT<&j zpDVxnR3Yy0xlWi2G;S?7X?r71%WGADEZY|BniypWxf)15=wkAjs?$5|RTszWPaFRl zL)8TQ<}V2#gYnf7>}C1V&hvQ;CfOUxn61n2>m%u{3ICL$UhH6e+|wLkw#*xpm5n73 zsrL4MDe;u&V8BTG7k$TDfFO%;*X1VtW;q#JvGQd~gH0q3W@B>%p@}mj&U9IyOB|9$ zl^b*ji_P7#TPD4DePWS|EwfDRqgM}B+j;iwkc}$*o=7eCW04WVF@M`|Z3xwT12=xY z%v{?qKUOFSn0XB#xH7Ap%BJ$J`T4Vs4YvKePeOcWb4>zLZeJn?}+rb_AP!XFaKuvGnMm#}3rnaVF;8(FM) zOQ{~3h7f88$mm$>Q? z8XB=!bSc6B5)F%8mP1W3t~T>o)$%I`X#hXWyW7P%iy)EaQUm9bH^$StPNrV3P?Iyu zUBe!KiUyC}H?|X;()Q0^!W*C^)4+Eno7Md4rF_F+j}8yVIs+EM9MsE|qYYLQEa4ZR z13T=d;j2ZuPQBQCHKO|{)7&^4$+kb;@KW}5}|C!0Z9*ahirUKlu?%JHCmz?fPL6{ zPt5^YFU~stoEvMim9ZMtE(H_`1xbeaONYhFDcp10d3SuD*fw6F`A~yU(?0Ll=@Dv` zb^&T-yI`F#qc2iY{fvsP1NW5mRyR;6?#wyXmYEUb+b^Q2MX1qp3G{6hBwE%ewzqkp ze;e>4ZqaotH06CH!grI$StxSlCC#)H2M-wz{Ff_dxhJPq0s!8uI8p9h$MSBg%s}Fq zn0?W=mq8|?@r>*EcBb1dK8pEp1*M?Kp>e{>*>jUJuxJ6{e0H*9SXY}aKt$q4CX|k9 z9;Yl7pr#!|e%HM?4}C*;d_3uMwQa@4DK(3yTZcj~0_Z`IHBR)s9yV#>%~tGSWERup zZ+&{QW2C?YAKU8U(VTzNYg@`8`^oeekSoWsel++ zB#mwiVQv}jma9Ys?7@~i9!VUeiLJ$apv<}7&P7ra%BZcF<31(#_BhbI<4iUsU3{cl zA9?XC1h3z#1b-}0{d4_x>w!_O2hDq&aQ{^DfM3W+#oD4Ma8mHFMD|X(rD^upX77<3 zeW*F%Z;d?SmUGA!HwuRh)=TDQxY&lTy;+MF)_x+!s?2@F`i4%H(rOm% zFG@T=g{L(}=^}czuVHA}jeH|SiGOIMQ>4A80OE^B|l+W>v*z6twox}t$^`vbBJWE6>bF3 zo1QR}z-DutJ6zn|AGcA3kZqbTH|`!tNBKT>1J6)QBMDt&)j{XWqo)|8mJSg_CN5?g zJ4i&|$yKGxLCpx^rlAQb=CtBlE>&Np&%o+o#5hkoW~uktxoI3n`mw{(2NKp7gsIo! zgcgvG!r#PUc8(ezd~s9;73yE;{0AWaVk^|EeOKo-MhYT6j&EUJ6_7LGEWI}NUQx|N z5NVO0O2}S$Q+XjX?qSfr{(>Jb`jF$F|588i9UlUsj+E_eQZ?*|M14wi2#vq!mvps5$gR6(%3#i8oy%zMJ* zOTjUVj$&&9U!B_=VE!v2scU&`do#Ug#J|c^Kk#|l;Sf%v+R;Nxe)oL+RDGq#KGkjk z?}x>~%MGecUn@prpcj@59j4j3c9P`IEqs%%&7Ht1+>=f7-6?l;`TR+MdbD}?));53d&VhE*L-5?!tF7O zEv4?njLi~sIpV5JWU5N(%bkJc*%dIvgeaMM*oJN8nwybSPYyRqR-KUiIbPeLWfxndnc-<<>QtQ!<4!{N?_>Z<_*! zcNm<9Cug1gR`=Nu1^PsX%*Xncu18TqUjAhLu{X|w4HRqr15JtITCc@>xjmE~{^7a? zw4`ZISaIb^+6M1X*}AiDKvEv6IvHh}1_RkA_GBVT5Cg2Yk8nx5{o~qC@i%}R5qvXQ0#kuiT z0E)@Zu869!782%B4o1#k1myC~MvXLAEt!IF!5oLo zXo@C42_%xW0x!dSNy8O#2>l*-8h~ZpV3o0Hj#jg?qvSo|Q71y{O7owEBT+eKdYh>2 z+dZ}X{fd!$6%8eMwvjgNR0O*BwI$eU#R^n&4Xp@QKMu%#+Ef`p z?7!5Fy>4t3`Y^i5X!A+J|8 zRQX%}RK)*R#heeJyjl_TxWL|5it>gnq2OW@Lc5l!h@T99TQL=a9lHFbSwL$rz;2G z1o72B6nHaG;!yX40sg{n()nu}wZ|BIwq*N+l8J#pSO&B$9i1L6S(XN!6#^5WCikfm zB7?BJVEkw$I!D)*Td&v0aN#9o1@l@Y_Gz^bsL$xS67+Xb zrS}-6+Cpp~HBNJ7Zn6B!sFTr+uG_xMx>t-6-$L4Xoo`exj@C){4T~bwN zB9mn5@hgHTxiVSCLy7g05@ScdZ*5#c@jfvNNo#ozPOM)uLce9K(SBk#X-@rNFc5cZ z#b*xn00<*a)V~|fC=JzTweNKA5cm7fY^c``h?b9N6?L5_VcQRDiox*a3f-jLyUq_s zHL$$bv6~r9w0OkBUFtqYg!Pj&_=ZBzM7V(=C@k0SV#x8|ks-I?t4UOHTgC zM6~f0v2!rXKYKRhxjn$~O?3AuZpnR1T>PHC_D&&c&hg=pM%1oRLaWN>bfJNOV17Tw zI2b>e@(~3ALgQ~JRx?i0lVw3@Z&A7k(?P;~*X0uL(6~{?bI%~Nr)!I5ZpS_2r-3j& zv^OoqKzA(jNF}NW;Sq!Snw?G92Y0(qzAwR_`E|oo2&4VfA!sF1#9W6(03U}_P`iEuWRgz^w9BZ;2qKPU%kD|6MMCqXA|7I zO>5oO3NgebIAw!Yhe%;{f=e)LGik68|Dz2#wC`M))>}T`GXFBwm9ChimOhmnP@u;c3$bF3D inJ@|lmB6o08D9!l2M)WN&QgAMsqWu-pk1g5L;nvO9O~o% diff --git a/module2/exo1/toy_document_orgmode_R_fr.org b/module2/exo1/toy_document_orgmode_R_fr.org index f2aa20f..9fd1ea3 100644 --- a/module2/exo1/toy_document_orgmode_R_fr.org +++ b/module2/exo1/toy_document_orgmode_R_fr.org @@ -1,7 +1,22 @@ -#+TITLE: Mon jolie titre +#+TITLE: À propros du calcul de $\pi$ #+AUTHOR: Adam Taheraly -#+DATE: La date du jour +#+DATE: Lundi 30 Mars +#+EMAIL: taheraly.adam@gmail.com +#+DESCRIPTION: Exercice Mooc RR sur le calcul de \pi +#+KEYWORDS: MOOC-RR exo1 #+LANGUAGE: fr +#+TEXT: +#+OPTIONS: H:1 num:t toc:t \n:nil @:t ::t |:t ^:t -:t f:f todo:f tasks:nil pri:t tags:not-in-toc <:f *:t TeX:t LaTeX:t skip:t author:f email:f creator:f timestamp:f d:t +#+BIND: lisp-var lisp-val +#+LINK_UP: +#+LINK_HOME: +#+LaTeX_HEADER: \usepackage[utf8]{inputinc} +#+LaTeX_HEADER: \usepackage[T1]{fontinc} +#+LaTeX_HEADER: \usepackage[francais]{babel} +#+LaTeX_HEADER: \usepackage{amsmath} +#+LaTeX_HEADER: \usepackage{amssymb} +#+LaTeX_HEADER: \usepackage{mathrsfs} +#+EXPORT_EXCLUDE_TAGS: # #+PROPERTY: header-args :eval never-export #+HTML_HEAD: @@ -11,6 +26,63 @@ #+HTML_HEAD: #+HTML_HEAD: +* En demandant à la lib maths +Mon ordinateur m'indique $\pi$ vaut /approximativement/ + +#+begin_src R :results output :session *R* :exports both +pi +#+end_src + +#+RESULTS: +: [1] 3.141593 + +* En utilisant la méthode des aiguilles de Buffon +Mais calculé avec la *méthode* des [[https://fr.wikipedia.org/wiki/Aiguille_de_Buffon][aiguilles de Buffon]], on obtiendrait +comme *approximativement* : + +#+begin_src R :results output :session *R* :exports both +set.seed(42) +N = 100000 +x = runif(N) +theta = pi/2*runif(N) +2/(mean(x+sin(theta)>1)) +#+end_src + +#+RESULTS: +: +: [1] 3.14327 + +* Avec un argument "fréquentiel" de surface +Sinon, une méthode plus simple à comprendre et ne faisant pas +intervenir d'appel à la fonction sinus se base sur le fait que +si $X \sim U(0,1)$ et $Y \sim +U(0,1)$ alors $P[X^{2} + Y^{2} \le 1] = \pi/4$ +(voir +[[https://fr.wikipedia.org/wiki/M%C3%A9thode_de_Monte-Carlo#D%C3%A9termination_de_la_valeur_de_%CF%80][méthode +de Monte Carlo sur Wikipédia]]). Le code suivant illustre ce fait : + +#+begin_src R :results output graphics :file (org-babel-temp-file "figure" ".png") :exports both :width 600 :height 400 :session *R* +set.seed(42) +N = 1000 +df = data.frame(X = runif(N), Y = runif(N)) +df$Accept = (df$X**2 + df$Y**2 <=1) +library(ggplot2) +ggplot(df, aes(x=X,y=Y,color=Accept)) + geom_point(alpha=.2) + coord_fixed() + theme_bw() +#+end_src + +#+RESULTS: +[[file:/tmp/babel-fP8mRX/figureCHylZq.png]] + +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 : + +#+begin_src R :results output :session *R* :exports both +4*mean(df$Accept) +#+end_src + +#+RESULTS: +: [1] 3.156 * Quelques explications Ceci est un document org-mode avec quelques exemples de code -- 2.18.1