Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Probabilité de pile ou face

Probabilité de pile ou face

Auteur

Message

RSJC

Autorisation : Membre
Nb de messages : 1
Inscrit le : Sam 26 Mai 2012, 21:12

Posté le : Dim 27 Mai 2012, 13:32

Salut tout le monde c'est mon premier topic sur ce site, je programme depuis quelques mois et j'ai fait un programme (pas un jeu) de pile ou face pour 200 lancés qui est pas lourd (j'ai essayé de l'alléger le plus possible) et assez utile pour des probas (et pour ne pas avoir à lancer 200 pièces aussi):

Code

:22->A
:0->L
:Lbl 0
:If A=72
:Then
:If B>=39
:Goto 1
:If B=35 ou B=36
:Then
:22->A
:3->L
:End
:If B=32 ou B=31
:Then
:22->A
:2->L
:End
:If B<=28
:Then
:22->A
:1->L
:End
:End
:If L=0
:entAléat(27,28)->B
:If L=1
:entAléat(31,32)->B
:If L=2
:entAléat(35,36)->B
:If L=3
:entAléat(39,40)->B
:Pxl-On(B,A
:A+1->A
:Goto 0
:Lbl 1
:22->A
:28->B
:0->P
:0->F
:Lbl 2
:If A=72
:Then
:If B=39
:Goto 3
:If B=35
:Then
:22->A
:39->B
:End
:If B=31
:Then
:22->A
:35->B
:End
:If B=28
:Then
:22->A
:31->B
:End
:End
:pxl-Test(B,A)->X
:If X=1
:P+1->P
:If X=0
:F+1->F
:A+1->A
:Goto 2
:Lbl 3
:Disp "Pile:",P,"FACE:",F

En tout ce programme fait moins de 400 octets donc on peut se permettre de le garder tout le temps dans la calculette. Dites moi ce que vous en pensez et si il y a moyen de l'alléger si vous voyez comment.

----------------------
Je compte moins vite que ma TI, mais j'ai plus de mémoire vive.

The K

Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07

Posté le : Dim 27 Mai 2012, 16:07

Il y a grandement moyen de l'alléger ...

Code

BinAleat(1,.5,200
Somme(Rep=1

^^'

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL

Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...

RSJC
Invité

Posté le : Dim 27 Mai 2012, 16:26

Ah ouais c'est fun je connaissais pas ça... C'est un peu plus léger que l'autre (c'est àdire qu'on passe de 400 à 30 octets quoi

)
Merci The K

The K

Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07

Posté le : Dim 27 Mai 2012, 17:01

Et encore t'es même pas obligé de faire un programme

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL

Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Dim 27 Mai 2012, 17:17

BinAléat(lancers,probabilité,expériences)

Dans l'exemple de The K, il n'y a pas besoin d'écrire "=1" dans la somme puisque le "1" dans BinAléat signifie qu'on ne lance qu'une pièce à chaque expérience.

De plus il suffit de ceci pour simuler les 200 lancers équiprobables :

Code

BinAléat(200,.5)

Ce que je ne comprend pas dans le premier programme est l'intérêt d'utilier A,B 22,35, pxl-Test ...
C'est juste pour faire varier les probabilités ?

Il suffirait de :

Code

Input "LANCERS:",A
Input "PROBA FACE:",B
BinAléat(A,B
Disp "FACE",Rép,"PILE",A-Rép
// pour obtenir des nombres au lieu de listes de taille 1, écrire "Rép(1)"

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Probabilité de pile ou face

Page générée en 6 requêtes

Flux RSS