[Aimmath-commit] AIM/WEB-INF/maple/aim Inert.mpl,1.3,1.4

[<mo...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv19743

Modified Files:
	Inert.mpl 
Log Message:
fixed minor bugs and name conflicts with Rand

Index: Inert.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/Inert.mpl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Inert.mpl	3 Sep 2003 14:55:53 -0000	1.3
--- Inert.mpl	8 Sep 2003 03:44:13 -0000	1.4
***************
*** 740,745 ****
                     s:=""; 
                     for i to nargs do
!                      if not (args[i]=1 or (args[i]="1")) 
!                         then
                          if i=1 and nargs>1 and args[1]=-1 then
                             s:="-";
--- 740,744 ----
                     s:=""; 
                     for i to nargs do
!                      if not (args[i]=1 or (args[i]="1"))                      then
                          if i=1 and nargs>1 and args[1]=-1 then
                             s:="-";
***************
*** 809,813 ****
   `Package/Assign`(
   `Inert/Div`::Inert,
!  "The Inert / function. This is the same as Over, except that it preforms some simplification, such as $x/1 = x$.",
   `new/Inert`(`/`,            # Map
                proc(n,d)      # TeX
--- 808,812 ----
   `Package/Assign`(
   `Inert/Div`::Inert,
!  "The Inert / function. This is the same as Over, except that it performs some simplification, such as $x/1 = x$.",
   `new/Inert`(`/`,            # Map
                proc(n,d)      # TeX
***************
*** 1043,1047 ****
  
   `Package/Assign`(
!  `Inert/Set`::Inert,
   "The Inert Set function (represents a SET object).",
   `new/Inert`(`new/SET`,   # Map
--- 1042,1046 ----
  
   `Package/Assign`(
!  `Inert/SET`::Inert,
   "The Inert Set function (represents a SET object).",
   `new/Inert`(`new/SET`,   # Map
***************
*** 1049,1055 ****
                  cat("\\left\\{",TeX(args),"\\right\\}");
                end, 
!               0,          # Nargs
                'anything', # Domain
!               "Set",      # Name
                false,      # Needs parentheses
                true)       # Provides parentheses
--- 1048,1054 ----
                  cat("\\left\\{",TeX(args),"\\right\\}");
                end, 
!               -1,          # Nargs
                'anything', # Domain
!               "SET",      # Name
                false,      # Needs parentheses
                true)       # Provides parentheses
***************
*** 1057,1063 ****
   
   `Package/Assign`(
!   Set::procedure,
    "",
!   proc() Apply(`Inert/Set`,args) end
    ):
  ###################################################################
--- 1056,1062 ----
   
   `Package/Assign`(
!   SET::procedure,
    "",
!   proc() Apply(`Inert/SET`,args) end
    ):
  ###################################################################
***************
*** 1267,1298 ****
    "",
    proc() Apply(`Inert/DiffPrime`,args) end
-   ):
- ###################################################################
-  `Package/Assign`(
-  `Inert/DefInt`::Inert,
-  "The Inert Definite Integral of a function on an interval.",
-  `new/Inert`( proc()              # Map
-                 int(args[1],args[2]=args[3]..args[4]);
-               end, 
-               "\\int_{%3}^{%4}{%1}\\,d%2",  # TeX
-               4,                  # Nargs
-               proc()              # Domain
-                  evalb(nargs=2 and 
-                        type(args[1],algebraic) and 
-                        type(args[2],symbol) and
-                        type(args[3],algebraic) and 
-                        type(args[4],algebraic))
-               end,      
-               "DefiniteIntegral", # Name
-               false,              # Needs parentheses
-               true,               # Provides parentheses
-               false,              # Associative 
-               0)                  # Precedence
-   ):
- 
-  `Package/Assign`(
-   DefInt::procedure,
-   "",
-   proc() Apply(`Inert/DefInt`,args) end
    ):
  
--- 1266,1269 ----