%Generated by Maple
\documentclass{article}
\usepackage{pstricks}
\usepackage{pst-plot}
\usepackage{pst-eps}
\begin{document}
\TeXtoEPS
\psset{xunit=1cm,yunit=17cm,linewidth=0.5pt,plotpoints=100}
\begin{pspicture}(-6.6,-0.02)(6.6,0.39)
\pscustom[linestyle=none,fillstyle=solid,fillcolor=gray!40,opacity=0.5]{
\psline(-6.000,0)(-6.000,0.37)
\psplot{-5.7480}{0}{2 3.1416 div 36.0000 x dup mul sub sqrt div}
\psline(0,0.1061)(0,0)
}
\pscustom[linestyle=none,fillstyle=solid,fillcolor=red!20,opacity=0.5]{

\psline(-6.000,0)(-6.000,0.37)
\psplot{-5.7399}{-1.0453}{2 3.1416 div x abs mul 36.0000 x dup mul sub x dup mul 1.0000 sub mul sqrt div}
\psline(-1.000,0.37)(-1.000,0)
}
\psaxes[Dx=1,Dy=0.1,labels=y]{->}(0,0)(-6.4,0)(6.4,0.37)
\uput[-90](-6,0){-6} \uput[-90](-1,0){-1} \uput[-90](1,0){1} \uput[-90](6,0){6} 
\rput[bl](6.4,0){$E$,eV} \rput[bl](0,0.37){DOS per site, eV$^{-1}$}
\psplot{-5.7480}{5.7480}{2 3.1416 div 36.0000 x dup mul sub sqrt div}
\psline[linewidth=1.5pt]{<-}(-3.820,0)(-3.820,0.04)
\psset{linecolor=red}
\psplot{-5.7399}{-1.0453}{2 3.1416 div x abs mul 36.0000 x dup mul sub x dup mul 1.0000 sub mul sqrt div}
\psplot{ 1.0453}{ 5.7399}{2 3.1416 div x abs mul 36.0000 x dup mul sub x dup mul 1.0000 sub mul sqrt div}
\psline(-6.000,0)(-6.000,0.37)
\psline(-1.000,0)(-1.000,0.37)
\psline( 1.000,0)( 1.000,0.37)
\psline( 6.000,0)( 6.000,0.37)
\psline[linewidth=1.5pt]{<-}(-3.963,0)(-3.963,0.04)
\rput[b](-3.891,0.04){\psframebox*[framesep=0pt,framearc=0.5]{\begin{tabular}{c} gain in \\ electronic energy \end{tabular}}}
\rput(3,0.09){\begin{tabular}{c} nondimerized \\ (metal) \end{tabular}}
\rput(2.8,0.17){\red \begin{tabular}{c} dimerized \\ (insulator) \end{tabular}}
\end{pspicture}
\endTeXtoEPS
\end{document}
