Wellenlänge von Photon und Elektron über die Energie in doppellogarithmischer Auftragung

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

λp = h*c/Ekin

c := 3*10^8; h := 6.626*10^(-34); 
    me = 9.109*10^(-31);

DisplayTogether[
      Plot[λp, {Ekin, 10*1.602*10^(-19), 
          10^9*1.602*10^(-19)}], ImageSize -> 550]

λe = 
      h/(2*me*Ekin*(1 + Ekin/2/me/c^2))^(1/2)

DisplayTogether[
      Plot[λe, {Ekin, 10*1.602*10^(-19), 
          10^9*1.602*10^(-19)}], ImageSize -> 550]

LogLogPlot für das Photon:

DisplayTogether[
      LogLogPlot[λp, {Ekin, 10*1.602*10^(-19), 
          10^9*1.602*10^(-19)}], ImageSize -> 550]

LogLogPlot für das Elektron:

DisplayTogether[
      LogLogPlot[λe, {Ekin, 10*1.602*10^(-19), 
          10^9*1.602*10^(-19)}], ImageSize -> 550]