Skip to content
GitLab
Commit 5f63711a authored by Emmanuel Bertin's avatar Emmanuel Bertin
Browse files

Added VOTABLE "version" attribute to XML output. 

Reverted minimization algorithm back to double precision (while keeping single precision for data and parameters in "bounded" space).
Added specific handling of "Jacobian calls" in model-fitting.
Sped up the resampling process in model-fitting.
Tuned up minimization algorithm in model-fitting.
Added shortcuts to the computation of the local PSF model. 
Fixed triggering issues with some model-fitting parameters (thanks to S.Serrano).
Removed CLASS_STAR_MODEL and DISK_PATTERN* measurement parameters.
Added automatic tracking of the PSF FWHM from the local PSF model if SEEING_FWHM is 0 for CLASS_STAR.
Fixed excessive WIN parameter computation time on large ring-shaped objects.
Fixed model-fitting issue with null half-light radii (thanks to S.Desai and B.Armstrong).
Fixed aperture display value error in FITS-LDAC catalogue header.
Removed redundant update_tab() calls in FITS library.
Fixed comment copy issue for slashes within strings in FITS library (thanks to F.Schuller).
Added check of PSF values; SExtractor will now exit in error in the case where all PSF components sum up to 0.
Replaced computation of model second moments and ellipticities with analytical estimates.
Improved the accuracy of peak and average model surface brightness estimates.
Fixed some compiler warnings.
Pushed version number to 2.11.7.
parent 523e3274
Hide whitespace changes
Inline Side-by-side
configure
View file @ 5f63711a
#! /bin/sh #! /bin/sh
# Guess values for system-dependent variables and create Makefiles. # Guess values for system-dependent variables and create Makefiles.
# Generated by GNU Autoconf 2.63 for sextractor 2.11.0. # Generated by GNU Autoconf 2.63 for sextractor 2.11.7.
# #
# Report bugs to <bertin@iap.fr>. # Report bugs to <bertin@iap.fr>.
# #
...@@ -750,8 +750,8 @@ SHELL=${CONFIG_SHELL-/bin/sh} ...@@ -750,8 +750,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
# Identity of this package. # Identity of this package.
PACKAGE_NAME='sextractor' PACKAGE_NAME='sextractor'
PACKAGE_TARNAME='sextractor' PACKAGE_TARNAME='sextractor'
PACKAGE_VERSION='2.11.0' PACKAGE_VERSION='2.11.7'
PACKAGE_STRING='sextractor 2.11.0' PACKAGE_STRING='sextractor 2.11.7'
PACKAGE_BUGREPORT='bertin@iap.fr' PACKAGE_BUGREPORT='bertin@iap.fr'
   
