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
refraction de la lumiere
Auteur Message
englef69



Autorisation : Membre
Nb de messages : 6
Inscrit le : Mar 25 Nov 2008, 15:46
Posté le : Mer 03 Déc 2008, 18:36   Citer 

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 glasses.gif) 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.

Code
Texte en sous-format code
:Degree
:Clrhome
:Menu("REFRACTIONLUMIERE","ANGLE REFRACTI",1,"ANGLE INCIDENC",2,"INDICE MILIEU1",3,"INDICE MILIEU2",4
: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 1
:Pause
:Clrhome
: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 2
:Pause
:Clrhome
: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 3
:Pause
:Clrhome
: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 4
:Stop




j'espère que ce petit programmes(604 octets) loupe.gif 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 eyeonly.gif glasses.gif

 Adresse email Haut de page Bas de page 
 
BAutiste33
Invité
Posté le : Mer 03 Déc 2008, 21:56   Citer 

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é winkle.gif
Mercii Beaucoup

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 04 Déc 2008, 20:16   Citer 

Ou alors au début du programme, il suffit de rajouter la fonction "Degree" et à la fin du programme de mettre "Radian".

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
BAutista33
Invité
Posté le : Ven 05 Déc 2008, 17:53   Citer 

Je renouvelle mes remerciements ce matin pour mon contrôle de physique c'était PARFAIT pour vérifier !!!
Merci Beaucoup =) happy.gif

  Haut de page Bas de page 
 
englef69



Autorisation : Membre
Nb de messages : 6
Inscrit le : Mar 25 Nov 2008, 15:46
Posté le : Lun 08 Déc 2008, 19:21   Citer 

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.

 Adresse email Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Mar 09 Déc 2008, 19:21   Citer 

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... cupsmiley.gif )

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 crazy.gif ) je poste le programme sur ce topic.

 Adresse email Haut de page Bas de page 
 
denis



Autorisation : Membre
Nb de messages : 81
Inscrit le : Lun 15 Sep 2008, 17:13
Posté le : Dim 11 Jan 2009, 16:02   Citer 

M'a prédiction des trois jour pour poster ce porgramme était un peut optimiste... godgrace.gif

Donc voilà ce programme (version bien plus courte que celle posté plus haut) qui calcule les angles et indices de réfractions :


Code
:ClrHome
:Degree
:Menu("  REFRACTION  ","ANGLE DE REF",1,"ANGLE INCIDENCE",2,"N1",3,"N2",4,"QUIT",Á
:Lbl 1
:Input "I1 = ",I
:Input "N1 = ",N
:Input "N2 = ",O
:sinñ ((N*sin I)/O)üZ
:Goto 5
:Lbl 2
:Input "I2 = ",I
:Input "N1 = ",N
:Input "N2 = ",O
:sinñ ((O*sin I)/N)üZ
:Goto 5
:Lbl 3
:Input "I1 = ",I
:Input "I2 = ",J
:Input "N2 = ",O
:(O*sin J)/sin IüZ
:Goto 5
:Lbl 4
:Input "I1 = ",I
:Input "I2 = ",J
:Input "N1 = ",N
:(N*sin I)/sin JüZ
:Lbl 5
:Output(5,2,"RESULTAT :"
:Output(7,7,Z
:Stop
:Lbl Á
:ClrHome
:Output(1,1,"



 Adresse email Haut de page Bas de page 
 
bunny
Invité
Posté le : Mar 05 Jan 2010, 21:51   Citer 

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 ü

merci

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Mar 05 Jan 2010, 22:30   Citer 

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].

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Bunny
Invité
Posté le : Mer 06 Jan 2010, 14:38   Citer 

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",Á

A la fin de la ligne.

Merci

  Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Mer 06 Jan 2010, 14:52   Citer 

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 ?

 Adresse email Haut de page Bas de page 
 
Bunny
Invité
Posté le : Mer 06 Jan 2010, 18:17   Citer 

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

  Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 07 Jan 2010, 18:01   Citer 

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.

 Adresse email Haut de page Bas de page 
 
bunny
Invité
Posté le : Jeu 07 Jan 2010, 20:46   Citer 

oui, j'avai du oublié 1 espace jai retapé la ligne et sa marche nikel merci ^^

  Haut de page Bas de page 
 
programath



Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 24 Fév 2011, 21:45
Posté le : Ven 04 Mar 2011, 14:38   Citer 

Pourquoi il y a "degree" au debut du programme ? je n'ai pas compris a quoi ça sert

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Ven 04 Mar 2011, 14:44   Citer 

ça sert à ce que la calculatrice ne calcule pas les angles en radians mais en degrés.

à partir du moment ou tu utilises des angles, vérifie que tu es bien en mode degré ou radian, selon tes angles.

 Adresse email Haut de page Bas de page 
 
programath



Autorisation : Membre
Nb de messages : 36
Inscrit le : Jeu 24 Fév 2011, 21:45
Posté le : Ven 04 Mar 2011, 14:58   Citer 

Merci, et comment on se met en mode radian ou degree ? crazy.gif

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Ven 04 Mar 2011, 15:30   Citer 

[MODE][bas][bas] ( [droite] ) [enter]

 Adresse email Haut de page Bas de page 
 
archimeti



Autorisation : Membre
Nb de messages : 21
Inscrit le : Ven 11 Fév 2011, 15:32
Posté le : Ven 29 Avr 2011, 19:57   Citer 

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
 Adresse email 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