version 1.7, 2000/06/30 21:36:16
|
version 1.10, 2000/08/22 16:00:25
|
Line 2
|
Line 2
|
Copyright (C) 1992-2000 Michigan State University |
Copyright (C) 1992-2000 Michigan State University |
|
|
The CAPA system is free software; you can redistribute it and/or |
The CAPA system is free software; you can redistribute it and/or |
modify it under the terms of the GNU Library General Public License as |
modify it under the terms of the GNU General Public License as |
published by the Free Software Foundation; either version 2 of the |
published by the Free Software Foundation; either version 2 of the |
License, or (at your option) any later version. |
License, or (at your option) any later version. |
|
|
The CAPA system is distributed in the hope that it will be useful, |
The CAPA system is distributed in the hope that it will be useful, |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
Library General Public License for more details. |
General Public License for more details. |
|
|
You should have received a copy of the GNU Library General Public |
You should have received a copy of the GNU General Public |
License along with the CAPA system; see the file COPYING. If not, |
License along with the CAPA system; see the file COPYING. If not, |
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
Boston, MA 02111-1307, USA. */ |
Boston, MA 02111-1307, USA. |
|
|
|
As a special exception, you have permission to link this program |
|
with the TtH/TtM library and distribute executables, as long as you |
|
follow the requirements of the GNU GPL in regard to all of the |
|
software in the executable aside from TtH/TtM. |
|
*/ |
|
|
/* <==================================================================> */ |
/* <==================================================================> */ |
/* by Isaac Tsai @ 1994 */ |
/* by Isaac Tsai @ 1994 */ |
Line 133 typedef struct _argNode {
|
Line 139 typedef struct _argNode {
|
#define THIRD_SYMBOLP(aaa) ( ((aaa->a_next)->a_next)->a_sp ) |
#define THIRD_SYMBOLP(aaa) ( ((aaa->a_next)->a_next)->a_sp ) |
#define FOURTH_SYMBOLP(aaa) ( (((aaa->a_next)->a_next)->a_next)->a_sp ) |
#define FOURTH_SYMBOLP(aaa) ( (((aaa->a_next)->a_next)->a_next)->a_sp ) |
#define FIFTH_SYMBOLP(aaa) ( ((((aaa->a_next)->a_next)->a_next)->a_next)->a_sp ) |
#define FIFTH_SYMBOLP(aaa) ( ((((aaa->a_next)->a_next)->a_next)->a_next)->a_sp ) |
|
#define SIXTH_SYMBOLP(aaa) ( (((((aaa->a_next)->a_next)->a_next)->a_next)->a_next)->a_sp ) |
#define FIRST_ARGNAME(aaa) ( FIRST_SYMBOLP(aaa)->s_name ) |
#define FIRST_ARGNAME(aaa) ( FIRST_SYMBOLP(aaa)->s_name ) |
#define FIRST_ARGTYPE(aaa) ( FIRST_SYMBOLP(aaa)->s_type ) |
#define FIRST_ARGTYPE(aaa) ( FIRST_SYMBOLP(aaa)->s_type ) |
#define FIRST_ARGINT(aaa) ( FIRST_SYMBOLP(aaa)->s_int ) |
#define FIRST_ARGINT(aaa) ( FIRST_SYMBOLP(aaa)->s_int ) |
Line 158 typedef struct _argNode {
|
Line 165 typedef struct _argNode {
|
#define FIFTH_ARGINT(aaa) ( FIFTH_SYMBOLP(aaa)->s_int) |
#define FIFTH_ARGINT(aaa) ( FIFTH_SYMBOLP(aaa)->s_int) |
#define FIFTH_ARGREAL(aaa) ( FIFTH_SYMBOLP(aaa)->s_real) |
#define FIFTH_ARGREAL(aaa) ( FIFTH_SYMBOLP(aaa)->s_real) |
#define FIFTH_ARGSTR(aaa) ( FIFTH_SYMBOLP(aaa)->s_str) |
#define FIFTH_ARGSTR(aaa) ( FIFTH_SYMBOLP(aaa)->s_str) |
|
#define SIXTH_ARGTYPE(aaa) ( SIXTH_SYMBOLP(aaa)->s_type) |
|
#define SIXTH_ARGNAME(aaa) ( SIXTH_SYMBOLP(aaa)->s_name ) |
|
#define SIXTH_ARGINT(aaa) ( SIXTH_SYMBOLP(aaa)->s_int) |
|
#define SIXTH_ARGREAL(aaa) ( SIXTH_SYMBOLP(aaa)->s_real) |
|
#define SIXTH_ARGSTR(aaa) ( SIXTH_SYMBOLP(aaa)->s_str) |
|
|
|
|
|
|
Line 454 typedef struct _answer_info {
|
Line 465 typedef struct _answer_info {
|
/* NORMAL_DIS gennor() */ |
/* NORMAL_DIS gennor() */ |
/* POISSON_DIS long ignpoi(float mu) */ |
/* POISSON_DIS long ignpoi(float mu) */ |
|
|
#define RANDOM_G 1L |
#define RANDOM_G 1L |
#define PERMUTATION_G 2L |
#define PERMUTATION_G 2L |
#define PIN_G 3L |
#define PIN_G 3L |
|
|
#define NORMAL_DIS 10 |
#define NORMAL_DIS 10 |
#define POISSON_DIS 11 |
#define POISSON_DIS 11 |
Line 466 typedef struct _answer_info {
|
Line 477 typedef struct _answer_info {
|
#define CHI_DIS 15 |
#define CHI_DIS 15 |
#define NONCENTRAL_CHI_DIS 16 |
#define NONCENTRAL_CHI_DIS 16 |
#define FORMULA_PICK_POINTS 17 |
#define FORMULA_PICK_POINTS 17 |
|
#define MULTIVARIATE_NORMAL_DIS 18 |
|
|
#define GET_GENERATOR 0L |
#define GET_GENERATOR 0L |
#define SET_GENERATOR 1L |
#define SET_GENERATOR 1L |
|
|
#define FORWARD_MAP 0 |
#define FORWARD_MAP 0 |
#define REVERSE_MAP 1 |
#define REVERSE_MAP 1 |
|
|
|
|
|
|
Line 568 Symbol *find_array_by_index CAPA_ARG
|
Line 580 Symbol *find_array_by_index CAPA_ARG
|
int free_array CAPA_ARG((char *name_p)); |
int free_array CAPA_ARG((char *name_p)); |
Symbol *array_min_max CAPA_ARG((char *name_p,int min)); |
Symbol *array_min_max CAPA_ARG((char *name_p,int min)); |
Symbol *array_moments CAPA_ARG((char *result_p,char *name_p)); |
Symbol *array_moments CAPA_ARG((char *result_p,char *name_p)); |
|
Symbol *gen_multivariate_normal CAPA_ARG((char *output_p,char *seed,int |
|
item_cnt,int dimen,char *m_vec_str,char *c_vec_str)); |
Symbol *gen_random_by_selector CAPA_ARG((char *output_p,int sel,char *seed,int item_cnt,float p1,float p2)); |
Symbol *gen_random_by_selector CAPA_ARG((char *output_p,int sel,char *seed,int item_cnt,float p1,float p2)); |
int setup_formula_id CAPA_ARG((char *v_str, char *pt_str)); |
int setup_formula_id CAPA_ARG((char *v_str, char *pt_str)); |
void free_formula_tree CAPA_ARG(()); |
void free_formula_tree CAPA_ARG(()); |