The R Project SVN R

Rev

Rev 11499 | Rev 36986 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11499 Rev 13434
Line 64... Line 64...
64 
    }
 64 
    }
65 
    return i;
 65 
    return i;
66 
}
 66 
}
67 
 
 67 
 
68 
 
 68 
 
69 
double chebyshev_eval(double x, double *a, int n)
 69 
double chebyshev_eval(double x, const double *a, const int n)
70 
{
 70 
{
71 
    double b0, b1, b2, twox;
 71 
    double b0, b1, b2, twox;
72 
    int i;
 72 
    int i;
73 
 
 73 
 
74 
    if (n < 1 || n > 1000) ML_ERR_return_NAN;
 74 
    if (n < 1 || n > 1000) ML_ERR_return_NAN;