From 2be0a25ad121a8c431c616866ac99071c04950de Mon Sep 17 00:00:00 2001 From: biouman Date: Wed, 2 May 2001 03:07:17 +0000 Subject: *** empty log message *** --- lib/fonctions.c | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) (limited to 'lib') diff --git a/lib/fonctions.c b/lib/fonctions.c index cb779c1..f133c98 100644 --- a/lib/fonctions.c +++ b/lib/fonctions.c @@ -90,19 +90,28 @@ void deriv(polynome p1, polynome p2, polynome p3) } void derivn(polynome p1, polynome p2, polynome p3) -{ - polynome temp, temp2; +{ pile_elem temp; int i; - if (p1) - if ((p1->degre==0) && (p1->coef.num>0) && (p1->coef.denom==1)) + if (p1) { + if ((p1->degre==0) && (p1->coef.num>0) && (p1->coef.denom==1)) { push_pile_poly(p2); - for(i=0; icoef.num; i++) - deriv + for(i=0; icoef.num; i++) { + temp=pop_pile(1); + deriv(elemtemp.poly); + } + } else { + exception(1,_("derivn: invalid 2nd arg")); + } + } else { + exception(1,_("derivn: invalid 2nd arg")); + } } void integ(polynome p1, polynome p2, polynome p3) { + polynome resultat = NULL, temp = NULL, t; + while (p1) { t=ply_constr(rat_constr((p1->coef.num), (p1->coef.denom)*(p1->coef.degre+1)), (p1->degre+1)); -- cgit v1.2.3