Aufgabe 3
clear all;
e = 1.609e-19;
h = 6.626e-34;
me = 9.11e-31;
c = 299792458
c = 299792458
Gegeben
lambda = 100e-9
lambda = 1.0000e-07
EA = 4.3 * e
EA = 6.9187e-19
a) Max Energiezuwachs
E = h * c / lambda
E = 1.9864e-18
E_eV = E / e
E_eV = 12.3457
Emax = E - EA
Emax = 1.2946e-18
Emax_eV = Emax / e
Emax_eV = 8.0457
c) Grenzfrequenz
fg = EA / h
fg = 1.0442e+15
d) Nickel statt Silber
U = 7.35
U = 7.3500
EU = e*U
EU = 1.1826e-18
EA_Ni = E - e*U
EA_Ni = 8.0381e-19
EA_Ni_eV = EA_Ni / e
EA_Ni_eV = 4.9957
e) Plot
nuspace = linspace(0,3 * EA_Ni_eV/h,100);
EAg_eV = -EA / e + h*nuspace;
ENi_eV = -EA_Ni_eV + h*nuspace;
plot(nuspace,EAg_eV); hold on;
plot(nuspace,ENi_eV)
box off
grid on
line([nuspace(1) nuspace(end)],[0 0],'Color','k')
ylabel('E [eV]')
%xlabel('f [Hz]')
%xl = xticks;
%xl = str2double(xl) * e
%xl = num2str(xl)
%xticklabels(xl)