From: Dieter K. <cra...@us...> - 2010-06-19 18:53:46
|
Update of /cvsroot/maxima/maxima/tests In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv30976/tests Modified Files: rtest16.mac Log Message: Adding tests related to the bug reports: ID: 2556133 - "at" should do parallel substitutions Id: 2014941 - compositions of 'at' ID: 1677217 - composistions of 'at' Index: rtest16.mac =================================================================== RCS file: /cvsroot/maxima/maxima/tests/rtest16.mac,v retrieving revision 1.152 retrieving revision 1.153 diff -u -d -r1.152 -r1.153 --- rtest16.mac 5 Jun 2010 20:13:28 -0000 1.152 +++ rtest16.mac 19 Jun 2010 18:53:34 -0000 1.153 @@ -1663,3 +1663,27 @@ */ limit(mu[inf],x,inf); mu[inf]; + +/* Bug report ID: 2556133 - "at" should do parallel substitutions + */ +errcatch(at(atan2(y^2+1,x),[y=%i,x=0])); +[]; +errcatch(at(atan2(y^2+1,x),[x=0,y=%i])); +[]; + +/* Bug report ID: 2014941 - compositions of 'at' + */ +at(at(diff(f(x),x),[x=b]),[b=y]); +'at('at('diff(f(x),x,1),[x = b]),[b = y]); + +at(diff(f(x,y),x,1,y,1),[x=a,y=b]) - at(diff(f(x,y),x,1,y,1),[y=b,x=a]); +0; + +/* Bug report ID: 1677217 - composistions of 'at' + */ +depends(y,[x,z]); +[y(x,z)]; +at(at(diff(y,x),x=a),z=b); +'at('at('diff(y,x,1),x = a),z = b); +remove(y,dependency); +done; |