Accueil > > > PIC : OBTENIR UN NOMBRE ALÉATOIRE AVEC LA FORMULE XN+1=(137XN+187) MOD 2^8
PIC : OBTENIR UN NOMBRE ALÉATOIRE AVEC LA FORMULE XN+1=(137XN+187) MOD 2^8
Information sur la source
Description
Bonjour à tous, je viens de me mettre à la programmation PIC. Je commence avec le PIC 16F84 et après avoir lu l'excellent cours de bigonoff (http://www.bigonoff.org/), je commence à créer de petits programmes, dont la partie de code qui suit. Voyant que dans cette partie, il n'y a pas beaucoup de code pour les PIC, ce qui n'incite pas forcément les débutants à s'y mettre, je poste ce code. Une opinon personnelle pour les débutants : l'assemleur peut rebuter au début, mais est en fait assez simple à apprendre. Commencez par exemple par programmer des PICs avec le cours de Bigonoff ! Ce code permet d'obtenir des nombres pseudo nombre aléatoire. C'est un code de débutant et pour débutant, cependant, il utilise une formule trouvée sur wikipedia (http://fr.wikipedia.org/wiki/G%C3%A9n%C3%A9rateur _congruentiel_lin%C3%A9aire) : Xn+1=(137Xn+187) mod 2^8 Pour ceux qui ne connaissent pas, le terme mod (modulo) signifie ici que Xn+1 est le reste de la division de (137Xn+187) par 2^8. Notez que 2^8=256, ce qui simplifie les choses. Comme la suite est une suite modulo 256, ce n'est en fait qu'une suite de 256 nombres. Notez qu'avec l'informatique, on ne peut avoir que des nombres pseudo aléatoires (puisqu'il repose sur une formule).
Source
- ; PARTIE DECLARATION DES VARIABLES
- CBLOCK 0x00c
- cmptLoop: 1 ; Pour la multiplication
- Multiplicateur : 1 ; Pour la multiplication
- Nombre : 1 ; Multiplicande pour la multiplication
- resultH : 1 ; Résultat de la multiplication (8 bits de poids forts)
- resultL : 1 ; Résultat de la multiplication (8 bits de poids faibles)
- NbAleat : 1 ; Nombre aléatoire généré (De 0 à 255)
- ENDC
-
-
- ; PARTIE A INSERER DANS VOTRE CODE
- ; Initialisation des variables
- clrf NbAleat ; On part du nombre 0 pour la suite donc, X0=0
- ; Vous pouvez partir de 0<=X0<=255, vous pouvez donc obtenir 256 suites de 256 nombres différentes avec cette formule
-
- ; TROUVER UN NOMBRE ALEATOIRE EN PARTANT DE LA FORMULE :
- ; Xn+1=(137Xn+187) mod 2^8 et X0=0
-
- start
- movf NbAleat, w ; Mettre le nombre à multiplier dans W
- movwf Nombre ; Nombre est le multiplicande (nombre à multiplier)
- ; Le résultat sera placé dans ces 2 variables :
- ; resultH sont les 8 bits de poids forts et resultL sont les 8 bits de poids faibles
- clrf resultH
- clrf resultL
- ; Initialiser le compteur de boucle
- ; A noter : pour effectuer la multiplication (*137), on va en fait effectuer la multiplication comme on l'a poserait à l'écrit, en effectuant des décalages. En binaire, c'est simple, soit on multiplie par 0 : resultat=0, soit par 1 : résultat=nombre !
- movlw 8 ; Compteur qui permet de savoir de quel bit du multiplicateur on est en train de se servir
- movwf cmptLoop
- ; Mettre à 137 le multiplicateur
- movlw 137
- movwf Multiplicateur
- ; Mettre le nombre à multiplier dans w
- movf Nombre, w
- ; Commencer la multiplication
- loop ; On passera dans cette boucle 8 fois, pour effectuer les multiplications sur chaque bit du multiplicateur
- rrf Multiplicateur, f
- btfsc STATUS, C
- addwf resultH, f ; Après cette addition, le carry est à 0 puisque la multiplication tient 16 bits maxi
- rrf resultH, f ; On décale resultH, et le bit faible est mis dans le carry
- rrf resultL, f ; carry que l'on redonne ensuite à resultL
- decfsz cmptLoop
- goto loop
- ; Résultat dans resultH,resultL Ajouter 187 à resultL, si ça déborde, ajouter à resultH
- movlw 187
- addwf resultL, f
- movlw 1
- btfss STATUS, C
- addwf resultH, f ; Ajouter 1 à resultH
- ; Diviser par 2^8 -> Le résultat se trouve dans les 8 bits de poids forts, c-à-d dans resultH
- ; Donc le modulo se trouve dans les 8 bits de poids faibles c-à-d dans resultL
- movf resultL, w
- movwf NbAleat
-
- goto start
; PARTIE DECLARATION DES VARIABLES
CBLOCK 0x00c
cmptLoop: 1 ; Pour la multiplication
Multiplicateur : 1 ; Pour la multiplication
Nombre : 1 ; Multiplicande pour la multiplication
resultH : 1 ; Résultat de la multiplication (8 bits de poids forts)
resultL : 1 ; Résultat de la multiplication (8 bits de poids faibles)
NbAleat : 1 ; Nombre aléatoire généré (De 0 à 255)
ENDC
; PARTIE A INSERER DANS VOTRE CODE
; Initialisation des variables
clrf NbAleat ; On part du nombre 0 pour la suite donc, X0=0
; Vous pouvez partir de 0<=X0<=255, vous pouvez donc obtenir 256 suites de 256 nombres différentes avec cette formule
; TROUVER UN NOMBRE ALEATOIRE EN PARTANT DE LA FORMULE :
; Xn+1=(137Xn+187) mod 2^8 et X0=0
start
movf NbAleat, w ; Mettre le nombre à multiplier dans W
movwf Nombre ; Nombre est le multiplicande (nombre à multiplier)
; Le résultat sera placé dans ces 2 variables :
; resultH sont les 8 bits de poids forts et resultL sont les 8 bits de poids faibles
clrf resultH
clrf resultL
; Initialiser le compteur de boucle
; A noter : pour effectuer la multiplication (*137), on va en fait effectuer la multiplication comme on l'a poserait à l'écrit, en effectuant des décalages. En binaire, c'est simple, soit on multiplie par 0 : resultat=0, soit par 1 : résultat=nombre !
movlw 8 ; Compteur qui permet de savoir de quel bit du multiplicateur on est en train de se servir
movwf cmptLoop
; Mettre à 137 le multiplicateur
movlw 137
movwf Multiplicateur
; Mettre le nombre à multiplier dans w
movf Nombre, w
; Commencer la multiplication
loop ; On passera dans cette boucle 8 fois, pour effectuer les multiplications sur chaque bit du multiplicateur
rrf Multiplicateur, f
btfsc STATUS, C
addwf resultH, f ; Après cette addition, le carry est à 0 puisque la multiplication tient 16 bits maxi
rrf resultH, f ; On décale resultH, et le bit faible est mis dans le carry
rrf resultL, f ; carry que l'on redonne ensuite à resultL
decfsz cmptLoop
goto loop
; Résultat dans resultH,resultL Ajouter 187 à resultL, si ça déborde, ajouter à resultH
movlw 187
addwf resultL, f
movlw 1
btfss STATUS, C
addwf resultH, f ; Ajouter 1 à resultH
; Diviser par 2^8 -> Le résultat se trouve dans les 8 bits de poids forts, c-à-d dans resultH
; Donc le modulo se trouve dans les 8 bits de poids faibles c-à-d dans resultL
movf resultL, w
movwf NbAleat
goto start
Conclusion
Voilà, j'espère que c'est assez clair, c'est le premier code que je poste en assembleur. Je me sert de MPLAB 7.41.
Attention, notez que toutes les valeurs utilisées dans le code sont en décimales ! N'oubliez pas de le préciser à votre compilateur sous peine que ça ne marche pas.
Historique
- 28 juillet 2006 21:45:53 :
- Ajouts de quelques petites explications...
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Rubrique PIC :) [ par pitap0 ]
Serait il possible de rajouter une catégorie pour les PIC car ce sera qd meme plus simple a retrouver ?a++
générateur aléatoire [ par floflotz ]
kikooje recherche un petit générateur aléatoire (nb max 100) en assembleur. si qq aurait un petit coup de pouce a me donner, ca serait sympamerciflofl
liaison rs232 avec pic16f84a [ par Lastar ]
Bonjour à tous, voila je voudrais allumer et éteindre une led à partir du clavier d'un PC. J'ai donc pour cela mis un MAX232CPE avec le pic. Le prob
besoin d'aide tres urgent!!! [ par lefrans ]
voila mon probleme je recherche le code en PBP (pic basic pro) pour programer un pic 16f877 d'une calculatrice (simple)je dispose d'un clavier 4x4 et
servo de modelisme pilote par pic [ par RC516F84 ]
Dans le N°4 de micros et robots le robot bipéde est piloté par un pic16f628 Peut on le remplacer par un 16f84a?Ou est t'il possoble de piloter un ser
pic 16f628 [ par theyoupione ]
je suis un débutant dans la programmation de PIC et je voudrai savoir comment réaliser avec le 16f628:la réception de 2 signaux analog (d'un inclinomè
transmission rc 5 vers un pic 16f84 [ par raimu ]
je ne sais pas trop comment je pourrais faire pour effectuer une transmission depuis une telecommande rc5 vers un pic si quelqu'un pouvai m'aider...
question sur les pic [ par majoreea ]
Je souhauterai avoir le schema d'une telecommande infra rouge pour pc avec PIC
Assembleur PIC [ par goa_jr ]
Bonjour,Je suis en train de faire un assembleur pour PIC 16F84 et j'ai repéré une chose qui me semble bizarre dans MPLAB : l'instruction qui suit un o
communication entre 2 PIC [ par snoopyweb68 ]
Dans le cadre d'un stage, je suis ammené à faire communiquer deux PIC (un PIC16F627 et un PIC18F4220). étant donné le peu de pins d'entrées-sorties du
|
Derniers Blogs
[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : PIC 16F84RE : PIC 16F84 par pont
Cliquez pour lire la suite par pont RE : PIC 16F84RE : PIC 16F84 par belounis
Cliquez pour lire la suite par belounis RE : PIC 16F84RE : PIC 16F84 par pont
Cliquez pour lire la suite par pont
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|