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
conversion polaire/cartésien
Auteur Message
monegarn
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 28 Sep 2007, 20:00
Posté le : Mar 22 Avr 2008, 21:54   Citer 

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



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 23 Avr 2008, 6:27   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
monegarn
Avatar

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 28 Sep 2007, 20:00
Posté le : Mer 23 Avr 2008, 8:52   Citer 

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



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 23 Avr 2008, 9:14   Citer 

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

Autorisation : Membre
Nb de messages : 11
Inscrit le : Ven 28 Sep 2007, 20:00
Posté le : Mer 23 Avr 2008, 10:50   Citer 

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



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Mer 23 Avr 2008, 14:34   Citer 

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 ---
 Adresse email Haut de page Bas de page 
 
Jonas
Invité
Posté le : Sam 17 Oct 2009, 21:35   Citer 

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.

  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