Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> conversion polaire/cartésien

conversion polaire/cartésien

Auteur

Message

monegarn

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 28 Sep 2007, 20:00

Posté le : Mar 22 Avr 2008, 21:54

voila, c'est un programme de conversion de nombres complexes de la forme polaire à la forme cartésienne, et inversement, pour ceux qui bosse sur les régime sinusoïdaux, faut sans arrêt passer d'une forme à l'autre, alors j'ai fait ce petit programme sur mon lit d'hôpital lol

je sais pas si il n'y a pas une fonction de la TI qui le fait...

pour télécharger le .82P >>>ICI<<<

----------------------
Danger Duck !!! c'est moi !

Google_AdSense

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 23 Avr 2008, 6:27

Premièrement, utilise la balise code pour voir ton code correctement.
Deuxièmement, ce code est simplifiable:

Google_AdSense

monegarn

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 28 Sep 2007, 20:00

Posté le : Mer 23 Avr 2008, 8:52

1) excuse moi, mais je préfère afficher le code en image au moins ça me permet de mettre tous les caractères que je désire.

et puis je donne le .82P donc pas besoin de le recopier à la main...

2) tu pourrais me dire où je pourrais le simplifier s'il te plait ?

----------------------
Danger Duck !!! c'est moi !

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mer 23 Avr 2008, 9:14

Salut,

alors déja tu peux supprimer les espaces inutiles (en plus ca ralenti le prog ;-)

ensuite tu peux aussi enlever les " ou les ) inutiles par exemple :

Code

Output(1,1,"****************"
Output(8,1,"****************"

devient :

Code

Output(1,1,"****************
Output(8,1,"****************

ou encore :

Citer

rc((A²+B²)->P

donne:

Citer

rc((A²+B²->P

ca aussi :

Code

Output(1,1,"****************
Output(8,1,"****************

ca prend enormement de place (32 octets avec tous les *)
une boucle for sera bcp plus adaptée

enfin bon après y a encore d'autres trucs par ex :

Code

If B>0
180+ø=>ø
If B<0
180+ø=>ø

je le remplacerais par :

Code

If B=/=0
180+ø=>ø

ou mieux :

Code

ø+180(B=/=0->ø

ps : je met le code en ascii si les autres veulent faire des citations :

Code

Lbl 0:Fix 2:Normal
ClrHome
Output(1,1,"****************"
Output(8,1,"****************"
Output(3,1," CONVERTISSEUR"
Output(5,5," COMPLEXE"
Pause :Lbl A
Menu("CONVERSION:","CAR-POL",C,"POL-CAR",P
Lbl C
ClrHome
Disp "Z=A+JB"
Prompt A,B
rc((A²+B²)=>P
If A=0
Then
If B>0
90=>ø
If B<0
(-)90=>ø
Goto B
End
tan¯¹((B/A)=>ø
If A>0
Goto B
If B>0
180+ø=>ø
If B<0
180+ø=>ø

Lbl B
ClrHome
Output(1,1,"****************"
Output(8,1,"****************"
Output(3,3,"P="
Output(3,5,P
Output(5,3,"ø="
Output(5,5,ø
Output(5,10,"º"
Pause
Stop

Lbl P
ClrHome
Disp "Z=(P,ø)"
Prompt P,ø
Pcos(ø=>A
Psin(ø=>B
ClrHome
Output(1,1,"****************"
Output(8,1,"****************"
Output(3,3,"Z="
Output(4,4,A
If B[plus grand ou égal à]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

----------------------
--- LISTE DES JEUX POUR TI ---

monegarn

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 28 Sep 2007, 20:00

Posté le : Mer 23 Avr 2008, 10:50

merci beaucoup !

et je savais pas pour les espaces, je fais ça pour aérer mes prog et pour pas me perdre quand je les modifie.

en tout cas merci.

----------------------
Danger Duck !!! c'est moi !

ratuss

Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41

Posté le : Mer 23 Avr 2008, 14:34

oui attend quand je dis que ca ralenti c'est vraiment très négligeable.

après si ca te permet de te repérer garde les ;-) .

----------------------
--- LISTE DES JEUX POUR TI ---

Jonas
Invité

Posté le : Sam 17 Oct 2009, 21:35

Attention je vois que utilise la tangeante pour calculer ton argument !
Je ne sais pas si c'est véridique mais mon prof de math m'avais dit de ne pas le faire car il y avait un cas sur je sais plus combien pour que ça ne marche pas.
Il y a plein d'autre façon sur la ti de calculer un argument, ex:

1)arccos(Réel/Module) et arcsin(Imag/Module) et arctan(Imag/Réel).

2)Disp "Du type A+iB"
Input "Z=",Z
argument(Z)->teta

3)Dans le menu angle (shift+matrice) :
Prompt A,B
RPr(A,B)->M
RPteta(A/B)->teta

Je pense que je vais poster mon programme futurement si ça intéresse des gens.
J'utilise la 2nd méthode.

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> conversion polaire/cartésien

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

Flux RSS