← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to share/misc/arrfun.mac

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
Import upstream version 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/misc/arrfun.mac
15
15
             THEN LOADFILE(MACRO1,FASL,DSK,SHARE),
16
16
          IF GET('SUBMAC,'VERSION) = FALSE
17
17
             THEN LOADFILE(SUBMAC,FASL,DSK,SHARE2))$ */
18
 
load("[sharem]defm.mc")$
 
18
load("defm.mac")$
19
19
 
20
20
/* commented out of DOE MACSYMA
21
21
EVAL_WHEN(TRANSLATE,PACKAGEFILE:TRUE,SAVEDEF:FALSE,TRANSCOMPILE:TRUE)$ */
22
22
 
23
 
DEFAR('NAME,'ARGL,'BODY)=>
24
 
 (NAME(SPLICE(ARGL)):=
25
 
  BLOCK([%_VAL:BLOCK([?EVARRP:TRUE],DECLARE(?EVARRP,SPECIAL),NAME[SPLICE(ARGL)])],
26
 
        IF %_VAL='?NOTEXIST THEN 
27
 
           (%_VAL:BODY,NAME[SPLICE(ARGL)]:%_VAL,%_VAL)
28
 
         ELSE %_VAL),
 
23
defar('name,'argl,'body)=>
 
24
 (name(splice(argl)):=
 
25
  block([%_val:block([?evarrp:true],declare(?evarrp,special),name[splice(argl)])],
 
26
        if %_val='?notexist then 
 
27
           (%_val:body,name[splice(argl)]:%_val,%_val)
 
28
         else %_val),
29
29
 /* kludge to init the array, (as a hashed array). */
30
 
   NAME[SPLICE(ARGL)]:'?NOTEXIST,
31
 
   NAME:'NAME);
32
 
 
33
 
EVAL_WHEN(DEMO,
34
 
 
35
 
DEFAR(LEGEND,[N],((2*N-1)*'X*LEGEND(N-1)-(N-1)*LEGEND(N-2))/N),
36
 
 
37
 
(LEGEND[0]:RAT(1), LEGEND[1]:RAT('X)));
38
 
 
39
 
EVAL_WHEN(DEMO,LEGEND(5));
 
30
   name[splice(argl)]:'?notexist,
 
31
   name:'name);
 
32
 
 
33
eval_when(demo,
 
34
 
 
35
defar(legend,[n],((2*n-1)*'x*legend(n-1)-(n-1)*legend(n-2))/n),
 
36
 
 
37
(legend[0]:rat(1), legend[1]:rat('x)));
 
38
 
 
39
eval_when(demo,legend(5));