[Aimmath-commit] AIM/WEB-INF/maple/aim Trig.mpl,1.3,1.4

[<gr...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv10977

Modified Files:
	Trig.mpl 
Log Message:
Now deals with the unusual case where there are no solutions.         - GG


Index: Trig.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/Trig.mpl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Trig.mpl	13 Sep 2003 18:11:25 -0000	1.3
--- Trig.mpl	9 Jan 2004 07:57:32 -0000	1.4
***************
*** 88,92 ****
--- 88,105 ----
  
    eq, interval, rightans := op(Q);
+   rightans := sort(rightans, evalb @ `<` @ evalf);
    llim, rlim := op(interval);
+ 
+   if nops(ans) = 0 then
+     if nops(rightans) = 0 then
+       RETURN([1, "", __("Correct: no solutions"), [], []]);
+     else
+       RETURN([0, 
+               __("You claimed that there were no solutions, when in fact
+                   there are solutions. "),
+               __("Incorrect: gave no solutions"),
+               [], []]);
+     fi;
+   fi;
  
    feedback := NULL;