21 lines
355 B
C
21 lines
355 B
C
|
|
void quadct(float x, float y, float xx[], float yy[], unsigned long nn,
|
|
float *fa, float *fb, float *fc, float *fd)
|
|
{
|
|
unsigned long k,na,nb,nc,nd;
|
|
float ff;
|
|
na=nb=nc=nd=0;
|
|
for (k=1;k<=nn;k++) {
|
|
if (yy[k] > y) {
|
|
xx[k] > x ? ++na : ++nb;
|
|
} else {
|
|
xx[k] > x ? ++nd : ++nc;
|
|
}
|
|
}
|
|
ff=1.0/nn;
|
|
*fa=ff*na;
|
|
*fb=ff*nb;
|
|
*fc=ff*nc;
|
|
*fd=ff*nd;
|
|
}
|