Autorisation : Membre
Nb de messages : 6
Inscrit le : Mar 25 Nov 2008, 15:46
Posté le : Mer 03 Déc 2008, 18:36
Salut a tous,
je sais qu'il y a déjà un programme sur le forum pour l'angle de réfraction.
Mais le mienne calcul aussi l'angle d'incidence,l'indice du milieu 1 et l'indice du milieu 2.Il fonction très bien sur ma TI82(non stat ) mais au niveau des goto je suis pas un pro (c'est mon 2 programme avec Goto et Lbl).Il peut y avoir des trucs inutile voir qui ralentisse le programme,a vérifier!! .Il peut surement prendre moins de place,mais je sais pas faire mieux.
PS:les mot pas entier dans le menu,c'est normal car il rentre pas sur l'écran alors autant ne pas les écrire.
j'espère que ce petit programmes(604 octets) vous sera utile.Si vous trouver des solutions pour le simplifier ou pour permettre de revenir au menu après un calcul,merci
@+ et bonne écriture
SUPER merci pour ce programme qui marche super bien sur ma TI 82 Stats.fr au fait pour ceux qui pense qu'il y a un probleme ne faites pas comme moi et n'oubliez pas de mettre votre calculatrice en degré
Mercii Beaucoup
Autorisation : Membre
Nb de messages : 6
Inscrit le : Mar 25 Nov 2008, 15:46
Posté le : Lun 08 Déc 2008, 19:21
salut
merci des compliments,moi aussi il ma servit en controle.
merci aussi de l'astuce,je la connaissit pas.
@+ et laisser des com ou des nouvelle version avec retour au menu apres chaque calcul ,si c'est possible.
Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Mar 09 Déc 2008, 19:21
salut,
comme demandé par englef69, je me suis permis de modifié 2 3 truc pour un retour au menu aprés le calcul.
En gros, j'ai rajouté un label A au début du programme
à la fin des labels 1,2,3,4 j'ai mis "pause" puis "goto A".
J'ai aussi rajouter "quitter" au menu.
Code
:Degree
:Clrhome
:lbl A
:Menu("REFRACTIONLUMIERE","ANGLE REFRACTI",1,"ANGLE INCIDENC",2,"INDICE MILIEU1",3,"INDICE MILIEU2",4,"QUITTER",5
:Pause
:Lbl 1
:Clrhome
:Input "INDICE MILIEU 1",A
:Input "INDICE MILIEU 2",B
:Input "ANGLE INCIDENCE ",C
:sin-1((A/B)*sin C)[sto]D
:Clrhome
:Output(4,1,"ANGLE DE REFRACTION:
:Output(5,4,D
:Pause
:Goto A
:Lbl 2
:Input "INDICE MILIEU 1",A
:Input "INDICE MILIEU 2",B
:Input "ANGLE REFRACTION",C
:sin-1((B/A)*sin C)[sto]D
:Clrhome
:Ouput(4,1,"ANGLE INCIDENCE:
:Ouptput(5,1,D
:Pause
:Goto A
:Lbl 3
:Input "ANGLE INCIDENCE ",A
:Input "ANGLE REFRACTION",B
:Input "INDICE MILIEU 2",C
:(sin A/sin B)/C[sto]D
:Clrhome
:Ouput(4,1,"INDICE MILIEU 1:
:Output(5,2,D
:Pause
:Goto A
:Lbl 4
:Input "ANGLE INCIDENCE ",A
:Input "ANGLE REFRACTION",B
:Input "INDICE MILIEU 1",C
:(sin A/sin B)/C[sto]D
:Clrhome
:Output(4,1,"INDICE MILIEU 2:
:Output5,2,D
:Pause
:Goto A
:Lbl 5
:Clrhome
:output(1,1,"
( le output(1,1," il sert juste a effaçé "done" quant on quite le programme, il est pas du tout obligatoire... )
P.S.2 : j'ai refait ce programme sur ma calculette et il prend moins de place ( environs 304 octets ) donc si ça interresse quelqu'un, dès que je reçois le cable pour relier la ti au pc (j'espére dans moins de 3 jours ) je poste le programme sur ce topic.
bonsoir ,ma ti 82 stats me trouve 1 erreur au niveau du À a la 3eme ligne de code , car je n"arrive pa a le trouvé sur ma calto =/ tu pourais me dire ou il est ?
pareil je ne trouve pa le ü
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Mar 05 Jan 2010, 22:30
Le "ü" c'est la touche [sto] (juste au dessus de [on]) d'ailleurs ça apparaitra si tu mets ta souris dessus.
Le "à" majuscule c'est [théta]:tu l'auras en tapant [alpha] puis [3].
Bunny Invité
Posté le : Mer 06 Jan 2010, 14:38
Merci rezus, mais ma ti me détecte toujours une erreur au niveu de la 3eme ligne de code avec Le à Majuscule ( sur la calculette c'est bien un style de ø ?? )
tu aurais une solution ?
:Menu(" REFRACTION ","ANGLE DE REF",1,"ANGLE INCIDENCE",2,"N1",3,"N2",4,"QUIT",Á
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Mer 06 Jan 2010, 14:52
oui,théta c'est bien un genre de 0 barré.
Elle t'affiche quel type d'erreur ?
Tu n'as pas fait de faute de recopiage à cette ligne ?
Bunny Invité
Posté le : Mer 06 Jan 2010, 18:17
Elle me dit que c'est une erreur de domaine , Comme c'est l'un de premiers progs que je copie sur ma calculette je ne sais pas quoi a sa correspond ? Normalement j'ai bien copier la ligne
Autorisation : Membre
Nb de messages : 853
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 07 Jan 2010, 18:01
C'est bizarre.Vérifie encore que ta ligne est identique et supprime le "E" au bout de "INCIDENCE".
Au pire supprime aussi le "C" et remplaces le par un un "T",ça donnera ANGLE INCIDENT,si mes souvenirs sont bons ça reviens au même.
bunny Invité
Posté le : Jeu 07 Jan 2010, 20:46
oui, j'avai du oublié 1 espace jai retapé la ligne et sa marche nikel merci ^^
Autorisation : Membre
Nb de messages : 21
Inscrit le : Ven 11 Fév 2011, 15:32
Posté le : Ven 29 Avr 2011, 19:57
si tu a vu mon programme sur l'angle de refraction , tout est graphique , chaque etape du calcul est ecrite . tu devrai faire de meme sa serai beaucoup mieux surtout si tu l'utilise pdt des controles.
---------------------- archimeti programmateur en ti-basic , visual basic, en c
mon forum avec une partie sur le ti-basic: http://dev-prog.xooit.fr/index.php