File: test1.mac

package info (click to toggle)
maxima 5.9.1-9
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 32,272 kB
  • ctags: 14,123
  • sloc: lisp: 145,126; fortran: 14,031; tcl: 10,052; sh: 3,313; perl: 1,766; makefile: 1,748; ansic: 471; awk: 7
file content (11 lines) | stat: -rw-r--r-- 296 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
(IF GET('CTENSR,'VERSION) = FALSE THEN LOAD(CTENSR),DONE)$
(SETFLAGS(),RATFAC:TRUE,DIM:4,OMEGA:[X,Y,Z,T],
 LG:
 MATRIX([1/(1-2*M/X),0,0,0],[0,X^2,0,0],[0,0,X^2*SIN(Y)^2,0],[0,0,0,2*M/X-1]))$
METRIC()$
CHRISTOF(MCS)$
RICCICOM(TRUE)$
SCURVATURE();
RIEMANN(TRUE)$
RAISERIEMANN(FALSE)$
RINVARIANT();