Changeset 4865 for trunk/Ohana/src/relphot
- Timestamp:
- Aug 24, 2005, 8:51:56 AM (21 years ago)
- Location:
- trunk/Ohana/src/relphot
- Files:
-
- 10 edited
-
include/relphot.h (modified) (2 diffs)
-
src/ConfigInit.c (modified) (1 diff)
-
src/GridOps.v2.c (modified) (9 diffs)
-
src/ImageOps.c (modified) (5 diffs)
-
src/MosaicOps.c (modified) (5 diffs)
-
src/StarOps.c (modified) (19 diffs)
-
src/args.c (modified) (2 diffs)
-
src/bcatalog.c (modified) (4 diffs)
-
src/plot_scatter.c (modified) (2 diffs)
-
src/setMrelFinal.c (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Ohana/src/relphot/include/relphot.h
r4864 r4865 15 15 unsigned int start; 16 16 unsigned int stop; 17 short int Mcal;18 short int dMcal;19 short intXm;20 short int secz;17 float Mcal; 18 float dMcal; 19 short Xm; 20 float secz; 21 21 char code; 22 22 Coords coords; … … 133 133 int gcatalog PROTO((Catalog *catalog, int FINAL)); 134 134 Coords *getCoords PROTO((int meas, int cat)); 135 short getMcal PROTO((int meas, int cat));136 short getMgrid PROTO((int meas, int cat));137 short getMmos PROTO((int meas, int cat));138 short getMrel PROTO((Catalog *catalog, int meas, int cat));135 float getMcal PROTO((int meas, int cat)); 136 float getMgrid PROTO((int meas, int cat)); 137 float getMmos PROTO((int meas, int cat)); 138 float getMrel PROTO((Catalog *catalog, int meas, int cat)); 139 139 GSCRegion *get_regions PROTO((double minRa, double maxRa, double minDec, double maxDec, int *Nregions)); 140 140 void getfullregion PROTO((Image *image, int Nimage, GSCRegion *fullregion)); -
trunk/Ohana/src/relphot/src/ConfigInit.c
r4828 r4865 22 22 GetConfig (config, "IMAGE_SCATTER", "%lf", 0, &IMAGE_SCATTER); 23 23 GetConfig (config, "IMAGE_OFFSET", "%lf", 0, &IMAGE_OFFSET); 24 MAG_LIM *= 1000; 25 SIGMA_LIM *= 1000; 26 STAR_SCATTER *= 1000; 24 27 25 IMAGE_SCATTER *= 1000; 28 26 IMAGE_OFFSET *= 1000; -
trunk/Ohana/src/relphot/src/GridOps.v2.c
r4796 r4865 2 2 3 3 static int Ngrid; 4 static short *gridM;5 static short *gridS;4 static float *gridM; 5 static float *gridS; 6 6 static int *gridN; 7 7 static int gridX; … … 36 36 Ngrid = gridX * gridY; 37 37 38 ALLOCATE (gridM, short, Ngrid);39 ALLOCATE (gridS, short, Ngrid);38 ALLOCATE (gridM, float, Ngrid); 39 ALLOCATE (gridS, float, Ngrid); 40 40 ALLOCATE (gridN, int, Ngrid); 41 bzero (gridM, Ngrid*sizeof( short));42 bzero (gridS, Ngrid*sizeof( short));41 bzero (gridM, Ngrid*sizeof(float)); 42 bzero (gridS, Ngrid*sizeof(float)); 43 43 bzero (gridN, Ngrid*sizeof(int)); 44 44 … … 87 87 Ngrid = gridX * gridY; 88 88 89 ALLOCATE (gridM, short, Ngrid);90 ALLOCATE (gridS, short, Ngrid);89 ALLOCATE (gridM, float, Ngrid); 90 ALLOCATE (gridS, float, Ngrid); 91 91 ALLOCATE (gridN, int, Ngrid); 92 bzero (gridM, Ngrid*sizeof( short));93 bzero (gridS, Ngrid*sizeof( short));92 bzero (gridM, Ngrid*sizeof(float)); 93 bzero (gridS, Ngrid*sizeof(float)); 94 94 bzero (gridN, Ngrid*sizeof(int)); 95 95 … … 232 232 # endif 233 233 234 short getMgrid (int meas, int cat) {234 float getMgrid (int meas, int cat) { 235 235 236 236 int i; 237 short value;237 float value; 238 238 239 239 if (!USE_GRID) return (0); … … 250 250 int i, j, m, c, n, N, Nmax; 251 251 double *list, *dlist; 252 short Msys, Mrel, Mcal, Mmos;252 float Msys, Mrel, Mcal, Mmos; 253 253 StatType stats; 254 254 … … 276 276 277 277 n = catalog[c].measure[m].averef; 278 Msys = iPhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]);278 Msys = PhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]); 279 279 list[N] = Msys - Mrel - Mcal - Mmos; 280 dlist[N] = MAX (catalog[c].measure[m].dM , MIN_ERROR);280 dlist[N] = MAX (catalog[c].measure[m].dM_PS, MIN_ERROR); 281 281 N++; 282 282 } … … 294 294 295 295 int i, j, m, c, n, N; 296 short Msys, Mrel, Mcal, Mmos;296 float Msys, Mrel, Mcal, Mmos; 297 297 double *xlist, *Mlist, *dlist, *ylist; 298 298 Graphdata graphdata; … … 322 322 323 323 n = catalog[c].measure[m].averef; 324 Msys = iPhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]);324 Msys = PhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]); 325 325 326 326 xlist[N] = Xmeas[c][m]; … … 328 328 Mlist[N] = Msys - Mrel - Mcal - Mmos; 329 329 dlist[N] = Msys - Mrel - Mcal - Mmos - gridM[i]; 330 Mlist[N] *= 0.001;331 dlist[N] *= 0.001;332 330 N++; 333 331 } -
trunk/Ohana/src/relphot/src/ImageOps.c
r4796 r4865 136 136 } 137 137 138 short getMcal (int meas, int cat) {138 float getMcal (int meas, int cat) { 139 139 140 140 int i; 141 short value;141 float value; 142 142 143 143 i = bin[cat][meas]; … … 145 145 146 146 if (image[i].code & IMAGE_BAD) return (NO_MAG); 147 value = image[i].Mcal;147 value = 0.001*image[i].Mcal; 148 148 return (value); 149 149 } … … 162 162 163 163 int i, j, m, c, n, N, Nmax, mark, bad; 164 short Msys, Mrel, Mmos, Mgrid;164 float Msys, Mrel, Mmos, Mgrid; 165 165 double *list, *dlist; 166 166 StatType stats; … … 199 199 200 200 n = catalog[c].measure[m].averef; 201 Msys = iPhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]);201 Msys = PhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]); 202 202 list[N] = Msys - Mrel - Mmos - Mgrid; 203 dlist[N] = MAX (catalog[c].measure[m].dM , MIN_ERROR);203 dlist[N] = MAX (catalog[c].measure[m].dM_PS, MIN_ERROR); 204 204 N++; 205 205 } … … 217 217 218 218 liststats (list, dlist, N, &stats); 219 image[i].Mcal = stats.mean;220 image[i].dMcal = stats.sigma;219 image[i].Mcal = 1000.0*stats.mean; 220 image[i].dMcal = 1000.0*stats.sigma; 221 221 image[i].Xm = 100.0*log10(stats.chisq); 222 222 } -
trunk/Ohana/src/relphot/src/MosaicOps.c
r4864 r4865 134 134 Dmin = MIN (Dmin, D); 135 135 Dmax = MAX (Dmax, D); 136 Mcal += image[m].Mcal;137 dMcal += image[m].dMcal;136 Mcal += 0.001*image[m].Mcal; 137 dMcal += 0.001*image[m].dMcal; 138 138 Xm += image[m].Xm; 139 139 /* we are using mosaic.Mcal, not image.Mcal. reset image.Mcal */ … … 179 179 for (j = 0; j < Nimlist[i]; j++) { 180 180 im = imlist[i][j]; 181 image[im].Mcal = mosaic[i].Mcal;182 image[im].dMcal = mosaic[i].dMcal;181 image[im].Mcal = 1000.0*mosaic[i].Mcal; 182 image[im].dMcal = 1000.0*mosaic[i].dMcal; 183 183 image[im].Xm = mosaic[i].Xm; 184 184 image[im].code |= (mosaic[i].code & ID_IMAGE_FEW); … … 292 292 } 293 293 294 short getMmos (int meas, int cat) {294 float getMmos (int meas, int cat) { 295 295 296 296 int i; 297 short value;297 float value; 298 298 299 299 if (!MOSAICNAME[0]) return (0); … … 309 309 310 310 int i, j, m, c, n, N, Nmax, mark, bad; 311 short Msys, Mrel, Mcal, Mgrid;311 float Msys, Mrel, Mcal, Mgrid; 312 312 double *list, *dlist, *Mlist, *dMlist; 313 313 StatType stats; … … 351 351 352 352 n = catalog[c].measure[m].averef; 353 Msys = iPhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]);353 Msys = PhotSys (&catalog[c].measure[m], &catalog[c].average[n], &catalog[c].secfilt[n*PhotNsec]); 354 354 list[N] = Msys - Mrel - Mcal - Mgrid; 355 dlist[N] = MAX (catalog[c].measure[m].dM , MIN_ERROR);356 Mlist[N] = 0.001*Msys;357 dMlist[N] = 0.001*list[N];355 dlist[N] = MAX (catalog[c].measure[m].dM_PS, MIN_ERROR); 356 Mlist[N] = Msys; 357 dMlist[N] = list[N]; 358 358 N++; 359 359 } -
trunk/Ohana/src/relphot/src/StarOps.c
r4796 r4865 20 20 } 21 21 22 short getMrel (Catalog *catalog, int meas, int cat) {22 float getMrel (Catalog *catalog, int meas, int cat) { 23 23 24 24 int ave; 25 short value;25 float value; 26 26 27 27 ave = catalog[cat].measure[meas].averef; 28 28 if (catalog[cat].average[ave].code & STAR_BAD) return (NO_MAG); 29 29 30 value = PhotPrimary ? catalog[cat].average[ave].M : catalog[cat].secfilt[PhotNsec*ave+PhotSec].M;30 value = PhotPrimary ? catalog[cat].average[ave].M_PS : catalog[cat].secfilt[PhotNsec*ave+PhotSec].M_PS; 31 31 return (value); 32 32 } … … 35 35 36 36 int i, j, k, m, N; 37 short Msys, Mcal, Mmos, Mgrid;37 float Msys, Mcal, Mmos, Mgrid; 38 38 StatType stats; 39 39 … … 52 52 if ((Mgrid = getMgrid (m, i)) == NO_MAG) continue; 53 53 54 Msys = iPhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]);54 Msys = PhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]); 55 55 list[N] = Msys - Mcal - Mmos - Mgrid; 56 dlist[N] = MAX (catalog[i].measure[m].dM , MIN_ERROR);56 dlist[N] = MAX (catalog[i].measure[m].dM_PS, MIN_ERROR); 57 57 N++; 58 58 } … … 66 66 67 67 if (PhotPrimary) { 68 catalog[i].average[j].M = stats.mean;69 catalog[i].average[j].dM = stats.sigma;68 catalog[i].average[j].M_PS = stats.mean; 69 catalog[i].average[j].dM_PS = stats.sigma; 70 70 catalog[i].average[j].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 71 71 } else { 72 catalog[i].secfilt[PhotNsec*j+PhotSec].M = stats.mean;73 catalog[i].secfilt[PhotNsec*j+PhotSec].dM = stats.sigma;72 catalog[i].secfilt[PhotNsec*j+PhotSec].M_PS = stats.mean; 73 catalog[i].secfilt[PhotNsec*j+PhotSec].dM_PS = stats.sigma; 74 74 catalog[i].secfilt[PhotNsec*j+PhotSec].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 75 75 } … … 82 82 83 83 int i, j, k, m, N, Nmax; 84 short Msys, Mcal, Mmos, Mgrid;84 float Msys, Mcal, Mmos, Mgrid; 85 85 double *list, *dlist; 86 86 StatType stats; … … 110 110 if ((Mgrid = getMgrid (m, i)) == NO_MAG) continue; 111 111 112 Msys = iPhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]);112 Msys = PhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]); 113 113 list[N] = Msys - Mcal - Mmos - Mgrid; 114 dlist[N] = MAX (catalog[i].measure[m].dM , MIN_ERROR);114 dlist[N] = MAX (catalog[i].measure[m].dM_PS, MIN_ERROR); 115 115 N++; 116 116 } … … 122 122 /* use sigma or error in dM for output? */ 123 123 if (PhotPrimary) { 124 catalog[i].average[j].M = stats.mean;125 catalog[i].average[j].dM = MAX (stats.sigma, stats.error);124 catalog[i].average[j].M_PS = stats.mean; 125 catalog[i].average[j].dM_PS = MAX (stats.sigma, stats.error); 126 126 catalog[i].average[j].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 127 127 } else { 128 catalog[i].secfilt[PhotNsec*j+PhotSec].M = stats.mean;129 catalog[i].secfilt[PhotNsec*j+PhotSec].dM = MAX (stats.error, stats.sigma);128 catalog[i].secfilt[PhotNsec*j+PhotSec].M_PS = stats.mean; 129 catalog[i].secfilt[PhotNsec*j+PhotSec].dM_PS = MAX (stats.error, stats.sigma); 130 130 catalog[i].secfilt[PhotNsec*j+PhotSec].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 131 131 } … … 142 142 143 143 int i, j, k, m; 144 short Mcal, Mmos, Mgrid;144 float Mcal, Mmos, Mgrid; 145 145 146 146 MEAS_BAD = ID_MEAS_NOCAL; … … 156 156 if ((Mmos = getMmos (m, i)) == NO_MAG) continue; 157 157 if ((Mgrid = getMgrid (m, i)) == NO_MAG) continue; 158 catalog[i].measure[m].Mcal = Mcal + Mmos + Mgrid;158 catalog[i].measure[m].Mcal_PS = Mcal + Mmos + Mgrid; 159 159 } 160 160 } … … 166 166 167 167 int i, j, Ndel, Nave, Ntot, mark; 168 short dM, Xm;168 float dM, Xm; 169 169 double Chisq, MaxScatter, MaxChisq; 170 170 double *xlist, *slist, *dlist; … … 187 187 Chisq = pow (10.0, 0.01*Xm); 188 188 xlist[Ntot] = Chisq; 189 slist[Ntot] = PhotPrimary ? catalog[i].average[j].dM : catalog[i].secfilt[PhotNsec*j+PhotSec].dM;189 slist[Ntot] = PhotPrimary ? catalog[i].average[j].dM_PS : catalog[i].secfilt[PhotNsec*j+PhotSec].dM_PS; 190 190 dlist[Ntot] = 1; 191 191 Ntot ++; … … 198 198 liststats (slist, dlist, Ntot, &stats); 199 199 MaxScatter = MAX (STAR_SCATTER, 2*stats.median); 200 fprintf (stderr, "Max Scatter: %f, Max Chisq: %f\n", 0.001*MaxScatter, MaxChisq);200 fprintf (stderr, "Max Scatter: %f, Max Chisq: %f\n", MaxScatter, MaxChisq); 201 201 202 202 Ndel = Nave = 0; 203 203 for (i = 0; i < Ncatalog; i++) { 204 204 for (j = 0; j < catalog[i].Naverage; j++) { 205 dM = PhotPrimary ? catalog[i].average[j].dM : catalog[i].secfilt[PhotNsec*j+PhotSec].dM;206 Xm = PhotPrimary ? catalog[i].average[j].Xm : catalog[i].secfilt[PhotNsec*j+PhotSec].Xm;205 dM = PhotPrimary ? catalog[i].average[j].dM_PS : catalog[i].secfilt[PhotNsec*j+PhotSec].dM_PS; 206 Xm = PhotPrimary ? catalog[i].average[j].Xm : catalog[i].secfilt[PhotNsec*j+PhotSec].Xm; 207 207 Chisq = pow (10.0, 0.01*Xm); 208 208 mark = (dM > MaxScatter) || (Xm == NO_MAG) || (Chisq > MaxChisq); … … 228 228 int *ilist; 229 229 double *tlist, *list, *dlist, Ns; 230 short Msys, Mcal, Mmos, Mgrid;230 float Msys, Mcal, Mmos, Mgrid; 231 231 StatType stats; 232 232 … … 267 267 if ((Mgrid = getMgrid (m, i)) == NO_MAG) continue; 268 268 269 Msys = iPhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]);269 Msys = PhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]); 270 270 list[N] = Msys - Mcal - Mmos - Mgrid; 271 dlist[N] = MAX (catalog[i].measure[m].dM , MIN_ERROR);271 dlist[N] = MAX (catalog[i].measure[m].dM_PS, MIN_ERROR); 272 272 N++; 273 273 } … … 299 299 if ((Mgrid = getMgrid (m, i)) == NO_MAG) continue; 300 300 301 Msys = iPhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]);301 Msys = PhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]); 302 302 list[N] = Msys - Mcal - Mmos - Mgrid; 303 dlist[N] = MAX (catalog[i].measure[m].dM , MIN_ERROR);303 dlist[N] = MAX (catalog[i].measure[m].dM_PS, MIN_ERROR); 304 304 ilist[N] = m; 305 305 N++; … … 422 422 if (catalog[i].average[j].code & STAR_BAD) continue; 423 423 424 dM = PhotPrimary ? catalog[i].average[j].dM : catalog[i].secfilt[PhotNsec*j+PhotSec].dM;425 list[n] = 0.001*dM;424 dM = PhotPrimary ? catalog[i].average[j].dM_PS : catalog[i].secfilt[PhotNsec*j+PhotSec].dM_PS; 425 list[n] = dM; 426 426 dlist[n] = 1; 427 427 n++; … … 438 438 439 439 int i, j, bin; 440 short dMrel;440 float dMrel; 441 441 double *xlist, *Mlist; 442 442 Graphdata graphdata; … … 451 451 for (j = 0; j < catalog[i].Naverage; j++) { 452 452 if (catalog[i].average[j].code & STAR_BAD) continue; 453 dMrel = PhotPrimary ? catalog[i].average[j].dM : catalog[i].secfilt[PhotNsec*j+PhotSec].dM;454 bin = 0.001*dMrel / 0.0025;453 dMrel = PhotPrimary ? catalog[i].average[j].dM_PS : catalog[i].secfilt[PhotNsec*j+PhotSec].dM_PS; 454 bin = dMrel / 0.0025; 455 455 bin = MAX (0, MIN (NBIN-1, bin)); 456 456 Mlist[bin] += 1.0; … … 482 482 for (j = 0; j < catalog[i].Naverage; j++) { 483 483 if (catalog[i].average[j].code & STAR_BAD) continue; 484 xlist[N] = PhotPrimary ? 0.001*catalog[i].average[j].M : 0.001*catalog[i].secfilt[PhotNsec*j+PhotSec].M;485 value = PhotPrimary ? catalog[i].average[j].Xm : catalog[i].secfilt[PhotNsec*j+PhotSec].Xm;484 xlist[N] = PhotPrimary ? catalog[i].average[j].M_PS : catalog[i].secfilt[PhotNsec*j+PhotSec].M_PS; 485 value = PhotPrimary ? catalog[i].average[j].Xm : catalog[i].secfilt[PhotNsec*j+PhotSec].Xm; 486 486 if (value == NO_MAG) continue; 487 487 ylist[N] = 0.01*value; -
trunk/Ohana/src/relphot/src/args.c
r4796 r4865 113 113 if ((N = get_argument (argc, argv, "-minerror"))) { 114 114 remove_argument (N, &argc, argv); 115 MIN_ERROR = 1000.0*atof (argv[N]);115 MIN_ERROR = atof (argv[N]); 116 116 remove_argument (N, &argc, argv); 117 117 /* require MIN_ERROR > 0 */ … … 135 135 if ((N = get_argument (argc, argv, "-instmag"))) { 136 136 remove_argument (N, &argc, argv); 137 ImagMin = 1000*atof (argv[N]);137 ImagMin = atof (argv[N]); 138 138 remove_argument (N, &argc, argv); 139 ImagMax = 1000*atof (argv[N]);139 ImagMax = atof (argv[N]); 140 140 remove_argument (N, &argc, argv); 141 141 ImagSelect = TRUE; -
trunk/Ohana/src/relphot/src/bcatalog.c
r4796 r4865 5 5 int i, j, offset, ecode; 6 6 int NAVERAGE, NMEASURE, Naverage, Nmeasure, Nm; 7 int mag;7 float mag; 8 8 9 9 /* we are moving only the subset of measurements from catalog[0] to subcatalog[0] */ … … 31 31 32 32 if (RESET) { 33 short *p;34 p = (PhotPrimary) ? &subcatalog[0].average[Naverage].M : &subcatalog[0].secfilt[PhotNsec*Naverage+PhotSec].M;33 float *p; 34 p = (PhotPrimary) ? &subcatalog[0].average[Naverage].M_PS : &subcatalog[0].secfilt[PhotNsec*Naverage+PhotSec].M_PS; 35 35 *p = NO_MAG; 36 p = (PhotPrimary) ? &subcatalog[0].average[Naverage].dM : &subcatalog[0].secfilt[PhotNsec*Naverage+PhotSec].dM;36 p = (PhotPrimary) ? &subcatalog[0].average[Naverage].dM_PS : &subcatalog[0].secfilt[PhotNsec*Naverage+PhotSec].dM_PS; 37 37 *p = NO_MAG; 38 38 subcatalog[0].average[Naverage].code &= ~ID_STAR_FEW; … … 59 59 60 60 /* select measurements by mag limit */ 61 mag = iPhotCat (&catalog[0].measure[offset]);61 mag = PhotCat (&catalog[0].measure[offset]); 62 62 if (mag > MAG_LIM) continue; 63 63 64 64 /* select measurements by measurement error */ 65 if (catalog[0].measure[offset].dM > SIGMA_LIM) continue;65 if (catalog[0].measure[offset].dM_PS > SIGMA_LIM) continue; 66 66 67 67 /* select measurements by mag limit */ 68 68 if (ImagSelect) { 69 mag = iPhotInst (&catalog[0].measure[offset]);69 mag = PhotInst (&catalog[0].measure[offset]); 70 70 if (mag < ImagMin) continue; 71 71 if (mag > ImagMax) continue; … … 76 76 subcatalog[0].measure[Nmeasure].averef = Naverage; 77 77 if (RESET) { 78 subcatalog[0].measure[Nmeasure].Mcal = 0;78 subcatalog[0].measure[Nmeasure].Mcal_PS = 0; 79 79 subcatalog[0].measure[Nmeasure].flags &= 0xff00; 80 80 subcatalog[0].measure[Nmeasure].flags &= ~ID_MEAS_POOR; -
trunk/Ohana/src/relphot/src/plot_scatter.c
r4796 r4865 4 4 5 5 int i, j, k, m, N, Ntot; 6 short Mrel, Mcal, Mmos, Mgrid;6 float Mrel, Mcal, Mmos, Mgrid; 7 7 double *xlist, *ylist, *ilist; 8 8 Graphdata graphdata; … … 32 32 if ((Mgrid = getMgrid (m, i)) == NO_MAG) continue; 33 33 34 Mrel = PhotPrimary ? catalog[i].average[j].M : catalog[i].secfilt[PhotNsec*j+PhotSec].M;34 Mrel = PhotPrimary ? catalog[i].average[j].M_PS : catalog[i].secfilt[PhotNsec*j+PhotSec].M_PS; 35 35 xlist[N] = Mrel; 36 ylist[N] = iPhotSys(&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]) - Mcal - Mmos - Mgrid - Mrel;36 ylist[N] = PhotSys (&catalog[i].measure[m], &catalog[i].average[j], &catalog[i].secfilt[j*PhotNsec]) - Mcal - Mmos - Mgrid - Mrel; 37 37 ilist[N] = PhotInst (&catalog[i].measure[m]); 38 xlist[N] *= 0.001;39 ylist[N] *= 0.001;40 38 N++; 41 39 } -
trunk/Ohana/src/relphot/src/setMrelFinal.c
r4796 r4865 4 4 5 5 int i, j, m, ecode; 6 short *p; 6 float *p; 7 short *q; 7 8 8 9 /* if we reset the catalog, reset all the current measurements */ … … 10 11 11 12 for (i = 0; i < catalog[0].Naverage; i++) { 12 p = (PhotPrimary) ? &catalog[0].average[i].M : &catalog[0].secfilt[PhotNsec*i+PhotSec].M;13 p = (PhotPrimary) ? &catalog[0].average[i].M_PS : &catalog[0].secfilt[PhotNsec*i+PhotSec].M_PS; 13 14 *p = NO_MAG; 14 p = (PhotPrimary) ? &catalog[0].average[i].dM : &catalog[0].secfilt[PhotNsec*i+PhotSec].dM;15 p = (PhotPrimary) ? &catalog[0].average[i].dM_PS : &catalog[0].secfilt[PhotNsec*i+PhotSec].dM_PS; 15 16 *p = NO_MAG; 16 p= (PhotPrimary) ? &catalog[0].average[i].Xm : &catalog[0].secfilt[PhotNsec*i+PhotSec].Xm;17 * p= NO_MAG;17 q = (PhotPrimary) ? &catalog[0].average[i].Xm : &catalog[0].secfilt[PhotNsec*i+PhotSec].Xm; 18 *q = NO_MAG; 18 19 19 20 m = catalog[0].average[i].offset; … … 30 31 } 31 32 32 catalog[0].measure[m].Mcal = 0;33 catalog[0].measure[m].Mcal_PS = 0; 33 34 catalog[0].measure[m].flags &= 0xff00; 34 35 catalog[0].measure[m].flags &= ~ID_MEAS_POOR; … … 72 73 int i, k, m, ecode, d1, d2; 73 74 int Ntot, Ntry, Nkeep, Nskip; 74 short mag;75 float mag; 75 76 76 77 Ntot = Ntry = Nskip = Nkeep = 0; … … 114 115 /* skip measurements by inst mag limit */ 115 116 if ((pass < 4) && ImagSelect) { 116 mag = iPhotInst (&catalog[0].measure[m]);117 mag = PhotInst (&catalog[0].measure[m]); 117 118 if (mag < ImagMin) goto skip; 118 119 if (mag > ImagMax) goto skip;
Note:
See TracChangeset
for help on using the changeset viewer.
