127 #ifndef POLYNOME_INCLUDED
128 #define POLYNOME_INCLUDED
142 #define monome_coeff(pm) ((pm)->coeff)
143 #define monome_term(pm) ((pm)->term)
144 #define polynome_monome(pp) ((pp)->monome)
145 #define polynome_succ(pp) ((pp)->succ)
149 #define is_single_monome(pp) ((!POLYNOME_NUL_P(pp)) && (POLYNOME_NUL_P(polynome_succ(pp))))
151 #define monome_constant_new(coeff) make_monome(coeff, TCST, 1)
152 #define monome_power1_new(coeff, var) make_monome(coeff, var, 1)
155 #define MONOME_NUL ((Pmonome) -256)
156 #define MONOME_NUL_P(pm) ((pm)==MONOME_NUL)
157 #define MONOME_UNDEFINED ((Pmonome) -252)
158 #define MONOME_UNDEFINED_P(pm) ((pm)==MONOME_UNDEFINED)
159 #define MONOME_CONSTANT_P(pm) (term_cst((pm)->term))
161 #define POLYNOME_NUL ((Ppolynome) NULL)
162 #define POLYNOME_NUL_P(pp) ((pp)==POLYNOME_NUL)
163 #define POLYNOME_UNDEFINED ((Ppolynome) -248)
164 #define POLYNOME_UNDEFINED_P(pp) ((pp)==POLYNOME_UNDEFINED)
166 #define MONOME_COEFF_MULTIPLY_SYMBOL "*"
167 #define MONOME_VAR_MULTIPLY_SYMBOL "."
168 #define POLYNOME_NUL_SYMBOL "0"
169 #define POLYNOME_UNDEFINED_SYMBOL "<polynome undefined>"
170 #define MONOME_NUL_SYMBOL "<monome nul>"
171 #define MONOME_UNDEFINED_SYMBOL "<monome undefined>"
173 #define MAX_NAME_LENGTH 50
175 #define PNOME_MACH_EPS 1E-8
176 #define PNOME_FLOAT_N_DECIMALES 2
177 #define PNOME_FLOAT_TO_EXP_LEVEL 1E8
178 #define PNOME_FLOAT_TO_FRAC_LEVEL 9
struct Spolynome Spolynome
struct Spolynome * Ppolynome
le type des coefficients dans les vecteurs: Value est defini dans le package arithmetique