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
angle de réfraction de la lumière
Auteur Message
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Mar 04 Déc 2007, 21:11   Citer 

C'est un programme pour calculer l'angle de réfraction de la lumière.
Mais aussi mon premier programme. godgrace.gif godgrace.gif


Code

EffEcr
Degré
Input "indice millieu 1",A
Input "indice millieu 2",B
Input "angle incidence:",C
Arcsin((A*sin(C)/B))->D
Pause :EffEcr
Disp "angle refraction","est egale a",D



 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mar 04 Déc 2007, 21:29   Citer 

C'est très bien mais à quoi sert cette ligne ?


Code
Pause :EffEcr



Une astuce : tu peux oublier de refermer les parenthèses pour économiser des octets.
Tu comprendras avec ce code :


Code
EffEcr
Degré
Input "indice millieu 1",A
Input "indice millieu 2",B
Input "angle incidence:",C
Arcsin((A*sin(C)/B->D
Disp "angle refraction","est egale a
D
 



-> Mettre une variable sur la dernière ligne (ou l'avant dernière ligne si il n'y rien sur la dernière) l'affiche à la fermeture du programme.


En tout cas bravo pour ce premier programme assez util happy.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Mar 04 Déc 2007, 21:39   Citer 

A rien je sais mais j'aime quand c'est propre et niquel pour la présentation.
Pour économiser les octet je suis au courant mais sa fait plus propre sur le forum, dans ma calculatrice il n'y a pas les parenthèses.

Merci pour tes encouragements.

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mar 04 Déc 2007, 21:50   Citer 

j'avais fait le meme mais si je me rapelle y'avait trois type de rapport donc y'avait trois type de calcul alors je sais pas si il est juste ou si il fait tous els calculs

 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Mar 04 Déc 2007, 22:01   Citer 

Le mien ne calcule que l'angle réfraction de la lumière, mais c'est possible de calculer l'angle d'incidence ou l'indice de réfraction des différents millieux.
Ou même la longueur d'onde de la source lumineuse.

 Adresse email Haut de page Bas de page 
 
Lexa001
Avatar

Autorisation : Membre
Nb de messages : 14
Inscrit le : Sam 17 Nov 2007, 10:31
Posté le : Mer 05 Déc 2007, 14:28   Citer 

Salut Musica tu as du me recconaitre laugh.gif , donc voilà mon programme complets sur la réfraction

Code
:EffEcr
:Ouput(4,3,"LA REFRACTION")
:Ouput(8,10,"BY LEXA")
:For(Z,1,1000)
:End
:Degré
:Lbl 0
:EffEcr
:Menu("REFRACTION,"CALCUL",1,"LEGENDE",2,"QUITTER",3)
:Lbl 1
:EffEcr
:Menu("CHOIX INCONNUE","I1",4,"I2",5,"N1",6,"N2",7,"RETOUR AU MENU",8)
:Lbl 2
:EffEcr
:Disp "N1=N","I1=I","N2=M","I2=A"
:For(Z,1,2000)
:End
:Goto 0
:Lbl 3
:Stop
:Lbl 4
:EffEcr
:Prompt N,M,A
:Arcsin(N/(M*sin(A))->X
:Disp "RESULTAT",X
:Pause
:Goto 0
:Lbl 5
:EffEcr
:Prompt N,I,M
:Arcsin(N*sin(I)/M->Q
:Pause
:Disp "RESULTAT",Q
:Pause
:Goto 0
:Lbl 6
:EffEcr
:Prompt I,M,A
:M*sin(A)/sin(I)->Z
:Disp "RESULTAT",Z
:Pause
:Goto 0
:Lbl 7
:EffEcr
:Prompt N,I,A
:N*(sin(I)/sin(A)->U
:Disp "RESULTAT",U
:Pause
:Goto 0
:Lbl 8
:Goto 0


Je sais que l'on peut le réduire plus en enlevant la présentation et en remplacant les For(
End
par Pause
Donc voilà bigmouth.gif bigmouth.gif

P.S: Vous aurez compris que -> c'est la touche sto->

----------------------
Que la Force soit avec toi !
 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Mer 05 Déc 2007, 20:43   Citer 

Je déteste les "Prompt".
Le mien est plus beau niveau présentation.
Je l'ai finit en colle (de physique^^)


Code

Lbl 0
EffEcr
Menu("calculer","angle refract",1,"angle incident",2,"indce rfrct m1",3,"indice rfrct m2",4,"quitter",5
Lbl 1
EffEcr
Degré
Input "indice millieu 1",A
Input "indice millieu 2",B
Input "angle incidence:",C
EffEcr
Arcsin((A*sin(C)/B->D
Disp "angle refraction","est egale a",D
pause :Goto 0
Lbl 2
EffEcr
Degré
Input "indice millieu 1",A
Input "indice millieu 2",B
Input "angle refrcation",C
EffEcr
Arcsin((B*sin(C)/A->D
Disp "angle refraction","est egale a",D
pause :Goto 0
Lbl 3
EffEcr
Input "indice millieu 2",A
Input "angle refraction",B
Input "angle incident  ",C
EffEcr
(a*sin(B))/sin(C)->D
Disp "indice refrction","du millieu 1",D
Pause :Goto 0
Lbl 4
EffEcr
Input "indice millieu 1",A
Input "angle refraction",B
Input "angle incident  ",C
EffEcr
(a*sin(B))/sin(C)->D
Disp "indice refrction","du millieu 2",D
Pause :Goto 0
Lbl 5
EffEcr
Stop



 Adresse email Haut de page Bas de page 
 
Lexa001
Avatar

Autorisation : Membre
Nb de messages : 14
Inscrit le : Sam 17 Nov 2007, 10:31
Posté le : Jeu 06 Déc 2007, 10:29   Citer 

Tu peux rajouter des Fixe 1 pour arrondir les angles à 1 chiffre après la virgule et des Fixe 2 pour les indices de réfraction, cela arrondirai la valeur à 2 chiffres après la virgule ce qui rendrai le résultat plus lisible godgrace.gif

----------------------
Que la Force soit avec toi !
 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Jeu 06 Déc 2007, 18:33   Citer 

je n'y avait pas penser.
merci

 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Jeu 06 Déc 2007, 18:40   Citer 

Moi j'avais fait une presentation assez sympa (oui j'ai aussi fait ce programme bigmouth.gif)


Code

EffDessin
Horizontale 64
Horizontale 8
Horizontale 0
Verticale 0
Varticale 92
Texte(5,15,"Formule_De_Physique")
Texte(41,17,"Refractation_Et")
Texte(47,4,"Dispertion_De_La_Lumiere")
Texte(55,30,"By_RegeDoT")
Ligne(30,24,62,24)
Ligne(30,24,46,52)
Ligne(62,24,46,52)
Ligne(10,27,38,38)
Ligne(55,35,72,23)
Ligne(53,38,72,33)



Qu'en penser vous ?

PS : Pour les maniaque de l'espace, vous pouvez virer les ")" et les """ a la fin des lignes :p

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Jeu 06 Déc 2007, 18:49   Citer 

ça prend de la place pour rien.(plus de 100 octet)

 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Jeu 06 Déc 2007, 18:55   Citer 

je me suis tuer comme un fou a faire le prisme et c'est tout ce que tu trouve a dire =.=

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Jeu 06 Déc 2007, 19:02   Citer 

à quoi sa sert de faire une bonne présente pour un programme qui te sert juste pour les DS ou DM ?
Et sa prend beaucoup de place. (j'ai deja dit ça)

 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Jeu 06 Déc 2007, 19:04   Citer 

=.= Ca sert a quoi que tu vienne me mettre en bad mon moral ?

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Jeu 06 Déc 2007, 19:14   Citer 

Désolé,il est pas mal quand même mais c'est juste que ça prend beaucoups de place pour rien.
Moi tant que j'ai mon programme pour vérifier mes résultats sa me convient.
Sinon, désolé d'avoir bader ton morale.

 Adresse email Haut de page Bas de page 
 
Regedit



Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
Posté le : Dim 09 Déc 2007, 13:18   Citer 


Citer : musica
Désolé,il est pas mal quand même mais c'est juste que ça prend beaucoups de place pour rien.
Moi tant que j'ai mon programme pour vérifier mes résultats sa me convient.
Sinon, désolé d'avoir bader ton morale.



Pas grave, c'est juste que c'etait mon anniv et que voila quoi ca ma bien fait chier ce que ta dit la, car c'est du travail quand meme, j'ai passer une nuit a le faire ...

----------------------
Les Packs jeux de Regedit :

Pack Alien Breed : 633,2 kb
Pack Skin/Rom pour VTI : 5380 kb
 Adresse email Haut de page Bas de page 
 
musica
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
Posté le : Dim 09 Déc 2007, 16:11   Citer 

dsl minied.gif

 Adresse email Haut de page Bas de page 
 
tournesol



Autorisation : Membre
Nb de messages : 1
Inscrit le : Sam 12 Jan 2008, 17:03
Posté le : Sam 12 Jan 2008, 17:09   Citer 

Bonjour

je suis en seconde et j'ai fait un programme sur la réfraction
Ce programme comporte des menus avec le différents indices de réfractions
Il donne le calcul à effectuer, comme ça devant sa copie, pas besoin de réfléchir crazy.gif
Et enfin il donne un graphique. Enfin, un schéma de la réfracrion que l'on vien d'effectuer

Voou pouvez le retrouver sur le site que je suis en train de faire, rubrique programme http://pagesperso-orange.fr/besoin.daide/
Merci de visiter mon site
Et si vous voulez bien, faîtes en la pub
Merci laugh.gif

 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 : Sam 12 Jan 2008, 17:56   Citer 

Tu as le cable mais ceux qui ne l'on pas ne peuvent pas voir correctement les symboles telles que le theta ou "supérieur ou égal".
De plus, ont peut largement l'alléger et donc augmenter ca vitesse d'execution.

Sangohan38

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

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Sam 12 Jan 2008, 17:59   Citer 

Et puis en plus plutôt que de mettre un lien, autant le poster ici…

----------------------
Vive la programmation et vive le vibraphone !!!
 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