Forum TI-Planet.org

Bonsoir

Etant actuellement en pleine révisions pour le bac, je serais à la recherche d'un programme sur la loi binomiale pour gagner du temps.
Voici le programme type que je voudrais, si ce n'est pas trop demandé... Un programme rédigeant de la maniere suivante :

Notons X le nombre de succès. La variable aléatoire X est régie par un schéma de
Bernoulli. En effet on a,
• n expériences identiques et indépendantes sont effectuées ;
• chaque expérience a deux issues : avec une probabilité de succes p = (s'adapte a la donnée que l'on a insérée) ou un echec avec une probabilité 1 − p = ...
La variable aléatoire X suit donc une loi binomiale de paramètres n = (donnée insérée) et p = (donnée insérée).

La probabilité demandée est P(X=k) = (n , k) * (p)^k * (1-p)*n-k = resultat

Avec (n,k) faisant le calcul suivant automatiquement : n! / (k!(n-k)!)


Je l'aurais fais moi meme mais je n'ai aucune connaissance en programmation, d'où ma demande...
J'ai par ailleurs essayé de faire fonctionner le programme sur Tibank sur les proba mais il ne marche pas.

En espérant que quelqu'un pourra répondre a ma demande ! Cela me serait d'une grande aide...

Merci par avance !

Ça se programme en 1 ligne sur TI-89, sans exagérer.

Il suffit de créer une fonction à 3 paramètres n, p, k avec l'éditeur de programme, et la seule ligne de ta fonction ce sera "return " suivi du calcul que tu as décrit.

Je n'en doute pas, mais je n'ai vraiment aucune (0,00%)² connaissance en programmation, et je n'ai pas le temps de m'y intéresser, je prefere utiliser mon temps pour mes révisions. Si quelqu'un pouvait me le faire, ca serait sympa

Mais il suffit que tu écrives ce que Critor vient de te dire : on ne te demande même pas de réfléchir mais de lire !

D'accord...

Et si tu es coincé à un moment, n'hésite pas.

Pour l'instant, tu commences par aller dans l'éditeur de programmes (touche Apps ou écran d'accueil), pour créer une fonction.

Finalement j'veux juste un programme résolvant n! / (k!(n-k)!) avec les valeurs de n et k.
Donc je suis allé dans l'editeur de programme, je l'ai nommé "fact", mais ca marche pas. Voila ce que j'ai écrit en ayant suivi le peu d'instructions données :

:fact(return (n!/(k!(n-k)!))
:
:Func
:
:EndFunc

J'vais ensuite dans home je lance ce truc mais ca met "Syntaxe".

En effet ce n'est pas tout à fait ça, mais tu as l'idée.

Code: Select all

:fact(n,k)
:Func
:return (n!/(k!*(n-k)!)
:EndFunc

Un tel "programme" d'ailleurs existe par défaut dans la calculatrice, sous le nom nCr si je ne me trompe pas.

Essaye donc de taper par exemple nCr(20,5).

Je viens de taper nCr(20,5), mais ça me fait rien à part le "Fait".

Sinon, je viens de taper exactement le code indiqué, mais quand je tape par exemple fact(2,4) dans home ca me met : ") manquant"
Idem en tapant fact()

Edit : C'est bon j'ai rajouté la parenthèse ca marche ! merci

Eldec wrote:Je viens de taper nCr(20,5), mais ça me fait rien à part le "Fait".

C'est parce que ta calculatrice est en Français (ce que tu n'avais pas précisé !)
L'équivalent en Français est "nbrComb(20,5)" pour 'nombre de combinaisons de 5 éléments parmi 20'...