T10

le forum de la T10 génie électronique
 
AccueilFAQRechercherGroupesS'enregistrerConnexion

Partagez | 
 

 programmes TI 82(minimum)

Aller en bas 
AuteurMessage
Graak
Admin
avatar

Messages : 163
Date d'inscription : 06/09/2008
Age : 30
Localisation : ASSAT

MessageSujet: programmes TI 82(minimum)   Mer 8 Oct - 15:38

donc je propose que ceux qui ont une TI (calculatrice Texas Instrument) mettent leurs programmes perso ici afin que tout le monde puisse en profiter !

je commence avec un prog pour la méca pour déplacer un torseur du point A au point B

Programme "TORSEURS"
Code:

(les lignes qui commencent par "//" ne sont pas à recopier :P)
//on commence par initialiser les variables
0->X:0->Y:0->Z:0->L:0->M:0->N
//ensuite on demande les valeurs du torseur en A
Prompt X,Y,Z,L,M,N
X->C:Y->D:Z->E:L->F:M->G:N->H
//puis on a un choix : "A et B" ou "BA"
Menu("","A et B",1,"BA",2
//je ferme pas la parenthèse du menu, ça économise un octet ^^

Lbl 1
//on demande les coordonnées du point A
Disp"COORD. A:"
Prompt X,Y,Z
X->I:Y->J:Z->K
//puis les coordonnées du point B
Disp"COORD. B:"
Prompt X,Y,Z
//vient la phase de calcul
F+((J-Y)E-(K-Z)D)->P
G+((K-Z)C-(I-X)E)->Q
H+((I-X)D-(J-Y)C)->R
//on a maintenant le moment en B
Goto 3
//le goto sert en quelque sorte de téléporteur,
//il envoi vers un autre endroit du programme (Lbl 3)

Lbl 2
//on demande les coordonnées du vecteur BA
Disp"COORD. BA:"
Prompt X,Y,Z
//phase de calcul, encore !
F+(YE-ZD)->P
G+(ZC-XE)->Q
H+(XD-YC)->R

//notre Lbl 3 arrive
Lbl 3
CLrHome
Output(1,1,C
Output(2,1,D
Output(3,1,E
Output(1,8,P
Output(2,8,Q
Output(3,8,R
//6 parenthèses d'économisé, ça fait 6 octet !
Pause
Stop

et voila, maintenant, à vous de jouer pour tout recopier !
j'en mettrais d'autre après !

_________________


Dernière édition par Mick le Ven 10 Oct - 19:04, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://t-10.1fr1.net
neven

avatar

Messages : 230
Date d'inscription : 10/09/2008
Age : 27
Localisation : lons

MessageSujet: Re: programmes TI 82(minimum)   Mer 8 Oct - 16:23

gaaaaaaaaaaaaaa c'est long Shocked Shocked What a Face What a Face Shocked Shocked
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TRIFF

avatar

Messages : 233
Date d'inscription : 10/09/2008
Age : 27
Localisation : Sauvagnon

MessageSujet: Re: programmes TI 82(minimum)   Mer 8 Oct - 16:51

ouai et en plus ca na marche pa sur casio pale


Dernière édition par TRIFF le Jeu 9 Oct - 20:41, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Graak
Admin
avatar

Messages : 163
Date d'inscription : 06/09/2008
Age : 30
Localisation : ASSAT

MessageSujet: Re: programmes TI 82(minimum)   Mer 8 Oct - 17:50

c'est pas long du tout ! je le trouve même très petit ! et puis retire les lignes avec les commentaires, et tu verras que c'est petit !

Edit :
Voici mon célèbre programme de résolution d'équation du second degré dans les ensembles des Réels et des Complexes !

attention, ça peut effrayer certaines personnes Razz
programme : DEGRE2
Code:

ClrHome
Normal
Disp"AX²+BX+C=0"
Prompt A,B,C
ClrHome
If A=0:Then
Output(3,3,"CE N EST PAS"
Output(5,3,"DU 2ND DEGRE"
Pause
Goto C
End
B²-4AC->D
Output(1,1,"DELTA="
Output(1,9,D
If D>0
Then
Output(2,1,"2 SOLUTIONS"
(-B+√D)/2A->F
(-B-√D)/2A->G
Output(4,1,"S1=("
Output(4,5,B
Output(4,8,"+√"
Output(4,9,D
Output(4,12,")/"
Output(4,14,2A
Output(6,1,"S2=("
Output(6,5,-B
Output(6,8,"-√"
Output(6,10,D
Output(6,12,")/"
Output(6,14,2A
Output(8,1,"SOIT..."
Pause
ClrHome
Disp "S1=",F►Frac,"S2=",G►Frac
Pause
End
If D<0:Then
Menu("ENSEMBLE","REELS",A,"COMPLEXES",B
Lbl A
Output(2,1,"AUCUNE SOLUTION"
Goto E
Lbl B
Output(2,1,"2 SOLUTIONS"
Output(4,1,"S1="
Output(4,5,-B
Output(4,8,"+√"
Output(4,11,-D
Output(4,13,")/"
Output(4,15,2A
Output(6,1,"S2="
Output(6,5,-B
Output(6,8,"-√"
Output(6,11,-D
Output(6,13,")/"
Output(6,15,2A
Pause
Goto C
End
If D=0
Then
Output(2,1,"1 SOLUTION"
(-B/(2A))->E
Output(4,1,"S="
Output(4,3,-B
Output(4,6,"/"
Output(4,7,2A
Output(6,1,"SOIT..."
Pause
ClrHome
Disp "S=",E►Frac
End
Lbl E
Pause
CLrHome
Menu("GRAPHIQUE","NON",C,"OUI",D
Lbl D
StoreGDB GDB5
"AX²+BX+C"->Y1
ZStandard
DispGraph
Text(0,0,"SOMMET:"
Text(6,0,"X = ",-(B/2A)
Text(12,0,"Y = ",Y1(-(B/2A))
Pause
RecallGDB GDB5
Lbl C
ClrHome

alors neven, t'es pas tombé dans les pommes ?

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://t-10.1fr1.net
Graak
Admin
avatar

Messages : 163
Date d'inscription : 06/09/2008
Age : 30
Localisation : ASSAT

MessageSujet: Re: programmes TI 82(minimum)   Mer 8 Oct - 20:34

Et un petit qui peut être utile par moment, si on a pas envie de se fouler !

programme : REQ
Code:

ClrHome
Eng
Input "R1 (OHM) = ",A
Input "R2 (OHM) = ",B
Menu("RESISTANCES","EN SERIE",S,"EN PARALLELE",P
Lbl S
A+B->R
Goto A
Lbl P
(AB)/(A+B)->R
Lbl A
Output(4,2,"RESISTANCE EQ"
Output(5,3,R
Pause
ClrHome

vous l'avez compris, il sert à calculer la résistance équivalente entre deux résistances !
Je suis entrain d'en faire un qui gère les impédances, je le mettrais une fois opérationnel !

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://t-10.1fr1.net
Graak
Admin
avatar

Messages : 163
Date d'inscription : 06/09/2008
Age : 30
Localisation : ASSAT

MessageSujet: Re: programmes TI 82(minimum)   Mer 8 Oct - 20:51

et un convertisseur de forme de nombre complexe, de polaire en cartésien et inversement, seul précaution à prendre, le choix degré/radian se fait avant de lancer le programme ! et l'angle est quand même a vérifier juste par précaution (un petit cercle trigo, les points a et b pour voir si l'angle est bien dans le bon cadran)

programme : CONVCPLX
Code:

Lbl 0
Fix 5
Eng
ClrHome
Output(3,1," CONVERTISSEUR "
Output(5,3,"COMPLEXE 1.0"
Pause
Lbl A
Menu("CONVERSION","CAR-POL",C,"POL-CAR",P
Lbl C
ClrHome
Disp "Z=A+JB"
Prompt A,B
√(A²+B²)->P
If A=0
Then
If B>0
90->θ(c'est thêta ALPHA+3)
If B<0
-90->θ
Goto B
End
ArcTan(ou tan-1) (B/A)->θ
If A>0
Goto B
If B>0
180+θ->θ
If B<0
180+θ->θ
Lbl B
ClrHome
Output(3,3,"P="
Output(3,5,P
Output(5,3,"θ="
Output(5,5,θ
Pause
Stop

Lbl P
ClrHome
Disp "Z=(P,θ)
Prompt P,θ
Pcos θ->A
Psin θ->B
ClrHome
Output(3,3,"Z="
Output(4,4,A
If B≥0:Then
Output(5,4,"+"
Output(5,5,B
End
If B<0:Then
Output(5,4,B
Output(5,4,"-"
End
Output(6,5,"J"
Pause
Stop

J'espère que ça sera utile à certains ! sinon tan pis, moi ça m'éclate de faire des programmes !

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://t-10.1fr1.net
Graak
Admin
avatar

Messages : 163
Date d'inscription : 06/09/2008
Age : 30
Localisation : ASSAT

MessageSujet: Re: programmes TI 82(minimum)   Mer 8 Oct - 20:57

Allez, je suis chaud, j'en met encore un petit dernier pour aujourd'hui !
un programme pour convertir un nombre décimal dans n'importe quelle base, même en base 2598 !
mais attention, si vous convertissez en base 16 (hexadecimal) il faut penser a changer les 10 par A, 11 par B etc...
et oui dernier détail, le chiffre se lit de bas en haut donc une fois noté, reprenez le à l'envers Razz

programme DECTOB (decimal to base ^^)
Code:

Input "NBRE :",A
Input "BASE :",B
Lbl 1
int (A/B)->Q
A-B*Q->R
Disp R
Pause
Q->A
If Q=0
then
Stop
Else
Goto 1

Celui là, je m'étais cassé le c** à le faire le plus compact possible, les forme ne ressemble plus a rien tellement j'ai compacté alors ne cherchez pas à le comprendre, il marche c'est tout ce qu'il faut retenir !

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://t-10.1fr1.net
neven

avatar

Messages : 230
Date d'inscription : 10/09/2008
Age : 27
Localisation : lons

MessageSujet: Re: programmes TI 82(minimum)   Mer 8 Oct - 21:22

geuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuhhhhhhhhhhhhhhhhhhhhhhhhhhh What a Face What a Face What a Face What a Face What a Face
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TRIFF

avatar

Messages : 233
Date d'inscription : 10/09/2008
Age : 27
Localisation : Sauvagnon

MessageSujet: Re: programmes TI 82(minimum)   Jeu 9 Oct - 20:46

il est tros fort ce mick
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
N/A

avatar

Messages : 92
Date d'inscription : 10/09/2008
Age : 18

MessageSujet: Re: programmes TI 82(minimum)   Ven 10 Oct - 20:10

Quand j'aurais le temps et surtout le patience je les convertiraient pour CASIO, en tout cas, merci MIKY.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TRIFF

avatar

Messages : 233
Date d'inscription : 10/09/2008
Age : 27
Localisation : Sauvagnon

MessageSujet: Re: programmes TI 82(minimum)   Lun 13 Oct - 22:27

merci fab enfin quelqu'un pour les casio
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: programmes TI 82(minimum)   

Revenir en haut Aller en bas
 
programmes TI 82(minimum)
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Les programmes par fac
» Dotation horaire élève/prof dans les nouveaux programmes
» nouveauté des programmes: histoire des arts
» Quizz sur les programmes
» exposé d'eps et nouveaux programmes ?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
T10 :: CATEGORIE PUBLIQUE :: Ordre Générale-
Sauter vers: