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 ----
|
