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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "icfit.h"
# IC_VSHOW -- Show fit parameters in verbose mode.
procedure ic_vshowd (ic, file, cv, x, y, wts, npts, gt)
pointer ic # ICFIT pointer
char file[ARB] # Output file
pointer cv # Curfit pointer
double x[ARB] # Ordinates
double y[ARB] # Abscissas
double wts[ARB] # Weights
int npts # Number of data points
pointer gt # Graphics tools pointer
int fd, open()
errchk open, ic_fvshowd
begin
fd = open (file, APPEND, TEXT_FILE)
IC_GT(ic) = gt
call ic_fvshowd (ic, cv, x, y, wts, npts, fd)
call close (fd)
end
# IC_XYSHOW -- List data as x, y, fit, weight lines on output.
procedure ic_xyshowd (ic, file, cv, x, y, w, npts)
pointer ic # ICFIT pointer
char file[ARB] # Output file
pointer cv # Pointer to curfit structure
double x[npts] # Array of x data values
double y[npts] # Array of y data values
double w[npts] # Array of weight data values
int npts # Number of data values
int fd, open()
errchk open, ic_fxyshowd
begin
fd = open (file, APPEND, TEXT_FILE)
call ic_fxyshowd (ic, cv, x, y, w, npts, fd)
call close (fd)
end
|
