generated from erosita/uds
100 lines
2.7 KiB
R
100 lines
2.7 KiB
R
#
|
|
# 2 data sets
|
|
# in Xspec make ipl->wdata
|
|
# then split file to four parts as lecr1/2/3/4
|
|
#
|
|
|
|
|
|
library(sfsmisc)
|
|
|
|
|
|
up=2.0
|
|
#xgrid <- c(30,50,70,100);
|
|
Emin=25.0
|
|
Emax=180.0
|
|
postscript('cutoffpl_l-20.eps', horizontal = FALSE, onefile = FALSE, paper = "special",width = 9.0, height = 6.0)
|
|
par(oma=c(1,1,1,1))
|
|
par(lwd=2)
|
|
|
|
layout(matrix(c(1,2), 2, 1, byrow = TRUE), heights = c(1.5,1), TRUE)
|
|
leftx=5.3
|
|
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.05,1)
|
|
|
|
cl="black"
|
|
a <- read.table('./cutoffpl_l-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, 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",lwd=3,lty="longdash")
|
|
lines(a$x,a$pow,pch=1,bg=cl,col="red",lwd=3,lty="dotdash")
|
|
lines(a$x,a$total,pch=1,bg=cl,col="black")
|
|
|
|
#
|
|
# Plot upper limits
|
|
#
|
|
upx=a$x[(a$y/a$dy)<up]
|
|
upy=a$y[(a$y/a$dy)<up]
|
|
updx=a$dx[(a$y/a$dy)<up]
|
|
updy=a$dy[(a$y/a$dy)<up]
|
|
|
|
segments(upx-updx,updy*up,upx+updx,updy*up,col=cl)
|
|
segments(upx,updy*up/2,upx,updy*up,col=cl)
|
|
points(upx,updy*up/2,pch=25,bg=cl,col=cl)
|
|
|
|
px=a$x[(a$y/a$dy)>=up]
|
|
py=a$y[(a$y/a$dy)>=up]
|
|
pdx=a$dx[(a$y/a$dy)>=up]
|
|
pdy=a$dy[(a$y/a$dy)>=up]
|
|
|
|
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)
|
|
|
|
|
|
###################################################################################
|
|
|
|
par(mar=c(4.5, leftx, 0.1, 1))
|
|
ylim <- c(-3.1, 3.1)
|
|
|
|
cl="black"
|
|
a <- read.table("./cutoffpl_l-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)
|
|
|
|
#abline(v=xgrid, col="lightgray", lty="dotted")
|
|
#grid()
|
|
#abline(h=0, col = "black",lty=2)
|
|
#dev.off()
|
|
|
|
#abline(v=xgrid, col="lightgray", lty="dotted")
|
|
|
|
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))
|
|
### 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()
|