# code to generate the plot for an effective potential set terminal postscript eps enhanced color font "Times-Italic,24pt" size 12cm,6cm dashlength 2 set output 'effectivepotential2.eps' set border 0 k=.18; l=0.1 U(x)=k/x W(x)=l**2/x**2 V(x)=U(x)+W(x) set size 0.9,1; set origin 0.1,0 set xrange [0:1] set yrange [-.1:1.9] set format x "" set format y "" unset xtics unset ytics set xzeroaxis set arrow from 0,-.15 to 0,1.95 filled set arrow from 0,0 to 1.02,0 filled set ylabel " " offset -1 set label 1 "V_{/Times-Roman eff}" at -0.1,1.8 set label 2 "r" at 1.03,-0.05 # Energy line set arrow from 0,0.8 to 0.9,0.8 lt 3 lw 1 lc rgb 'black' nohead set arrow from 0.272,0.8 to 0.9,0.8 lt 1 lw 4 lc rgb 'black' nohead set label 3 "E" at -.08,.81 set arrow from 0.272,0.81 to 0.272,0 lt 3 lw 1 lc rgb 'black' nohead set label 6 "r_{/Times-Roman min}" at .24,-.1 set label 10 "l^2/(2{/Symbol m}r^2)" at .01,.2 set label 11 "U(r)" at .3,.4 set label 12 "V_{/Times-Roman eff}(r)" at .18,1.6 set label 13 "{/Times-Roman 0}" at -.06,0 plot U(x) w l lt 2 lw 3 lc rgb 'red' notitle,\ W(x) w l lt 2 lw 3 lc rgb 'red' notitle,\ V(x) w l lt 1 lw 6 lc rgb 'blue' notitle