blob: e116982b68d74e9abaabcd8e84a57d365b123330 (
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
|
include <math/nlfit.h>
$if (datatype == r)
include "nlfitdefr.h"
$else
include "nlfitdefd.h"
$endif
# NLEVAL -- Evaluate the fit at a point.
PIXEL procedure nleval$t (nl, x, nvars)
pointer nl # nlfit descriptor
PIXEL x[ARB] # x values
int nvars # number of variables
real zfit
begin
# Evaluate the function.
call zcall5 (NL_FUNC(nl), x, nvars, PARAM(NL_PARAM(nl)),
NL_NPARAMS(nl), zfit)
return (zfit)
end
|
