generated from erosita/uds
paper
This commit is contained in:
@@ -27,7 +27,7 @@ ylim <- c(0.1,1.5)
|
||||
|
||||
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="GC (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,main="LON+20 (cutoffpl+powerlaw)",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'))
|
||||
|
||||
|
@@ -61,7 +61,7 @@ segments(a$x-a$dx,a$y,a$x+a$dx,a$y,col=cl)
|
||||
|
||||
mtext(side = 1, text = "Energy, keV", line = 4, cex=1.6)
|
||||
|
||||
legend( 90.0,0.08,c("GC","LON+20","LON-20","BGD"), lty=c(1,1,1,1), lwd=c(2.5,2.5,2.5,2.5),col=c("red","blue","green","black"),cex=1.7)
|
||||
legend( 85.0,0.08,c("GC","LON+20","LON-20","3C 273/Coma"), lty=c(1,1,1,1), lwd=c(2.5,2.5,2.5,2.5),col=c("red","blue","green","black"),cex=1.7)
|
||||
|
||||
|
||||
axis(1, mgp=c(3, 1.5, 0))
|
||||
|
Reference in New Issue
Block a user