clear all
hold off
orient landscape
%
J0x=[-0.4 0.4];
J1x=[ 0.6 1.4];
J2x=[ 1.6 2.4];
%
h=plot(J0x,[1390,1390],J1x,[1285,1285],J2x,[1270,1270]);
set(h,'Color','green')
set(h,'Linewidth',3)
axis([-0.5 2.5 1200 1800])
set(gca,'Xtick',[0 1 2],'fontsize',15)
hold on
%
h=plot(J0x,[1450,1450],J1x,[1260,1260],J2x,[1320,1320]);
set(h,'Color','blue')
set(h,'Linewidth',3)
h=plot(J0x,[1430,1430],J1x,[1330,1330],J2x,[1430,1430]);
set(h,'Color','cyan')
set(h,'Linewidth',3)
h=plot(J1x,[1510,1510],J2x,[1525,1525]);
set(h,'Color','red')
set(h,'Linewidth',3)
plot(J0x,[1500,1500],'--','Color','red','Linewidth',3)
%
plot(J0x,[1710,1710],'Color','black','Linewidth',3)
plot(0,1740,'o','MarkerEdgeColor','magenta','MarkerFaceColor','magenta','MarkerSize',5)
plot([0 0],[1740-71,1740+71],'Color','magenta')
%
plot([1.3 1.6],[1750 1750],'Linewidth',3','Color','red')
text(     1.7 ,      1750 ,'Strangeonium','Color','red','fontsize',15)
plot([1.3 1.6],[1720 1720],'Linewidth',3','Color','cyan')
text(     1.7 ,      1720 ,'Strange','Color','cyan','fontsize',15)
plot([1.3 1.6],[1690 1690],'Linewidth',3','Color','blue')
text(     1.7 ,      1690 ,'Isovector','Color','blue','fontsize',15)
plot([1.3 1.6],[1660 1660],'Linewidth',3','Color','green')
text(     1.7 ,      1660 ,'Isoscalar','Color','green','fontsize',15)
text(0.1,1740,'Calculated glueball','Color','magenta','fontsize',15)
%
xlabel('Spin J','fontsize',15)
ylabel('Meson Mass (MeV)','fontsize',15)
title('Masses of S=1 P-Wave Mesons','fontsize',15)
%
print -dpsc afkg.ps