ac_unique_file="src/makeit.c" ac_unique_file="src/makeit.c"
...@@ -1505,7 +1505,7 @@ if test "$ac_init_help" = "long"; then ...@@ -1505,7 +1505,7 @@ if test "$ac_init_help" = "long"; then
# Omit some internal or obsolete options to make the list less imposing. # Omit some internal or obsolete options to make the list less imposing.
# This message is too long to be a string in the A/UX 3.1 sh. # This message is too long to be a string in the A/UX 3.1 sh.
cat <<_ACEOF cat <<_ACEOF
\`configure' configures sextractor 2.11.0 to adapt to many kinds of systems. \`configure' configures sextractor 2.11.7 to adapt to many kinds of systems.
   
Usage: $0 [OPTION]... [VAR=VALUE]... Usage: $0 [OPTION]... [VAR=VALUE]...
   
...@@ -1575,7 +1575,7 @@ fi ...@@ -1575,7 +1575,7 @@ fi
   
if test -n "$ac_init_help"; then if test -n "$ac_init_help"; then
case $ac_init_help in case $ac_init_help in
short | recursive ) echo "Configuration of sextractor 2.11.0:";; short | recursive ) echo "Configuration of sextractor 2.11.7:";;
esac esac
cat <<\_ACEOF cat <<\_ACEOF
   
...@@ -1706,7 +1706,7 @@ fi ...@@ -1706,7 +1706,7 @@ fi
test -n "$ac_init_help" && exit $ac_status test -n "$ac_init_help" && exit $ac_status
if $ac_init_version; then if $ac_init_version; then
cat <<\_ACEOF cat <<\_ACEOF
sextractor configure 2.11.0 sextractor configure 2.11.7
generated by GNU Autoconf 2.63 generated by GNU Autoconf 2.63
   
Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
...@@ -1720,7 +1720,7 @@ cat >config.log <<_ACEOF ...@@ -1720,7 +1720,7 @@ cat >config.log <<_ACEOF
This file contains any messages produced by compilers while This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake. running configure, to aid debugging if configure makes a mistake.
   
It was created by sextractor $as_me 2.11.0, which was It was created by sextractor $as_me 2.11.7, which was
generated by GNU Autoconf 2.63. Invocation command line was generated by GNU Autoconf 2.63. Invocation command line was
   
$ $0 $@ $ $0 $@
...@@ -2423,7 +2423,7 @@ fi ...@@ -2423,7 +2423,7 @@ fi
   
# Define the identity of the package. # Define the identity of the package.
PACKAGE='sextractor' PACKAGE='sextractor'
VERSION='2.11.0' VERSION='2.11.7'
   
   
cat >>confdefs.h <<_ACEOF cat >>confdefs.h <<_ACEOF
...@@ -28535,7 +28535,7 @@ exec 6>&1 ...@@ -28535,7 +28535,7 @@ exec 6>&1
# report actual input values of CONFIG_FILES etc. instead of their # report actual input values of CONFIG_FILES etc. instead of their
# values after options handling. # values after options handling.
ac_log=" ac_log="
This file was extended by sextractor $as_me 2.11.0, which was This file was extended by sextractor $as_me 2.11.7, which was
generated by GNU Autoconf 2.63. Invocation command line was generated by GNU Autoconf 2.63. Invocation command line was
   
CONFIG_FILES = $CONFIG_FILES CONFIG_FILES = $CONFIG_FILES
...@@ -28598,7 +28598,7 @@ Report bugs to <bug-autoconf@gnu.org>." ...@@ -28598,7 +28598,7 @@ Report bugs to <bug-autoconf@gnu.org>."
_ACEOF _ACEOF
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
ac_cs_version="\\ ac_cs_version="\\
sextractor config.status 2.11.0 sextractor config.status 2.11.7
configured by $0, generated by GNU Autoconf 2.63, configured by $0, generated by GNU Autoconf 2.63,
with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
   
......
configure.ac
View file @ 5f63711a
# configure.in for SExtractor # configure.in for SExtractor
# (C) E.Bertin 2002-2009 # (C) E.Bertin 2002-2010
# Process this file with autoconf to produce a configure script. # Process this file with autoconf to produce a configure script.
# First, disable the annoying config.cache # First, disable the annoying config.cache
define([AC_CACHE_LOAD],) define([AC_CACHE_LOAD],)
define([AC_CACHE_SAVE],) define([AC_CACHE_SAVE],)
# This is your standard Bertin source code... # This is your standard Bertin source code...
AC_INIT(sextractor, 2.11.0, [bertin@iap.fr]) AC_INIT(sextractor, 2.11.7, [bertin@iap.fr])
AC_CONFIG_SRCDIR(src/makeit.c) AC_CONFIG_SRCDIR(src/makeit.c)
AC_CONFIG_AUX_DIR(autoconf) AC_CONFIG_AUX_DIR(autoconf)
AM_CONFIG_HEADER(config.h) AM_CONFIG_HEADER(config.h)
......
man/sex.1
View file @ 5f63711a
.TH SEXTRACTOR "1" "February 2010" "SWarp 2.11.0" "User Commands" .TH SEXTRACTOR "1" "July 2010" "SWarp 2.11.7" "User Commands"
.SH NAME .SH NAME
sex \- extract a source catalog from an astronomical FITS image sex \- extract a source catalog from an astronomical FITS image
.SH SYNOPSIS .SH SYNOPSIS
......
src/analyse.c
View file @ 5f63711a
...@@ -395,6 +395,11 @@ void endobject(picstruct *field, picstruct *dfield, picstruct *wfield, ...@@ -395,6 +395,11 @@ void endobject(picstruct *field, picstruct *dfield, picstruct *wfield,
analtime1; analtime1;
int i,j, ix,iy,selecflag, newnumber,nsub; int i,j, ix,iy,selecflag, newnumber,nsub;
if (prefs.psf_flag || prefs.prof_flag)
thepsf->build_flag = 0; /* Reset PSF building flag */
if (prefs.dpsf_flag)
ppsf->build_flag = 0; /* Reset PSF building flag */
if (FLAG(obj2.analtime)) if (FLAG(obj2.analtime))
analtime1 = counter_seconds(); analtime1 = counter_seconds();
else else
...@@ -589,7 +594,8 @@ void endobject(picstruct *field, picstruct *dfield, picstruct *wfield, ...@@ -589,7 +594,8 @@ void endobject(picstruct *field, picstruct *dfield, picstruct *wfield,
{ {
double fac2, input[10], output, fwhm; double fac2, input[10], output, fwhm;
fwhm = prefs.seeing_fwhm; fwhm = (prefs.seeing_fwhm==0.0)? psf_fwhm(thepsf)*field->pixscale
: prefs.seeing_fwhm;
fac2 = fwhm/field->pixscale; fac2 = fwhm/field->pixscale;
fac2 *= fac2; fac2 *= fac2;
......
src/catout.c
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: functions for output of catalog data. * Contents: functions for output of catalog data.
* *
* Last modify: 07/10/2009 * Last modify: 08/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -193,6 +193,9 @@ void updateparamflags() ...@@ -193,6 +193,9 @@ void updateparamflags()
| FLAG(obj2.poserraw_prof); | FLAG(obj2.poserraw_prof);
FLAG(obj2.poserrcxx_prof) |= FLAG(obj2.poserrcyy_prof) FLAG(obj2.poserrcxx_prof) |= FLAG(obj2.poserrcyy_prof)
| FLAG(obj2.poserrcxy_prof); | FLAG(obj2.poserrcxy_prof);
FLAG(obj2.poserrmx2_prof) |= FLAG(obj2.poserrmy2_prof)
| FLAG(obj2.poserrmxy_prof)
| FLAG(obj2.poserrmx2w_prof);
FLAG(obj2.alpha1950_prof) |= FLAG(obj2.delta1950_prof) FLAG(obj2.alpha1950_prof) |= FLAG(obj2.delta1950_prof)
| FLAG(obj2.poserrtheta1950_prof); | FLAG(obj2.poserrtheta1950_prof);
FLAG(obj2.alpha2000_prof) |= FLAG(obj2.delta2000_prof) FLAG(obj2.alpha2000_prof) |= FLAG(obj2.delta2000_prof)
...@@ -208,6 +211,7 @@ void updateparamflags() ...@@ -208,6 +211,7 @@ void updateparamflags()
| FLAG(obj2.xf_prof) | FLAG(obj2.xf_prof)
| FLAG(obj2.poserra_prof) | FLAG(obj2.poserra_prof)
| FLAG(obj2.poserrcxx_prof) | FLAG(obj2.poserrcxx_prof)
| FLAG(obj2.poserrmx2_prof)
| FLAG(obj2.prof_concentration) | FLAG(obj2.prof_concentration)
| FLAG(obj2.prof_class_star); | FLAG(obj2.prof_class_star);
...@@ -336,12 +340,10 @@ void updateparamflags() ...@@ -336,12 +340,10 @@ void updateparamflags()
| FLAG(obj2.prof_e1) | FLAG(obj2.prof_e1)
| FLAG(obj2.prof_a) | FLAG(obj2.prof_cxx) | FLAG(obj2.prof_a) | FLAG(obj2.prof_cxx)
| FLAG(obj2.prof_mx2w); | FLAG(obj2.prof_mx2w);
FLAG(obj2.mumax_prof) |= FLAG(obj2.mueff_prof) | FLAG(obj2.mumean_prof);/*!*/
FLAG(obj2.fluxmean_prof) |= FLAG(obj2.mumean_prof); FLAG(obj2.fluxmean_prof) |= FLAG(obj2.mumean_prof);
FLAG(obj2.fluxeff_prof) |= FLAG(obj2.mueff_prof) FLAG(obj2.fluxeff_prof) |= FLAG(obj2.mueff_prof)
| FLAG(obj2.fluxmean_prof); | FLAG(obj2.fluxmean_prof);
FLAG(obj2.peak_prof) |= FLAG(obj2.mumax_prof) FLAG(obj2.peak_prof) |= FLAG(obj2.mumax_prof);
| FLAG(obj2.fluxeff_prof);
FLAG(obj2.prof_arms_flux) |= FLAG(obj2.prof_arms_fluxerr) FLAG(obj2.prof_arms_flux) |= FLAG(obj2.prof_arms_fluxerr)
| FLAG(obj2.prof_arms_mag) | FLAG(obj2.prof_arms_mag)
......
src/check.c
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: handling of "check-images". * Contents: handling of "check-images".
* *
* Last modify: 17/09/2008 * Last modify: 23/03/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -236,13 +236,17 @@ void reinitcheck(picstruct *field, checkstruct *check) ...@@ -236,13 +236,17 @@ void reinitcheck(picstruct *field, checkstruct *check)
case CHECK_OBJECTS: case CHECK_OBJECTS:
case CHECK_APERTURES: case CHECK_APERTURES:
case CHECK_SUBPSFPROTOS:
case CHECK_PSFPROTOS: case CHECK_PSFPROTOS:
case CHECK_SUBPCPROTOS: case CHECK_SUBPSFPROTOS:
case CHECK_PCPROTOS: case CHECK_PCPROTOS:
case CHECK_SUBPCPROTOS:
case CHECK_PCOPROTOS: case CHECK_PCOPROTOS:
case CHECK_SUBPROFILES:
case CHECK_PROFILES: case CHECK_PROFILES:
case CHECK_SUBPROFILES:
case CHECK_SPHEROIDS:
case CHECK_SUBSPHEROIDS:
case CHECK_DISKS:
case CHECK_SUBDISKS:
case CHECK_PATTERNS: case CHECK_PATTERNS:
ival = -32; ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG); fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
...@@ -349,6 +353,20 @@ void reinitcheck(picstruct *field, checkstruct *check) ...@@ -349,6 +353,20 @@ void reinitcheck(picstruct *field, checkstruct *check)
free(check->fitshead); free(check->fitshead);
break; break;
case CHECK_OTHER:
ival = -32;
fitswrite(check->fitshead, "BITPIX ", &ival, H_INT, T_LONG);
fitswrite(check->fitshead, "NAXIS1 ", &check->width, H_INT, T_LONG);
fitswrite(check->fitshead, "NAXIS2 ", &check->height, H_INT, T_LONG);
check->npix = check->width*check->height;
QMALLOC(ptrf, PIXTYPE, check->npix);
check->pix = (void *)ptrf;
for (i=check->npix; i--;)
*(ptrf++) = -10.0;
QFWRITE(check->fitshead,check->fitsheadsize,check->file,check->filename);
free(check->fitshead);
break;
default: default:
error(EXIT_FAILURE, "*Internal Error* in ", "reinitcheck()!"); error(EXIT_FAILURE, "*Internal Error* in ", "reinitcheck()!");
} }
...@@ -366,7 +384,8 @@ void writecheck(checkstruct *check, PIXTYPE *data, int w) ...@@ -366,7 +384,8 @@ void writecheck(checkstruct *check, PIXTYPE *data, int w)
{ {
if (check->type == CHECK_APERTURES || check->type == CHECK_SUBPSFPROTOS if (check->type == CHECK_APERTURES || check->type == CHECK_SUBPSFPROTOS
|| check->type == CHECK_SUBPCPROTOS || check->type == CHECK_PCOPROTOS || check->type == CHECK_SUBPCPROTOS || check->type == CHECK_PCOPROTOS
|| check->type == CHECK_SUBPROFILES) || check->type == CHECK_SUBPROFILES || check->type == CHECK_SUBSPHEROIDS
|| check->type == CHECK_SUBDISKS)
{ {
memcpy((PIXTYPE *)check->pix + w*(check->y++), data, w*sizeof(PIXTYPE)); memcpy((PIXTYPE *)check->pix + w*(check->y++), data, w*sizeof(PIXTYPE));
return; return;
...@@ -422,15 +441,21 @@ void reendcheck(picstruct *field, checkstruct *check) ...@@ -422,15 +441,21 @@ void reendcheck(picstruct *field, checkstruct *check)
case CHECK_OBJECTS: case CHECK_OBJECTS:
case CHECK_APERTURES: case CHECK_APERTURES:
case CHECK_SUBPSFPROTOS:
case CHECK_PSFPROTOS: case CHECK_PSFPROTOS:
case CHECK_SUBPCPROTOS: case CHECK_SUBPSFPROTOS:
case CHECK_PCPROTOS: case CHECK_PCPROTOS:
case CHECK_SUBPCPROTOS:
case CHECK_PCOPROTOS: case CHECK_PCOPROTOS:
case CHECK_SUBPROFILES:
case CHECK_PROFILES: case CHECK_PROFILES:
case CHECK_SUBPROFILES:
case CHECK_SPHEROIDS:
case CHECK_SUBSPHEROIDS:
case CHECK_DISKS:
case CHECK_SUBDISKS:
case CHECK_ASSOC: case CHECK_ASSOC:
case CHECK_PATTERNS: case CHECK_PATTERNS:
case CHECK_MAPSOM:
case CHECK_OTHER:
if (bswapflag) if (bswapflag)
swapbytes(check->pix, sizeof(PIXTYPE), (int)check->npix); swapbytes(check->pix, sizeof(PIXTYPE), (int)check->npix);
QFWRITE(check->pix,check->npix*sizeof(PIXTYPE), QFWRITE(check->pix,check->npix*sizeof(PIXTYPE),
...@@ -461,15 +486,6 @@ void reendcheck(picstruct *field, checkstruct *check) ...@@ -461,15 +486,6 @@ void reendcheck(picstruct *field, checkstruct *check)
break; break;
} }
case CHECK_MAPSOM:
if (bswapflag)
swapbytes(check->pix, sizeof(PIXTYPE), (int)check->npix);
QFWRITE(check->pix,check->npix*sizeof(PIXTYPE),
check->file,check->filename);
free(check->pix);
padsize = (FBSIZE -((check->npix*sizeof(USHORT))%FBSIZE)) % FBSIZE;
break;
default: default:
error(EXIT_FAILURE, "*Internal Error* in ", "endcheck()!"); error(EXIT_FAILURE, "*Internal Error* in ", "endcheck()!");
} }
......
src/fits/fitsutil.c
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: functions for handling FITS keywords. * Contents: functions for handling FITS keywords.
* *
* Last modify: 02/11/2009 * Last modify: 02/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -181,7 +181,7 @@ OUTPUT RETURN_OK if something was found, RETURN_ERROR otherwise. ...@@ -181,7 +181,7 @@ OUTPUT RETURN_OK if something was found, RETURN_ERROR otherwise.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP), AUTHOR E. Bertin (IAP),
E.R. Deul - Handling of NaN E.R. Deul - Handling of NaN
VERSION 18/05/2009 VERSION 02/07/2010
***/ ***/
int fitspick(char *fitsline, char *keyword, void *ptr, h_type *htype, int fitspick(char *fitsline, char *keyword, void *ptr, h_type *htype,
t_type *ttype, char *comment) t_type *ttype, char *comment)
...@@ -274,7 +274,7 @@ int fitspick(char *fitsline, char *keyword, void *ptr, h_type *htype, ...@@ -274,7 +274,7 @@ int fitspick(char *fitsline, char *keyword, void *ptr, h_type *htype,
for (fptr = fitsline + (i=j); i<80; i++) for (fptr = fitsline + (i=j); i<80; i++)
{ {
if (*fptr == (char)'\'') if (*fptr == (char)'\'')
toggle^=toggle; toggle ^= 1;
if (*(fptr++) == (char)'/' && !toggle) if (*(fptr++) == (char)'/' && !toggle)
{ {
while (++i<80 && *fptr<=' ') while (++i<80 && *fptr<=' ')
......
src/fits/fitswrite.c
View file @ 5f63711a
...@@ -75,7 +75,7 @@ INPUT pointer to the catalog structure, ...@@ -75,7 +75,7 @@ INPUT pointer to the catalog structure,
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP & Leiden observatory) AUTHOR E. Bertin (IAP & Leiden observatory)
VERSION 09/09/2003 VERSION 02/11/2009
***/ ***/
void save_tab(catstruct *cat, tabstruct *tab) void save_tab(catstruct *cat, tabstruct *tab)
...@@ -90,8 +90,6 @@ void save_tab(catstruct *cat, tabstruct *tab) ...@@ -90,8 +90,6 @@ void save_tab(catstruct *cat, tabstruct *tab)
char *buf, *inbuf, *outbuf, *fptr,*ptr; char *buf, *inbuf, *outbuf, *fptr,*ptr;
int esize; int esize;
/* Make the table parameters reflect its content*/
update_tab(tab);
/* The header itself*/ /* The header itself*/
tabflag = save_head(cat, tab)==RETURN_OK?1:0; tabflag = save_head(cat, tab)==RETURN_OK?1:0;
/* Allocate memory for the output buffer */ /* Allocate memory for the output buffer */
...@@ -265,7 +263,7 @@ INPUT catalog structure, ...@@ -265,7 +263,7 @@ INPUT catalog structure,
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP & Leiden observatory) AUTHOR E. Bertin (IAP & Leiden observatory)
VERSION 26/09/2004 VERSION 02/11/2009
***/ ***/
void init_writeobj(catstruct *cat, tabstruct *tab, char **pbuf) void init_writeobj(catstruct *cat, tabstruct *tab, char **pbuf)
...@@ -273,8 +271,6 @@ void init_writeobj(catstruct *cat, tabstruct *tab, char **pbuf) ...@@ -273,8 +271,6 @@ void init_writeobj(catstruct *cat, tabstruct *tab, char **pbuf)
keystruct *key; keystruct *key;
int k; int k;
/* Make the table parameters reflect its content*/
update_tab(tab);
/* The header itself */ /* The header itself */
if (save_head(cat, tab) != RETURN_OK) if (save_head(cat, tab) != RETURN_OK)
error(EXIT_FAILURE, "*Error*: Not a binary table: ", tab->extname); error(EXIT_FAILURE, "*Error*: Not a binary table: ", tab->extname);
......
src/growth.c
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: Make growth curves. * Contents: Make growth curves.
* *
* Last modify: 19/12/2007 * Last modify: 02/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -336,6 +336,8 @@ void makeavergrowth(picstruct *field, picstruct *wfield, objstruct *obj) ...@@ -336,6 +336,8 @@ void makeavergrowth(picstruct *field, picstruct *wfield, objstruct *obj)
i + (tv - *(growtht-1))/dg i + (tv - *(growtht-1))/dg
: i) : i)
: (*growth !=0.0 ?tv/(*growth) : 0.0)); : (*growth !=0.0 ?tv/(*growth) : 0.0));
if (obj2->flux_radius[j] > rlim)
obj2->flux_radius[j] = rlim;
} }
} }
...@@ -346,10 +348,14 @@ void makeavergrowth(picstruct *field, picstruct *wfield, objstruct *obj) ...@@ -346,10 +348,14 @@ void makeavergrowth(picstruct *field, picstruct *wfield, objstruct *obj)
tv = 0.5*obj2->flux_auto; tv = 0.5*obj2->flux_auto;
growtht = growth-1; growtht = growth-1;
for (i=0; i<n && *(++growtht)<tv; i++); for (i=0; i<n && *(++growtht)<tv; i++);
obj2->hl_radius = step*(i? ((dg=*growtht - *(growtht-1)) != 0.0 ? obj2->hl_radius = fabs(step*(i? ((dg=*growtht - *(growtht-1)) != 0.0 ?
i + (tv - *(growtht-1))/dg i + (tv - *(growtht-1))/dg
: i) : i)
: (*growth !=0.0 ?tv/(*growth) : 0.0)); : (*growth !=0.0 ?tv/(*growth) : 0.0)));
if (obj2->hl_radius > rlim)
obj2->hl_radius = rlim;
if (obj2->hl_radius < GROWTH_MINHLRAD)
obj2->hl_radius = GROWTH_MINHLRAD;
} }
return; return;
......
src/growth.h
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: Include file for growth.c. * Contents: Include file for growth.c.
* *
* Last modify: 04/05/98 * Last modify: 02/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -18,8 +18,8 @@ ...@@ -18,8 +18,8 @@
#define GROWTH_NSTEP 64 /* number of growth curve samples */ #define GROWTH_NSTEP 64 /* number of growth curve samples */
#define GROWTH_OVERSAMP 5 /* pixel oversampling in each dimension */ #define GROWTH_OVERSAMP 5 /* pixel oversampling in each dimension */
#define GROWTH_NSIG 3*MARGIN_SCALE /* MAG_AUTO analysis range (number */ #define GROWTH_NSIG 3*MARGIN_SCALE /* MAG_AUTO analysis range (nsigmas) */
/* of sigma) */ #define GROWTH_MINHLRAD 0.5 /* Minimum internal half-light radius (pixels)*/
/* NOTES: /* NOTES:
One must have: GROWTH_SAMP >= 1 One must have: GROWTH_SAMP >= 1
......
src/param.h
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: parameter list for catalog data. * Contents: parameter list for catalog data.
* *
* Last modify: 14/12/2009 * Last modify: 18/05/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -702,7 +702,7 @@ keystruct objkey[] = { ...@@ -702,7 +702,7 @@ keystruct objkey[] = {
&outobj2.win_polarw, H_FLOAT, T_FLOAT, "%7.5f", "", &outobj2.win_polarw, H_FLOAT, T_FLOAT, "%7.5f", "",
"src.ellipticity", ""}, "src.ellipticity", ""},
{"CLASS_STAR", "S/G classifier output", {"CLASS_STAR", "S/G classifier output",
&outobj2.sprob, H_FLOAT, T_FLOAT, "%5.2f", "", &outobj2.sprob, H_FLOAT, T_FLOAT, "%6.3f", "",
"src.class.starGalaxy", ""}, "src.class.starGalaxy", ""},
{"VIGNET", "Pixel data around detection", {"VIGNET", "Pixel data around detection",
&outobj2.vignet, H_FLOAT, T_FLOAT, "%12.7g", "count", &outobj2.vignet, H_FLOAT, T_FLOAT, "%12.7g", "count",
......
src/paramprofit.h
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: Model-fitting parameter list for catalog data. * Contents: Model-fitting parameter list for catalog data.
* *
* Last modify: 01/12/2009 * Last modify: 25/05/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -272,10 +272,11 @@ ...@@ -272,10 +272,11 @@
{"SPREADERR_MODEL", "Spread parameter error from model-fitting", {"SPREADERR_MODEL", "Spread parameter error from model-fitting",
&outobj2.prof_concentrationerr, H_FLOAT, T_FLOAT, "%8.5f", "", &outobj2.prof_concentrationerr, H_FLOAT, T_FLOAT, "%8.5f", "",
"src.morph.param", ""}, "src.morph.param", ""},
/*
{"CLASS_STAR_MODEL", "S/G classifier from model-fitting", {"CLASS_STAR_MODEL", "S/G classifier from model-fitting",
&outobj2.prof_class_star, H_FLOAT, T_FLOAT, "%7.4f", "", &outobj2.prof_class_star, H_FLOAT, T_FLOAT, "%7.4f", "",
"src.class.starGalaxy", ""}, "src.class.starGalaxy", ""},
*/
{"FLUX_BACKOFFSET", "Background offset from fitting", {"FLUX_BACKOFFSET", "Background offset from fitting",
&outobj2.prof_offset_flux, H_FLOAT, T_FLOAT, "%12.7g", "count", &outobj2.prof_offset_flux, H_FLOAT, T_FLOAT, "%12.7g", "count",
"instr.skyLevel;arith.diff;stat.fit.param", "ct"}, "instr.skyLevel;arith.diff;stat.fit.param", "ct"},
...@@ -446,6 +447,7 @@ ...@@ -446,6 +447,7 @@
{"DISK_THETA_B1950", "Disk position angle (east of north, B1950)", {"DISK_THETA_B1950", "Disk position angle (east of north, B1950)",
&outobj2.prof_disk_theta1950, H_FLOAT, T_FLOAT, "%+7.3f", "deg", &outobj2.prof_disk_theta1950, H_FLOAT, T_FLOAT, "%+7.3f", "deg",
"pos.posAng;src.morph;stat.fit.param", "deg"}, "pos.posAng;src.morph;stat.fit.param", "deg"},
/*
{"DISK_PATTERN_VECTOR", "Disk pattern fitted coefficients", {"DISK_PATTERN_VECTOR", "Disk pattern fitted coefficients",
&outobj2.prof_disk_patternvector, H_FLOAT, T_FLOAT, "%12.4g", "", &outobj2.prof_disk_patternvector, H_FLOAT, T_FLOAT, "%12.4g", "",
"stat.fit.param;src.morph.param", "", 1, "stat.fit.param;src.morph.param", "", 1,
...@@ -461,7 +463,7 @@ ...@@ -461,7 +463,7 @@
{"DISK_PATTERN_SPIRAL", "Disk pattern spiral index", {"DISK_PATTERN_SPIRAL", "Disk pattern spiral index",
&outobj2.prof_disk_patternspiral, H_FLOAT, T_FLOAT, "%12.4g", "", &outobj2.prof_disk_patternspiral, H_FLOAT, T_FLOAT, "%12.4g", "",
"stat.fit.param;src.morph.param", ""}, "stat.fit.param;src.morph.param", ""},
/*
{"FLUX_BAR", "Bar total flux from fitting", {"FLUX_BAR", "Bar total flux from fitting",
&outobj2.prof_bar_flux, H_FLOAT, T_FLOAT, "%12.g", "count", &outobj2.prof_bar_flux, H_FLOAT, T_FLOAT, "%12.g", "count",
"phot.count;stat.fit.param", "ct"}, "phot.count;stat.fit.param", "ct"},
......
src/preflist.h
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: Keywords for the configuration file. * Contents: Keywords for the configuration file.
* *
* Last modify: 05/02/2010 * Last modify: 18/05/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -69,9 +69,10 @@ ...@@ -69,9 +69,10 @@
"BACKGROUND", "BACKGROUND_RMS", "MINIBACKGROUND", "BACKGROUND", "BACKGROUND_RMS", "MINIBACKGROUND",
"MINIBACK_RMS", "-BACKGROUND", "MINIBACK_RMS", "-BACKGROUND",
"FILTERED", "OBJECTS", "APERTURES", "SEGMENTATION", "ASSOC", "FILTERED", "OBJECTS", "APERTURES", "SEGMENTATION", "ASSOC",
"-OBJECTS", "-PSFS", "PSFS", "-OBJECTS", "PSFS", "-PSFS",
"-PC_CONVPROTOS", "PC_CONVPROTOS", "PC_PROTOS", "PC_CONVPROTOS", "-PC_CONVPROTOS", "PC_PROTOS",
"MAP_SOM", "-MODELS", "MODELS", "PATTERNS", ""}, "MAP_SOM", "MODELS", "-MODELS", "SPHEROIDS", "-SPHEROIDS",
"DISKS", "-DISKS", "PATTERNS", "OTHER", ""},
0, 17, &prefs.ncheck_type}, 0, 17, &prefs.ncheck_type},
{"CLEAN", P_BOOL, &prefs.clean_flag}, {"CLEAN", P_BOOL, &prefs.clean_flag},
{"CLEAN_PARAM", P_FLOAT, &prefs.clean_param, 0,0, 0.1,10.0}, {"CLEAN_PARAM", P_FLOAT, &prefs.clean_param, 0,0, 0.1,10.0},
...@@ -129,7 +130,7 @@ ...@@ -129,7 +130,7 @@
{"PSF_NMAX", P_INT, &prefs.psf_npsfmax, 1, PSF_NPSFMAX}, {"PSF_NMAX", P_INT, &prefs.psf_npsfmax, 1, PSF_NPSFMAX},
{"SATUR_KEY", P_STRING, prefs.satur_key}, {"SATUR_KEY", P_STRING, prefs.satur_key},
{"SATUR_LEVEL", P_FLOAT, &prefs.satur_level, 0,0, -1e+30, 1e+30}, {"SATUR_LEVEL", P_FLOAT, &prefs.satur_level, 0,0, -1e+30, 1e+30},
{"SEEING_FWHM", P_FLOAT, &prefs.seeing_fwhm, 0,0, 1e-10, 1e+10}, {"SEEING_FWHM", P_FLOAT, &prefs.seeing_fwhm, 0,0, 0.0, 1e+10},
{"SOM_NAME", P_STRING, prefs.som_name}, {"SOM_NAME", P_STRING, prefs.som_name},
{"STARNNW_NAME", P_STRING, prefs.nnw_name}, {"STARNNW_NAME", P_STRING, prefs.nnw_name},
{"THRESH_TYPE", P_KEYLIST, prefs.thresh_type, 0,0, 0.0,0.0, {"THRESH_TYPE", P_KEYLIST, prefs.thresh_type, 0,0, 0.0,0.0,
......
src/prefs.c
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: Functions to handle the configuration file. * Contents: Functions to handle the configuration file.
* *
* Last modify: 11/09/2009 * Last modify: 08/03/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -588,13 +588,21 @@ void useprefs() ...@@ -588,13 +588,21 @@ void useprefs()
prefs.pc_flag = 1; prefs.pc_flag = 1;
} }
/*-------------------------- Profile-fitting -------------------------------*/ /*----------------------------- Model-fitting -------------------------------*/
if (prefs.check_flag) if (prefs.check_flag)
for (i=0; i<prefs.ncheck_type; i++) for (i=0; i<prefs.ncheck_type; i++)
if (prefs.check_type[i] == CHECK_SUBPROFILES if (prefs.check_type[i] == CHECK_PROFILES
|| prefs.check_type[i] == CHECK_PROFILES) || prefs.check_type[i] == CHECK_SUBPROFILES
|| prefs.check_type[i] == CHECK_SPHEROIDS
|| prefs.check_type[i] == CHECK_SUBSPHEROIDS
|| prefs.check_type[i] == CHECK_DISKS
|| prefs.check_type[i] == CHECK_SUBDISKS)
prefs.prof_flag = 1; prefs.prof_flag = 1;
/*--------------------------- Adaptive class-star ---------------------------*/
if (prefs.seeing_fwhm == 0)
prefs.psf_flag = 1;
/*-------------------------- Pattern-fitting -------------------------------*/ /*-------------------------- Pattern-fitting -------------------------------*/
/* Profile-fitting is possible only if a PSF file is loaded */ /* Profile-fitting is possible only if a PSF file is loaded */
if (prefs.check_flag) if (prefs.check_flag)
......
src/profit.c
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: Fit an arbitrary profile combination to a detection. * Contents: Fit an arbitrary profile combination to a detection.
* *
* Last modify: 15/12/2009 * Last modify: 07/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -39,6 +39,12 @@ ...@@ -39,6 +39,12 @@
#include "psf.h" #include "psf.h"
#include "profit.h" #include "profit.h"
#define INTERPW 6 /* Interpolation function range (x) */
#define INTERPH 6 /* Interpolation function range (y) */
#define INTERPF(x) (x==0.0?1.0:sinf(PI*x)*sinf(PI*x/3.0)/(PI*PI/3.0*x*x))
/* Lanczos approximation */
static double prof_gammainc(double x, double a), static double prof_gammainc(double x, double a),
prof_gamma(double x); prof_gamma(double x);
static float prof_interpolate(profstruct *prof, float *posin); static float prof_interpolate(profstruct *prof, float *posin);
...@@ -78,7 +84,7 @@ INPUT Pointer to PSF structure. ...@@ -78,7 +84,7 @@ INPUT Pointer to PSF structure.
OUTPUT A pointer to an allocated profit structure. OUTPUT A pointer to an allocated profit structure.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 07/09/2009 VERSION 02/07/2010
***/ ***/
profitstruct *profit_init(psfstruct *psf) profitstruct *profit_init(psfstruct *psf)
{ {
...@@ -127,8 +133,19 @@ profitstruct *profit_init(psfstruct *psf) ...@@ -127,8 +133,19 @@ profitstruct *profit_init(psfstruct *psf)
nprof++; nprof++;
} }
/* Allocate memory for the complete model */
QMALLOC16(profit->modpix, float, PROFIT_MAXMODSIZE*PROFIT_MAXMODSIZE);
QMALLOC16(profit->modpix2, float, PROFIT_MAXMODSIZE*PROFIT_MAXMODSIZE);
QMALLOC16(profit->cmodpix, float, PROFIT_MAXMODSIZE*PROFIT_MAXMODSIZE);
QMALLOC16(profit->psfpix, float, PROFIT_MAXMODSIZE*PROFIT_MAXMODSIZE);
QMALLOC16(profit->objpix, PIXTYPE, PROFIT_MAXOBJSIZE*PROFIT_MAXOBJSIZE);
QMALLOC16(profit->objweight, PIXTYPE, PROFIT_MAXOBJSIZE*PROFIT_MAXOBJSIZE);
QMALLOC16(profit->lmodpix, PIXTYPE, PROFIT_MAXOBJSIZE*PROFIT_MAXOBJSIZE);
QMALLOC16(profit->lmodpix2, PIXTYPE, PROFIT_MAXOBJSIZE*PROFIT_MAXOBJSIZE);
QMALLOC16(profit->resi, float, PROFIT_MAXOBJSIZE*PROFIT_MAXOBJSIZE);
QMALLOC16(profit->covar, float, profit->nparam*profit->nparam); QMALLOC16(profit->covar, float, profit->nparam*profit->nparam);
profit->nprof = nprof; profit->nprof = nprof;
profit->oversamp = PROFIT_OVERSAMP;
profit->fluxfac = 1.0; /* Default */ profit->fluxfac = 1.0; /* Default */
return profit; return profit;
...@@ -142,7 +159,7 @@ INPUT Prof structure. ...@@ -142,7 +159,7 @@ INPUT Prof structure.
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 26/04/2008 VERSION 06/04/2010
***/ ***/
void profit_end(profitstruct *profit) void profit_end(profitstruct *profit)
{ {
...@@ -150,6 +167,15 @@ void profit_end(profitstruct *profit) ...@@ -150,6 +167,15 @@ void profit_end(profitstruct *profit)
for (p=0; p<profit->nprof; p++) for (p=0; p<profit->nprof; p++)
prof_end(profit->prof[p]); prof_end(profit->prof[p]);
free(profit->modpix);
free(profit->modpix2);
free(profit->cmodpix);
free(profit->psfpix);
free(profit->lmodpix);
free(profit->lmodpix2);
free(profit->objpix);
free(profit->objweight);
free(profit->resi);
free(profit->prof); free(profit->prof);
free(profit->covar); free(profit->covar);
free(profit->psfdft); free(profit->psfdft);
...@@ -173,7 +199,7 @@ OUTPUT Pointer to an allocated fit structure (containing details about the ...@@ -173,7 +199,7 @@ OUTPUT Pointer to an allocated fit structure (containing details about the
fit). fit).
NOTES It is a modified version of the lm_minimize() of lmfit. NOTES It is a modified version of the lm_minimize() of lmfit.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 14/12/2009 VERSION 08/03/2010
***/ ***/
void profit_fit(profitstruct *profit, void profit_fit(profitstruct *profit,
picstruct *field, picstruct *wfield, picstruct *field, picstruct *wfield,
...@@ -181,13 +207,15 @@ void profit_fit(profitstruct *profit, ...@@ -181,13 +207,15 @@ void profit_fit(profitstruct *profit,
{ {
profitstruct pprofit; profitstruct pprofit;
profitstruct hdprofit; profitstruct hdprofit;
patternstruct *pattern; patternstruct *pattern;
psfstruct *psf; psfstruct *psf;
checkstruct *check; checkstruct *check;
double emx2,emy2,emxy, a , cp,sp, cn, bn, n; double emx2,emy2,emxy, a , cp,sp, cn, bn, n;
float **list, float param0[PARAM_NPARAM], param1[PARAM_NPARAM],
param[PARAM_NPARAM],
**list,
*cov, *cov,
psf_fwhm, dchi2, err, aspect; psf_fwhm, dchi2, err, aspect, chi2;
int *index, int *index,
i,j,p, nparam, nparam2, ncomp, nprof; i,j,p, nparam, nparam2, ncomp, nprof;
...@@ -223,6 +251,7 @@ void profit_fit(profitstruct *profit, ...@@ -223,6 +251,7 @@ void profit_fit(profitstruct *profit,
} }
else else
profit->subsamp = 1.0; profit->subsamp = 1.0;
profit->nobjpix = profit->objnaxisn[0]*profit->objnaxisn[1];
/* Use (dirty) global variables to interface with lmfit */ /* Use (dirty) global variables to interface with lmfit */
the_field = field; the_field = field;
...@@ -231,9 +260,6 @@ void profit_fit(profitstruct *profit, ...@@ -231,9 +260,6 @@ void profit_fit(profitstruct *profit,
profit->obj = obj; profit->obj = obj;
profit->obj2 = obj2; profit->obj2 = obj2;
QMALLOC16(profit->objpix, PIXTYPE, profit->objnaxisn[0]*profit->objnaxisn[1]);
QMALLOC16(profit->objweight, PIXTYPE,profit->objnaxisn[0]*profit->objnaxisn[1]);
QMALLOC16(profit->lmodpix, PIXTYPE, profit->objnaxisn[0]*profit->objnaxisn[1]);
profit->nresi = profit_copyobjpix(profit, field, wfield); profit->nresi = profit_copyobjpix(profit, field, wfield);
/* Check if the number of constraints exceeds the number of free parameters */ /* Check if the number of constraints exceeds the number of free parameters */
if (profit->nresi < nparam) if (profit->nresi < nparam)
...@@ -252,8 +278,6 @@ void profit_fit(profitstruct *profit, ...@@ -252,8 +278,6 @@ void profit_fit(profitstruct *profit,
return; return;
} }
QMALLOC16(profit->resi, float, profit->nresi);
/* Create pixmap at PSF resolution */ /* Create pixmap at PSF resolution */
profit->modnaxisn[0] = profit->modnaxisn[0] =
((int)(profit->objnaxisn[0]*profit->subsamp/profit->pixstep ((int)(profit->objnaxisn[0]*profit->subsamp/profit->pixstep
...@@ -271,13 +295,8 @@ void profit_fit(profitstruct *profit, ...@@ -271,13 +295,8 @@ void profit_fit(profitstruct *profit,
profit->modnaxisn[0] = profit->modnaxisn[1] = PROFIT_MAXMODSIZE; profit->modnaxisn[0] = profit->modnaxisn[1] = PROFIT_MAXMODSIZE;
obj2->prof_flag |= PROFLAG_MODSUB; obj2->prof_flag |= PROFLAG_MODSUB;
} }
profit->nmodpix = profit->modnaxisn[0]*profit->modnaxisn[1];
/* Allocate memory for the complete model */
QMALLOC16(profit->modpix, float, profit->modnaxisn[0]*profit->modnaxisn[1]);
memset(profit->modpix, 0, profit->modnaxisn[0]*profit->modnaxisn[1]*sizeof(float));
QMALLOC16(profit->psfpix, float, profit->modnaxisn[0]*profit->modnaxisn[1]);
/* Allocate memory for the partial model */
QMALLOC16(profit->pmodpix, float, profit->modnaxisn[0]*profit->modnaxisn[1]);
/* Compute the local PSF */ /* Compute the local PSF */
profit_psf(profit); profit_psf(profit);
...@@ -286,42 +305,117 @@ void profit_fit(profitstruct *profit, ...@@ -286,42 +305,117 @@ void profit_fit(profitstruct *profit,
profit_resetparams(profit); profit_resetparams(profit);
//the_gal++;
/* Actual minimisation */ /* Actual minimisation */
fft_reset(); fft_reset();
the_gal++; the_gal++;
for (p=0; p<profit->nparam; p++)
profit->freeparam_flag[p] = 1;
profit->nfreeparam = profit->nparam;
profit->niter = profit_minimize(profit, PROFIT_MAXITER); profit->niter = profit_minimize(profit, PROFIT_MAXITER);
profit_residuals(profit,field,wfield, 10.0, profit->param,profit->resi); /*
chi2 = profit->chi2;
for (p=0; p<nparam; p++)
param1[p] = profit->paraminit[p];
profit_resetparams(profit);
for (p=0; p<nparam; p++)
profit->paraminit[p] = param1[p] + (profit->paraminit[p]<param1[p]?1.0:-1.0)
* sqrt(profit->covar[p*(nparam+1)]);
/* Convert covariance matrix to bound space */ profit->niter = profit_minimize(profit, PROFIT_MAXITER);
profit_covarunboundtobound(profit); if (chi2<profit->chi2)
for (p=0; p<nparam; p++)
profit->paraminit[p] = param1[p];
list = profit->paramlist;
index = profit->paramindex;
for (i=0; i<PARAM_NPARAM; i++)
if (list[i] && i!= PARAM_SPHEROID_ASPECT && i!=PARAM_SPHEROID_POSANG)
profit->freeparam_flag[index[i]] = 0;
profit->nfreeparam = 2;
profit->niter = profit_minimize(profit, PROFIT_MAXITER);
*/
for (p=0; p<nparam; p++) for (p=0; p<nparam; p++)
profit->paramerr[p]= sqrt(profit->covar[p*(nparam+1)]); profit->paramerr[p]= sqrt(profit->covar[p*(nparam+1)]);
/* Equate param and paraminit vectors to avoid confusion later on */
for (p=0; p<profit->nparam; p++)
profit->param[p] = profit->paraminit[p];
/* CHECK-Images */ /* CHECK-Images */
if ((check = prefs.check[CHECK_PROFILES]))
{
profit_residuals(profit,field,wfield, 0.0, profit->paraminit, NULL);
addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1],
profit->ix,profit->iy, 1.0);
}
if ((check = prefs.check[CHECK_SUBPROFILES])) if ((check = prefs.check[CHECK_SUBPROFILES]))
{ {
profit_residuals(profit,field,wfield, 0.0, profit->param,profit->resi); profit_residuals(profit,field,wfield, 0.0, profit->paraminit, NULL);
addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1], addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1],
profit->ix,profit->iy, -1.0); profit->ix,profit->iy, -1.0);
} }
if ((check = prefs.check[CHECK_PROFILES])) if ((check = prefs.check[CHECK_SPHEROIDS]))
{
/*-- Set to 0 flux components that do not belong to spheroids */
for (p=0; p<profit->nparam; p++)
param[p] = profit->paraminit[p];
list = profit->paramlist;
index = profit->paramindex;
for (i=0; i<PARAM_NPARAM; i++)
if (list[i] && flux_flag[i] && i!= PARAM_SPHEROID_FLUX)
param[index[i]] = 0.0;
profit_residuals(profit,field,wfield, 0.0, param, NULL);
addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1],
profit->ix,profit->iy, 1.0);
}
if ((check = prefs.check[CHECK_SUBSPHEROIDS]))
{
/*-- Set to 0 flux components that do not belong to spheroids */
for (p=0; p<profit->nparam; p++)
param[p] = profit->paraminit[p];
list = profit->paramlist;
index = profit->paramindex;
for (i=0; i<PARAM_NPARAM; i++)
if (list[i] && flux_flag[i] && i!= PARAM_SPHEROID_FLUX)
param[index[i]] = 0.0;
profit_residuals(profit,field,wfield, 0.0, param, NULL);
addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1],
profit->ix,profit->iy, -1.0);
}
if ((check = prefs.check[CHECK_DISKS]))
{ {
profit_residuals(profit,field,wfield, 0.0, profit->param,profit->resi); /*-- Set to 0 flux components that do not belong to disks */
for (p=0; p<profit->nparam; p++)
param[p] = profit->paraminit[p];
list = profit->paramlist;
index = profit->paramindex;
for (i=0; i<PARAM_NPARAM; i++)
if (list[i] && flux_flag[i] && i!= PARAM_DISK_FLUX)
param[index[i]] = 0.0;
profit_residuals(profit,field,wfield, 0.0, param, NULL);
addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1], addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1],
profit->ix,profit->iy, 1.0); profit->ix,profit->iy, 1.0);
} }
if ((check = prefs.check[CHECK_SUBDISKS]))
{
/*-- Set to 0 flux components that do not belong to disks */
for (p=0; p<profit->nparam; p++)
param[p] = profit->paraminit[p];
list = profit->paramlist;
index = profit->paramindex;
for (i=0; i<PARAM_NPARAM; i++)
if (list[i] && flux_flag[i] && i!= PARAM_DISK_FLUX)
param[index[i]] = 0.0;
profit_residuals(profit,field,wfield, 0.0, param, NULL);
addcheck(check, profit->lmodpix, profit->objnaxisn[0],profit->objnaxisn[1],
profit->ix,profit->iy, -1.0);
}
/* Compute compressed residuals */
profit_residuals(profit,field,wfield, 10.0, profit->paraminit,profit->resi);
/* Fill measurement parameters */ /* Fill measurement parameters */
if (FLAG(obj2.prof_vector)) if (FLAG(obj2.prof_vector))
{ {
for (p=0; p<nparam; p++) for (p=0; p<nparam; p++)
obj2->prof_vector[p]= profit->param[p]; obj2->prof_vector[p]= profit->paraminit[p];
} }
if (FLAG(obj2.prof_errvector)) if (FLAG(obj2.prof_errvector))
{ {
...@@ -410,47 +504,12 @@ the_gal++; ...@@ -410,47 +504,12 @@ the_gal++;
} }
} }
/* Do measurements on the rasterised model (shear and surface brightnesses) */ if (FLAG(obj2.prof_mx2))
if (FLAG(obj2.prof_mx2) || FLAG(obj2.peak_prof)) profit_moments(profit, obj2);
{
float scalefac, imsizefac, flux, lost, sum, lostfluxfrac;
/*-- Allocate "high-definition" rasters only to make measurements */
hdprofit.modnaxisn[0] = hdprofit.modnaxisn[1] = PROFIT_HIDEFRES;
/*-- Find best image size factor from fitting results */
imsizefac = 2.0*profit_minradius(profit, PROFIT_REFFFAC)/profit->pixstep
/ (float)profit->modnaxisn[0];
if (imsizefac<0.01)
imsizefac = 0.01;
else if (imsizefac>100.0)
imsizefac = 100.0;
scalefac = (float)hdprofit.modnaxisn[0] / (float)profit->modnaxisn[0]
/ imsizefac;
hdprofit.pixstep = profit->pixstep / scalefac;
hdprofit.fluxfac = scalefac*scalefac;
QCALLOC(hdprofit.modpix, float,
hdprofit.modnaxisn[0]*hdprofit.modnaxisn[1]*sizeof(float));
QCALLOC(hdprofit.pmodpix, float,
hdprofit.modnaxisn[0]*hdprofit.modnaxisn[1]*sizeof(float));
lost = sum = 0.0;
for (p=0; p<profit->nprof; p++)
{
sum += (flux = prof_add(profit->prof[p], &hdprofit));
lost += flux*profit->prof[p]->lostfluxfrac;
}
lostfluxfrac = sum > 0.0? lost / sum : 0.0;
if (FLAG(obj2.prof_mx2)) /* Do measurements on the rasterised model (surface brightnesses) */
profit_moments(&hdprofit, obj2); if (FLAG(obj2.peak_prof))
profit_surface(profit, obj2);
if (FLAG(obj2.peak_prof))
profit_surface(&hdprofit, obj2, lostfluxfrac);
/*-- Free rasters */
free(hdprofit.modpix);
free(hdprofit.pmodpix);
}
/* Spheroid */ /* Spheroid */
if (FLAG(obj2.prof_spheroid_flux)) if (FLAG(obj2.prof_spheroid_flux))
...@@ -556,7 +615,7 @@ the_gal++; ...@@ -556,7 +615,7 @@ the_gal++;
if (prefs.pattern_flag) if (prefs.pattern_flag)
{ {
profit_residuals(profit,field,wfield, PROFIT_DYNPARAM, profit_residuals(profit,field,wfield, PROFIT_DYNPARAM,
profit->param,profit->resi); profit->paraminit,profit->resi);
pattern = pattern_init(profit, prefs.pattern_type, pattern = pattern_init(profit, prefs.pattern_type,
prefs.prof_disk_patternncomp); prefs.prof_disk_patternncomp);
pattern_fit(pattern, profit); pattern_fit(pattern, profit);
...@@ -657,8 +716,12 @@ the_gal++; ...@@ -657,8 +716,12 @@ the_gal++;
pprofit.paraminit[pprofit.paramindex[PARAM_Y]] = *profit->paramlist[PARAM_Y]; pprofit.paraminit[pprofit.paramindex[PARAM_Y]] = *profit->paramlist[PARAM_Y];
} }
pprofit.paraminit[pprofit.paramindex[PARAM_DISK_FLUX]] = profit->flux; pprofit.paraminit[pprofit.paramindex[PARAM_DISK_FLUX]] = profit->flux;
for (p=0; p<pprofit.nparam; p++)
pprofit.freeparam_flag[p] = 1;
pprofit.nfreeparam = pprofit.nparam;
pprofit.niter = profit_minimize(&pprofit, PROFIT_MAXITER); pprofit.niter = profit_minimize(&pprofit, PROFIT_MAXITER);
profit_residuals(&pprofit,field,wfield, 10.0, pprofit.param,pprofit.resi); profit_residuals(&pprofit,field,wfield, 10.0, pprofit.paraminit,
pprofit.resi);
if (FLAG(obj2.prof_class_star)) if (FLAG(obj2.prof_class_star))
{ {
dchi2 = 0.5*(pprofit.chi2 - profit->chi2); dchi2 = 0.5*(pprofit.chi2 - profit->chi2);
...@@ -684,13 +747,6 @@ the_gal++; ...@@ -684,13 +747,6 @@ the_gal++;
/* clean up. */ /* clean up. */
fft_reset(); fft_reset();
free(profit->modpix);
free(profit->psfpix);
free(profit->pmodpix);
free(profit->lmodpix);
free(profit->objpix);
free(profit->objweight);
free(profit->resi);
return; return;
} }
...@@ -832,7 +888,7 @@ INPUT Profile-fitting structure. ...@@ -832,7 +888,7 @@ INPUT Profile-fitting structure.
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 05/10/2009 VERSION 07/07/2010
***/ ***/
void profit_psf(profitstruct *profit) void profit_psf(profitstruct *profit)
{ {
...@@ -876,13 +932,13 @@ void profit_psf(profitstruct *profit) ...@@ -876,13 +932,13 @@ void profit_psf(profitstruct *profit)
/* Normalize PSF flux (just in case...) */ /* Normalize PSF flux (just in case...) */
flux *= profit->pixstep*profit->pixstep; flux *= profit->pixstep*profit->pixstep;
if (fabs(flux) > 0.0) if (fabs(flux) <= 0.0)
{ error(EXIT_FAILURE, "*Error*: PSF model is empty or negative: ", psf->name);
norm = 1.0/flux;
pixout = profit->psfpix; norm = 1.0/flux;
for (i=profit->modnaxisn[0]*profit->modnaxisn[1]; i--;) pixout = profit->psfpix;
*(pixout++) *= norm; for (i=profit->modnaxisn[0]*profit->modnaxisn[1]; i--;)
} *(pixout++) *= norm;
return; return;
} }
...@@ -896,33 +952,33 @@ INPUT Pointer to the profit structure involved in the fit, ...@@ -896,33 +952,33 @@ INPUT Pointer to the profit structure involved in the fit,
OUTPUT Number of iterations used. OUTPUT Number of iterations used.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 23/05/2008 VERSION 02/04/2010
***/ ***/
int profit_minimize(profitstruct *profit, int niter) int profit_minimize(profitstruct *profit, int niter)
{ {
float lm_opts[5], info[LM_INFO_SZ]; double lm_opts[5], info[LM_INFO_SZ];
int m,n; double dcovar[PARAM_NPARAM*PARAM_NPARAM],
dparam[PARAM_NPARAM];
/* Allocate work space */
n = profit->nparam;
m = profit->nresi;
memset(profit->resi, 0, profit->nresi*sizeof(float)); profit->iter = 0;
memset(profit->covar, 0, profit->nparam*profit->nparam*sizeof(float)); memset(dcovar, 0, profit->nparam*profit->nparam*sizeof(double));
profit_boundtounbound(profit, profit->paraminit);
/* Perform fit */ /* Perform fit */
lm_opts[0] = 1.0e-3; lm_opts[0] = 1.0e-3;
lm_opts[1] = 1.0e-17; lm_opts[1] = 1.0e-12;
lm_opts[2] = 1.0e-17; lm_opts[2] = 1.0e-12;
lm_opts[3] = 1.0e-17; lm_opts[3] = 1.0e-12;
lm_opts[4] = 1.0e-6; lm_opts[4] = 1.0e-3;
niter = slevmar_dif(profit_evaluate, profit->paraminit, profit->resi, profit_boundtounbound(profit, profit->paraminit, dparam, PARAM_ALLPARAMS);
n, m, niter, lm_opts, info, NULL, profit->covar, profit);
profit_unboundtobound(profit, profit->paraminit); niter = dlevmar_dif(profit_evaluate, dparam, NULL, profit->nfreeparam,
profit->nresi, niter, lm_opts, info, NULL, dcovar, profit);
profit_unboundtobound(profit, dparam, profit->paraminit, PARAM_ALLPARAMS);
/* Convert covariance matrix to bounded space */
profit_covarunboundtobound(profit, dcovar, profit->covar);
return niter; return niter;
} }
...@@ -976,29 +1032,182 @@ void profit_printout(int n_par, float* par, int m_dat, float* fvec, ...@@ -976,29 +1032,182 @@ void profit_printout(int n_par, float* par, int m_dat, float* fvec,
/****** profit_evaluate ****************************************************** /****** profit_evaluate ******************************************************
PROTO void profit_evaluate(float *par, float *fvec, int m, int n, PROTO void profit_evaluate(double *par, double *fvec, int m, int n,
void *adata) void *adata)
PURPOSE Provide a function returning residuals to levmar. PURPOSE Provide a function returning residuals to levmar.
INPUT Pointer to the vector of parameters, INPUT Pointer to the vector of parameters,
pointer to the vector of residuals (output), pointer to the vector of residuals (output),
number of model parameters, number of model parameters,
number of data points, number of data points,
pointer to a data structure (unused). pointer to a data structure (we use it for the profit structure here).
OUTPUT -. OUTPUT -.
NOTES Input arguments are there only for compatibility purposes (unused) NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 18/09/2008 VERSION 08/07/2010
***/ ***/
void profit_evaluate(float *par, float *fvec, int m, int n, void profit_evaluate(double *dpar, double *fvec, int m, int n, void *adata)
void *adata)
{ {
profitstruct *profit; profitstruct *profit;
profstruct **prof;
double *dpar0, *dresi;
float *modpixt, *profpixt, *resi,
tparam, val;
PIXTYPE *lmodpixt,*lmodpix2t, *objpix,*weight,
wval;
int c,f,i,p,q, fd,pd, jflag,sflag, nprof;
profit = (profitstruct *)adata; profit = (profitstruct *)adata;
profit_unboundtobound(profit, par);
profit_residuals(profit, the_field, the_wfield, PROFIT_DYNPARAM, par, fvec); /* Detect "Jacobian-related" calls */
profit_boundtounbound(profit, par); jflag = pd = fd = 0;
profit_printout(m, par, n, fvec, adata, 0, -1, 0 ); dpar0 = profit->dparam;
if (profit->iter)
{
f = q = 0;
for (p=0; p<profit->nparam; p++)
{
if (dpar[f] - dpar0[f] != 0.0)
{
pd = p;
fd = f;
q++;
}
if (profit->freeparam_flag[p])
f++;
}
if (f>0 && q==1)
jflag = 1;
}
if (jflag)
{
prof = profit->prof;
nprof = profit->nprof;
/*-- "Jacobian call" */
tparam = profit->param[pd];
profit_unboundtobound(profit, &dpar[fd], &profit->param[pd], pd);
sflag = 1;
switch(profit->paramrevindex[pd])
{
case PARAM_X:
case PARAM_Y:
profit_resample(profit, profit->cmodpix, profit->lmodpix2, 1.0);
lmodpixt = profit->lmodpix;
lmodpix2t = profit->lmodpix2;
for (i=profit->nobjpix;i--;)
*(lmodpix2t++) -= *(lmodpixt++);
break;
case PARAM_SPHEROID_FLUX:
case PARAM_DISK_FLUX:
case PARAM_ARMS_FLUX:
case PARAM_BAR_FLUX:
if (nprof==1 && tparam != 0.0)
{
lmodpixt = profit->lmodpix;
lmodpix2t = profit->lmodpix2;
val = (profit->param[pd] - tparam) / tparam;
for (i=profit->nobjpix;i--;)
*(lmodpix2t++) = val**(lmodpixt++);
}
else
{
for (c=0; c<nprof; c++)
if (prof[c]->flux == &profit->param[pd])
break;
memcpy(profit->modpix, prof[c]->pix, profit->nmodpix*sizeof(float));
profit_convolve(profit, profit->modpix);
profit_resample(profit, profit->modpix, profit->lmodpix2,
profit->param[pd] - tparam);
}
break;
case PARAM_SPHEROID_REFF:
case PARAM_SPHEROID_ASPECT:
case PARAM_SPHEROID_POSANG:
case PARAM_SPHEROID_SERSICN:
sflag = 0; /* We are in the same switch */
for (c=0; c<nprof; c++)
if (prof[c]->code == PROF_SERSIC
|| prof[c]->code == PROF_DEVAUCOULEURS)
break;
case PARAM_DISK_SCALE:
case PARAM_DISK_ASPECT:
case PARAM_DISK_POSANG:
if (sflag)
for (c=0; c<nprof; c++)
if (prof[c]->code == PROF_EXPONENTIAL)
break;
sflag = 0;
case PARAM_ARMS_QUADFRAC:
case PARAM_ARMS_SCALE:
case PARAM_ARMS_START:
case PARAM_ARMS_POSANG:
case PARAM_ARMS_PITCH:
case PARAM_ARMS_PITCHVAR:
case PARAM_ARMS_WIDTH:
if (sflag)
for (c=0; c<nprof; c++)
if (prof[c]->code == PROF_ARMS)
break;
sflag = 0;
case PARAM_BAR_ASPECT:
case PARAM_BAR_POSANG:
if (sflag)
for (c=0; c<nprof; c++)
if (prof[c]->code == PROF_ARMS)
break;
modpixt = profit->modpix;
profpixt = prof[c]->pix;
val = -*prof[c]->flux;
for (i=profit->nmodpix;i--;)
*(modpixt++) = val**(profpixt++);
memcpy(profit->modpix2, prof[c]->pix, profit->nmodpix*sizeof(float));
prof_add(profit, prof[c], 0);
memcpy(prof[c]->pix, profit->modpix2, profit->nmodpix*sizeof(float));
profit_convolve(profit, profit->modpix);
profit_resample(profit, profit->modpix, profit->lmodpix2, 1.0);
break;
default:
error(EXIT_FAILURE, "*Internal Error*: ",
"unknown parameter index in profit_jacobian()");
break;
}
objpix = profit->objpix;
weight = profit->objweight;
lmodpixt = profit->lmodpix;
lmodpix2t = profit->lmodpix2;
resi = profit->resi;
dresi = fvec;
if (PROFIT_DYNPARAM > 0.0)
for (i=profit->nobjpix;i--; lmodpixt++, lmodpix2t++)
{
val = *(objpix++);
if ((wval=*(weight++))>0.0)
*(dresi++) = *(resi++) + *lmodpix2t
* wval/(1.0+wval*fabs(*lmodpixt - val)/PROFIT_DYNPARAM);
}
else
for (i=profit->nobjpix;i--; lmodpix2t++)
if ((wval=*(weight++))>0.0)
*(dresi++) = *(resi++) + *lmodpix2t * wval;
}
else
{
/*-- "Regular call" */
for (p=0; p<profit->nparam; p++)
dpar0[p] = dpar[p];
profit_unboundtobound(profit, dpar, profit->param, PARAM_ALLPARAMS);
profit_residuals(profit, the_field, the_wfield, PROFIT_DYNPARAM,
profit->param, profit->resi);
for (p=0; p<profit->nresi; p++)
fvec[p] = profit->resi[p];
}
// profit_printout(m, par, n, fvec, adata, 0, -1, 0 );
profit->iter++;
return; return;
} }
...@@ -1017,15 +1226,15 @@ INPUT Profile-fitting structure, ...@@ -1017,15 +1226,15 @@ INPUT Profile-fitting structure,
OUTPUT Vector of residuals. OUTPUT Vector of residuals.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 24/03/2009 VERSION 08/07/2010
***/ ***/
float *profit_residuals(profitstruct *profit, picstruct *field, float *profit_residuals(profitstruct *profit, picstruct *field,
picstruct *wfield, float dynparam, float *param, float *resi) picstruct *wfield, float dynparam, float *param, float *resi)
{ {
int p; int p, nmodpix;
memset(profit->modpix, 0, nmodpix = profit->modnaxisn[0]*profit->modnaxisn[1]*sizeof(float);
profit->modnaxisn[0]*profit->modnaxisn[1]*sizeof(float)); memset(profit->modpix, 0, nmodpix);
for (p=0; p<profit->nparam; p++) for (p=0; p<profit->nparam; p++)
profit->param[p] = param[p]; profit->param[p] = param[p];
/* Simple PSF shortcut */ /* Simple PSF shortcut */
...@@ -1039,11 +1248,14 @@ float *profit_residuals(profitstruct *profit, picstruct *field, ...@@ -1039,11 +1248,14 @@ float *profit_residuals(profitstruct *profit, picstruct *field,
{ {
profit->flux = 0.0; profit->flux = 0.0;
for (p=0; p<profit->nprof; p++) for (p=0; p<profit->nprof; p++)
profit->flux += prof_add(profit->prof[p], profit); profit->flux += prof_add(profit, profit->prof[p], 0);
profit_convolve(profit, profit->modpix); memcpy(profit->cmodpix, profit->modpix, profit->nmodpix*sizeof(float));
profit_resample(profit, profit->modpix, profit->lmodpix, 1.0); profit_convolve(profit, profit->cmodpix);
profit_resample(profit, profit->cmodpix, profit->lmodpix, 1.0);
} }
profit_compresi(profit, dynparam, resi);
if (resi)
profit_compresi(profit, dynparam, resi);
return resi; return resi;
} }
...@@ -1085,7 +1297,7 @@ float *profit_compresi(profitstruct *profit, float dynparam, float *resi) ...@@ -1085,7 +1297,7 @@ float *profit_compresi(profitstruct *profit, float dynparam, float *resi)
val = *(objpix++); val = *(objpix++);
if ((wval=*(objweight++))>0.0) if ((wval=*(objweight++))>0.0)
{ {
val2 = (val - *lmodpix)*wval*invsig; val2 = (*lmodpix - val)*wval*invsig;
val2 = val2>0.0? logf(1.0+val2) : -logf(1.0-val2); val2 = val2>0.0? logf(1.0+val2) : -logf(1.0-val2);
*(resit++) = val2*dynparam; *(resit++) = val2*dynparam;
error += val2*val2; error += val2*val2;
...@@ -1100,7 +1312,7 @@ float *profit_compresi(profitstruct *profit, float dynparam, float *resi) ...@@ -1100,7 +1312,7 @@ float *profit_compresi(profitstruct *profit, float dynparam, float *resi)
val = *(objpix++); val = *(objpix++);
if ((wval=*(objweight++))>0.0) if ((wval=*(objweight++))>0.0)
{ {
val2 = (val - *lmodpix)*wval; val2 = (*lmodpix - val)*wval;
*(resit++) = val2; *(resit++) = val2;
error += val2*val2; error += val2*val2;
} }
...@@ -1113,82 +1325,206 @@ float *profit_compresi(profitstruct *profit, float dynparam, float *resi) ...@@ -1113,82 +1325,206 @@ float *profit_compresi(profitstruct *profit, float dynparam, float *resi)
/****** profit_resample ****************************************************** /****** profit_resample ******************************************************
PROTO void prof_resample(profitstruct *profit, float *inpix, PROTO int prof_resample(profitstruct *profit, float *inpix,
PIXTYPE *outpix) PIXTYPE *outpix, float factor)
PURPOSE Resample the current full resolution model to image resolution. PURPOSE Resample the current full resolution model to image resolution.
INPUT Profile-fitting structure. INPUT Profile-fitting structure,
OUTPUT -. pointer to input raster,
pointer to output raster,
multiplicating factor.
OUTPUT RETURN_ERROR if the rasters don't overlap, RETURN_OK otherwise.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 09/10/2009 VERSION 01/05/2010
***/ ***/
void profit_resample(profitstruct *profit, float *inpix, PIXTYPE *outpix, int profit_resample(profitstruct *profit, float *inpix, PIXTYPE *outpix,
float factor) float factor)
{ {
double flux; PIXTYPE *pixout,*pixout0;
float posin[2], posout[2], dnaxisn[2], float *pixin,*pixin0, *mask,*maskt, *pixinout, *dpixin,*dpixin0,
*dx,*dy, *dpixout,*dpixout0, *dx,*dy,
xcout,ycout, xcin,ycin, invpixstep, pix, off,step; xcin,xcout,ycin,ycout, xsin,ysin, xin,yin, x,y, dxm,dym, val,
int d,i, ix,iy,ns; invpixstep;
int *start,*startt, *nmask,*nmaskt,
i,j,k,n,t,
ixsout,iysout, ixout,iyout, dixout,diyout, nxout,nyout,
iysina, nyin, hmw,hmh, ix,iy, ixin,iyin;
xcout = (float)(profit->objnaxisn[0]/2) + 1.0; /* FITS convention */ invpixstep = profit->subsamp/profit->pixstep;
xcin = (profit->modnaxisn[0]/2);
xcout = (float)(profit->objnaxisn[0]/2);
if ((dx=(profit->paramlist[PARAM_X]))) if ((dx=(profit->paramlist[PARAM_X])))
xcout += *dx; xcout += *dx;
ycout = (float)(profit->objnaxisn[1]/2) + 1.0; /* FITS convention */
xsin = xcin - xcout*invpixstep; /* Input start x-coord*/
if ((int)xsin >= profit->modnaxisn[0])
return RETURN_ERROR;
ixsout = 0; /* Int. part of output start x-coord */
if (xsin<0.0)
{
dixout = (int)(1.0-xsin/invpixstep);
/*-- Simply leave here if the images do not overlap in x */
if (dixout >= profit->objnaxisn[0])
return RETURN_ERROR;
ixsout += dixout;
xsin += dixout*invpixstep;
}
nxout = (int)((profit->modnaxisn[0]-xsin)/invpixstep);/* nb of interpolated
input pixels along x */
if (nxout>(ixout=profit->objnaxisn[0]-ixsout))
nxout = ixout;
if (!nxout)
return RETURN_ERROR;
ycin = (profit->modnaxisn[1]/2);
ycout = (float)(profit->objnaxisn[1]/2);
if ((dy=(profit->paramlist[PARAM_Y]))) if ((dy=(profit->paramlist[PARAM_Y])))
ycout += *dy; ycout += *dy;
xcin = (profit->modnaxisn[0]/2) + 1.0; /* FITS convention */
ycin = (profit->modnaxisn[1]/2) + 1.0; /* FITS convention */
invpixstep = profit->subsamp/profit->pixstep;
/* Initialize multi-dimensional counters */ ysin = ycin - ycout*invpixstep; /* Input start y-coord*/
for (d=0; d<2; d++) if ((int)ysin >= profit->modnaxisn[1])
return RETURN_ERROR;
iysout = 0; /* Int. part of output start y-coord */
if (ysin<0.0)
{
diyout = (int)(1.0-ysin/invpixstep);
/*-- Simply leave here if the images do not overlap in y */
if (diyout >= profit->objnaxisn[1])
return RETURN_ERROR;
iysout += diyout;
ysin += diyout*invpixstep;
}
nyout = (int)((profit->modnaxisn[1]-ysin)/invpixstep);/* nb of interpolated
input pixels along y */
if (nyout>(iyout=profit->objnaxisn[1]-iysout))
nyout = iyout;
if (!nyout)
return RETURN_ERROR;
/* Set the yrange for the x-resampling with some margin for interpolation */
iysina = (int)ysin; /* Int. part of Input start y-coord with margin */
hmh = INTERPH/2 - 1; /* Interpolant start */
if (iysina<0 || ((iysina -= hmh)< 0))
iysina = 0;
nyin = (int)(ysin+nyout*invpixstep)+INTERPH-hmh;/* Interpolated Input y size*/
if (nyin>profit->modnaxisn[1]) /* with margin */
nyin = profit->modnaxisn[1];
/* Express everything relative to the effective Input start (with margin) */
nyin -= iysina;
ysin -= (float)iysina;
/* Allocate interpolant stuff for the x direction */
QMALLOC(mask, float, nxout*INTERPW); /* Interpolation masks */
QMALLOC(nmask, int, nxout); /* Interpolation mask sizes */
QMALLOC(start, int, nxout); /* Int. part of Input conv starts */
/* Compute the local interpolant and data starting points in x */
hmw = INTERPW/2 - 1;
xin = xsin;
maskt = mask;
nmaskt = nmask;
startt = start;
for (j=nxout; j--; xin+=invpixstep)
{ {
posout[d] = 1.0; /* FITS convention */ ix = (ixin=(int)xin) - hmw;
dnaxisn[d] = profit->objnaxisn[d]+0.5; dxm = ixin - xin - hmw; /* starting point in the interpolation func */
if (ix < 0)
{
n = INTERPW+ix;
dxm -= (float)ix;
ix = 0;
}
else
n = INTERPW;
if (n>(t=profit->modnaxisn[0]-ix))
n=t;
*(startt++) = ix;
*(nmaskt++) = n;
for (x=dxm, i=n; i--; x+=1.0)
*(maskt++) = INTERPF(x);
}
QCALLOC(pixinout, float, nxout*nyin); /* Intermediary frame-buffer */
/* Make the interpolation in x (this includes transposition) */
pixin0 = inpix + iysina*profit->modnaxisn[0];
dpixout0 = pixinout;
for (k=nyin; k--; pixin0+=profit->modnaxisn[0], dpixout0++)
{
maskt = mask;
nmaskt = nmask;
startt = start;
dpixout = dpixout0;
for (j=nxout; j--; dpixout+=nyin)
{
pixin = pixin0+*(startt++);
val = 0.0;
for (i=*(nmaskt++); i--;)
val += *(maskt++)**(pixin++);
*dpixout = val;
}
} }
/* Remap each pixel (and rebin if necessary) */ /* Reallocate interpolant stuff for the y direction */
flux = 0.0; QREALLOC(mask, float, nyout*INTERPH); /* Interpolation masks */
ns=(int)profit->subsamp; QREALLOC(nmask, int, nyout); /* Interpolation mask sizes */
if (ns>1) QREALLOC(start, int, nyout); /* Int. part of Input conv starts */
{
step = 1.0/profit->subsamp; /* Compute the local interpolant and data starting points in y */
off = 0.5*(step - 1.0); hmh = INTERPH/2 - 1;
xcin += off; yin = ysin;
ycin += off; maskt = mask;
for (i=profit->objnaxisn[0]*profit->objnaxisn[1]; i--;) nmaskt = nmask;
startt = start;
for (j=nyout; j--; yin+=invpixstep)
{
iy = (iyin=(int)yin) - hmh;
dym = iyin - yin - hmh; /* starting point in the interpolation func */
if (iy < 0)
{ {
posin[0] = (posout[0] - xcout)*invpixstep + xcin; n = INTERPH+iy;
posin[1] = (posout[1] - ycout)*invpixstep + ycin; dym -= (float)iy;
pix = 0.0; iy = 0;
for (iy=ns; iy--; posin[1] += step)
for (ix=ns; ix--; posin[0] += step)
pix += (PIXTYPE)(factor*interpolate_pix(posin, inpix,
profit->modnaxisn, INTERP_LANCZOS3));
flux += (*(outpix++) = pix);
for (d=0; d<2; d++)
if ((posout[d]+=1.0) < dnaxisn[d])
break;
else
posout[d] = 1.0;
} }
} else
else n = INTERPH;
for (i=profit->objnaxisn[0]*profit->objnaxisn[1]; i--;) if (n>(t=nyin-iy))
n=t;
*(startt++) = iy;
*(nmaskt++) = n;
for (y=dym, i=n; i--; y+=1.0)
*(maskt++) = INTERPF(y);
}
/* Initialize destination buffer to zero */
memset(outpix, 0, (size_t)profit->nobjpix*sizeof(PIXTYPE));
/* Make the interpolation in y and transpose once again */
dpixin0 = pixinout;
pixout0 = outpix+ixsout+iysout*profit->objnaxisn[0];
for (k=nxout; k--; dpixin0+=nyin, pixout0++)
{
maskt = mask;
nmaskt = nmask;
startt = start;
pixout = pixout0;
for (j=nyout; j--; pixout+=profit->objnaxisn[0])
{ {
posin[0] = (posout[0] - xcout)*invpixstep + xcin; dpixin = dpixin0+*(startt++);
posin[1] = (posout[1] - ycout)*invpixstep + ycin; val = 0.0;
flux += ((*(outpix++) = (PIXTYPE)(factor*interpolate_pix(posin, inpix, for (i=*(nmaskt++); i--;)
profit->modnaxisn, INTERP_LANCZOS3)))); val += *(maskt++)**(dpixin++);
for (d=0; d<2; d++) *pixout = (PIXTYPE)(factor*val);
if ((posout[d]+=1.0) < dnaxisn[d])
break;
else
posout[d] = 1.0;
} }
}
return; /* Free memory */
free(pixinout);
free(mask);
free(nmask);
free(start);
return RETURN_OK;
} }
...@@ -1691,47 +2027,60 @@ INPUT Profile-fitting structure, ...@@ -1691,47 +2027,60 @@ INPUT Profile-fitting structure,
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 17/09/2009 VERSION 07/07/2010
***/ ***/
void profit_moments(profitstruct *profit, obj2struct *obj2) void profit_moments(profitstruct *profit, obj2struct *obj2)
{ {
double mx,my, sum, mx2,my2,mxy, den, temp,temp2,pmx2,theta; profstruct *prof;
float *pix, double m0, mx2,my2,mxy, den, temp,temp2,pmx2,theta;
hw,hh, x,y, xstart, val, r2max; int p;
int ix,iy;
/* hw = (float)(profit->modnaxisn[0]/2);*/
hw = (float)(profit->modnaxisn[0]/2); /* hh = (float)(profit->modnaxisn[1]/2);*/
hh = (float)(profit->modnaxisn[1]/2); /* r2max = hw<hh? hw*hw : hh*hh;*/
r2max = hw<hh? hw*hw : hh*hh; /* xstart = -hw;*/
xstart = -hw; /* y = -hh;*/
y = -hh; /* pix = profit->modpix;*/
pix = profit->modpix; /* mx2 = my2 = mxy = mx = my = sum = 0.0;*/
mx2 = my2 = mxy = mx = my = sum = 0.0; /* for (iy=profit->modnaxisn[1]; iy--; y+=1.0)*/
for (iy=profit->modnaxisn[1]; iy--; y+=1.0) /* {*/
/* x = xstart;*/
/* for (ix=profit->modnaxisn[0]; ix--; x+=1.0)*/
/* if (y*y+x*x <= r2max)*/
/* {*/
/* val = *(pix++);*/
/* sum += val;*/
/* mx += val*x;*/
/* my += val*y;*/
/* mx2 += val*x*x;*/
/* mxy += val*x*y;*/
/* my2 += val*y*y;*/
/* }*/
/* else*/
/* pix++;*/
/* }*/
/* if (sum <= 1.0/BIG)*/
/* sum = 1.0;*/
/* mx /= sum;*/
/* my /= sum;*/
/* obj2->prof_mx2 = mx2 = mx2/sum - mx*mx;*/
/* obj2->prof_my2 = my2 = my2/sum - my*my;*/
/* obj2->prof_mxy = mxy = mxy/sum - mx*my;*/
m0 = mx2 = my2 = mxy = 0.0;
for (p=0; p<profit->nprof; p++)
{ {
x = xstart; prof = profit->prof[p];
for (ix=profit->modnaxisn[0]; ix--; x+=1.0) prof_moments(profit, prof);
if (y*y+x*x <= r2max) m0 += *prof->flux;
{ mx2 += prof->mx2**prof->flux;
val = *(pix++); my2 += prof->my2**prof->flux;
sum += val; mxy += prof->mxy**prof->flux;
mx += val*x;
my += val*y;
mx2 += val*x*x;
mxy += val*x*y;
my2 += val*y*y;
}
else
pix++;
} }
obj2->prof_mx2 = mx2 / m0;
if (sum <= 1.0/BIG) obj2->prof_my2 = my2 / m0;
sum = 1.0; obj2->prof_mxy = mxy / m0;
mx /= sum;
my /= sum;
obj2->prof_mx2 = mx2 = mx2/sum - mx*mx;
obj2->prof_my2 = my2 = my2/sum - my*my;
obj2->prof_mxy = mxy = mxy/sum - mx*my;
/* Handle fully correlated profiles (which cause a singularity...) */ /* Handle fully correlated profiles (which cause a singularity...) */
if ((temp2=mx2*my2-mxy*mxy)<0.00694) if ((temp2=mx2*my2-mxy*mxy)<0.00694)
...@@ -1779,39 +2128,112 @@ void profit_moments(profitstruct *profit, obj2struct *obj2) ...@@ -1779,39 +2128,112 @@ void profit_moments(profitstruct *profit, obj2struct *obj2)
obj2->prof_theta = theta*180.0/PI; obj2->prof_theta = theta*180.0/PI;
} }
return; return;
} }
/****** profit_surface **************************************************** /****** profit_surface ****************************************************
PROTO void profit_surface(profitstruct *profit, obj2struct *obj2, PROTO void profit_surface(profitstruct *profit, obj2struct *obj2)
double lostfluxfrac)
PURPOSE Compute surface brightnesses from the unconvolved object model. PURPOSE Compute surface brightnesses from the unconvolved object model.
INPUT Pointer to the profile-fitting structure, INPUT Pointer to the profile-fitting structure,
Pointer to obj2 structure, Pointer to obj2 structure.
Fraction of total flux lost in model.
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 21/09/2009 VERSION 08/07/2010
***/ ***/
void profit_surface(profitstruct *profit, obj2struct *obj2, void profit_surface(profitstruct *profit, obj2struct *obj2)
double lostfluxfrac)
{ {
profitstruct hdprofit;
double dsum,dhsum,dsumoff, dhval, frac, seff; double dsum,dhsum,dsumoff, dhval, frac, seff;
float *spix, *spixt; float *spix, *spixt,
int i, npix, neff; val,vmax,
scalefac, imsizefac, flux, lost, sum, lostfluxfrac;
int i,p, imax, npix, neff;
/* Allocate "high-definition" raster only to make measurements */
hdprofit.oversamp = PROFIT_OVERSAMP;
hdprofit.modnaxisn[0] = hdprofit.modnaxisn[1] = PROFIT_HIDEFRES;
npix = hdprofit.nmodpix = hdprofit.modnaxisn[0]*hdprofit.modnaxisn[1];
/* Find best image size factor from fitting results */
imsizefac = 2.0*profit_minradius(profit, PROFIT_REFFFAC)/profit->pixstep
/ (float)profit->modnaxisn[0];
if (imsizefac<0.01)
imsizefac = 0.01;
else if (imsizefac>100.0)
imsizefac = 100.0;
scalefac = (float)hdprofit.modnaxisn[0] / (float)profit->modnaxisn[0]
/ imsizefac;
hdprofit.pixstep = profit->pixstep / scalefac;
hdprofit.fluxfac = scalefac*scalefac;
QCALLOC(hdprofit.modpix, float,npix*sizeof(float));
for (p=0; p<profit->nparam; p++)
profit->param[p] = profit->paraminit[p];
lost = sum = 0.0;
for (p=0; p<profit->nprof; p++)
{
sum += (flux = prof_add(&hdprofit, profit->prof[p],0));
lost += flux*profit->prof[p]->lostfluxfrac;
}
lostfluxfrac = sum > 0.0? lost / sum : 0.0;
npix = profit->modnaxisn[0]*profit->modnaxisn[1]; /*
/* Sort model pixel values */ char filename[256];
spix = NULL; /* to avoid gcc -Wall warnings */ sprintf(filename, "raster_%02d.fits", the_gal);
QMEMCPY(profit->modpix, spix, float, npix); check=initcheck(filename, CHECK_OTHER, 0);
hmedian(spix, npix); check->width = hdprofit.modnaxisn[0];
obj2->peak_prof = spix[npix-1]; check->height = hdprofit.modnaxisn[1];
reinitcheck(the_field, check);
memcpy(check->pix,hdprofit.modpix,check->npix*sizeof(float));
int r,t;
double ratio,ratio0,ang,ang0, x,x0,y,y0;
list = profit->paramlist;
index = profit->paramindex;
for (p=0; p<nparam; p++)
param[p] = profit->paraminit[p];
ratio0 = profit->paraminit[index[PARAM_SPHEROID_ASPECT]];
ang0 = profit->paraminit[index[PARAM_SPHEROID_POSANG]];
x0 = profit->paraminit[index[PARAM_X]];
y0 = profit->paraminit[index[PARAM_Y]];
for (r=0;r<check->height;r++)
for (t=0; t<check->width;t++)
{
//x = (r-10.0)/100.0 + x0;
//y = (t-10.0)/100.0 + y0;
ratio = ratio0*exp((r-10.0)/400.0);
ang = ang0+(t-10.0)/3.0;
for (i=0; i<PARAM_NPARAM; i++)
{
//if (list[i] && i==PARAM_X)
//param[index[i]] = x;
//if (list[i] && i==PARAM_Y)
//param[index[i]] = y;
if (list[i] && i==PARAM_SPHEROID_ASPECT)
param[index[i]] = ratio;
if (list[i] && i==PARAM_SPHEROID_POSANG)
param[index[i]] = ang;
//if (list[i] && i==PARAM_SPHEROID_REFF)
//param[index[i]] = profit->paraminit[index[i]]*sqrt(ratio0/ratio);
}
profit_residuals(profit,field,wfield, PROFIT_DYNPARAM, param,profit->resi);
*((float *)check->pix + t + r*check->width) = profit->chi2;
}
reendcheck(the_field, check);
endcheck(check);
*/
if (FLAG(obj2.fluxeff_prof)) if (FLAG(obj2.fluxeff_prof))
{ {
/*-- Sort model pixel values */
spix = NULL; /* to avoid gcc -Wall warnings */
QMEMCPY(hdprofit.modpix, spix, float, npix);
hmedian(spix, npix);
/*-- Build a cumulative distribution */ /*-- Build a cumulative distribution */
dsum = 0.0; dsum = 0.0;
spixt = spix; spixt = spix;
...@@ -1848,9 +2270,34 @@ void profit_surface(profitstruct *profit, obj2struct *obj2, ...@@ -1848,9 +2270,34 @@ void profit_surface(profitstruct *profit, obj2struct *obj2,
dsum += (double)*(spixt++); dsum += (double)*(spixt++);
obj2->fluxmean_prof = seff > 0.0? dsum / seff : 0.0; obj2->fluxmean_prof = seff > 0.0? dsum / seff : 0.0;
} }
free(spix);
}
/* Compute model peak (overwrites oversampled model!!) */
if (FLAG(obj2.peak_prof))
{
/*-- Find position of maximum pixel in current hi-def raster */
imax = 0;
vmax = -BIG;
spixt = hdprofit.modpix;
for (i=npix; i--;)
if ((val=*(spixt++))>vmax)
{
vmax = val;
imax = i;
}
imax = npix-1 - imax;
/*-- Recompute hi-def model raster without oversampling */
/*-- and with the same flux correction factor */
hdprofit.oversamp = 0;
memset(hdprofit.modpix,0, npix*sizeof(float));
for (p=0; p<profit->nprof; p++)
prof_add(&hdprofit, profit->prof[p], 1);
obj2->peak_prof = hdprofit.modpix[imax];
} }
free(spix); /* Free hi-def model raster */
free(hdprofit.modpix);
return; return;
} }
...@@ -1866,7 +2313,7 @@ INPUT Pointer to the profit structure, ...@@ -1866,7 +2313,7 @@ INPUT Pointer to the profit structure,
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 29/03/2007 VERSION 29/03/2010
***/ ***/
void profit_addparam(profitstruct *profit, paramenum paramindex, void profit_addparam(profitstruct *profit, paramenum paramindex,
float **param) float **param)
...@@ -1879,7 +2326,8 @@ void profit_addparam(profitstruct *profit, paramenum paramindex, ...@@ -1879,7 +2326,8 @@ void profit_addparam(profitstruct *profit, paramenum paramindex,
/*-- No */ /*-- No */
{ {
*param = profit->paramlist[paramindex] = &profit->param[profit->nparam]; *param = profit->paramlist[paramindex] = &profit->param[profit->nparam];
profit->paramindex[paramindex] = profit->nparam++; profit->paramindex[paramindex] = profit->nparam;
profit->paramrevindex[profit->nparam++] = paramindex;
} }
return; return;
...@@ -1894,7 +2342,7 @@ INPUT Pointer to the profit structure, ...@@ -1894,7 +2342,7 @@ INPUT Pointer to the profit structure,
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 15/12/2009 VERSION 02/07/2010
***/ ***/
void profit_resetparam(profitstruct *profit, paramenum paramtype) void profit_resetparam(profitstruct *profit, paramenum paramtype)
{ {
...@@ -1915,7 +2363,7 @@ void profit_resetparam(profitstruct *profit, paramenum paramtype) ...@@ -1915,7 +2363,7 @@ void profit_resetparam(profitstruct *profit, paramenum paramtype)
break; break;
case PARAM_X: case PARAM_X:
param = obj->mx - (int)(obj->mx+0.49999); param = obj->mx - (int)(obj->mx+0.49999);
range = fabs(obj2->hl_radius*4.0); range = obj2->hl_radius*4.0;
if (range>profit->objnaxisn[0]*2.0) if (range>profit->objnaxisn[0]*2.0)
range = profit->objnaxisn[0]*2.0; range = profit->objnaxisn[0]*2.0;
parammin = -range; parammin = -range;
...@@ -1923,7 +2371,7 @@ void profit_resetparam(profitstruct *profit, paramenum paramtype) ...@@ -1923,7 +2371,7 @@ void profit_resetparam(profitstruct *profit, paramenum paramtype)
break; break;
case PARAM_Y: case PARAM_Y:
param = obj->my - (int)(obj->my+0.49999); param = obj->my - (int)(obj->my+0.49999);
range = fabs(obj2->hl_radius*4); range = obj2->hl_radius*4.0;
if (range>profit->objnaxisn[1]*2) if (range>profit->objnaxisn[1]*2)
range = profit->objnaxisn[1]*2; range = profit->objnaxisn[1]*2;
parammin = -range; parammin = -range;
...@@ -1935,20 +2383,19 @@ void profit_resetparam(profitstruct *profit, paramenum paramtype) ...@@ -1935,20 +2383,19 @@ void profit_resetparam(profitstruct *profit, paramenum paramtype)
parammax = 2*obj2->flux_auto; parammax = 2*obj2->flux_auto;
break; break;
case PARAM_SPHEROID_REFF: case PARAM_SPHEROID_REFF:
param = fabs(obj2->hl_radius); param = obj2->hl_radius;
parammin = 0.1; parammin = 0.1;
parammax = param * 4.0; parammax = param * 4.0;
break; break;
case PARAM_SPHEROID_ASPECT: case PARAM_SPHEROID_ASPECT:
param = FLAG(obj2.prof_disk_flux)? 1.0 : obj->b/obj->a; param = FLAG(obj2.prof_disk_flux)? 1.0 : obj->b/obj->a;
parammin = FLAG(obj2.prof_disk_flux)? 0.5 : 0.01; parammin = FLAG(obj2.prof_disk_flux)? 0.5 : 0.01;
parammax = 1.0; parammax = FLAG(obj2.prof_disk_flux)? 2.0 : 100.0;
parammax = FLAG(obj2.prof_disk_flux)? 2.0 : 100.0;
break; break;
case PARAM_SPHEROID_POSANG: case PARAM_SPHEROID_POSANG:
param = obj->theta; param = obj->theta;
parammin = 0.0; parammin = 90.0;
parammax = 0.0; parammax = 90.0;
break; break;
case PARAM_SPHEROID_SERSICN: case PARAM_SPHEROID_SERSICN:
param = 4.0; param = 4.0;
...@@ -1961,7 +2408,7 @@ parammax = FLAG(obj2.prof_disk_flux)? 2.0 : 100.0; ...@@ -1961,7 +2408,7 @@ parammax = FLAG(obj2.prof_disk_flux)? 2.0 : 100.0;
parammax = 2*obj2->flux_auto; parammax = 2*obj2->flux_auto;
break; break;
case PARAM_DISK_SCALE: /* From scalelength to Re */ case PARAM_DISK_SCALE: /* From scalelength to Re */
param = fabs(obj2->hl_radius)/1.67835*sqrt(obj->a/obj->b); param = obj2->hl_radius/1.67835*sqrt(obj->a/obj->b);
parammin = param/4.0; parammin = param/4.0;
parammax = param * 4.0; parammax = param * 4.0;
break; break;
...@@ -1972,8 +2419,8 @@ parammax = FLAG(obj2.prof_disk_flux)? 2.0 : 100.0; ...@@ -1972,8 +2419,8 @@ parammax = FLAG(obj2.prof_disk_flux)? 2.0 : 100.0;
break; break;
case PARAM_DISK_POSANG: case PARAM_DISK_POSANG:
param = obj->theta; param = obj->theta;
parammin = 0.0; parammin = 90.0;
parammax = 0.0; parammax = 90.0;
break; break;
case PARAM_ARMS_FLUX: case PARAM_ARMS_FLUX:
param = obj2->flux_auto/2.0; param = obj2->flux_auto/2.0;
...@@ -2137,91 +2584,166 @@ int profit_setparam(profitstruct *profit, paramenum paramtype, ...@@ -2137,91 +2584,166 @@ int profit_setparam(profitstruct *profit, paramenum paramtype,
/****** profit_boundtounbound ************************************************* /****** profit_boundtounbound *************************************************
PROTO void profit_boundtounbound(profitstruct *profit, float *param) PROTO void profit_boundtounbound(profitstruct *profit,
float *param, double *dparam, int index)
PURPOSE Convert parameters from bounded to unbounded space. PURPOSE Convert parameters from bounded to unbounded space.
INPUT Pointer to the profit structure. INPUT Pointer to the profit structure,
input array of single precision parameters,
output (incomplete) array of double precision parameters,
parameter selection index (<0 = all parameters)
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 07/09/2009 VERSION 29/03/2010
***/ ***/
void profit_boundtounbound(profitstruct *profit, float *param) void profit_boundtounbound(profitstruct *profit,
float *param, double *dparam, int index)
{ {
double num,den; double num,den;
int p; float tparam;
int f,p, pstart,np;
for (p=0; p<profit->nparam; p++) if (index<0)
if (profit->parammin[p]!=profit->parammax[p]) {
pstart = 0;
np = profit->nparam;
}
else
{
pstart = index;
np = pstart+1;
}
f = 0;
for (p=pstart ; p<np; p++)
if (profit->freeparam_flag[p])
{ {
num = param[p] - profit->parammin[p]; tparam = param[p-pstart];
den = profit->parammax[p] - param[p]; if (profit->parammin[p]!=profit->parammax[p])
param[p] = num>1e-50? (den>1e-50? log(num/den): 50.0) : -50.0; {
num = tparam - profit->parammin[p];
den = profit->parammax[p] - tparam;
dparam[f] = num>1e-50? (den>1e-50? log(num/den): 50.0) : -50.0;
}
else if (profit->parammax[p] > 0.0 || profit->parammax[p] < 0.0)
dparam[f] = param[p-pstart] / profit->parammax[p];
f++;
} }
return; return;
} }
/****** profit_unboundtobound ************************************************* /****** profit_unboundtobound *************************************************
PROTO void profit_unboundtobound(profitstruct *profit, float *param) PROTO void profit_unboundtobound(profitstruct *profit,
double *dparam, float *param, int index)
PURPOSE Convert parameters from unbounded to bounded space. PURPOSE Convert parameters from unbounded to bounded space.
INPUT Pointer to the profit structure. INPUT Pointer to the profit structure,
input (incomplete) array of double precision parameters,
output array of single precision parameters.
parameter selection index (<0 = all parameters)
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 18/05/2009 VERSION 08/07/2010
***/ ***/
void profit_unboundtobound(profitstruct *profit, float *param) void profit_unboundtobound(profitstruct *profit,
double *dparam, float *param, int index)
{ {
int p; int f,p, pstart,np;
for (p=0; p<profit->nparam; p++) if (index<0)
if (profit->parammin[p]!=profit->parammax[p]) {
param[p] = (profit->parammax[p] - profit->parammin[p]) pstart = 0;
/ (1.0 + exp(-(param[p]>50.0? 50.0 : param[p]))) np = profit->nparam;
+ profit->parammin[p]; }
else
{
pstart = index;
np = pstart+1;
}
f = 0;
for (p=pstart; p<np; p++)
{
if (profit->freeparam_flag[p])
{
param[p-pstart] = (profit->parammin[p]!=profit->parammax[p])?
((profit->parammax[p] - profit->parammin[p])
/ (1.0 + exp(-(dparam[f]>50.0? 50.0
: (dparam[f]<-50.0? -50.0: dparam[f]))))
+ profit->parammin[p])
: dparam[f]*profit->parammax[p];
f++;
}
else
param[p-pstart] = profit->paraminit[p];
}
return; return;
} }
/****** profit_covarunboundtobound ******************************************** /****** profit_covarunboundtobound ********************************************
PROTO void profit_covarunboundtobound(profitstruct *profit) PROTO void profit_covarunboundtobound(profitstruct *profit,
double *dcovar, float *covar)
PURPOSE Convert covariance matrix from unbounded to bounded space. PURPOSE Convert covariance matrix from unbounded to bounded space.
INPUT Pointer to the profit structure. INPUT Pointer to the profit structure,
input (incomplete) matrix of double precision covariances,
output matrix of single precision covariances.
OUTPUT -. OUTPUT -.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 02/10/2009 VERSION 08/07/2010
***/ ***/
void profit_covarunboundtobound(profitstruct *profit) void profit_covarunboundtobound(profitstruct *profit,
double *dcovar, float *covar)
{ {
double *dxdy, double *dxdy,
dxmin,dxmax; dxmin,dxmax;
float *covar, *x,*xmin,*xmax; float *x,*xmin,*xmax;
int p,p1,p2, nparam; int *fflag,
f,f1,f2, nfree, p,p1,p2, nparam;
nparam = profit->nparam; nparam = profit->nparam;
QMALLOC16(dxdy, double, nparam); fflag = profit->freeparam_flag;
nfree = profit->nfreeparam;
QMALLOC16(dxdy, double, nfree);
x = profit->paraminit; x = profit->paraminit;
xmin = profit->parammin; xmin = profit->parammin;
xmax = profit->parammax; xmax = profit->parammax;
f = 0;
for (p=0; p<profit->nparam; p++) for (p=0; p<profit->nparam; p++)
if (xmin[p]!=xmax[p]) if (fflag[p])
{ {
dxmin = x[p] - xmin[p]; if (xmin[p]!=xmax[p])
dxmax= xmax[p] - x[p]; {
dxdy[p] = (fabs(dxmin) < 1.0/BIG && fabs(dxmax) < 1.0/BIG) ? dxmin = x[p] - xmin[p];
dxmax= xmax[p] - x[p];
dxdy[f++] = (fabs(dxmin) < 1.0/BIG && fabs(dxmax) < 1.0/BIG) ?
0.0 : dxmin*dxmax/(dxmin+dxmax); 0.0 : dxmin*dxmax/(dxmin+dxmax);
}
else
dxdy[f++] = xmax[p];
} }
else
dxdy[p] = 1.0;
covar = profit->covar; memset(profit->covar, 0, nparam*nparam*sizeof(float));
f2 = 0;
for (p2=0; p2<nparam; p2++) for (p2=0; p2<nparam; p2++)
for (p1=0; p1<nparam; p1++) {
*(covar++) *= (float)(dxdy[p1]*dxdy[p2]); if (fflag[p2])
{
f1 = 0;
for (p1=0; p1<nparam; p1++)
if (fflag[p1])
{
covar[p2*nparam+p1] = (float)(dcovar[f2*nfree+f1]*dxdy[f1]*dxdy[f2]);
f1++;
}
f2++;
}
}
free(dxdy); free(dxdy);
...@@ -2237,7 +2759,7 @@ INPUT Pointer to the profile-fitting structure, ...@@ -2237,7 +2759,7 @@ INPUT Pointer to the profile-fitting structure,
OUTPUT A pointer to an allocated prof structure. OUTPUT A pointer to an allocated prof structure.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 22/04/2008 VERSION 07/04/2010
***/ ***/
profstruct *prof_init(profitstruct *profit, proftypenum profcode) profstruct *prof_init(profitstruct *profit, proftypenum profcode)
{ {
...@@ -2258,8 +2780,12 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2258,8 +2780,12 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
prof->typscale = 1.0; prof->typscale = 1.0;
break; break;
case PROF_SERSIC: case PROF_SERSIC:
prof->naxis = 3; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
QMALLOC(prof->pix, float, prof->npix);
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2271,7 +2797,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2271,7 +2797,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
case PROF_DEVAUCOULEURS: case PROF_DEVAUCOULEURS:
prof->naxis = 2; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
QMALLOC(prof->pix, float, profit->nmodpix);
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2282,7 +2812,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2282,7 +2812,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
case PROF_EXPONENTIAL: case PROF_EXPONENTIAL:
prof->naxis = 2; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
QMALLOC(prof->pix, float, profit->nmodpix);
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2293,7 +2827,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2293,7 +2827,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
case PROF_ARMS: case PROF_ARMS:
prof->naxis = 2; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
QMALLOC(prof->pix, float, profit->nmodpix);
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2311,7 +2849,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2311,7 +2849,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
case PROF_BAR: case PROF_BAR:
prof->naxis = 2; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
QMALLOC(prof->pix, float, profit->nmodpix);
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2325,7 +2867,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2325,7 +2867,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
case PROF_INRING: case PROF_INRING:
prof->naxis = 2; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
QMALLOC(prof->pix, float, profit->nmodpix);
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2339,7 +2885,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2339,7 +2885,11 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
case PROF_OUTRING: case PROF_OUTRING:
prof->naxis = 2; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
QMALLOC(prof->pix, float, profit->nmodpix);
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2352,7 +2902,10 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2352,7 +2902,10 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
case PROF_DIRAC: case PROF_DIRAC:
prof->naxis = 2; prof->naxis = 2;
prof->pix = NULL; prof->naxisn[0] = PROFIT_MAXMODSIZE;
prof->naxisn[1] = PROFIT_MAXMODSIZE;
prof->naxisn[2] = 1;
prof->npix = prof->naxisn[0]*prof->naxisn[1]*prof->naxisn[2];
prof->typscale = 1.0; prof->typscale = 1.0;
profit_addparam(profit, PARAM_X, &prof->x[0]); profit_addparam(profit, PARAM_X, &prof->x[0]);
profit_addparam(profit, PARAM_Y, &prof->x[1]); profit_addparam(profit, PARAM_Y, &prof->x[1]);
...@@ -2403,7 +2956,9 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode) ...@@ -2403,7 +2956,9 @@ profstruct *prof_init(profitstruct *profit, proftypenum profcode)
break; break;
} }
if (prof->pix) QMALLOC(prof->pix, float, prof->npix);
if (prof->naxis>2)
{ {
prof->kernelnlines = 1; prof->kernelnlines = 1;
for (d=0; d<prof->naxis; d++) for (d=0; d<prof->naxis; d++)
...@@ -2443,16 +2998,18 @@ void prof_end(profstruct *prof) ...@@ -2443,16 +2998,18 @@ void prof_end(profstruct *prof)
/****** prof_add ************************************************************** /****** prof_add **************************************************************
PROTO float prof_add(profstruct *prof, profitstruct *profit) PROTO float prof_add(profitstruct *profit, profstruct *prof,
int extfluxfac_flag)
PURPOSE Add a model profile to an image. PURPOSE Add a model profile to an image.
INPUT Profile structure, INPUT Profile-fitting structure,
profile-fitting structure. profile structure,
OUTPUT Corrected flux contribution. flag (0 if flux correction factor is to be computed internally)
OUTPUT Total (asymptotic) flux contribution.
NOTES -. NOTES -.
AUTHOR E. Bertin (IAP) AUTHOR E. Bertin (IAP)
VERSION 14/12/2009 VERSION 08/07/2010
***/ ***/
float prof_add(profstruct *prof, profitstruct *profit) float prof_add(profitstruct *profit, profstruct *prof, int extfluxfac_flag)
{ {
double xscale, yscale, saspect, ctheta,stheta, flux, scaling, bn, n; double xscale, yscale, saspect, ctheta,stheta, flux, scaling, bn, n;
float posin[PROFIT_MAXEXTRA], posout[2], dnaxisn[2], float posin[PROFIT_MAXEXTRA], posout[2], dnaxisn[2],
...@@ -2469,7 +3026,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2469,7 +3026,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
int npix, noversamp, threshflag, int npix, noversamp, threshflag,
d,e,i, ix1,ix2, idx1,idx2, nx2, npix2; d,e,i, ix1,ix2, idx1,idx2, nx2, npix2;
npix = profit->modnaxisn[0]*profit->modnaxisn[1]; npix = profit->nmodpix;
if (prof->code==PROF_BACK) if (prof->code==PROF_BACK)
{ {
...@@ -2524,7 +3081,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2524,7 +3081,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
/*---- The consequence of sampling on flux is compensated by PSF normalisation*/ /*---- The consequence of sampling on flux is compensated by PSF normalisation*/
x10 = -x1cout - dx1; x10 = -x1cout - dx1;
x2 = -x2cout - dx2; x2 = -x2cout - dx2;
pixin = profit->pmodpix; pixin = prof->pix;
for (ix2=nx2; ix2--; x2+=1.0) for (ix2=nx2; ix2--; x2+=1.0)
{ {
x1 = x10; x1 = x10;
...@@ -2539,7 +3096,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2539,7 +3096,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
continue; continue;
} }
val = expf(k*expf(logf(ra)*hinvn)); val = expf(k*expf(logf(ra)*hinvn));
noversamp = (int)(val*PROFIT_OVERSAMP+0.1); noversamp = (int)(val*profit->oversamp+0.1);
if (noversamp < 2) if (noversamp < 2)
*(pixin++) = val; *(pixin++) = val;
else else
...@@ -2585,7 +3142,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2585,7 +3142,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
/*---- The consequence of sampling on flux is compensated by PSF normalisation*/ /*---- The consequence of sampling on flux is compensated by PSF normalisation*/
x10 = -x1cout - dx1; x10 = -x1cout - dx1;
x2 = -x2cout - dx2; x2 = -x2cout - dx2;
pixin = profit->pmodpix; pixin = prof->pix;
for (ix2=nx2; ix2--; x2+=1.0) for (ix2=nx2; ix2--; x2+=1.0)
{ {
x1 = x10; x1 = x10;
...@@ -2600,7 +3157,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2600,7 +3157,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
continue; continue;
} }
val = expf(-7.66924944f*PROFIT_POWF(ra,0.125)); val = expf(-7.66924944f*PROFIT_POWF(ra,0.125));
noversamp = (int)(sqrt(val)*PROFIT_OVERSAMP+0.1); noversamp = (int)(sqrt(val)*profit->oversamp+0.1);
if (noversamp < 2) if (noversamp < 2)
*(pixin++) = val; *(pixin++) = val;
else else
...@@ -2645,7 +3202,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2645,7 +3202,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
case PROF_EXPONENTIAL: case PROF_EXPONENTIAL:
x10 = -x1cout - dx1; x10 = -x1cout - dx1;
x2 = -x2cout - dx2; x2 = -x2cout - dx2;
pixin = profit->pmodpix; pixin = prof->pix;
for (ix2=nx2; ix2--; x2+=1.0) for (ix2=nx2; ix2--; x2+=1.0)
{ {
x1 = x10; x1 = x10;
...@@ -2660,7 +3217,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2660,7 +3217,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
continue; continue;
} }
val = expf(-sqrtf(ra)); val = expf(-sqrtf(ra));
noversamp = (int)(val*sqrt(PROFIT_OVERSAMP)+0.1); noversamp = (int)(val*sqrt(profit->oversamp)+0.1);
if (noversamp < 2) if (noversamp < 2)
*(pixin++) = val; *(pixin++) = val;
else else
...@@ -2721,7 +3278,7 @@ float prof_add(profstruct *prof, profitstruct *profit) ...@@ -2721,7 +3278,7 @@ float prof_add(profstruct *prof, profitstruct *profit)
width = 3.0; width = 3.0;
x1 = -x1cout - dx1; x1 = -x1cout - dx1;
x2 = -x2cout - dx2; x2 = -x2cout - dx2;
pixin = profit->pmodpix; pixin = prof->pix;
for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0) for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0)
{ {
x1t = cd12*x2 + cd11*x1; x1t = cd12*x2 + cd11*x1;
...@@ -2768,7 +3325,7 @@ width = 3.0; ...@@ -2768,7 +3325,7 @@ width = 3.0;
sa = sinf(posang); sa = sinf(posang);
x1 = -x1cout - dx1; x1 = -x1cout - dx1;
x2 = -x2cout - dx2; x2 = -x2cout - dx2;
pixin = profit->pmodpix; pixin = prof->pix;
for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0) for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0)
{ {
x1t = cd12*x2 + cd11*x1; x1t = cd12*x2 + cd11*x1;
...@@ -2806,7 +3363,7 @@ width = 3.0; ...@@ -2806,7 +3363,7 @@ width = 3.0;
cd21 /= *prof->feataspect; cd21 /= *prof->feataspect;
x1 = -x1cout - dx1; x1 = -x1cout - dx1;
x2 = -x2cout - dx2; x2 = -x2cout - dx2;
pixin = profit->pmodpix; pixin = prof->pix;
for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0) for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0)
{ {
x1t = cd12*x2 + cd11*x1; x1t = cd12*x2 + cd11*x1;
...@@ -2839,7 +3396,7 @@ width = 3.0; ...@@ -2839,7 +3396,7 @@ width = 3.0;
invwidth2 = 0.5 / (*prof->featwidth**prof->featwidth); invwidth2 = 0.5 / (*prof->featwidth**prof->featwidth);
x1 = -x1cout - dx1; x1 = -x1cout - dx1;
x2 = -x2cout - dx2; x2 = -x2cout - dx2;
pixin = profit->pmodpix; pixin = prof->pix;
for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0) for (ix2=profit->modnaxisn[1]; ix2--; x2+=1.0)
{ {
x1t = cd12*x2 + cd11*x1; x1t = cd12*x2 + cd11*x1;
...@@ -2862,9 +3419,8 @@ width = 3.0; ...@@ -2862,9 +3419,8 @@ width = 3.0;
threshflag = 1; threshflag = 1;
break; break;
case PROF_DIRAC: case PROF_DIRAC:
memset(profit->pmodpix, 0, memset(prof->pix, 0, npix*sizeof(float));
profit->modnaxisn[0]*profit->modnaxisn[1]*sizeof(float)); prof->pix[profit->modnaxisn[0]/2
profit->pmodpix[profit->modnaxisn[0]/2
+ (profit->modnaxisn[1]/2)*profit->modnaxisn[0]] = 1.0; + (profit->modnaxisn[1]/2)*profit->modnaxisn[0]] = 1.0;
prof->lostfluxfrac = 0.0; prof->lostfluxfrac = 0.0;
threshflag = 0; threshflag = 0;
...@@ -2901,7 +3457,7 @@ width = 3.0; ...@@ -2901,7 +3457,7 @@ width = 3.0;
} }
x1cin = (float)(prof->naxisn[0]/2); x1cin = (float)(prof->naxisn[0]/2);
x2cin = (float)(prof->naxisn[1]/2); x2cin = (float)(prof->naxisn[1]/2);
pixin = profit->pmodpix; pixin = prof->pix;
for (i=npix; i--;) for (i=npix; i--;)
{ {
x1 = posout[0] - x1cout - 1.0 - dx1; x1 = posout[0] - x1cout - 1.0 - dx1;
...@@ -2937,7 +3493,7 @@ width = 3.0; ...@@ -2937,7 +3493,7 @@ width = 3.0;
/*-- Find best threshold (the max around the circle with radius rmax */ /*-- Find best threshold (the max around the circle with radius rmax */
dx2 = -x2cout; dx2 = -x2cout;
pixin = profit->pmodpix; pixin = prof->pix;
thresh = -BIG; thresh = -BIG;
for (ix2=profit->modnaxisn[1]; ix2--; dx2 += 1.0) for (ix2=profit->modnaxisn[1]; ix2--; dx2 += 1.0)
{ {
...@@ -2949,7 +3505,7 @@ width = 3.0; ...@@ -2949,7 +3505,7 @@ width = 3.0;
/*-- Threshold and measure the flux */ /*-- Threshold and measure the flux */
flux = 0.0; flux = 0.0;
pixin = profit->pmodpix; pixin = prof->pix;
for (i=npix; i--; pixin++) for (i=npix; i--; pixin++)
if (*pixin >= thresh) if (*pixin >= thresh)
flux += (double)*pixin; flux += (double)*pixin;
...@@ -2959,27 +3515,95 @@ width = 3.0; ...@@ -2959,27 +3515,95 @@ width = 3.0;
else else
{ {
flux = 0.0; flux = 0.0;
pixin = profit->pmodpix; pixin = prof->pix;
for (i=npix; i--;) for (i=npix; i--;)
flux += (double)*(pixin++); flux += (double)*(pixin++);
} }
if (prof->lostfluxfrac < 1.0) if (extfluxfac_flag)
flux /= (1.0 - prof->lostfluxfrac); fluxfac = prof->fluxfac;
else
{
if (prof->lostfluxfrac < 1.0)
flux /= (1.0 - prof->lostfluxfrac);
prof->fluxfac = fluxfac = fabs(flux)>0.0? profit->fluxfac/flux : 0.0;
}
pixin = prof->pix;
for (i=npix; i--;)
*(pixin++) *= fluxfac;
/* Correct final flux */ /* Correct final flux */
fluxfac = profit->fluxfac ; fluxfac = *prof->flux;
fluxfac *= fabs(flux)>0.0? *prof->flux / flux : 1.0; pixin = prof->pix;
// prof->fluxfac = fluxfac;
pixin = profit->pmodpix;
pixout = profit->modpix; pixout = profit->modpix;
for (i=npix; i--;) for (i=npix; i--;)
*(pixout++) += fluxfac * *(pixin++); *(pixout++) += fluxfac**(pixin++);
return *prof->flux; return *prof->flux;
} }
/****** prof_moments **********************************************************
PROTO void prof_moments(profitstruct *profit, profstruct *prof)
PURPOSE Computes (analytically or numerically) the 2nd moments of a profile
model.
INPUT Profile-fitting structure,
profile structure.
OUTPUT -.
NOTES -.
AUTHOR E. Bertin (IAP)
VERSION 08/07/2010
***/
void prof_moments(profitstruct *profit, profstruct *prof)
{
double m20,m02, ct,st, bn, n;
if (prof->posangle)
{
switch(prof->code)
{
case PROF_SERSIC:
n = fabs(*prof->extra[0]);
bn = 2.0*n - 1.0/3.0 + 4.0/(405.0*n) + 46.0/(25515.0*n*n)
+ 131.0/(1148175*n*n*n); /* Ciotti & Bertin 1999 */
m20 = 0.5 * *prof->scale**prof->scale
* prof_gamma(4.0*n) / (prof_gamma(2.0*n) * pow(bn, 2.0*n));
break;
case PROF_DEVAUCOULEURS:
m20 = 10.83995 * *prof->scale**prof->scale;
break;
case PROF_EXPONENTIAL:
m20 = 3.0 * *prof->scale**prof->scale;
break;
case PROF_ARMS:
case PROF_BAR:
case PROF_INRING:
case PROF_OUTRING:
m20 = 1.0 / 1.0;
break;
default:
m20 = 0.0; /* to avoid gcc -Wall warnings */
error(EXIT_FAILURE, "*Internal Error*: Unknown oriented model in ",
"prof_moments()");
break;
}
m02 = m20**prof->aspect**prof->aspect;
ct = cos(*prof->posangle*DEG);
st = sin(*prof->posangle*DEG);
prof->mx2 = ct*ct*m20 + st*st*m02;
prof->my2 = st*st*m20 + ct*ct*m02;
prof->mxy = ct*st*(m20 - m02);
}
else
prof->mx2 = prof->my2 = prof->mxy = 0.0;
return;
}
/****** prof_interpolate ****************************************************** /****** prof_interpolate ******************************************************
PROTO float prof_interpolate(profstruct *prof, float *posin) PROTO float prof_interpolate(profstruct *prof, float *posin)
PURPOSE Interpolate a multidimensional model profile at a given position. PURPOSE Interpolate a multidimensional model profile at a given position.
......
src/profit.h
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: Include file for profit.c. * Contents: Include file for profit.c.
* *
* Last modify: 09/10/2009 * Last modify: 08/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -30,11 +30,12 @@ ...@@ -30,11 +30,12 @@
/*----------------------------- Internal constants --------------------------*/ /*----------------------------- Internal constants --------------------------*/
#define PARAM_ALLPARAMS (-1) /* All parameters */
#define PROFIT_MAXITER 1000 /* Max. nb of iterations in profile fitting */ #define PROFIT_MAXITER 1000 /* Max. nb of iterations in profile fitting */
#define PROFIT_MAXPROF 8 /* Max. nb of profile components */ #define PROFIT_MAXPROF 8 /* Max. nb of profile components */
#define PROFIT_OVERSAMP 5 /* Max. profile oversamp. factor on each axis */ #define PROFIT_OVERSAMP 5 /* Max. profile oversamp. factor on each axis */
#define PROFIT_HIDEFRES 201 /* Resolution of the high def. model raster */ #define PROFIT_HIDEFRES 201 /* Hi. def. model resol. (must be <MAXMODSIZE)*/
#define PROFIT_REFFFAC 6.0 /* Factor in r_eff for measurement radius*/ #define PROFIT_REFFFAC 3.0 /* Factor in r_eff for measurement radius*/
#define PROFIT_DYNPARAM 10.0 /* Dynamic compression param. in sigma units */ #define PROFIT_DYNPARAM 10.0 /* Dynamic compression param. in sigma units */
#define PROFIT_MAXMODSIZE 512 /* Maximum size allowed for the model raster */ #define PROFIT_MAXMODSIZE 512 /* Maximum size allowed for the model raster */
#define PROFIT_MAXOBJSIZE 512 /* Maximum size allowed for the object raster */ #define PROFIT_MAXOBJSIZE 512 /* Maximum size allowed for the object raster */
...@@ -79,9 +80,11 @@ typedef struct ...@@ -79,9 +80,11 @@ typedef struct
float *pix; /* Full pixmap of the model */ float *pix; /* Full pixmap of the model */
int naxis; /* Number of pixmap dimensions */ int naxis; /* Number of pixmap dimensions */
int naxisn[3]; /* Pixmap size for each axis */ int naxisn[3]; /* Pixmap size for each axis */
int npix; /* Total number of prof pixels */
float typscale; /* Typical scale in prof pixels */ float typscale; /* Typical scale in prof pixels */
float fluxfac; /* Flux normalisation factor */ float fluxfac; /* Flux normalisation factor */
float lostfluxfrac; /* Lost flux fraction */ float lostfluxfrac; /* Lost flux fraction */
float m0,mx2,my2,mxy; /* 2nd order moments */
/* Generic presentation parameters */ /* Generic presentation parameters */
float *flux; /* Integrated flux */ float *flux; /* Integrated flux */
float *x[2]; /* Coordinate vector */ float *x[2]; /* Coordinate vector */
...@@ -113,12 +116,16 @@ typedef struct ...@@ -113,12 +116,16 @@ typedef struct
int nparam; /* Number of parameters to be fitted */ int nparam; /* Number of parameters to be fitted */
float *paramlist[PARAM_NPARAM]; /* flat parameter list */ float *paramlist[PARAM_NPARAM]; /* flat parameter list */
int paramindex[PARAM_NPARAM];/* Vector of parameter indices */ int paramindex[PARAM_NPARAM];/* Vector of parameter indices */
int paramrevindex[PARAM_NPARAM];/* Vector of reversed indices */
int freeparam_flag[PARAM_NPARAM]; /* Free parameter flag */
int nfreeparam; /* Number of free parameters */
float param[PARAM_NPARAM]; /* Vector of parameters to be fitted */ float param[PARAM_NPARAM]; /* Vector of parameters to be fitted */
float paraminit[PARAM_NPARAM];/* Parameter initial guesses */ float paraminit[PARAM_NPARAM];/* Parameter initial guesses */
float parammin[PARAM_NPARAM]; /* Parameter lower limits */ float parammin[PARAM_NPARAM]; /* Parameter lower limits */
float parammax[PARAM_NPARAM]; /* Parameter upper limits */ float parammax[PARAM_NPARAM]; /* Parameter upper limits */
float *covar; /* Covariance matrix */
float paramerr[PARAM_NPARAM]; /* Std deviations of parameters */ float paramerr[PARAM_NPARAM]; /* Std deviations of parameters */
float *covar; /* Covariance matrix */
int iter; /* Iteration counter */
int niter; /* Number of iterations */ int niter; /* Number of iterations */
profstruct **prof; /* Array of pointers to profiles */ profstruct **prof; /* Array of pointers to profiles */
int nprof; /* Number of profiles to consider */ int nprof; /* Number of profiles to consider */
...@@ -126,15 +133,20 @@ typedef struct ...@@ -126,15 +133,20 @@ typedef struct
float pixstep; /* Model/PSF sampling step */ float pixstep; /* Model/PSF sampling step */
float fluxfac; /* Model flux scaling factor */ float fluxfac; /* Model flux scaling factor */
float subsamp; /* Subsampling factor */ float subsamp; /* Subsampling factor */
int oversamp; /* Oversampling factor */
float *psfdft; /* Compressed Fourier Transform of the PSF */ float *psfdft; /* Compressed Fourier Transform of the PSF */
float *psfpix; /* Full res. pixmap of the PSF */ float *psfpix; /* Full res. pixmap of the PSF */
float *modpix; /* Full res. pixmap of the complete model */ float *modpix; /* Full res. pixmap of the complete model */
float *pmodpix; /* Full res. pixmap of the partial model */ float *modpix2; /* 2nd full res. pixmap of the complete model */
float *cmodpix; /* Full res. pixmap of the convolved model */
int modnaxisn[3]; /* Dimensions along each axis */ int modnaxisn[3]; /* Dimensions along each axis */
int nmodpix; /* Total number of model pixels */
PIXTYPE *lmodpix; /* Low resolution pixmap of the model */ PIXTYPE *lmodpix; /* Low resolution pixmap of the model */
PIXTYPE *lmodpix2; /* 2nd low resolution pixmap of the model */
PIXTYPE *objpix; /* Copy of object pixmap */ PIXTYPE *objpix; /* Copy of object pixmap */
PIXTYPE *objweight; /* Copy of object weight-map */ PIXTYPE *objweight; /* Copy of object weight-map */
int objnaxisn[2]; /* Dimensions along each axis */ int objnaxisn[2]; /* Dimensions along each axis */
int nobjpix; /* Total number of "final" pixels */
int ix, iy; /* Integer coordinates of object pixmap */ int ix, iy; /* Integer coordinates of object pixmap */
float *resi; /* Vector of residuals */ float *resi; /* Vector of residuals */
int nresi; /* Number of residual elements */ int nresi; /* Number of residual elements */
...@@ -142,6 +154,8 @@ typedef struct ...@@ -142,6 +154,8 @@ typedef struct
float sigma; /* Standard deviation of the pixel values */ float sigma; /* Standard deviation of the pixel values */
float flux; /* Total flux in final convolved model */ float flux; /* Total flux in final convolved model */
float spirindex; /* Spiral index (>0 for CCW) */ float spirindex; /* Spiral index (>0 for CCW) */
/* Buffers */
double dparam[PARAM_NPARAM];
} profitstruct; } profitstruct;
/*----------------------------- Global variables ----------------------------*/ /*----------------------------- Global variables ----------------------------*/
...@@ -156,39 +170,43 @@ float *profit_compresi(profitstruct *profit, float dynparam, ...@@ -156,39 +170,43 @@ float *profit_compresi(profitstruct *profit, float dynparam,
*profit_residuals(profitstruct *profit, picstruct *field, *profit_residuals(profitstruct *profit, picstruct *field,
picstruct *wfield, float dynparam, picstruct *wfield, float dynparam,
float *param, float *resi), float *param, float *resi),
prof_add(profstruct *prof, profitstruct *profit), prof_add(profitstruct *profit, profstruct *prof,
int extfluxfac_flag),
profit_minradius(profitstruct *profit, float refffac), profit_minradius(profitstruct *profit, float refffac),
profit_spiralindex(profitstruct *profit); profit_spiralindex(profitstruct *profit);
int profit_copyobjpix(profitstruct *profit, picstruct *field, int profit_copyobjpix(profitstruct *profit, picstruct *field,
picstruct *wfield), picstruct *wfield),
profit_minimize(profitstruct *profit, int niter), profit_minimize(profitstruct *profit, int niter),
profit_resample(profitstruct *profit, float *inpix,
PIXTYPE *outpix, float factor),
profit_setparam(profitstruct *profit, paramenum paramtype, profit_setparam(profitstruct *profit, paramenum paramtype,
float param, float parammin, float parammax); float param, float parammin, float parammax);
void prof_end(profstruct *prof), void prof_end(profstruct *prof),
prof_moments(profitstruct *profit, profstruct *prof),
profit_addparam(profitstruct *profit, paramenum paramindex, profit_addparam(profitstruct *profit, paramenum paramindex,
float **param), float **param),
profit_boundtounbound(profitstruct *profit, float *param), profit_boundtounbound(profitstruct *profit,
float *param, double *dparam, int index),
profit_fit(profitstruct *profit, profit_fit(profitstruct *profit,
picstruct *field, picstruct *wfield, picstruct *field, picstruct *wfield,
objstruct *obj, obj2struct *obj2), objstruct *obj, obj2struct *obj2),
profit_convolve(profitstruct *profit, float *modpix), profit_convolve(profitstruct *profit, float *modpix),
profit_covarunboundtobound(profitstruct *profit), profit_covarunboundtobound(profitstruct *profit,
double *dparam, float *param),
profit_end(profitstruct *profit), profit_end(profitstruct *profit),
profit_evaluate(float *par, float *fvec, int m, int n, profit_evaluate(double *par, double *fvec, int m, int n,
void *adata), void *adata),
profit_makedft(profitstruct *profit), profit_makedft(profitstruct *profit),
profit_moments(profitstruct *profit, obj2struct *obj2), profit_moments(profitstruct *profit, obj2struct *obj2),
profit_printout(int n_par, float* par, int m_dat, float* fvec, profit_printout(int n_par, float* par, int m_dat, float* fvec,
void *data, int iflag, int iter, int nfev ), void *data, int iflag, int iter, int nfev ),
profit_psf(profitstruct *profit), profit_psf(profitstruct *profit),
profit_resample(profitstruct *profit, float *inpix,
PIXTYPE *outpix, float factor),
profit_resetparam(profitstruct *profit, paramenum paramtype), profit_resetparam(profitstruct *profit, paramenum paramtype),
profit_resetparams(profitstruct *profit), profit_resetparams(profitstruct *profit),
profit_surface(profitstruct *profit, obj2struct *obj2, profit_surface(profitstruct *profit, obj2struct *obj2),
double lostfluxfrac), profit_unboundtobound(profitstruct *profit,
profit_unboundtobound(profitstruct *profit, float *param); double *dparam, float *param, int index);
#endif #endif
src/psf.c
View file @ 5f63711a
...@@ -10,7 +10,7 @@ ...@@ -10,7 +10,7 @@
* *
* Contents: Fit the PSF to a detection. * Contents: Fit the PSF to a detection.
* *
* Last modify: 14/12/2009 * Last modify: 07/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -255,7 +255,8 @@ psfstruct *psf_load(char *filename) ...@@ -255,7 +255,8 @@ psfstruct *psf_load(char *filename)
psf->fwhm = 3.0; psf->fwhm = 3.0;
/* PSF oversampling: defaulted to 1 */ /* PSF oversampling: defaulted to 1 */
if (fitsread(head, "PSF_SAMP", &psf->pixstep,H_FLOAT,T_FLOAT) != RETURN_OK) if (fitsread(head, "PSF_SAMP", &psf->pixstep,H_FLOAT,T_FLOAT) != RETURN_OK
|| psf->pixstep <= 0.0)
psf->pixstep = 1.0; psf->pixstep = 1.0;
/* Load the PSF mask data */ /* Load the PSF mask data */
...@@ -1016,6 +1017,9 @@ void psf_build(psfstruct *psf) ...@@ -1016,6 +1017,9 @@ void psf_build(psfstruct *psf)
float *ppc, *pl; float *ppc, *pl;
int i,n,p, ndim, npix; int i,n,p, ndim, npix;
if (psf->build_flag)
return;
npix = psf->masksize[0]*psf->masksize[1]; npix = psf->masksize[0]*psf->masksize[1];
/* Reset the Local PSF mask */ /* Reset the Local PSF mask */
...@@ -1042,10 +1046,42 @@ void psf_build(psfstruct *psf) ...@@ -1042,10 +1046,42 @@ void psf_build(psfstruct *psf)
*(pl++) += fac**(ppc++); *(pl++) += fac**(ppc++);
} }
psf->build_flag = 1;
return; return;
} }
/******************************** psf_fwhm **********************************/
/*
Return the local PSF FWHM.
*/
double psf_fwhm(psfstruct *psf)
{
float *pl,
val, max;
int n,p, npix;
if (!psf->build_flag)
psf_build(psf);
npix = psf->masksize[0]*psf->masksize[1];
max = -BIG;
pl = psf->maskloc;
for (p=npix; p--;)
if ((val=*(pl++)) > max)
max = val;
pl = psf->maskloc;
max /= 2.0;
n = 0;
for (p=npix; p--;)
if (*(pl++) >= max)
n++;
return 2.0*sqrt(n/PI)*psf->pixstep;
}
/*****************************compute_gradient*********************************/ /*****************************compute_gradient*********************************/
double *compute_gradient(float *weight,int width, int height, double *compute_gradient(float *weight,int width, int height,
......
src/psf.h
View file @ 5f63711a
...@@ -10,7 +10,7 @@ ...@@ -10,7 +10,7 @@
* *
* Contents: Include file for psffit.c. * Contents: Include file for psffit.c.
* *
* Last modify: 14/12/2009 * Last modify: 18/05/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -78,6 +78,7 @@ typedef struct psf ...@@ -78,6 +78,7 @@ typedef struct psf
pcstruct *pc; /* PC components */ pcstruct *pc; /* PC components */
double fwhm; /* Typical PSF FWHM */ double fwhm; /* Typical PSF FWHM */
float pixstep; /* PSF sampling step */ float pixstep; /* PSF sampling step */
int build_flag; /* Set if the current PSF has been computed */
} psfstruct; } psfstruct;
typedef struct typedef struct
...@@ -113,7 +114,8 @@ extern double *compute_gradient (float *weight,int width, int height, ...@@ -113,7 +114,8 @@ extern double *compute_gradient (float *weight,int width, int height,
float *masks, float *maskx, float *masky, float *masks, float *maskx, float *masky,
double *mat), double *mat),
*compute_gradient_phot(float *weight,int width, int height, *compute_gradient_phot(float *weight,int width, int height,
float *masks, double *pm); float *masks, double *pm),
psf_fwhm(psfstruct *psf);
extern psfstruct *psf_load(char *filename); extern psfstruct *psf_load(char *filename);
...@@ -129,3 +131,4 @@ extern void pc_end(pcstruct *pc), ...@@ -129,3 +131,4 @@ extern void pc_end(pcstruct *pc),
psf_readcontext(psfstruct *psf, picstruct *field); psf_readcontext(psfstruct *psf, picstruct *field);
extern pcstruct *pc_load(catstruct *cat); extern pcstruct *pc_load(catstruct *cat);
src/readimage.c
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: functions for input of image data. * Contents: functions for input of image data.
* *
* Last modify: 29/09/2009 * Last modify: 08/03/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -113,6 +113,10 @@ void *loadstrip(picstruct *field, picstruct *wfield) ...@@ -113,6 +113,10 @@ void *loadstrip(picstruct *field, picstruct *wfield)
writecheck(check, data, w); writecheck(check, data, w);
if ((check = prefs.check[CHECK_SUBPROFILES])) if ((check = prefs.check[CHECK_SUBPROFILES]))
writecheck(check, data, w); writecheck(check, data, w);
if ((check = prefs.check[CHECK_SUBSPHEROIDS]))
writecheck(check, data, w);
if ((check = prefs.check[CHECK_SUBDISKS]))
writecheck(check, data, w);
} }
if ((flags&DETECT_FIELD) && (check=prefs.check[CHECK_BACKRMS])) if ((flags&DETECT_FIELD) && (check=prefs.check[CHECK_BACKRMS]))
{ {
...@@ -182,6 +186,10 @@ void *loadstrip(picstruct *field, picstruct *wfield) ...@@ -182,6 +186,10 @@ void *loadstrip(picstruct *field, picstruct *wfield)
writecheck(check, data, w); writecheck(check, data, w);
if ((check = prefs.check[CHECK_SUBPROFILES])) if ((check = prefs.check[CHECK_SUBPROFILES]))
writecheck(check, data, w); writecheck(check, data, w);
if ((check = prefs.check[CHECK_SUBSPHEROIDS]))
writecheck(check, data, w);
if ((check = prefs.check[CHECK_SUBDISKS]))
writecheck(check, data, w);
} }
if ((flags&DETECT_FIELD) && (check=prefs.check[CHECK_BACKRMS])) if ((flags&DETECT_FIELD) && (check=prefs.check[CHECK_BACKRMS]))
{ {
......
src/sexhead1.h
View file @ 5f63711a
...@@ -9,7 +9,7 @@ ...@@ -9,7 +9,7 @@
* *
* Contents: header (FITS format #1) and templates for catalog data. * Contents: header (FITS format #1) and templates for catalog data.
* *
* Last modify: 19/12/2007 * Last modify: 02/07/2010
* *
*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% *%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
*/ */
...@@ -95,8 +95,8 @@ keystruct headkey1[] = { ...@@ -95,8 +95,8 @@ keystruct headkey1[] = {
&prefs.clean_param, H_FLOAT, T_DOUBLE, "%8f"}, &prefs.clean_param, H_FLOAT, T_DOUBLE, "%8f"},
{"SEXCLNST", "CLEANING OBJECT-STACK", {"SEXCLNST", "CLEANING OBJECT-STACK",
&prefs.deblend_nthresh, H_INT, T_LONG, "%6d"}, &prefs.deblend_nthresh, H_INT, T_LONG, "%6d"},
{"SEXAPERD", "APERTURE DIAMETER (PIXELS)", {"SEXAPERD", "1ST APERTURE DIAMETER (PIXELS)",
&prefs.apert[0], H_INT, T_LONG, "%7.1f"}, &prefs.apert[0], H_FLOAT, T_DOUBLE, "%8.2f"},
{"SEXAPEK1", "KRON PARAMETER", {"SEXAPEK1", "KRON PARAMETER",
&prefs.autoparam[0], H_FLOAT, T_DOUBLE, "%4.1f"}, &prefs.autoparam[0], H_FLOAT, T_DOUBLE, "%4.1f"},
{"SEXAPEK2", "KRON ANALYSIS RADIUS", {"SEXAPEK2", "KRON ANALYSIS RADIUS",
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment