Outils pour utilisateurs

Outils du site


profgra:peda:montecarlo:pi

Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

Les deux révisions précédentes Révision précédente
Prochaine révision
Révision précédente
profgra:peda:montecarlo:pi [2015/08/28 14:09]
admin montecarlo:pi en 0.3.17
profgra:peda:montecarlo:pi [2016/02/05 15:05] (Version actuelle)
admin autorun pour monte carlo
Ligne 3: Ligne 3:
 Voir [l’article Wikipedia correspondant](https://​fr.wikipedia.org/​wiki/​M%C3%A9thode_de_Monte-Carlo#​D.C3.A9termination_de_la_valeur_de_.CF.80_.28pi.29). Voir [l’article Wikipedia correspondant](https://​fr.wikipedia.org/​wiki/​M%C3%A9thode_de_Monte-Carlo#​D.C3.A9termination_de_la_valeur_de_.CF.80_.28pi.29).
  
-(MicroAlg "​pi"​ {"​processing":​true,​ "version":"​0.3.17"​})+Le programme a été lancé une première fois. N’hésitez pas à appuyer sur `OK` à nouveau. 
 + 
 +(MicroAlg "​pi"​ {"​processing":​ true, "autorun": ​true})
 (RAZ) (RAZ)
-(Initialiser@) 
 (Affecter_a credit_iterations 2000) (Affecter_a credit_iterations 2000)
-(Initialiser ​nbre_points 1000) +(Declarer nbre_points nbre_dedans centre_x centre_y rayon x y De_type "​nombre"​) 
-(Initialiser ​nbre_dedans 0) +(Affecter_a ​nbre_points 1000) 
-(Initialiser ​centre_x 300) +(Affecter_a ​nbre_dedans 0) 
-(Initialiser ​centre_y 300) +(Affecter_a ​centre_x 300) 
-(Initialiser ​rayon 100)+(Affecter_a ​centre_y 300) 
 +(Affecter_a ​rayon 100)
 (Cercle (Liste centre_x centre_y) rayon) (Cercle (Liste centre_x centre_y) rayon)
 (!!! "​Numéro et coordonnées du point courant (relatives à (300;​300))."​) (!!! "​Numéro et coordonnées du point courant (relatives à (300;​300))."​)
-(Initialiser i 1) +(Affecter_a ​x 0) 
-(Initialiser ​x 0) +(Affecter_a ​y 0) 
-(Initialiser ​y 0) +(Repeter ​nbre_points ​Fois
-(Tant_que (<= i nbre_points)+
  Faire  Faire
     (Affecter_a x (Entier@ (- rayon) rayon))     (Affecter_a x (Entier@ (- rayon) rayon))
     (Affecter_a y (Entier@ (- rayon) rayon))     (Affecter_a y (Entier@ (- rayon) rayon))
-    (Cercle (Liste (+ centre_x x) (+ centre_y y)) 1) 
     (Si (<= (+ (* x x) (* y y)) (* rayon rayon))     (Si (<= (+ (* x x) (* y y)) (* rayon rayon))
      Alors      Alors
 +        (Contour (Liste 0 255 0))
         (Affecter_a nbre_dedans (+ nbre_dedans 1))         (Affecter_a nbre_dedans (+ nbre_dedans 1))
 +     Sinon
 +        (Contour (Liste 255 0 0))
     )     )
-    (Affecter_a i (+ i 1))+    (Cercle (Liste ​(+ centre_x x(+ centre_y y)) 1)
 ) )
 (Afficher (/ (* 4 nbre_dedans) nbre_points)) (Afficher (/ (* 4 nbre_dedans) nbre_points))
 (/MicroAlg) (/MicroAlg)
  
profgra/peda/montecarlo/pi.1440763772.txt.gz · Dernière modification: 2015/08/28 14:09 par admin