Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 2167
Réponses : 19
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Angle de réfraction de la lumière

musica le 04/12/2007 à 21:11
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
coc5 le 04/12/2007 à 21:29
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
musica le 04/12/2007 à 21:39
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.
Stupid le 04/12/2007 à 21:50
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
musica le 04/12/2007 à 22:01
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.
Lexa001 le 05/12/2007 à 14:28
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->
musica le 05/12/2007 à 20:43
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
Lexa001 le 06/12/2007 à 10:29
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
musica le 06/12/2007 à 18:33
je n'y avait pas penser.
merci
Regedit le 06/12/2007 à 18:40
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
musica le 06/12/2007 à 18:49
ça prend de la place pour rien.(plus de 100 octet)
Regedit le 06/12/2007 à 18:55
je me suis tuer comme un fou a faire le prisme et c'est tout ce que tu trouve a dire =.=
musica le 06/12/2007 à 19:02
à 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)
Regedit le 06/12/2007 à 19:04
=.= Ca sert a quoi que tu vienne me mettre en bad mon moral ?
musica le 06/12/2007 à 19:14
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.
Regedit le 09/12/2007 à 13:18
musica a écrit :
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 ...
musica le 09/12/2007 à 16:11
dsl minied.gif
tournesol le 12/01/2008 à 17:09
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
Sangohan38 le 12/01/2008 à 17:56
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
vibra le 12/01/2008 à 17:59
Et puis en plus plutôt que de mettre un lien, autant le poster ici…
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.