File: brans.bmb

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 (19 lines) | stat: -rw-r--r-- 351 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
LOADFILE(ANEW,BDVAC);
KILL(P);
DEPENDENCIES(P(T));
TEMPORALSOL;
EV(STEMPORAL,TEMPORALSOL,DIFF,RATSIMP)$
H1:MAP(NUM,%)$
MAP(NTERMS,%);
EV(PART(H1,4),FACTOR);
SOLVE(%,DIFF(P,T,2))$
H2:''%;
DIFF(H2,T,1)$
H3:EV(%,H2)$
H4:EV(H1,H2,H3,RATSIMP)$
H4:MAP(NUM,H4)$
H4:FACTOR(%);
SOLVE(PART(%,2),DIFF(P,T,1));
TEMPSOL:''%;
KILL(H1,H2,H3);
SAVE([A],H4,TEMPSOL);.