Poster un nouveau sujet Poster une réponse
[Electricité] Association de "n" Générateurs en série ou //
Auteur Message
Mac Seamus



Autorisation : Membre
Nb de messages : 4
Inscrit le : Mer 24 Oct 2012, 16:14
Posté le : Mer 24 Oct 2012, 16:34   Citer 

Bonjour, Tout petit nouveau ici (inscrit aujourd'hui) et tout nouveau en programmation sur ma Ti-82 ressortie du placard y'a à peine 3 jours...

Bref je vais pas raconter ma vie mais j'ai eu envie de m'essayer à la prog.

J'apprends doucement et je me suis amusé à faire un prog pour calculer directement le générateur équivalent et la résistance interne équivalente lors d'une association série ou parallèle de n générateurs identiques.

Le programme n'est pas allégé au minimum, loin de là, il comporte de nombreuses étiquettes (pour pas me perdre moi et mon petit cerveau^^), les résultats sont mis en forme et "présentés de façon soignée" nul doute qu'il y a matière à simplifier de ce côté là aussi mais comme je débute j'essaye de pas trop me simplifier la vie et faire des "présentations".

Comme il y avait un programme de résistances équivalentes présent je me suis décidé à faire un programme de générateurs équivalents, je sais pas si ce sera utile mais bon, on trouve les sujets qu'on peut bigmouth.gif

Place au code:
-> représente la flèche de la touche STO
_ représente un espace

Code
:Lbl 0
:Clearhome
:Disp "LE GENERATEUR:"
:Imput "E EN VOLTS:",E
:Imput "R EN OHMS:",R
:Imput "COMBIEN?",N
:Menu("ASSOCIER EN:","SERIE",1,"PARALLELE",2)
:Lbl 1
:Clearhome
:N*E->F
:N*R->G
:Output(2,1,"Ee=")
:Output(2,4,F)
:Output(2,10,"_VOLTS")
:Output(5,1,"Re=")
:Output(5,4,G)
:Output(5,11"_OHMS")
:Pause
:Goto 9
:Lbl 2
:Clearhome
:R/N->H
:Output(2,1,"Ee=")
:Output(2,4,E)
:Output(2,10,"_VOLTS")
:Output(5,1,"Re=")
:Output(5,4,"_OHMS")
:Pause
:Goto 9
:Lbl 9
:Menu("RECOMMENCER?","OUI",0,"NON",8)
:Lbl 8
:Clearhome



 Adresse email Haut de page Bas de page 
 
blg_flg



Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Mer 24 Oct 2012, 19:54   Citer 

C'est pas du tout optimisé, mais pratique. happy.gif

J'optimise un peu:

Code
:Lbl 0
:Clrhome
:Disp "LE GENERATEUR:
:Imput "E EN VOLTS:",E
:Imput "R EN OHMS:",R
:Imput "COMBIEN?",N
:Clrhome
:Menu("ASSOCIER EN:","SERIE",1,"PARALLELE",2
:Lbl 1
:N*E->F
:N*R->G
:Output(2,4,F
:Output(5,4,G
:Output(5,11,"_OHMS
:Pause
:Goto 3
:Lbl 2
:R/N->H
:Output(2,4,E
:Output(5,4,"_OHMS
:Pause
:Lbl 3
:Output(2,1,"Ee=
:Output(2,10,"_VOLTS")
:Output(5,1,"Re=")
:Menu("RECOMMENCER?","OUI",0,"NON",8
:Lbl 8
:Clrhome



J'ai pas vérifié si ça marchait et je ne sais pas si on peut encore optimiser, mais ça fait déjà un paquet d'octet en moins. winkle.gif

 Adresse email Haut de page Bas de page 
 
Mac Seamus



Autorisation : Membre
Nb de messages : 4
Inscrit le : Mer 24 Oct 2012, 16:14
Posté le : Jeu 25 Oct 2012, 17:34   Citer 

En effet ça simplifie vachement (j'ai encore du mal sur les ) et " que l'on peut supprimer du coup j'admet je m'y suis pas risqué.
Par contre c'est une coquille ou alors


Code
:Output(5,11"_OHMS


Ici il manque la virgule entre 11 et " ou c'est une simplification possible (comme je pense pas je préfères demander)

De base il tapait 355 Octets (un monstre :p) je n'ai pas encore réécrit ton code pour voir la différence j'admet je le ferais quand j'aurais plus de temps dans la semaine prochaine.

En attendant merci de l'attention portée.

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
blg_flg



Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Jeu 25 Oct 2012, 18:42   Citer 

Non. Il s'agit en effet d'un petit oubli et comme j'ai banalement fait un copié-collé... Merci pour ta vigilance. winkle.gif


/me édite. happy.gif

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





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