Programmes d'optique
Pour visualiser les sources des programmes
vous devez télécharger le fichier de police ti dans
le dossier : C:\WINDOWS\FONTS\
Pour ne rien oublier voici le diagramme du programme
Programme LUMIERE
Lbl 99
EffEcr
Flottant
6.63  34 H
38C
1.619V
Menu(" Lumiere optic ","CalcuL lum",1,"Atome exite",2,"LentIlle",3,"Interfer",5,"Difract",6,"Sortir",4)
Lbl 1
EffEcr
Disp "Lamda de nm"
Input L
If L 0
Then
L*10^9L
Goto 15
End
Disp "Fre en Hz"
Input L
If L0
Then
C/LL
Goto 15
End
Lbl 15
C/LM
M*HE
EffEcr
Disp "Longeur onde nm",L*10^9
Disp "Frequence Hz",C/L
Disp "Energie en eV",E/V
Pause
Goto 99
Lbl 2
EffEcr
Disp "Retour electron"
Disp "IL part (couche)"
Input A
Disp "IL arrive"
Input B
EffEcr
If (A*B)0
Goto 16
Disp "Energie phot eV"
Input E
If E0
Goto 17
Disp "Energie en Joul"
Input E
E/VE
Goto 17
Lbl 16
13.6/B -13.6/AE
Lbl 17
1241.25/EL
EffEcr
Disp "Energi Photon eV",E
Disp "Longueur onde nM",L
Pause
Goto 99
Lbl 3
Fixe 3
EffEcr
Disp " Calculs Images"
Pause
EffEcr
Disp "FocaL lens"
Input F
Disp "Posi objet"
Input O
Disp "Posi image"
Input A
Disp "Taille obj"
Input C
Disp "Taille img"
Input D
If F=0 et O*A0
(Añ-Oñ)ñF
If A=0 et F*O0
F*O/(F+O)A
If O=0 et F*A0
F*A/(F-A)/O
If C=0 et D*A*O0
D*O/AC
If D=0 et C*A*O0
C*A/OD
EffEcr
Disp "FocaL lens",F
Disp "Posi objet",O
Disp "Posi image",A
Pause
EffEcr
Disp "Taille obj",C
Disp "Taille img",D
Pause
Goto 99
Lbl 4
Stop
Lbl 5
EffEcr
Disp "Interferences"
Disp "Fentes"
Disp "X=(KLD)/a"
Disp " =(LD)/a"
Disp "Resau"
Disp "sin =kLn"
Disp "LongGeometr=Ö*d"
Pause
Goto 99
Lbl 6
EffEcr
Disp "Difraction"
Disp "0=1.22L/D=rad"
Disp "Resolution"
Disp "d0=(1.22*L*L)/D"
Disp "D=dia Optik"
Disp "L=longue onde"
Disp "D=dIstance"
Pause
Goto 99
|
