minor

2024-07-06 17:35:25 +03:00
parent 265e153465
commit 2552bdb552
156 changed files with 158161 additions and 224 deletions
@@ -0,0 +1,21 @@
 0 25.00    27.50 -1.363474 4.084106 0.0
 0 27.50    30.25 -0.245616 3.052794 0.0
 0 30.25    33.28 -1.025556 3.084092 0.0
 0 33.28    36.60 1.402920 3.173832 0.0
 0 36.60    40.26 0.735159 3.457427 0.0
 0 40.26    44.29 -0.496353 3.698145 0.0
 0 44.29    48.72 0.479391 4.223946 0.0
 0 48.72    53.59 -2.839391 5.365142 0.0
 0 53.59    58.95 1.304161 6.905455 0.0
 0 58.95    64.84 3.297558 8.093934 0.0
 0 64.84    71.33 4.943608 9.218347 0.0
 0 71.33    78.46 5.749453 9.774241 0.0
 0 78.46    86.31 1.465754 10.703572 0.0
 0 86.31    94.94 1.957626 12.127316 0.0
 0 94.94   104.43 9.424942 12.764683 0.0
 0 104.43   114.87 -0.188067 16.055453 0.0
 0 114.87   126.36 4.533064 20.241379 0.0
 0 126.36   139.00 2.507817 27.999564 0.0
 0 139.00   152.90 7.477649 36.426671 0.0
 0 152.90   168.19 13.579764 42.629752 0.0
 0 168.19   185.01 38.960197 50.332153 0.0
@@ -1,11 +1,11 @@
-0 25.00    27.50 0.000001 1.273784 0.0
+0 25.00    27.50 -1.509531 1.273784 0.0
-0 27.50    30.25 0.000001 0.981480 0.0
+0 27.50    30.25 -0.182043 0.981480 0.0
-0 30.25    33.28 0.000001 1.038721 0.0
+0 30.25    33.28 -0.970124 1.038721 0.0
 0 33.28    36.60 1.483310 1.008539 0.0
 0 36.60    40.26 0.727390 1.103990 0.0
-0 40.26    44.29 0.000001 1.218815 0.0
+0 40.26    44.29 -0.579335 1.218815 0.0
 0 44.29    48.72 0.550894 1.427123 0.0
-0 48.72    53.59 0.000001 1.750377 0.0
+0 48.72    53.59 -3.237488 1.750377 0.0
 0 53.59    58.95 1.612128 2.273561 0.0
 0 58.95    64.84 2.929322 2.714051 0.0
 0 64.84    71.33 4.538318 2.827685 0.0
@@ -0,0 +1,21 @@
 0 25.00    27.50 197.057593 21.183715 0.0
 0 27.50    30.25 212.755391 14.709119 0.0
 0 30.25    33.28 228.269096 14.880250 0.0
 0 33.28    36.60 187.038994 14.241765 0.0
 0 36.60    40.26 159.318214 15.551674 0.0
 0 40.26    44.29 151.500725 16.641039 0.0
 0 44.29    48.72 138.817823 17.956447 0.0
 0 48.72    53.59 120.035167 21.500589 0.0
 0 53.59    58.95 113.079033 27.782810 0.0
 0 58.95    64.84 95.019873 32.276585 0.0
 0 64.84    71.33 106.433922 33.871749 0.0
 0 71.33    78.46 83.726012 38.003593 0.0
 0 78.46    86.31 88.272252 43.977353 0.0
 0 86.31    94.94 56.536663 46.462067 0.0
 0 94.94   104.43 72.021993 51.171249 0.0
 0 104.43   114.87 83.625467 62.141244 0.0
 0 114.87   126.36 55.403747 74.879289 0.0
 0 126.36   139.00 78.095589 103.955873 0.0
 0 139.00   152.90 48.272443 137.478739 0.0
 0 152.90   168.19 60.291011 167.529992 0.0
 0 168.19   185.01 -6.393950 199.124928 0.0
