GRASS Programmer's Manual
6.4.2(2012)
Main Page
Related Pages
Namespaces
Data Structures
Files
File List
Globals
All
Data Structures
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Macros
Pages
ksn.c
Go to the documentation of this file.
1
#include <stdio.h>
2
#include <math.h>
3
#include <grass/cdhc.h>
4
#include "
local_proto.h
"
5
6
7
double
*
kolmogorov_smirnov
(
double
*x,
int
n)
8
{
9
static
double
y[2];
10
double
*d, sqrtn;
11
12
sqrtn = sqrt((
double
)n);
13
d =
dmax
(x, n);
14
15
y[1] = (d[0] > d[1]) ? d[0] : d[1];
16
y[0] = y[1] * (sqrtn + 0.85 / sqrtn - 0.01);
17
18
#ifdef NOISY
19
fprintf(stdout,
" TEST10 KSD(N) =%10.4f\n"
, y[0]);
20
fprintf(stdout,
" TEST11 KSD =%10.4f\n"
, y[1]);
21
#endif
/* NOISY */
22
23
return
y;
24
}
lib
cdhc
ksn.c
Generated on Sun Sep 9 2012 18:55:33 for GRASS Programmer's Manual by
1.8.1.2