Photoeffekt - Berechnung des planckschen Wirkungsquantums h

<< Graphics`Graphics`
<< Statistics`StatisticsPlots`
<< Statistics`LinearRegression`

photoeffekt=({{124, 5.35}, {100, 7.75}});

\(photoeffekt // 
      TableForm[#, 
          TableHeadings -> {{}, {"λ in nm", "U in V"}}] &\)

photoeffektb = 
      Replace[photoeffekt, {da_, db_} -> {3*10^8/(da*10^-9), 
              db*1.602*10^-19}, 2] // N

photoeffektfit = Fit[photoeffektb, {1, x}, x]

DisplayTogether[ListPlot[photoeffektb],Plot[-7.449300000000026`*^-19 + 
            6.62160000000001`*^-34 x, {x, 2.*^15, 3.`*^15}],ImageSize -> 550]

Regress[photoeffektb, {x, 1}, x]

Wir erhalten also aus der Linearen Regression die Steigung  von h=6.6216*10^-34 und eine Austrittsarbeit von W_A=7.45*10^(-19)eV, dies entspricht W_A=4.65V.