@@ -0,0 +1,21 @@
 0 25.00    27.50 128.659446 2.113665 0.0
 0 27.50    30.25 136.186845 1.786643 0.0
 0 30.25    33.28 135.834268 1.793383 0.0
 0 33.28    36.60 114.709364 1.711710 0.0
 0 36.60    40.26 98.695999 1.844064 0.0
 0 40.26    44.29 93.208184 1.962556 0.0
 0 44.29    48.72 81.904268 2.246918 0.0
 0 48.72    53.59 69.942130 2.526477 0.0
 0 53.59    58.95 67.708650 3.414455 0.0
 0 58.95    64.84 46.465579 4.017107 0.0
 0 64.84    71.33 55.042493 4.150444 0.0
 0 71.33    78.46 34.999415 4.773374 0.0
 0 78.46    86.31 39.425494 5.237872 0.0
 0 86.31    94.94 33.521880 5.768269 0.0
 0 94.94   104.43 22.227579 6.087491 0.0
 0 104.43   114.87 17.631185 7.300801 0.0
 0 114.87   126.36 0.000001 9.541260 0.0
 0 126.36   139.00 0.000001 12.795709 0.0
 0 139.00   152.90 0.000001 16.858476 0.0
 0 152.90   168.19 0.000001 20.312069 0.0
 0 168.19   185.01 0.000001 23.008723 0.0
@@ -0,0 +1,21 @@
 0 25.00    27.50 82.676437 10.889071 0.0
 0 27.50    30.25 80.110075 10.846129 0.0
 0 30.25    33.28 75.850402 11.089577 0.0
 0 33.28    36.60 66.322073 11.258019 0.0
 0 36.60    40.26 53.538307 12.378324 0.0
 0 40.26    44.29 49.386304 12.732301 0.0
 0 44.29    48.72 43.906118 14.536058 0.0
 0 48.72    53.59 37.109883 16.779448 0.0
 0 53.59    58.95 14.851623 26.270122 0.0
 0 58.95    64.84 14.341569 29.213678 0.0
 0 64.84    71.33 -1.681796 29.378268 0.0
 0 71.33    78.46 -22.421859 36.495466 0.0
 0 78.46    86.31 -2.179869 39.476387 0.0
 0 86.31    94.94 -5.130632 41.666290 0.0
 0 94.94   104.43 -2.029403 42.081706 0.0
 0 104.43   114.87 -24.393904 51.548999 0.0
 0 114.87   126.36 -63.864124 70.247278 0.0
 0 126.36   139.00 -37.911596 94.085738 0.0
 0 139.00   152.90 -11.529063 124.137249 0.0
 0 152.90   168.19 -105.516586 146.530344 0.0
 0 168.19   185.01 -134.099541 153.953350 0.0
@@ -8,14 +8,14 @@
 0 48.72    53.59 38.740856 5.263691 0.0
 0 53.59    58.95 15.547682 8.012735 0.0
 0 58.95    64.84 15.340855 9.578823 0.0
-0 64.84    71.33 0.000001 9.537487 0.0
+0 64.84    71.33 -4.528737 9.537487 0.0
-0 71.33    78.46 0.000001 11.521563 0.0
+0 71.33    78.46 -22.100169 11.521563 0.0
-0 78.46    86.31 0.000001 12.176399 0.0
+0 78.46    86.31 -0.229224 12.176399 0.0
-0 86.31    94.94 0.000001 13.601349 0.0
+0 86.31    94.94 -4.814453 13.601349 0.0
-0 94.94   104.43 0.000001 13.549647 0.0
+0 94.94   104.43 -5.807722 13.549647 0.0
-0 104.43   114.87 0.000001 16.295362 0.0
+0 104.43   114.87 -23.599470 16.295362 0.0
-0 114.87   126.36 0.000001 22.608500 0.0
+0 114.87   126.36 -64.751547 22.608500 0.0
-0 126.36   139.00 0.000001 29.668148 0.0
+0 126.36   139.00 -25.989839 29.668148 0.0
-0 139.00   152.90 0.000001 38.845266 0.0
+0 139.00   152.90 -0.866799 38.845266 0.0
-0 152.90   168.19 0.000001 47.386342 0.0
+0 152.90   168.19 -99.993497 47.386342 0.0
-0 168.19   185.01 0.000001 51.079020 0.0
+0 168.19   185.01 -127.818237 51.079020 0.0
@@ -0,0 +1,21 @@
 0 25.00    27.50 80.829894 12.245058 0.0
 0 27.50    30.25 76.644942 10.424311 0.0
 0 30.25    33.28 76.502631 11.634459 0.0
 0 33.28    36.60 68.303048 10.264405 0.0
 0 36.60    40.26 47.306287 12.222633 0.0
 0 40.26    44.29 50.277235 13.161144 0.0
 0 44.29    48.72 38.157378 14.334599 0.0
 0 48.72    53.59 38.182359 16.922607 0.0
 0 53.59    58.95 32.176187 23.454953 0.0
 0 58.95    64.84 9.085719 26.909627 0.0
 0 64.84    71.33 4.184346 29.146344 0.0
 0 71.33    78.46 -9.500519 31.479429 0.0
 0 78.46    86.31 -8.236339 34.082221 0.0
 0 86.31    94.94 -29.519105 36.423630 0.0
 0 94.94   104.43 -29.638303 36.196842 0.0
 0 104.43   114.87 -58.969197 47.170262 0.0
 0 114.87   126.36 -95.503579 62.312335 0.0
 0 126.36   139.00 -128.008918 86.404246 0.0
 0 139.00   152.90 -254.865359 106.787744 0.0
 0 152.90   168.19 -248.310328 132.790433 0.0
 0 168.19   185.01 -262.343876 146.080123 0.0
