File: sum1.mac

package info (click to toggle)
maxima 5.49.0-1~exp1
  • links: PTS, VCS
  • area: main
  • in suites:
  • size: 128,980 kB
  • sloc: lisp: 437,854; fortran: 14,665; tcl: 10,143; sh: 4,598; makefile: 2,204; ansic: 447; java: 374; python: 262; perl: 201; xml: 60; awk: 28; sed: 15; javascript: 2
file content (9 lines) | stat: -rw-r--r-- 229 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
 
/*-*-macsyma-*-*/

eval_when([translate,batch,demo],
	  load_package(sharem,"autolo"))$

/* a sum convenient for the expression of certain formuli by CMA */

defm(sum1('exp,'var,a,b),
     if a > b then 0 else sum(exp,var,a,b))$