J'imagine que ce programme a déjà été créé, mais cependant il ne figure pas sur le forum, je propose ici des "vérifications" d'équations de physiques comprenant:
Contenu:
Loi De Wien (ø=((2.89•10^6)/λmax)-273)
Formule de Conjugaison (1/OA'-1/OA=1/OF');
Formule de Grandissement (A'B'/AB=OA'/OA);
Longueur d'onde (avec la formule λ=c/v avec le choix de λ en nm ou m).
Programme:
Contenu:
Loi De Wien (ø=((2.89•10^6)/λmax)-273)
Formule de Conjugaison (1/OA'-1/OA=1/OF');
Formule de Grandissement (A'B'/AB=OA'/OA);
Longueur d'onde (avec la formule λ=c/v avec le choix de λ en nm ou m).
Programme:
- Code:
EffEcr
Menu("CHOIX","CONJUGAISON",1,"GRANDISSEMENT",2,"LONGUEUR ONDES",3,"LOI DE WIEN",8
EffEcr
Lbl 1
Input "OA=",A
Input "OA'=",B
Input "OF'=",F
If 1/B-1/A=1/F
Then
Disp "OK !
Else
Disp "NON !
End
Stop
Lbl 2
Input "A'B'=",W
Input "AB=",X
Input "OA'=",Y
Input "OA=",Z
If W/X=Y/Z
Then
Disp "OK !
Else
Disp "NON !
End
Stop
Lbl 3
Input "LAMBDA=",L
Menu("UNITE","NM",4,"METRES",5
Lbl 4
L*10^-9->L
Goto 5
Lbl 5
Input "FREQUENCE=",F
If L=(3.0*10^8)/F
Then
Disp "OK !
Else
Disp "NON !
End
Stop
Lbl 8
Menu("LOI DE WIEN","ø °C",6,"Ymax",7
Lbl 6
Input "Ymax=",T
(2.89*10^6)/T-273->A
Disp "2.89E6/
Output(2,8,T
Output(3,1,"-273"
Output(4,1,A
Stop
Lbl 7
Input "ø=",L
(2.89*10^6)/(L+273)->U
Disp "2.89E6/(
Output(2,9,L
Output(3,1,"+273)"
Output(4,1,U
Stop
Dernière édition par pito2901 le Mer 23 Oct 2013 - 22:53, édité 1 fois