File: vector.dmo

package info (click to toggle)
maxima 5.6-17
  • links: PTS
  • area: main
  • in suites: woody
  • size: 30,572 kB
  • ctags: 47,715
  • sloc: ansic: 154,079; lisp: 147,553; asm: 45,843; tcl: 16,744; sh: 11,057; makefile: 7,198; perl: 1,842; sed: 334; fortran: 24; awk: 5
file content (11 lines) | stat: -rw-r--r-- 435 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11

/* *****  This DEMO appears to be broken.  Please use the VECT 
package on the SHARE directory. - JPG 6/5/78  ***** */

/* First, we establish p, q, f, and g as vector entities: */
DECLARE([p, q, f, g], NONSCALAR);
/* To attempt to prove the following vector identity: */
p cross q dotdel f cross g + q cross f dotdel p cross g +
	f cross p dotdel q cross g = 0;
/* Now determine the expansion of: */
laplacian %PI*(s+h) = div 3*s*p;