[Maxima-commits] [git] Maxima CAS branch master updated. branch-5_49-base-504-g5f680f4fd

[<ap...@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  5f680f4fdbc1c0afd21107d92553f601a8d66caf (commit)
      from  328c0e8044a1bb7c711974f642be40d304a19169 (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 5f680f4fdbc1c0afd21107d92553f601a8d66caf
Author: Robert Dodier <rob...@so...>
Date:   Sun May 10 10:19:52 2026 -0700

    Package ezunits: recognize %i as nondimensional in dimensions and fundamental_units.

diff --git a/share/ezunits/ezunits_functions.mac b/share/ezunits/ezunits_functions.mac
index 6240ebb75..34c9abd01 100644
--- a/share/ezunits/ezunits_functions.mac
+++ b/share/ezunits/ezunits_functions.mac
@@ -454,7 +454,8 @@ block ([L],
  */
 
 matchdeclare
-   (aa%, lambda ([e%], numberp (e%) or (atom (e%) and not symbolp (e%))),
+   (/* are there other nonnumerical constants similar to %i ?? */
+    aa%, lambda ([e%], numberp (e%) or (atom (e%) and (not symbolp (e%) or e% = %i))),
     bb%, lambda ([e%], symbolp (e%) and member (e%, fundamental_dimensions)),
     cc%, lambda ([e%], symbolp (e%) and get (e%, 'units) # false),
     dd%, lambda ([e%], symbolp (e%) and get (e%, 'constvalue) # false),
diff --git a/share/ezunits/rtest_ezunits_solve.mac b/share/ezunits/rtest_ezunits_solve.mac
index 0d19d7deb..4be9f29ed 100644
--- a/share/ezunits/rtest_ezunits_solve.mac
+++ b/share/ezunits/rtest_ezunits_solve.mac
@@ -61,9 +61,9 @@ foo : dimensionally (solve (E = %A * %T^4 * sigma_sb, %T));
  %T = -%i*(E/(%A*sigma_sb))^(1/4),%T = (E/(%A*sigma_sb))^(1/4)];
 
 dimensions (foo);
-['dimensions(%T) = 'dimensions(%i)*('dimensions(E)/('dimensions(%A)*'dimensions(sigma_sb)))^(1/4),
+['dimensions(%T) = ('dimensions(E)/('dimensions(%A)*'dimensions(sigma_sb)))^(1/4),
+ 'dimensions(%T) = -('dimensions(E)/('dimensions(%A)*'dimensions(sigma_sb)))^(1/4),
  'dimensions(%T) = -('dimensions(E)/('dimensions(%A)*'dimensions(sigma_sb)))^(1/4),
- 'dimensions(%T) = -'dimensions(%i)*('dimensions(E)/('dimensions(%A)*'dimensions(sigma_sb)))^(1/4),
  'dimensions(%T) = ('dimensions(E)/('dimensions(%A)*'dimensions(sigma_sb)))^(1/4)];
 
 foo_late : subst ([E = 7 ` kW, %A = 11 ` m^2, sigma_sb = 56697/10000/10^8 ` W/m^2/K^4], foo);
diff --git a/share/ezunits/rtestezunits.mac b/share/ezunits/rtestezunits.mac
index ed56d8574..5e86c24b8 100644
--- a/share/ezunits/rtestezunits.mac
+++ b/share/ezunits/rtestezunits.mac
@@ -446,6 +446,12 @@ map (units, [%c, %mu_0, %e_0, %Z_0, %G, %h, %h_bar]);
 [dimensions (1), dimensions (1729), dimensions (%e)];
 [1, 1, 1];
 
+dimensions (%i);
+1;
+
+fundamental_units (%i);
+1;
+
 [dimensions (0 ` m/s), dimensions (0 ` kg/m^3), dimensions (0 ` W/kg)];
 [length/time, mass/length^3, length^2/time^3];
 

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

Summary of changes:
 share/ezunits/ezunits_functions.mac   | 3 ++-
 share/ezunits/rtest_ezunits_solve.mac | 4 ++--
 share/ezunits/rtestezunits.mac        | 6 ++++++
 3 files changed, 10 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
Maxima CAS