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
|
include <pkg/inlfit.h>
# ING_VSHOW -- Show fit parameters in verbose mode on the screen.
procedure ing_vshow$t (in, file, nl, x, y, wts, names, npts, nvars, len_name,
gt)
pointer in # INLFIT pointer
char file[ARB] # Output file name
pointer nl # NLFIT pointer
PIXEL x[ARB] # Ordinates (npts * nvars)
PIXEL y[ARB] # Abscissas
PIXEL wts[ARB] # Weights
char names[ARB] # Object ids
int npts # Number of data points
int nvars # Number of variables
int len_name # Length of id name
pointer gt # Graphics tools pointer
begin
# Print the title.
call ing_title (in, file, gt)
# Do the standard ing_show option.
call ing_show$t (in, file)
# Print the error analysis information.
call ing_errors$t (in, file, nl, x, y, wts, npts, nvars)
# Print the results.
call ing_results$t (in, file, nl, x, y, wts, names, npts, nvars,
len_name)
end
|
