Menu
▾
▴
[Maxima-commits] [git] Maxima CAS branch, master, updated. branch-5_35-base-235-gf38312f
|
From: Robert D. <rob...@us...> - 2015-03-26 21:02:46
|
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 f38312f9734f341028efcf2f284ab5990125bb37 (commit)
via fb61566d21f58a4d138876c8a6c34c66b7d2d120 (commit)
via 64223c9e21aa474631af2ac1980ea46155b0f409 (commit)
via 40cbaecd19b4965adfc8e3eb15f2eea243e1feea (commit)
via 5d99e9450ba3cb8bb3945034bf7343db8a71e3ee (commit)
from d0a8769f5d1ea9a0ce6b2f05ec162d98b48fd91d (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 f38312f9734f341028efcf2f284ab5990125bb37
Author: Robert Dodier <rob...@us...>
Date: Thu Mar 26 14:02:03 2015 -0700
Additional tests for bug #2919.
diff --git a/tests/rtestint.mac b/tests/rtestint.mac
index 8046bbd..6cf457c 100644
--- a/tests/rtestint.mac
+++ b/tests/rtestint.mac
@@ -1484,6 +1484,54 @@ errcatch(integrate(1/(x^2), x, -inf, inf));
error;
["defint: integral is divergent."];
+/* other tests mentioned in #2919 */
+
+errcatch (integrate(1/x, x, 0, 1));
+[];
+
+error;
+["defint: integral is divergent."];
+
+integrate(1/x, x, -1, 1);
+0;
+/* expected output: Principal Value -- dunno how to capture that */
+
+errcatch (integrate(1/x, x, 0, inf));
+[];
+
+error;
+["defint: integral is divergent."];
+
+errcatch (integrate(1/x, x, 1, inf));
+[];
+
+error;
+["defint: integral is divergent."];
+
+integrate(1/x, x, -inf, inf);
+0;
+/* expected output: Principal Value -- dunno how to capture that */
+
+errcatch (integrate(1/x^2, x, 0, 1));
+[];
+
+error;
+["defint: integral is divergent."];
+
+errcatch (integrate(1/x^2, x, -1, 1));
+[];
+
+error;
+["defint: integral is divergent."];
+
+errcatch (integrate(1/x^2, x, 0, inf));
+[];
+
+error;
+["defint: integral is divergent."];
+
+integrate(1/x^2, x, 1, inf);
+1;
/* SF # 2633: ev(integrate,numer) gives strange result */
(foo : ev(integrate(sin(2*%pi*x),x,0,1),numer), 0);
commit fb61566d21f58a4d138876c8a6c34c66b7d2d120
Merge: 64223c9 d0a8769
Author: Robert Dodier <rob...@us...>
Date: Thu Mar 26 13:49:25 2015 -0700
Merge branch 'master' of ssh://git.code.sf.net/p/maxima/code
commit 64223c9e21aa474631af2ac1980ea46155b0f409
Author: Robert Dodier <rob...@us...>
Date: Tue Mar 24 13:16:58 2015 -0700
In package ezunits, add femto, pico, nano, and micro fractions
for SI units which do not have them already.
diff --git a/share/ezunits/ezunits_db.mac b/share/ezunits/ezunits_db.mac
index 7d99630..a3d78ed 100644
--- a/share/ezunits/ezunits_db.mac
+++ b/share/ezunits/ezunits_db.mac
@@ -34,21 +34,38 @@ declare_unit_conversion
H = J/A^2, /* henry: Inductance */
henry = H,
+ fm = m/10^15,
+ pm = m/10^12,
+ nm = m/10^9,
+ microm = m/10^6,
+ micron = microm,
mm = m/1000,
km = 1000*m,
Mm = 1000000*m,
Gm = 1000000000*m,
+ fg = g/10^15,
+ pg = g/10^12,
+ ng = g/10^9,
+ microg = g/10^6,
mg = kg/1000000,
g = kg/1000,
Mg = 1000*kg,
Gg = 1000000*kg,
+ fs = s/10^15,
+ ps = s/10^12,
+ ns = s/10^9,
+ micros = s/10^6,
ms = s/1000,
ks = 1000*s,
Ms = 1000000*s,
Gs = 1000000000*s,
+ fA = A/10^15,
+ pA = A/10^12,
+ nA = A/10^9,
+ microA = A/10^6,
mA = A/1000,
ampere = A,
amp = A,
@@ -56,53 +73,90 @@ declare_unit_conversion
MA = 1000000*A,
GA = 1000000000*A,
+ fK = K/10^15,
+ pK = K/10^12,
+ nK = K/10^9,
+ microK = K/10^6,
mK = K/1000,
kelvin = K,
kK = 1000*K,
MK = 1000000*K,
GK = 1000000000*K,
+ fmol = mol/10^15,
+ pmol = mol/10^12,
+ nmol = mol/10^9,
+ microm = mol/10^6,
mmol = mol/1000,
mole = mol,
kmol = 1000*mol,
Gmol = 1000000*mol,
Mmol = 1000000000*mol,
+ fHz = Hz/10^15,
+ pHz = Hz/10^12,
+ nHz = Hz/10^9,
+ microHz = Hz/10^6,
mHz = Hz/1000,
kHz = 1000*Hz,
MHz = 1000000*Hz,
GHz = 1000000000*Hz,
+ fN = N/10^15,
+ pN = N/10^12,
+ nN = N/10^9,
+ microN = N/10^6,
mN = N/1000,
kN = 1000*N,
MN = 1000000*N,
GN = 1000000000*N,
+ fPa = Pa/10^15,
+ pPa = Pa/10^12,
+ nPa = Pa/10^9,
+ microPa = Pa/10^6,
mPa = Pa/1000,
kPa = 1000*Pa,
MPa = 1000000*Pa,
GPa = 1000000000*Pa,
+ fJ = J/10^15,
+ pJ = J/10^12,
+ nJ = J/10^9,
+ microJ = J/10^6,
mJ = J/1000,
kJ = 1000*J,
MJ = 1000000*J,
GJ = 1000000000*J,
+ fW = W/10^15,
+ pW = W/10^12,
+ nW = W/10^9,
+ microW = W/10^6,
mW = W/1000,
kW = 1000*W,
MW = 1000000*W,
GW = 1000000000*W,
+ fC = C/10^15,
+ pC = C/10^12,
+ nC = C/10^9,
+ microC = C/10^6,
mC = C/1000,
kC = 1000*C,
MC = 1000000*C,
GC = 1000000000*C,
+ fV = V/10^15,
+ pV = V/10^12,
+ nV = V/10^9,
+ microV = V/10^6,
mV = V/1000,
kV = 1000*V,
MV = 1000000*V,
GV = 1000000000*V,
+ fF = F/10^15,
pF = F/10^12,
nF = F/10^9,
microF = F/10^6,
@@ -111,26 +165,46 @@ declare_unit_conversion
MF = 1000000*F,
GF = 1000000000*F,
+ fOhm = Ohm/10^15,
+ pOhm = Ohm/10^12,
+ nOhm = Ohm/10^9,
+ microOhm = Ohm/10^6,
mOhm = Ohm/1000,
kOhm = 1000*Ohm,
MOhm = 1000000*Ohm,
GOhm = 1000000000*Ohm,
+ fS = S/10^15,
+ pS = S/10^12,
+ nS = S/10^9,
+ microS = S/10^6,
mS = S/1000,
kS = 1000*S,
MS = 1000000*S,
GS = 1000000000*S,
+ fWb = Wb/10^15,
+ pWb = Wb/10^12,
+ nWb = Wb/10^9,
+ microWb = Wb/10^6,
mWb = Wb/1000,
kWb = 1000*Wb,
MWb = 1000000*Wb,
GWb = 1000000000*Wb,
+ fT = T/10^15,
+ pT = T/10^12,
+ nT = T/10^9,
+ microT = T/10^6,
mT = T/1000,
kT = 1000*T,
MT = 1000000*T,
GT = 1000000000*T,
+ fH = H/10^15,
+ pH = H/10^12,
+ nH = H/10^9,
+ microH = H/10^6,
mH = H/1000,
kH = 1000*H,
MH = 1000000*H,
@@ -157,7 +231,6 @@ declare_unit_conversion
kilogram = kg,
gram = g,
- ns = s/1000000000,
microsecond = s/1000000,
second = s,
commit 40cbaecd19b4965adfc8e3eb15f2eea243e1feea
Author: Robert Dodier <rob...@us...>
Date: Tue Mar 24 13:15:09 2015 -0700
Declare kron_delta scalar.
diff --git a/src/nset.lisp b/src/nset.lisp
index edd786a..4fd882f 100644
--- a/src/nset.lisp
+++ b/src/nset.lisp
@@ -872,6 +872,7 @@
(defun $kron_delta (&rest x) (simplifya `((%kron_delta) ,@x) t))
(setf (get '%kron_delta 'real-valued) t) ;; conjugate(kron_delta(xxx)) --> kron_delta(xxx)
(setf (get '%kron_delta 'integer-valued) t) ;; featurep(kron_delta(xxx), integer) --> true
+(mputprop '%kron_delta t '$scalar) ;; same effect as declare(kron_delta, scalar)
(putprop '%kron_delta #'(lambda (yy) (declare (ignore yy)) (setq sign '$pz)) 'sign-function)
diff --git a/tests/rtestnset.mac b/tests/rtestnset.mac
index b570ba7..67b9c1a 100644
--- a/tests/rtestnset.mac
+++ b/tests/rtestnset.mac
@@ -1802,4 +1802,20 @@ full_listify(rat(3/4));
/* is union nary? */
xreduce('union,[]);
-set()$
\ No newline at end of file
+set()$
+
+/* kron_delta is scalar */
+
+featurep (kron_delta, scalar);
+true;
+
+(kill (a, b), declare ([a, b], nonscalar), 0);
+0;
+
+(a * kron_delta (i, j)) . b, dotscrules=true;
+(a . b)*'kron_delta (i, j);
+
+/* verify that scalar declaration is really needed */
+(a * kran_dalta (i, j)) . b, dotscrules=true;
+(a * kran_dalta (i, j)) . b;
+
commit 5d99e9450ba3cb8bb3945034bf7343db8a71e3ee
Author: Robert Dodier <rob...@us...>
Date: Tue Mar 24 11:00:04 2015 -0700
Add kovacicODE.texi to list of share files.
diff --git a/src/sharefiles.mk b/src/sharefiles.mk
index 1f70172..1e25750 100644
--- a/src/sharefiles.mk
+++ b/src/sharefiles.mk
@@ -390,6 +390,7 @@ contrib/maximaMathML/mathml.readme \
contrib/maximaMathML/maximaMathML.lisp \
contrib/maximaMathML/PrMathML.lisp \
contrib/maxima-odesolve/kovacicODE.mac \
+contrib/maxima-odesolve/kovacicODE.texi \
contrib/maxima-odesolve/README \
contrib/maxima-server.lisp \
contrib/mcclim/formula.lisp \
-----------------------------------------------------------------------
Summary of changes:
share/ezunits/ezunits_db.mac | 75 +++++++++++++++++++++++++++++++++++++++++-
src/nset.lisp | 1 +
src/sharefiles.mk | 1 +
tests/rtestint.mac | 48 +++++++++++++++++++++++++++
tests/rtestnset.mac | 18 +++++++++-
5 files changed, 141 insertions(+), 2 deletions(-)
hooks/post-receive
--
Maxima CAS
|