Use a program like Mathematica to solve equations (7.5.13)(7.5.15) for (k). Setting c = 1, ()/ 0 = 2, and E g Ry ex =

Use a program like Mathematica to solve equations (7.5.13)–(7.5.15) for ω(k). Setting c = 1, ±(∞)/ϵ₀ = 2, and E_g−Ry_ex = 1, plot both branches of ω(k) for various values of the coupling constant q²N/mV and the exciton mass, and show the mixing region. For a case of reasonably strong mixing, plot the three-dimensional density of states for the lower branch using (1.8.5), and show that the density of states for the photon-like region is well below that of the exciton-like region. To do this, you must solve for k²(ω).

3 = ck (@)/ 0 (7.5.15)