[BACK]Return to appell.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/appell.sm1 between version 1.5 and 1.6

version 1.5, 2003/08/18 11:28:15 version 1.6, 2003/08/18 11:59:57
Line 1 
Line 1 
 %% 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
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>