From: Raymond T. <rt...@us...> - 2002-05-22 02:53:52
|
Update of /cvsroot/maxima/maxima/tests In directory usw-pr-cvs1:/tmp/cvs-serv32436/tests Modified Files: rtest6a.mac Log Message: Tell maxima that T is positive so it doesn't ask. Index: rtest6a.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest6a.mac,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- rtest6a.mac 19 Apr 2001 06:06:10 -0000 1.2 +++ rtest6a.mac 22 May 2002 02:53:49 -0000 1.3 @@ -30,6 +30,8 @@ SQRT(T)*%E^(-P*T-A*T/4); /* SPECINT(%,T); not available in distribution SQRT(%PI)/(2*(P+A/4)^(3/2)); */ +assume(T > 0); +[T > 0]$ T^(1/2)*%J[1](2*A^(1/2)*T^(1/2))*%E^-(P*T); %J[1](2*SQRT(A)*SQRT(T))*SQRT(T)*%E^-(P*T); /* SPECINT(%,T); not available |