@@ -1,21 +1,21 @@
-0 25.00    27.50 80.608800 3.621236 0.0
+0 25.00    27.50 80.868838 3.629462 0.0
-0 27.50    30.25 74.912172 3.294814 0.0
+0 27.50    30.25 75.581563 3.298105 0.0
-0 30.25    33.28 75.872269 3.561928 0.0
+0 30.25    33.28 75.798053 3.563746 0.0
-0 33.28    36.60 68.389103 3.246667 0.0
+0 33.28    36.60 69.671013 3.269331 0.0
-0 36.60    40.26 47.141458 3.688757 0.0
+0 36.60    40.26 48.079290 3.686636 0.0
-0 40.26    44.29 49.293741 3.934818 0.0
+0 40.26    44.29 48.567741 3.956909 0.0
-0 44.29    48.72 38.680875 4.546279 0.0
+0 44.29    48.72 38.679751 4.547690 0.0
-0 48.72    53.59 40.761507 4.958001 0.0
+0 48.72    53.59 40.698258 4.980663 0.0
-0 53.59    58.95 31.745179 7.058393 0.0
+0 53.59    58.95 34.223263 7.023514 0.0
-0 58.95    64.84 7.974556 8.447950 0.0
+0 58.95    64.84 8.573069 8.490589 0.0
-0 64.84    71.33 1.288139 8.595890 0.0
+0 64.84    71.33 6.375353 8.631849 0.0
-0 71.33    78.46 0.000001 9.889059 0.0
+0 71.33    78.46 -7.298427 9.896588 0.0
-0 78.46    86.31 0.000001 10.748117 0.0
+0 78.46    86.31 -5.188647 10.760612 0.0
-0 86.31    94.94 0.000001 11.309813 0.0
+0 86.31    94.94 -27.892689 11.373849 0.0
-0 94.94   104.43 0.000001 12.042572 0.0
+0 94.94   104.43 -28.106104 12.048314 0.0
-0 104.43   114.87 0.000001 14.965609 0.0
+0 104.43   114.87 -55.165521 14.936937 0.0
-0 114.87   126.36 0.000001 19.623114 0.0
+0 114.87   126.36 -98.708217 19.653155 0.0
-0 126.36   139.00 0.000001 26.711090 0.0
+0 126.36   139.00 -128.152693 26.863584 0.0
-0 139.00   152.90 0.000001 34.005399 0.0
+0 139.00   152.90 -260.097479 34.058972 0.0
-0 152.90   168.19 0.000001 42.040141 0.0
+0 152.90   168.19 -247.225449 42.062017 0.0
-0 168.19   185.01 0.000001 45.655529 0.0
+0 168.19   185.01 -263.723359 45.821742 0.0
@@ -0,0 +1,21 @@
 0 25.00    27.50 15.755545 12.519162 0.0
 0 27.50    30.25 22.128812 6.549485 0.0
 0 30.25    33.28 23.038197 6.035340 0.0
 0 33.28    36.60 17.530888 5.618302 0.0
 0 36.60    40.26 22.186254 6.001617 0.0
 0 40.26    44.29 18.699718 6.583677 0.0
 0 44.29    48.72 2.126929 7.335015 0.0
 0 48.72    53.59 -7.510882 9.960917 0.0
 0 53.59    58.95 -1.109829 12.118775 0.0
 0 58.95    64.84 26.448733 15.019325 0.0
 0 64.84    71.33 23.843827 17.393506 0.0
 0 71.33    78.46 53.882157 18.441476 0.0
 0 78.46    86.31 53.098751 20.750529 0.0
 0 86.31    94.94 34.380679 23.280603 0.0
 0 94.94   104.43 44.391372 24.315520 0.0
 0 104.43   114.87 52.735755 28.530683 0.0
 0 114.87   126.36 7.960022 38.293173 0.0
 0 126.36   139.00 70.575496 48.412009 0.0
 0 139.00   152.90 67.156360 63.842321 0.0
 0 152.90   168.19 121.937969 79.720633 0.0
 0 168.19   185.01 5.574973 88.054291 0.0
