22#include "../hdrl_cat_apio.h"
23#include "../hdrl_cat_areals.h"
24#include "../hdrl_cat_moments.h"
25#include "../hdrl_cat_radii.h"
31static double radii[] = {2.5,3.53553,5.0,7.07107,10,14,20,25,30,35,40,50,60};
33static double fluxes[] = {13670.3, 19834.4, 23923.2, 25124.0, 25332.3, 25488.9,
34 25648.7, 25842.8, 25950.9, 25893.9, 25982,1, 25297.6, 24919.1};
37void flux_test(cpl_boolean execute_test)
39 cpl_size x[] = {398,399,400,397,398,399,400,401,402,403,396,397,398,399,400,
40 401,402,403,404,395,396,397,398,399,400,401,402,403,404,405,
41 395,396,397,398,399,400,401,402,403,404,405,395,396,397,398,
42 399,400,401,402,403,404,405,395,396,397,398,399,400,401,402,
43 403,404,405,406,395,396,397,398,399,400,401,402,403,404,405,
44 395,396,397,398,399,400,401,402,403,404,405,395,396,397,398,
45 399,400,401,402,403,404,405,396,397,398,399,400,401,402,403,
46 404,397,398,399,400,401,402,403,398,399,400,401};
48 cpl_size y[] = {394,394,394,395,395,395,395,395,395,395,396,396,396,396,396,
49 396,396,396,396,397,397,397,397,397,397,397,397,397,397,397,
50 398,398,398,398,398,398,398,398,398,398,398,399,399,399,399,
51 399,399,399,399,399,399,399,400,400,400,400,400,400,400,400,
52 400,400,400,400,401,401,401,401,401,401,401,401,401,401,401,
53 402,402,402,402,402,402,402,402,402,402,402,403,403,403,403,
54 403,403,403,403,403,403,403,404,404,404,404,404,404,404,404,
55 404,405,405,405,405,405,405,405,406,406,406,406};
57 double z[] = {8.87152,12.515,7.69699,10.8527,22.2509,21.7368,13.0388,
58 12.1853,17.1976,7.43948,15.2245,29.1964,37.9117,57.9371,
59 71.5542,57.1288,34.7726,15.5934,11.5374,15.995,21.3606,
60 60.4006,103.46,147.55,168.274,147.476,98.9157,51.7186,20.188,
61 3.04248,5.77832,49.3103,98.2057,187.557,268.353,310.638,
62 274.295,183.969,94.6933,47.9889,20.245,26.3758,59.1781,
63 152.389,275.916,395.107,450.251,397.53,272.322,147.053,54.767,
64 11.8971,13.3888,73.3689,165.899,298.455,449.707,493.25,441.585,
65 299.31,157.474,70.1224,15.5313,8.76074,20.7188,54.5798,141.249,
66 264.87,382.736,435.452,393.871,268.175,138.485,65.9307,28.7812,
67 19.379,36.6449,93.5458,186.823,270.95,305.093,260.879,183.683,
68 100.676,32.6281,16.6497,5.94965,17.8105,57.256,106.32,145.264,
69 164.271,137.093,88.9384,60.7841,31.8582,10.0435,4.69162,
70 15.2187,32.5385,61.0381,74.5399,67.3727,43.3964,25.0956,
71 16.7595,-0.37323,21.3832,19.2497,18.5883,9.37448,19.6048,
72 11.5006,13.0159,14.5852,13.66,-1.04889};
80 ap.inframe = cpl_image_new(SIZE_IMG, SIZE_IMG, CPL_TYPE_DOUBLE);
81 ap.conframe = cpl_image_new(SIZE_IMG, SIZE_IMG, CPL_TYPE_DOUBLE);
87 ap.plarray = cpl_realloc(ap.plarray, NT *
sizeof(plstruct));
88 for (cpl_size i = 0; i < NT; i++) {
89 ap.plarray[i].x = x[i];
90 ap.plarray[i].y = y[i];
91 ap.plarray[i].z = z[i];
92 ap.plarray[i].zsm = z[i];
96 ap.areal_offset = 3.47165;
101 cpl_size iareal[NAREAL];
104 ap.indata = cpl_image_get_data_double(ap.inframe);
105 ap.confdata = cpl_image_get_data_double(ap.conframe);
106 ap.mflag = cpl_calloc(SIZE_IMG * SIZE_IMG,
sizeof(*ap.mflag));
109 cpl_image_fill_noise_uniform(ap.inframe, -10., 10.);
110 cpl_image_add_scalar( ap.inframe, 5000.);
111 cpl_image_fill_noise_uniform(ap.conframe, 99, 101);
114 double momresults[8];
118 double parmall[IMNUM][NPAR];
120 for (cpl_size i = 0; i < IMNUM; i++) {
121 for (cpl_size j = 0; j < NPAR; j++) {
128 double kron_rad[IMNUM];
129 for (cpl_size k = 0; k < nbit; k++) {
130 areal = parmall[k][8];
131 kron_rad[k] =
hdrl_kronrad(areal, radii, fluxes, NRADS);
134 double kron_flux[IMNUM];
135 hdrl_flux(&ap, parmall, nbit, kron_rad, kron_flux, NRADS, radii, fluxes);
139 double petr_rad[IMNUM];
140 for (cpl_size k = 0; k < nbit; k++) {
141 areal = parmall[k][8];
142 petr_rad[k] =
hdrl_petrad(areal, radii, fluxes, NRADS);
145 double petr_flux[IMNUM];
146 hdrl_flux(&ap, parmall, nbit, petr_rad, petr_flux, NRADS, radii, fluxes);
152 cpl_image_delete(ap.inframe);
153 cpl_image_delete(ap.conframe);
159 cpl_test_init(PACKAGE_BUGREPORT, CPL_MSG_WARNING);
161 double halfrad = 2.35;
162 double exprad = 6.18;
163 double kronrad = 6.18;
164 double petrrad = 12.45;
165 double peak = 1007.07;
174 halflight = fluxes[4] / 2.;
176 cpl_test_rel(rad, halfrad, 0.01);
180 rad =
hdrl_exprad(thresh, peak, areal, radii, NRADS);
181 cpl_test_rel(rad, exprad, 0.01);
185 cpl_test_rel(rad, kronrad, 0.01);
189 cpl_test_rel(rad, petrrad, 0.01);
194 flux_test(CPL_FALSE);
196 return cpl_test_end(0);
void hdrl_apinit(ap_t *ap)
Initialize the ap structure.
void hdrl_apclose(ap_t *ap)
Close ap structure.
void hdrl_areals(ap_t *ap, cpl_size iareal[NAREAL])
Work out the areal profiles for an object.
void hdrl_moments(ap_t *ap, double results[])
Do moments analysis on an object in a Plessey array.
void hdrl_flux(ap_t *ap, double parm[IMNUM][NPAR], cpl_size nbit, double apers[], double fluxes[], cpl_size nr, double rcores[], double rfluxes[])
Work out the fluxes for special radii.
double hdrl_exprad(double thresh, double peak, double areal0, double rcores[], cpl_size naper)
Work out the exponential radius for an object.
double hdrl_petrad(double areal0, double rcores[], double cflux[], cpl_size naper)
Work out the Petrosian radius for an object.
double hdrl_kronrad(double areal0, double rcores[], double cflux[], cpl_size naper)
Work out the Kron radius for an object.
double hdrl_halflight(double rcores[], double cflux[], double halflight, double peak, cpl_size naper)
Work out the half-light radius for an object.