- Timestamp:
- Mar 4, 2007, 3:45:18 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dvo-mods-2007-02/Ohana/src/relastro/src/StarOps.c
r12048 r12220 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 = catalog[cat].secfilt[PhotNsec*ave+PhotSec].M; 31 31 return (value); 32 32 } … … 65 65 liststats (list, dlist, N, &stats); 66 66 67 if (PhotPrimary) { 68 catalog[i].average[j].M = stats.mean; 69 catalog[i].average[j].dM = stats.sigma; 70 catalog[i].average[j].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 71 } else { 72 catalog[i].secfilt[PhotNsec*j+PhotSec].M = stats.mean; 73 catalog[i].secfilt[PhotNsec*j+PhotSec].dM = stats.sigma; 74 catalog[i].secfilt[PhotNsec*j+PhotSec].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 75 } 67 catalog[i].secfilt[PhotNsec*j+PhotSec].M = stats.mean; 68 catalog[i].secfilt[PhotNsec*j+PhotSec].dM = stats.sigma; 69 catalog[i].secfilt[PhotNsec*j+PhotSec].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 76 70 } 77 71 } … … 121 115 122 116 /* use sigma or error in dM for output? */ 123 if (PhotPrimary) { 124 catalog[i].average[j].M = stats.mean; 125 catalog[i].average[j].dM = MAX (stats.sigma, stats.error); 126 catalog[i].average[j].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 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); 130 catalog[i].secfilt[PhotNsec*j+PhotSec].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 131 } 117 catalog[i].secfilt[PhotNsec*j+PhotSec].M = stats.mean; 118 catalog[i].secfilt[PhotNsec*j+PhotSec].dM = MAX (stats.error, stats.sigma); 119 catalog[i].secfilt[PhotNsec*j+PhotSec].Xm = (stats.Nmeas > 1) ? 100.0*log10(stats.chisq) : NO_MAG; 132 120 } 133 121 } … … 183 171 for (j = 0; j < catalog[i].Naverage; j++) { 184 172 if (catalog[i].average[j].code & STAR_BAD) continue; 185 Xm = PhotPrimary ? catalog[i].average[j].Xm :catalog[i].secfilt[PhotNsec*j+PhotSec].Xm;173 Xm = catalog[i].secfilt[PhotNsec*j+PhotSec].Xm; 186 174 if (Xm == -1) continue; 187 175 Chisq = pow (10.0, 0.01*Xm); 188 176 xlist[Ntot] = Chisq; 189 slist[Ntot] = PhotPrimary ? catalog[i].average[j].dM :catalog[i].secfilt[PhotNsec*j+PhotSec].dM;177 slist[Ntot] = catalog[i].secfilt[PhotNsec*j+PhotSec].dM; 190 178 dlist[Ntot] = 1; 191 179 Ntot ++; … … 203 191 for (i = 0; i < Ncatalog; i++) { 204 192 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;193 dM = catalog[i].secfilt[PhotNsec*j+PhotSec].dM; 194 Xm = catalog[i].secfilt[PhotNsec*j+PhotSec].Xm; 207 195 Chisq = pow (10.0, 0.01*Xm); 208 196 mark = (dM > MaxScatter) || (Xm == NO_MAG) || (Chisq > MaxChisq); … … 387 375 if (catalog[i].average[j].code & STAR_BAD) continue; 388 376 389 Xm = PhotPrimary ? catalog[i].average[j].Xm :catalog[i].secfilt[PhotNsec*j+PhotSec].Xm;377 Xm = catalog[i].secfilt[PhotNsec*j+PhotSec].Xm; 390 378 if (Xm == NO_MAG) continue; 391 379 list[n] = pow (10.0, 0.01*Xm); … … 423 411 if (catalog[i].average[j].code & STAR_BAD) continue; 424 412 425 dM = PhotPrimary ? catalog[i].average[j].dM :catalog[i].secfilt[PhotNsec*j+PhotSec].dM;413 dM = catalog[i].secfilt[PhotNsec*j+PhotSec].dM; 426 414 list[n] = dM; 427 415 dlist[n] = 1; … … 452 440 for (j = 0; j < catalog[i].Naverage; j++) { 453 441 if (catalog[i].average[j].code & STAR_BAD) continue; 454 dMrel = PhotPrimary ? catalog[i].average[j].dM :catalog[i].secfilt[PhotNsec*j+PhotSec].dM;442 dMrel = catalog[i].secfilt[PhotNsec*j+PhotSec].dM; 455 443 bin = dMrel / 0.00025; 456 444 bin = MAX (0, MIN (NBIN-1, bin)); … … 483 471 for (j = 0; j < catalog[i].Naverage; j++) { 484 472 if (catalog[i].average[j].code & STAR_BAD) continue; 485 xlist[N] = PhotPrimary ? catalog[i].average[j].M :catalog[i].secfilt[PhotNsec*j+PhotSec].M;486 value = PhotPrimary ? catalog[i].average[j].Xm :catalog[i].secfilt[PhotNsec*j+PhotSec].Xm;473 xlist[N] = catalog[i].secfilt[PhotNsec*j+PhotSec].M; 474 value = catalog[i].secfilt[PhotNsec*j+PhotSec].Xm; 487 475 if (value == NO_MAG) continue; 488 476 ylist[N] = 0.01*value;
Note:
See TracChangeset
for help on using the changeset viewer.
