submit

Spectra/figures/cutoffpl_lon+20.r

@@ -4,12 +4,10 @@
 # then split file to four parts as lecr1/2/3/4
 #
 
-key="lecr"
-#key="pow"
-keymo="model2"
+library(sfsmisc)
 
 
-up=1.0
+up=2.0
 #xgrid <- c(30,50,70,100); 
 Emin=25.0
 Emax=180.0
@@ -23,17 +21,28 @@ par(mar=c(0.1, leftx, 1, 1))
 par(cex.lab=1.6)
 par(cex.axis=1.6)
 xlim <- c(Emin,Emax)
-ylim <- c(0.1,1.5)
+ylim <- c(0.05,1.0)
 
 cl="black"
 a <- read.table('../cutoffpl_lon+20_eeuf.dat', col.names=c("x","dx","y","dy","total","cutoffpl","pow"))
-plot(a$x, a$y, pch=3, bg="white", col="white", ylim=ylim, xlim=xlim,main="LON+20 (cutoffpl+powerlaw)",ylab=expression("keV"^"2"~"(Phot. keV"^"-1"~"cm"^"-2"~"s"^"-1"*")"),type="p",xaxt = 'n',xlab="",log="xy")
+plot(a$x, a$y, pch=3, bg="white", col="white", ylim=ylim, xlim=xlim,ylab=expression("keV"^"2"~"(Phot. keV"^"-1"~"cm"^"-2"~"s"^"-1"*")"),type="p",xaxt = 'n',xlab="",log="xy")
 
 #axis(side=2, at=c(1e-6,1e-5, 1e-4, 1e-3, 1e-2), labels=expression('-6','-5','-4','-3','-2'))
 
 #abline(v=xgrid, col="lightgray", lty="dotted")
 grid()
 
+###################################################################################
+##
+## Plot model components
+##
+###################################################################################
+
+lines(a$x,a$cutoffpl,pch=1,bg=cl,col="blue")
+lines(a$x,a$pow,pch=1,bg=cl,col="red")
+lines(a$x,a$total,pch=1,bg=cl,col="black")
+
+
 #
 # Plot upper limits
 #
@@ -55,25 +64,18 @@ segments(px,py-pdy,px,py+pdy,col=cl)
 segments(px-pdx,py,px+pdx,py,col=cl)
 
 #legend( 35.0,1e-2,c("FPMA","FPMB"), lty=c(1,1), lwd=c(2.5,2.5),col=c("black","red"),cex=1.7)
+text(100, 0.75, "L+20",cex=2.5)
 
-###################################################################################
-##
-## Plot model components
-##
-###################################################################################
-
-lines(a$x,a$cutoffpl,pch=1,bg=cl,col="blue")
-lines(a$x,a$pow,pch=1,bg=cl,col="red")
-lines(a$x,a$total,pch=1,bg=cl,col="black")
 
 ###################################################################################
 
 par(mar=c(4.5, leftx, 0.1, 1))
-ylim <- c(-2.5,2.5)
+ylim <- c(-3.1,3.1)
 
 cl="black"
 a <- read.table("../cutoffpl_lon+20_delchi.dat", col.names=c("x","dx","y","dy"))
 plot(a$x, a$y, pch=3, ylim=ylim, xlim=xlim, ylab=expression(Delta~chi), xlab="",type="p",log="x",xaxt = 'n')
+grid()
 segments(a$x,a$y-a$dy,a$x,a$y+a$dy,col=cl)
 segments(a$x-a$dx,a$y,a$x+a$dx,a$y,col=cl)
 
@@ -83,11 +85,15 @@ segments(a$x-a$dx,a$y,a$x+a$dx,a$y,col=cl)
 #dev.off()
 
 #abline(v=xgrid, col="lightgray", lty="dotted")
-grid()
 abline(h=0, col = "black",lty=2)
 
 mtext(side = 1, text = "Energy, keV", line = 4, cex=1.6)
 
-axis(1, mgp=c(3, 1.5, 0))
+#axis(1, mgp=c(3, 1.5, 0))
+### Log axis using sfsmisc ###
+atx=c(8,30,50,80,100,150)
+eaxis(1, at = atx, labels = pretty10exp(atx, sub10=c(1,100), drop.1=TRUE), las=0)
+abline(v=atx, col="lightgray", lty="dotted") 
+###
 
 dev.off()