This commit is contained in:
Roman Krivonos
2024-09-11 10:05:15 +03:00
parent 0dcf1178cc
commit 462133ce2e
20 changed files with 108 additions and 10 deletions

View File

@@ -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'))

View File

@@ -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))