[Maxima-commits] CVS: maxima/share/contrib/diffequations ode1_riccati.mac, 1.5, 1.6

[David B. <bil...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib/diffequations
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv12071

Modified Files:
	ode1_riccati.mac 
Log Message:
Use asksign() in place of is(equal()) in two places.  Two tests now
require this to pass.  No testsuite changes necessary.


Index: ode1_riccati.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/diffequations/ode1_riccati.mac,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- ode1_riccati.mac	8 Dec 2004 22:22:33 -0000	1.5
+++ ode1_riccati.mac	10 Dec 2006 12:06:58 -0000	1.6
@@ -137,7 +137,7 @@
 
   which is the special Riccati equation with a=1 and n=m+2
   */
-  if ( not(equal(m,-2)) and integerp(k:m/(2*m+4)) ) then (
+  if ( asksign(m+2)#'zero and integerp(k:m/(2*m+4)) ) then (
     ode_disp("       Equation is integrable in finite terms"),
     ode_disp("       Transforming using y=w/x and calling ode1_riccati_special"),
     ans:ode1_riccati_special(1,b,c,m+2,w,x),
@@ -153,7 +153,7 @@
    for cases not integrable in finite terms
 */
 ode1_riccati_original_not_integrable(b,c,m,y,x) := block(
-  if is(equal(m,-2)) then
+  if (asksign(m+2)='zero)  then
     ode1_riccati_original_2(b,c,y,x)
   else
     ode1_riccati_original_3(b,c,m,y,x)