Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Les points sont-ils alignés?
Auteur Message
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 25 Mai 2011, 16:23   Citer 

Salut. Voila un programme qui permet grace aux coordonnées des points de savoir si ces points sont alignés. C'est parti d'un petit programme pendant les math mais on ne pouvait savoir que si 3 points était alignés. La vous pouvez en mettre des milliers!! XD Bon voila le programme :

Les ü sont des sto au dessus de on et les L se trouve en faisant 2nde + 1


Code

Lbl 1
Input "CB DE COORD?",J
J*5üdim(L
For(A,1,J*2-1,2
Disp "COORD :
Prompt F,B
FüL(A):BüL(A+1)
End
For(C,1,J-2,2
(L(C+3)-L(C+1))(L(C+4)-L(C))üL(C+J*3
(L(C+5)-L(C+1))(L(C+2)-L(C))üL(C+1+J*3)
End
For(E,1,C,2
If L(E+J*3)[!=]L(E+1+J*3:Goto G
End
Disp "LES POINTS SONT","ALIGNES
Goto P
Lbl G
Disp "LES POINTS NE","SONT PAS ALIGNES
Lbl P
Pause
Menu("AUTRES POINTS?","OUI",1,"NON",2
Lbl 2
Eff Liste L



Voila. tout sa pour chat...

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 25 Mai 2011, 16:47   Citer 

Pas mal.
Je pense néanmoins que l'on peur faire plus court en utilisant Reglin(ax+b):

Code
:Lbl1
:Input"NOMBRE DE POINTS",N
:For(A,1,N
:PromptX,Y
:X -> Liste1(A
:Y -> Liste2(A
:End
:Reglin(ax+b)Liste1,Liste2,Y0
:If produit(Liste2=Y0(Liste1
:Then
:Disp "LES POINTS SONT","ALIGNES
:Else
:Disp "LES POINTS NE","SONT PAS ALIGNES
:End
:Menu("RECOMENCER",OUI,1,NON,2
:Lbl 2
:EffVarYO EffListe Liste1,Liste2



Sandro

PS:elle veut dire quoi ta dernière phrase SVP

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Mer 25 Mai 2011, 23:10   Citer 

La derniere phrase faut avoir écouté reflet d'acide pour la comprendre^^
et sinon je voudrais savior plusieurs choses :
- à quoi sert Reglin(ax+b)
-Comment l'utiliser^^
-et à quoi sert produit( et commet l'utiliser.

Merci d'avance^^

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 25 Mai 2011, 23:46   Citer 

Régression linéaire. La calculatrice cherche la droite la plus proche des points de la série de statistique. Elle répond par les variables statistiques a et b et éventuellement avec l'équation.
Il y a deux types de régressions linéaires : ax+b ou a+bx

Code
{x1,x2,x3}->L1
{y1,y2,y3}->L2
RégLin (ax+b) L1,L2,Y1   //Y1 est facultatif

Cela stocke l'équation dans Y1 et les coefficients dans a et b.

----

produit était facile à deviner.
prod(L1) donne le produit de tout ce que contient L1.

----------------------
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
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Jeu 26 Mai 2011, 16:43   Citer 

Oui c'est vrai que pour produit j'aurais pu deviner^^ Mais bon j'ai pas compris le fonctionnement de reglin XD a doit pas etre une fonction souvent utilisé^^

crazy.gif crazy.gif crazy.gif

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 26 Mai 2011, 19:15   Citer 

C'est vrai que Reglin(ax+b) n'est pas souvent utilisé (sauf en sciences expérimentales à la limite)

Pour le produit, comme "Liste1=Y0(Liste2)" donne une liste de 0 et de 1 (0 si faux, 1 si vrai), "produit(Liste2=Y0(Liste1" donne 1 si l'égalitée est vrai pour tous les termes, si ne serraisse qu'un seul est faux, ça donne 0 (X1*X2*0*X3*...*Xn=0). Cela est utile car on ne connait pas le nombre de termes de Liste1 et celà évite une multitude de "et" ou une boucle "For"

En espérant avoir été clair
Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 26 Mai 2011, 20:55   Citer 

J'avais oublié de lui expliquer comment ça marche avec les tests de listes.

Le pilier de toutes les astuces de liste, c'est qu'un test ou une opération sur une liste donne une liste contenant les résultas (1 ou 0 pour des tests). Sauf pour les fonctions globales comme produit ou somme.
Cela marche avec toutes les fonctions.

On peut aussi utiliser somme(L1=L2) pour détecter un 1 (égalité) au milieu de 0.

----------------------
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
 Adresse email Haut de page Bas de page 
 
snap



Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Ven 27 Mai 2011, 16:35   Citer 

A ok je comprend mieux maintenant!
Merci à vous deux bigmouth.gif

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes happy.gif
Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr
 Adresse email Haut de page Bas de page 
 
max
Invité
Posté le : Mer 22 Mai 2013, 16:42   Citer 

Les gars je ne trouve pas dans le "catalogue" de ma calculette TI-82stats:
-Liste1
-Liste2 ahh.gif

  Haut de page Bas de page 
 
Kelk'1



Autorisation : Membre
Nb de messages : 36
Inscrit le : Lun 01 Avr 2013, 18:48
Posté le : Mer 22 Mai 2013, 16:50   Citer 

les listes de "base" genre L1, L2, etc... jusqu'à L6 sont en jaune et se trouvent au dessus des touches 1, 2, 3, etc..

par exemple pour taper "L1" tu fais [2nde] + [1]
bigmouth.gif

----------------------
Signature inutile, enjoy =)
 Adresse email Haut de page Bas de page 
 
max
Invité
Posté le : Mer 22 Mai 2013, 17:10   Citer 

Merci bcp. Juste ca veut dire quoi YO? comment on le fait parce que moi c est la ou sa ne marche pas! Merci

  Haut de page Bas de page 
 
m@thieu41



Autorisation : Membre
Nb de messages : 804
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Mer 22 Mai 2013, 18:33   Citer 

C'est une fonction (pour la trouver, va dans [var] - [var-y] - [fonction] c'est la dernière bigmouth.gif

----------------------
Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)

Tout82 a changé d'adresse: allez ici pour rejoindre le nouveau tout82 : http://tout82.forumactif.org/forum

Et au fait: la politesse n'a jamais tué personne winkle.gif
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 22 Mai 2013, 18:46   Citer 

var+droite+1+0 sur ti82stat
2nde+var+1+0 sur ti82

----------------------
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
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa