upd

data/4XMM/README.md

@@ -0,0 +1,16 @@
+В данной директории находится каталог 4XMM-DR12
+
+Источник: http://xmmssc.irap.omp.eu/Catalogue/4XMM-DR12/4XMM_DR12.html
+
+Для вырезки источников для работы с полем UDS была использована эта команда:
+
+```
+ftselect '4XMM_slim_DR14cat_v1.0.fits[1]' 4XMM_slim_DR14cat_v1.0_Coma.fits 'SC_RA > 185 && SC_RA < 205 && SC_DEC > 20 && SC_DEC < 34.0' clobber=yes
+
+ftselect '4XMM_DR12cat_v1.0.fits[1]' 4XMM_DR12cat_v1.0_UDS.fits 'SC_RA > 32.75 && SC_RA < 36.31 && SC_DEC > -6.55 && SC_DEC < -3.0' clobber=yes
+
+Demo with DR13:
+ftselect '4XMM_slim_DR13cat_v1.0.fits[1]' 4XMM_slim_DR13cat_v1.0_DEMO.fits 'SC_RA > 25.75 && SC_RA < 50.31 && SC_DEC > -16.55 && SC_DEC < 13.0' clobber=yes
+
+```
+

data/4XMM/barplot.r

@@ -0,0 +1,20 @@
+library(ggplot2)
+
+# see https://r-graph-gallery.com/4-barplot-with-error-bar.html
+
+png(file = "barplot.png")
+
+# create dummy data
+data <- data.frame(
+  name=c('','yy','zz','ff','DR12'),
+  flux=c(1,2,3,4,5),
+  err=c(1,0.2,3,2,4)
+)
+ 
+# Most basic error bar
+ggplot(data) +
+    geom_bar(aes(x=name, y=flux), stat="identity", fill="skyblue", alpha=0.7) +
+    geom_errorbar( aes(x=name, ymin=flux-err, ymax=flux+err), width=0.4, colour="black", alpha=0.9, linewidth=2)
+    
+
+dev.off()

data/4XMM/plot_corr.r

@@ -0,0 +1,40 @@
+options(digits = 7)  # knitr sometimes decreases number of digits shown
+require(stats)
+xgrid <- c(1e-17,1e-16,1e-15,1e-14,1e-13,1e-12);
+
+
+postscript(paste("../../products/eUDS_4XMM-DR12.flux.eps",sep=""), horizontal = FALSE, onefile = FALSE, paper = "special",width = 9.0, height = 6.0)
+par(oma=c(1,1,1,1))
+
+#layout(matrix(c(1,2), 2, 1, byrow = TRUE), heights = c(1.5,1), TRUE)
+
+par(mar=c(4.3, 4.3, 1, 1))
+par(cex.lab=1.2)
+par(cex.axis=1.2)
+
+a <- read.table("../../products/eUDS_4XMM-DR12.flux.cvs", col.names=c("eflux","eerr","xflux","xerr"))
+
+
+xlim <- c(1e-15,1e-12)
+ylim <- c(1e-16,1e-12)
+
+plot(NULL,  pch=21, bg="gold",ylim=ylim, xlim=xlim, main="", ylab="eUDS, erg/s/cm2",type="p",xaxt="n",xlab="4XMM-DR12, erg/s/cm2", log="xy")
+axis(side=1, at=xgrid, labels=xgrid)
+segments(a$xflux,a$eflux-a$eerr,a$xflux,a$eflux+a$eerr)
+segments(a$xflux-a$xerr,a$eflux,a$xflux+a$xerr,a$eflux)
+#segments(a$xlo,d,a$xhi,d)
+points(a$xflux,a$eflux,pch=21, bg="gold")
+
+
+lines(c(1e-17,1e-12),c(1e-17,1e-12))
+lines(c(1e-17,1e-12),10*c(1e-17,1e-12),lt=2)
+lines(c(1e-17,1e-12),0.1*c(1e-17,1e-12),lt=2)
+
+grid()
+
+
+
+abline(h=0, col = "black",lty=2)
+abline(v=xgrid, col="lightgray", lty="dotted")
+
+dev.off()

data/4XMM/print_ds9reg.py

@@ -0,0 +1,19 @@
+from astropy.io import fits
+import sys
+
+#filename='4XMM_DR12cat_slim_v1.0_UDS.fits.catalog'
+filename='4XMM_slim_DR14cat_v1.0_Coma.fits'
+fout=filename.replace(".fits", ".names.reg")
+
+hdul = fits.open(filename)
+#hdul.info()
+
+tbdata = hdul[1].data
+hdul.close()
+
+
+with open("./{}".format(fout), 'w') as writer:
+    for rec in tbdata:
+        print("fk5;circle({}, {}, 0.008)".format(rec['sc_ra'],rec['sc_dec']))
+        writer.write("fk5;circle({}, {}, {}) # text={{{}}}\n".format(rec['sc_ra'],rec['sc_dec'],rec['sc_poserr']/3600,rec['IAUNAME']))
+