| angle de réfraction de la lumière |
| Auteur |
Message |
musica
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Mar 04 Déc 2007, 21:11
|
|
 |
C'est un programme pour calculer l'angle de réfraction de la lumière.
Mais aussi mon premier programme. 
| 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
|
|
 |
  |
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
coc5
Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Mar 04 Déc 2007, 21:29
|
|
|
C'est très bien mais à quoi sert cette ligne ?
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 
|
| |
|
| |
musica
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Mar 04 Déc 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
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Mar 04 Déc 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
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
musica
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Mar 04 Déc 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
Autorisation : Membre
Nb de messages : 14
Inscrit le : Sam 17 Nov 2007, 10:31
|
Posté le : Mer 05 Déc 2007, 14:28
|
|
|
Salut Musica tu as du me recconaitre  , 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à 
P.S: Vous aurez compris que -> c'est la touche sto->
----------------------
Que la Force soit avec toi ! |
| |
|
| |
musica
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Mer 05 Déc 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
Autorisation : Membre
Nb de messages : 14
Inscrit le : Sam 17 Nov 2007, 10:31
|
Posté le : Jeu 06 Déc 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
----------------------
Que la Force soit avec toi ! |
| |
|
| |
musica
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Jeu 06 Déc 2007, 18:33
|
|
|
je n'y avait pas penser.
merci
|
| |
|
| |
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Jeu 06 Déc 2007, 18:40
|
|
|
Moi j'avais fait une presentation assez sympa (oui j'ai aussi fait ce programme )
| 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
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Jeu 06 Déc 2007, 18:49
|
|
|
ça prend de la place pour rien.(plus de 100 octet)
|
| |
|
| |
Regedit
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Jeu 06 Déc 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
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Jeu 06 Déc 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
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Jeu 06 Déc 2007, 19:04
|
|
|
=.= Ca sert a quoi que tu vienne me mettre en bad mon moral ?
|
| |
|
| |
musica
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Jeu 06 Déc 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
Autorisation : Membre
Nb de messages : 191
Inscrit le : Dim 30 Sep 2007, 12:24
|
Posté le : Dim 09 Déc 2007, 13:18
|
|
|
| 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 ...
|
| |
|
| |
musica
Autorisation : Membre
Nb de messages : 22
Inscrit le : Ven 16 Nov 2007, 19:39
|
Posté le : Dim 09 Déc 2007, 16:11
|
|
|
dsl 
|
| |
|
| |
tournesol
Autorisation : Membre
Nb de messages : 1
Inscrit le : Sam 12 Jan 2008, 17:03
|
Posté le : Sam 12 Jan 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 
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
|
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 12 Jan 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
Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
|
Posté le : Sam 12 Jan 2008, 17:59
|
|
|
Et puis en plus plutôt que de mettre un lien, autant le poster ici…
----------------------
Vive la programmation et vive le vibraphone !!! |
| |
|
| |