@@ -5,8 +5,8 @@
 0 36.60    40.26 22.649058 1.942852 0.0
 0 40.26    44.29 18.148374 2.108333 0.0
 0 44.29    48.72 1.669071 2.362618 0.0
-0 48.72    53.59 0.000001 3.244708 0.0
+0 48.72    53.59 -6.700202 3.244708 0.0
-0 53.59    58.95 0.000001 3.930983 0.0
+0 53.59    58.95 -0.636355 3.930983 0.0
 0 58.95    64.84 26.701187 4.722343 0.0
 0 64.84    71.33 24.021324 5.269937 0.0
 0 71.33    78.46 54.900312 5.596856 0.0
@@ -0,0 +1,21 @@
 0 25.00    27.50 -2.410137 6.656019 0.0
 0 27.50    30.25 -2.492072 4.696612 0.0
 0 30.25    33.28 0.787611 4.191931 0.0
 0 33.28    36.60 1.248147 4.016330 0.0
 0 36.60    40.26 -0.050555 4.403171 0.0
 0 40.26    44.29 -2.185703 4.891022 0.0
 0 44.29    48.72 -2.252678 5.872863 0.0
 0 48.72    53.59 -1.324604 7.281156 0.0
 0 53.59    58.95 1.811529 8.517632 0.0
 0 58.95    64.84 4.573283 10.290717 0.0
 0 64.84    71.33 7.925977 11.357706 0.0
 0 71.33    78.46 8.629787 12.630465 0.0
 0 78.46    86.31 11.229080 14.061467 0.0
 0 86.31    94.94 14.531202 16.068187 0.0
 0 94.94   104.43 6.615941 17.663881 0.0
 0 104.43   114.87 6.418438 20.381193 0.0
 0 114.87   126.36 5.294088 27.724308 0.0
 0 126.36   139.00 20.482973 36.495032 0.0
 0 139.00   152.90 10.736534 42.745762 0.0
 0 152.90   168.19 52.032287 55.625586 0.0
 0 168.19   185.01 12.834558 67.052221 0.0
@@ -1,11 +1,11 @@
-0 25.00    27.50 0.000001 2.072625 0.0
+0 25.00    27.50 -2.342740 2.072625 0.0
-0 27.50    30.25 0.000001 1.443537 0.0
+0 27.50    30.25 -2.413086 1.443537 0.0
 0 30.25    33.28 0.586555 1.369369 0.0
 0 33.28    36.60 1.264724 1.284477 0.0
-0 36.60    40.26 0.000001 1.385899 0.0
+0 36.60    40.26 -0.489868 1.385899 0.0
-0 40.26    44.29 0.000001 1.585938 0.0
+0 40.26    44.29 -2.268027 1.585938 0.0
-0 44.29    48.72 0.000001 1.860866 0.0
+0 44.29    48.72 -2.084408 1.860866 0.0
-0 48.72    53.59 0.000001 2.317446 0.0
+0 48.72    53.59 -0.733473 2.317446 0.0
 0 53.59    58.95 1.668390 2.876655 0.0
 0 58.95    64.84 5.324075 3.293221 0.0
 0 64.84    71.33 8.345487 3.589444 0.0
@@ -4,9 +4,12 @@ xsect vern
 cosmo 70 0 0.73
 xset delta 0.01
 systematic 0.05
-model  bremss + powerlaw
+model  bremss + cflux*powerlaw
        19.5748       0.05     0.0001     0.0001        100        200
-       0.885357       0.01          0          0      1e+20      1e+24
+       0.885361       0.01          0          0      1e+20      1e+24
             30         -1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -9.39209       0.01       -100       -100        100        100
           1.55         -1         -3         -2          9         10
-      0.0444056       0.01          0          0      1e+20      1e+24
+          0.001         -1          0          0      1e+20      1e+24
 bayes off
