forum.system-cfg.com

SAM, je crois que tu as raison ! Erreur de ma part : L'adresse du BSR Est BSR 4A04 :
Je redonne le code d ici peu

Depuis samedi je tentais passer aux simples non signés pour obtenir au moins 65536 essais Mais j'obtenais des résultats farfelus au delà de 33000 qui m'ont amenés à faire des recherches. Effectivement la procédure Figforth: U/ souffre d'un bug. http://6502org.wikidot.com/errata-software-figforth Fig...

Au temps pour moi ! C'était du Basic

L'outil mise au point doit de donner l'adresse de la pile SP. Il suffira de retrouver l'adresse de retour; Et faire comme l'a dit Papy

Ah oui! Javais pas bien compris le code :oops: Non c'est moi. Parmi les les défauts du Forth il en est un majeur : la lisibilité. C'est au programmeur de faire l'effort d'être assez didactique pour expliquer clairement ce qu'il a fait. Donc je vais tenter de me corriger. Passe les compteurs en 32bi...

Hier, j'ai corrigé le fichier de mon premier message et remis en ligne dans ce premier message. Je viens de télécharger ce zip avec readme et dezippé dans un dossier vide. Et j'ai pu lancer la K7 normalement à l'instant . Ref de cette K7 : Modifié le 30/04/2016 23H30 . C'est elle ? edit : Je vais su...

Mais @Sam je génère 20000*20000 points 20000 CONSTANT 20K : ESSAI 20K CHOOSE \X= Absisse entre 0 et 20000 20K CHOOSE \ Y=Ordonnée entre 0 et 20000 2DUP DIAGONALE \ X2+Y2 = (20000)2 + (20000)2 DMINUS \ (X2+Y2)*-1 400M \ 400000000 D+ \ 400000000 - (X2+Y2) 0< \ < 0 ? \ etc SWAP DROP 0= IF 1 ROUGE +! 5 ...

Voici donc comment se présente la distribution des points : Ancien Algo 0 VARIABLE RND HERE RND ! : RANDOM RND @ 31421 * 6927 + DUP RND ! ; AncienAlgo32766.jpg Nouvel Algo HEX 65E8 CONSTANT RMULT : 2VARIABLE <BUILDS SWAP , , DOES> ; : 2@ DUP @ SWAP 2+ @ ; : 2! DUP >R 2+ ! R> ! ; 3 1 2VARIABLE RLOC :...

@jvernet : Sauf que le petit gros que nous avons actuellement n'a rien à envier au petit à talonnettes que nous avions avant;
Mais comme le disait ma mère : deux tordus ne font un droit.

Avec ce nouvel algo je suis allé à la limite : 25748 Rges / 32766 essais -> 3.1432
J'ai fait une copie écran juste avant la fin pour voir la distribution des points.

Je fais tourner maintenant l ancien algo à 32767 essais pour voir à l'image la différence de distribution

@Sam, Que penses-tu de la solution proposée ici ? https://groups.google.com/forum/#!topic/comp.lang.forth/DglVTqncYzQ Elle est facile à mettre en pratique HEX 65E8 CONSTANT RMULT : 2VARIABLE <BUILDS SWAP , , DOES> ; : 2@ DUP @ SWAP 2+ @ ; : 2! DUP >R 2+ ! R> ! ; 3 1 2VARIABLE RLOC : RNDM RLOC 2@ RMU...

Salut Xavier ! En y réfléchissant je pense que c est comme avec les 16 bits mais avec les 32 :D (N . . . 0<Aléatoire<N) : CHOOSE RANDOM U* NIP ; Deviendra : CHOOSE RANDOM D* NIP ; où D* multiplie 2 doubles restituant 1 double ce qui est gênant parce que 2147483647 * 200 ne tient pas dans un 32 bits ...

Si j'ai bien compris : - 32 bits est un étage du stack du 32-bit ANS Forth au lieu d'un étage de 16 bits sur le Forth du MO5 http://www.excamera.com/sphinx/article-xorshift.html S'il est donc dit 7 DUP ( en ANS 32 bits ) cela correspond à 7. DDUP du FIG du MO5. Donc re écrire tous les DUP @ OR XOR e...

@Sam Pour ce qui est de ton observation en prenant tous les points également répartis, je comprend ce que tu veux dire, mais en fait tu reproduit la réflexion de Buffon sur la probabilité = la raison des surfaces en remplaçant les superficies pas une notion équivalente de densité. Sauf qu'on fuit de...

Si tu ne le trouves pas vite :