blob: 2a40b59089ea1284285da1e9733457cb04c09f6a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
# PSF fitting task definitions
# PSF fitting parameters (# 201 - 300)
define PNUM 201 # number of PSF stars
define CUR_PSF 202 # index of current PSF star
define CUR_PSFID 203 # id of current PSF star
define CUR_PSFX 204 # x coordinate of current PSF star
define CUR_PSFY 205 # y coordinate of current PSF star
define CUR_PSFSKY 206 # sky value of current PSF star
define CUR_PSFMAG 207 # magnitude of current PSF star
define CUR_PSFMIN 208 # min data value of current PSF star
define CUR_PSFMAX 209 # max data value of current PSF star
define CUR_PSFGMAX 210 # max good data value of current PSF star
define PLOTTYPE 211 # the plot type
define LENUSERAREA 212 # PSF image user area length
# PSF task plot types
define PSF_PLOTS "|mesh|contour|radial|" # list of plot types
define PSF_MESHPLOT 1 # mesh plot
define PSF_CONTOURPLOT 2 # contour plot
define PSF_RADIALPLOT 3 # radial profile plot
# miscellaneous definitions
define MIN_LENUSERAREA 50000 # minimum length of the user area
define PSF_NINCOLS 4 # number of columns in input psf star list
define PSF_NOUTCOLS 6 # number of columns in output group table
define MAX_NPSFITER 300 # max number of analytic fit iterations
# PSF fitting colon commands
define PSF_CMDS "|psfimage|groupfile|function|varorder|fexpand|psfrad|\
fitrad|nclean|saturated|matchrad|scale|fwhmpsf|datamin|datamax|"
define PSFCMD_PSFIMAGE 1
define PSFCMD_GROUPFILE 2
define PSFCMD_FUNCTION 3
define PSFCMD_VARORDER 4
define PSFCMD_FEXPAND 5
define PSFCMD_PSFRAD 6
define PSFCMD_FITRAD 7
define PSFCMD_NCLEAN 8
define PSFCMD_SATURATED 9
define PSFCMD_MATCHRAD 10
define PSFCMD_SCALE 11
define PSFCMD_FWHMPSF 12
define PSFCMD_DATAMIN 13
define PSFCMD_DATAMAX 14
# the PSF task fitting structure
define LEN_PSFSTRUCT (50)
# arrays required for fitting analytic psf and the look-up table
define DP_LENUSERAREA Memi[$1] # size of the output psf user area
define DP_PC Memi[$1+1] # pointer to fitting matrix
define DP_PV Memi[$1+3] # pointer to fitting vector
define DP_PTMP Memi[$1+4] # pointer to temporary vector
define DP_PZ Memi[$1+5] # pointer to parameter changes
define DP_PCLAMP Memi[$1+6] # pointer to clamp vector
define DP_POLD Memi[$1+7] # pointer to previous parameter changes
define DP_PSIGANA Memr[P2R($1+8)] # normalized sigma for analytic fit
define DP_PSUMANA Memr[P2R($1+9)] # number of points in analytic fit
# dimensions and arrays required for psf star list
define DP_PNUM Memi[$1+10] # number of stars in PSF
define DP_PSAT Memi[$1+11] # pointer to PSF star saturation indices
define DP_PXCEN Memi[$1+12] # pointer to the PSF star x coords
define DP_PYCEN Memi[$1+13] # pointer to the PSF star y coords
define DP_PMAG Memi[$1+14] # pointer to the PSF star list mags
define DP_PH Memi[$1+15] # pointer to the PSF star heights
define DP_PWEIGHT Memi[$1+16] # pointer to the PSF star weights
define DP_PXCLAMP Memi[$1+17] # pointer to the PSF star x clamps
define DP_PYCLAMP Memi[$1+18] # pointer to the PSF star y clamps
define DP_PXOLD Memi[$1+19] # pointer to the old PSF star x values
define DP_PYOLD Memi[$1+20] # pointer to the old PSF star y values
# additional arrays required for fitting the look-up table
define DP_PSUMN Memi[$1+21] # pointer to the number of points
define DP_PSUMW Memi[$1+22] # pointer to the weights corrections
define DP_PSUMSQ Memi[$1+23] # pointer to the resdiduals
define DP_PSIGMA Memi[$1+24] # pointer to the standard deviations
define DP_PCONST Memi[$1+25] # pointer to the const part of psf
define DP_POLDLUT Memi[$1+26] # pointer to the old lookup table
# description of current psf star
define DP_CUR_PSF Memi[$1+27] # position of current PSF star in file
define DP_CUR_PSFID Memi[$1+28] # id of current PSF star
define DP_CUR_PSFX Memr[P2R($1+29)]# x position of current PSF star
define DP_CUR_PSFY Memr[P2R($1+30)]# y position of current PSF star
define DP_CUR_PSFSKY Memr[P2R($1+31)]# sky for current PSF star
define DP_CUR_PSFMAG Memr[P2R($1+32)]# magnitude for current PSF star
define DP_CUR_PSFMIN Memr[P2R($1+33)]# minimum data value in PSF subrast
define DP_CUR_PSFMAX Memr[P2R($1+34)]# maximum data value in PSF subrast
define DP_CUR_PSFGMAX Memr[P2R($1+35)]# maximum good data value in fitrad
# the psf plotting parameters
define DP_PLOTTYPE Memi[$1+36] # type of PSF plot
define DP_MANGV Memr[P2R($1+37)]# vertical angle for surface plot
define DP_MANGH Memr[P2R($1+38)]# horizontal angle for surface plot
define DP_MFLOOR Memr[P2R($1+39)]# floor value for surface plot
define DP_MCEILING Memr[P2R($1+40)]# ceiling for surface plot
define DP_CFLOOR Memr[P2R($1+41)]# floor for contour
define DP_CCEILING Memr[P2R($1+42)]# ceiling for contour
|
