Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
Dim 3 Sep 2017 - 19:50 par Clément.7

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 par Ti64CLi++

Partenaires
TI-Planet Espace-TI : Forum

Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)

Les posteurs les plus actifs du mois
Ti64CLi++
 
Clément.7
 


Tout sur les Vecteurs

Voir le sujet précédent Voir le sujet suivant Aller en bas

Tout sur les Vecteurs

Message par pito2901 le Mer 4 Déc 2013 - 15:58

J'ouvre ce topic uniquement pour les algorithmes concernant les vecteurs:

Le premier, que je poste sert à calculer l'abscisse ou l'ordonné manquante pour que les points A, B et C soient alignés:
Code:
EffEcr
Input "XA=",A
Input "YA=",B
Input "XB=",C
Input "YB=",D
EffEcr
Menu("","ABSCISSE",1,"ORDONNEE",2
Lbl 1
Input "YC=",F
(((C-A)*(F-B))/(D-B))+A→X
Disp "XC=
Output(2,4,X
Stop
Lbl 2
Input "XC=",F
(((D-B)*(F-A))/(C-A))+B→X
Disp "YC=
Output(2,4,X
Le second sert à montrer si des points sont alignés ou non:
Code:
EffEcr
Input "XA=",A
Input "XB=",B
Input "XC=",C
Input "YA=",D
Input "YB=",E
Input "YC=",F
(B-A)*(F-E)-(E-D)*(C-B)→X
If X=0
Then
Disp "LES POINTS SONT","ALIGNES.
Else
Disp "LES POINTS NE SONT","PAS ALIGNES
End
Le troisième sert à montrer si des vecteurs sont colinéaires ou non:
Code:
EffEcr
Input "XA=",A
Input "XB=",B
Input "YA=",C
Input "YB=",D
AD-BC→E
If E=0
Then
Disp "LES VECTEURS","SONT COLINEAIRES
Else
Disp "LES VECTEURS","NE SONT PAS","COLINEAIRES
End
Le quatrième l'abscisse ou l'ordonnée manquant pour deux vecteurs soient colinéaires:
Code:
EffEcr
Input "XA=",A
Input "YA=",B
Menu("","ABSCISSE",1,"ORDONNEE",2
EffEcr
Lbl 1
Input "YB=",C
(AC)/B->D
Disp "XB=
Output(2,4,D
Stop
Lbl 2
Input "XB=",C
(BC)/A->D
Disp "YB=
Output(2,4,D
Je compléterai au fur et à mesure.

__________________________________________________________________________
Programmes de Jeux TI 82 Stats.fr à recopier
"Parfois les personnes capables de rien sont celles capables de faire ce que personne n'aurait imaginé" A.Turing
avatar
pito2901
Passioné
Passioné

Messages : 532
Points Concours : 1
Productivité : 12
Date d'inscription : 02/09/2013
Localisation : Nevers
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.clictune.com/id=179469

Revenir en haut Aller en bas

Re: Tout sur les Vecteurs

Message par Wistaro le Mer 4 Déc 2013 - 19:21

Merci

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 909
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :
  • TI-82
  • TI-82 Stats
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum