[Maxima-commits] [git] Maxima CAS branch, subst-lambda-rework,
updated. branch-5_32-base-34-g7259ab3
From: Robert D. <rob...@us...> - 2014-01-10 18:16:04
|
This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "Maxima CAS". The branch, subst-lambda-rework has been updated via 7259ab395a3ef9c35a8056051c30cffd1a5699d0 (commit) via 162351ce0206a70d4d4339bc5004c766bb09fd76 (commit) from cd3ab663af35a2ef80de4f16bc5f4fbad3fa5fe5 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 7259ab395a3ef9c35a8056051c30cffd1a5699d0 Author: Robert Dodier <rob...@us...> Date: Thu Jan 9 18:07:59 2014 -0800 Put rtest_subst on list of test suite files. diff --git a/tests/testsuite.lisp b/tests/testsuite.lisp index 8642654..fc16c85 100644 --- a/tests/testsuite.lisp +++ b/tests/testsuite.lisp @@ -59,4 +59,5 @@ "rtestdefstruct" "rtest_limit" ((mlist) "rtest_laplace" 29 49 50 51 54 59 60 61 62 78 80) + "rtest_subst" )) commit 162351ce0206a70d4d4339bc5004c766bb09fd76 Author: Robert Dodier <rob...@us...> Date: Wed Jan 8 15:30:57 2014 -0800 Additional test examples for substitution. diff --git a/tests/rtest_subst.mac b/tests/rtest_subst.mac index cc720cd..b51af2b 100644 --- a/tests/rtest_subst.mac +++ b/tests/rtest_subst.mac @@ -45,4 +45,26 @@ block ([substitution_applies_lambda : false], subst (f = lambda ([x], 2*x), f (u))); lambda ([x], 2*x) (u); +/* examples derived from mailing list 2013-06-08 */ + +(x:a,a:b,b:c,c:d,d:e, 0); +0; + +substitution_applies_lambda : false; +false; + +substitute('cos = lambda([w],1-w^2/2), cos(x)); +lambda ([w], 1 - w^2/2) (a); + +f : substitute([li[2] = lambda([w],w+w^2/4)], li[2](x)); +lambda ([w], w + w^2/4) (a); + +substitution_applies_lambda : true; +true; + +substitute('cos = lambda([w],1-w^2/2), cos(x)); +1 - a^2/2; + +f : substitute([li[2] = lambda([w],w+w^2/4)], li[2](x)); +a + a^2/4; ----------------------------------------------------------------------- Summary of changes: tests/rtest_subst.mac | 22 ++++++++++++++++++++++ tests/testsuite.lisp | 1 + 2 files changed, 23 insertions(+), 0 deletions(-) hooks/post-receive -- Maxima CAS |