version 1.5, 2003/08/18 11:28:15 |
version 1.6, 2003/08/18 11:59:57 |
|
|
%% appell.sm1, 1998, 11/8 |
%% appell.sm1, 1998, 11/8 |
% $OpenXM: OpenXM/src/kan96xx/Doc/appell.sm1,v 1.4 2003/08/18 06:36:49 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Doc/appell.sm1,v 1.5 2003/08/18 11:28:15 takayama Exp $ |
/appell.version (2.981108) def |
/appell.version (2.981108) def |
appell.version [(Version)] system_variable gt |
appell.version [(Version)] system_variable gt |
{ (This package requires the latest version of kan/sm1) message |
{ (This package requires the latest version of kan/sm1) message |
Line 171 $appell.sm1 generates Appell hypergeometric differenti |
|
Line 171 $appell.sm1 generates Appell hypergeometric differenti |
|
[(CurrentRingp) (KanGBmessage)] pushEnv %% push current global environment. |
[(CurrentRingp) (KanGBmessage)] pushEnv %% push current global environment. |
[ |
[ |
/aa arg1 def |
/aa arg1 def |
aa isArray { } { (array appell) message (appell4) usage error } ifelse |
aa isArray { } { (array appell) message (appell4r) usage error } ifelse |
/setarg 0 def |
/setarg 0 def |
aa { tag } map /typev set |
aa { tag } map /typev set |
/rr 0 def |
/rr 0 def |
Line 189 $appell.sm1 generates Appell hypergeometric differenti |
|
Line 189 $appell.sm1 generates Appell hypergeometric differenti |
|
/b appell.b def |
/b appell.b def |
/setarg 1 def |
/setarg 1 def |
} { } ifelse |
} { } ifelse |
setarg { } { (Argument mismatch) message (appell4) usage error } ifelse |
setarg { } { (Argument mismatch) message (appell4r) usage error } ifelse |
|
|
[(KanGBmessage) appell.verbose] system_variable |
[(KanGBmessage) appell.verbose] system_variable |
|
|
Line 351 $appell.sm1 generates Appell hypergeometric differenti |
|
Line 351 $appell.sm1 generates Appell hypergeometric differenti |
|
[(CurrentRingp) (KanGBmessage)] pushEnv %% push current global environment. |
[(CurrentRingp) (KanGBmessage)] pushEnv %% push current global environment. |
[ |
[ |
/aa arg1 def |
/aa arg1 def |
aa isArray { } { (array appell) message (appell2) usage error } ifelse |
aa isArray { } { (array appell) message (appell2r) usage error } ifelse |
/setarg 0 def |
/setarg 0 def |
aa { tag } map /typev set |
aa { tag } map /typev set |
/r 0 def |
/r 0 def |
Line 369 $appell.sm1 generates Appell hypergeometric differenti |
|
Line 369 $appell.sm1 generates Appell hypergeometric differenti |
|
/b [1 [2 3] [4 5]] def |
/b [1 [2 3] [4 5]] def |
/setarg 1 def |
/setarg 1 def |
} { } ifelse |
} { } ifelse |
setarg { } { (Argument mismatch) message (appell2) usage error } ifelse |
setarg { } { (Argument mismatch) message (appell2r) usage error } ifelse |
|
|
[(KanGBmessage) appell.verbose] system_variable |
[(KanGBmessage) appell.verbose] system_variable |
|
|