[Maxima-commits] [git] Maxima CAS branch master updated. branch-5_48-base-217-g99a82633c

[willisbl <wil...@us...>]

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, master has been updated
       via  99a82633cbfdf84489a1d02ee55045f527361c29 (commit)
      from  18eec5aa0ba897844f4136d32b18161413457d13 (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 99a82633cbfdf84489a1d02ee55045f527361c29
Author: Barton Willis <wi...@un...>
Date:   Wed Oct 8 08:34:41 2025 -0500

    Append tests from \#3183 %i * 3^%i/2^%i; does not consistently simplify
    
    No unexpected testsuite or share testsuite failures with either Clozure 1.13 or SBCL 2.4.7

diff --git a/tests/rtest_great.mac b/tests/rtest_great.mac
index 040b8c31c..2dea453ee 100644
--- a/tests/rtest_great.mac
+++ b/tests/rtest_great.mac
@@ -85,6 +85,38 @@ block([ans1,ans2,ans3],
   [ans1,ans2,ans3]);

 [a*b+a^^7+%e^(a . b),a*b+a^^7+%e^(a . b),a*b+a^^7+%e^(a . b)]$

 

+/* \#3183 %i * 3^%i/2^%i; does not consistently simplify*/

+

+block([e0 : ((0.23665921047828*%i+0.7345467111924259)*(0.4980156681183566*%i-0.15494982830181)*1.5^%i*cosh(%pi))

+      /2^%i, e1,e2],

+      e1 : expand(e0,0,0),

+      e2 : expand(e1,0,0),

+      outermap(lambda([a,b], is(a=b)),[e0,e1,e2],[e0,e1,e2]));

+[[true, true, true], [true, true, true], [true, true, true]]$

+

+block([e0 : %i * 3^%i/2^%i, e1, e2, e3],

+       e1 : 1*e0,

+       e2 : 1*e1,

+       e3 : 1*e2,

+       outermap(lambda([a,b], is(a=b)),[e0,e1,e2,e3],[e0,e1,e2,e3]));

+[[true, true, true, true], [true, true, true, true], [true, true, true, true], [true, true, true, true]]$     

+     

+block([EY,ans], declare(K,constant), 

+      EY: 1/2^K+K+3^K,

+      ans : [EY-EY,(-EY) - (-EY)],

+      remove(K,constant),

+      ans);

+[0,0]$

+

+block([a,b,c,d,M,L,ans],

+ [a, b, c, d] : [3, M, M^3, 3^M],

+ L : powerset ({a, b, c, d}, 2),

+ declare (M, constant),

+ ans : maplist (lambda ([p], ?great (first(p), second(p))), L),

+ remove(M,constant),

+ ans);

+[false, false, false, false, false, false]$

+

 /* Did we make a mess? Let's clean it up!*/

 (remvalue(L),remvalue(bad),remove(z,complex), reset(domain), 0);

 0$


-----------------------------------------------------------------------

Summary of changes:
 tests/rtest_great.mac | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)


hooks/post-receive
-- 
Maxima CAS