blob: 277ad3849c6a09a44a22a17c0ca5c2338843f200 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# PF_FCTN -- function required by REGRES to define polynomial function
# This routine taken from Bevington, Page 177.
real procedure pf_fctn (x, i, j, jterms)
real x[ARB]
int i, j
int jterms[ARB]
int jexp
begin
jexp = jterms[j]
return (x[i] ** jexp)
end
|
