1 /*************************************************************************\
2 *
3 * Package: ProbDist
4 * File: wdist.c
5 * Environment: ANSI C
6 *
7 * Copyright (c) 2002 Pierre L'Ecuyer, DIRO, Université de Montréal.
8 * e-mail: lecuyer@iro.umontreal.ca
9 * All rights reserved.
10 *
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted without a fee for private, research,
13 * academic, or other non-commercial purposes.
14 * Any use of this software in a commercial environment requires a
15 * written licence from the copyright owner.
16 *
17 * Any changes made to this package must be clearly identified as such.
18 *
19 * In scientific publications which used this software, a reference to it
20 * would be appreciated.
21 *
22 * Redistributions of source code must retain this copyright notice
23 * and the following disclaimer.
24 *
25 * THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
26 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
27 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
28 *
29 \*************************************************************************/
30
31 #include "wdist.h"
32 #include "fdist.h"
33
34
35
36 /*=========================================================================*/
37
wdist_Normal(double Junk[],double x)38 double wdist_Normal (double Junk[], double x)
39 {
40 return fdist_Normal2 (x);
41 }
42
43
wdist_ChiSquare(double W[],double x)44 double wdist_ChiSquare (double W[], double x)
45 {
46 long N = (long) W[0];
47 return fdist_ChiSquare2 (N, 12, x);
48 }
49
50
wdist_Unif(double Junk[],double x)51 double wdist_Unif (double Junk[], double x)
52 {
53 return fdist_Unif (x);
54 }
55
56