@@ -0,0 +1,19 @@
 method leven 10 0.01
 abund angr
 xsect vern
 cosmo 70 0 0.73
 xset delta 0.01
 systematic 0.0
 model  cflux*cutoffpl + cflux*powerlaw
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -9.01621       0.01       -100       -100        100        100
              0         -1         -3         -2          9         10
        11.0121       0.01       0.01          1        500        500
              1         -1          0          0      1e+20      1e+24
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -9.30956       0.01       -100       -100        100        100
           1.55         -1         -3         -2          9         10
              1         -1          0          0      1e+20      1e+24
 bayes off
@@ -0,0 +1,19 @@
 method leven 10 0.01
 abund angr
 xsect vern
 cosmo 70 0 0.73
 xset delta 0.01
 systematic 0.05
 model  cflux*cutoffpl + cflux*powerlaw
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -9.38779       0.01       -100       -100        100        100
              0         -1         -3         -2          9         10
        10.3604       0.01       0.01          1        500        500
              1         -1          0          0      1e+20      1e+24
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -61.9217          1       -100       -100        100        100
           1.55         -1         -3         -2          9         10
              1         -1          0          0      1e+20      1e+24
 bayes off
@@ -0,0 +1,19 @@
 method leven 10 0.01
 abund angr
 xsect vern
 cosmo 70 0 0.73
 xset delta 0.01
 systematic 0.15
 model  cflux*cutoffpl + cflux*powerlaw
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -9.83221       0.01       -100       -100        100        100
              0         -1         -3         -2          9         10
        9.79792       0.01       0.01          1        500        500
              1         -1          0          0      1e+20      1e+24
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -61.9217          1       -100       -100        100        100
           1.55         -1         -3         -2          9         10
              1         -1          0          0      1e+20      1e+24
 bayes off
@@ -0,0 +1,19 @@
 method leven 10 0.01
 abund angr
 xsect vern
 cosmo 70 0 0.73
 xset delta 0.01
 systematic 0
 model  cflux*cutoffpl + cflux*powerlaw
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -9.39592       0.01       -100       -100        100        100
              0         -1         -3         -2          9         10
         10.583       0.01       0.01          1        500        500
              1         -1          0          0      1e+20      1e+24
             30       -0.1          0          0      1e+06      1e+06
             80       -0.1          0          0      1e+06      1e+06
       -61.9217          1       -100       -100        100        100
           1.55         -1         -3         -2          9         10
              1         -1          0          0      1e+20      1e+24
 bayes off
@@ -0,0 +1,93 @@
 #
 # 2 data sets
 # in Xspec make ipl->wdata
 # then split file to four parts as lecr1/2/3/4
 #
 key="lecr"
 #key="pow"
 keymo="model2"
 up=1.0
 xgrid <- c(30,50,70,100); 
 Emin=25.0
 Emax=180.0
 postscript('cutoffpl_gc06.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.1,2)
 cl="black"
 a <- read.table('../cutoffpl_gc06_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")
 #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 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)
 ###################################################################################
 ##
 ## Plot model components
 ##
 ###################################################################################
 lines(a$x,a$total,pch=1,bg=cl,col="black")
 lines(a$x,a$cutoffpl,pch=1,bg=cl,col="blue")
 lines(a$x,a$pow,pch=1,bg=cl,col="red")
 ###################################################################################
 par(mar=c(4.5, leftx, 0.1, 1))
 ylim <- c(-3.5,3.5)
 cl="black"
 a <- read.table("../cutoffpl_gc06_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')
 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")
 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))
 dev.off()
@@ -0,0 +1,93 @@
 #
 # 2 data sets
 # in Xspec make ipl->wdata
 # then split file to four parts as lecr1/2/3/4
 #
 key="lecr"
 #key="pow"
 keymo="model2"
 up=1.0
 xgrid <- c(30,50,70,100); 
 Emin=25.0
 Emax=180.0
 postscript('cutoffpl_lon+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.01,1)
 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")
 #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 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)
 ###################################################################################
 ##
 ## Plot model components
 ##
 ###################################################################################
 lines(a$x,a$total,pch=1,bg=cl,col="black")
 lines(a$x,a$cutoffpl,pch=1,bg=cl,col="blue")
 lines(a$x,a$pow,pch=1,bg=cl,col="red")
 ###################################################################################
 par(mar=c(4.5, leftx, 0.1, 1))
 ylim <- c(-3.5,3.5)
 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')
 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")
 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))
 dev.off()
--- a/Show More
+++ b/Show More