File: asymp.dm3

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 (15 lines) | stat: -rw-r--r-- 601 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
writefile(dsk,adk)$
delay:read("Please enter delay time in form [hours,minutes]");
delay_secs:first(delay)*3600+second(delay)*60;
loadfile(asymp,fasl,dsk,adk)$
showtime:true$
graph11:diagram(line(a,b,1,mu),line(b,c,2,mu),line(c,d,3,mu),line(d,e,4,mu),
    line(e,f,5,mu),line(f,i,14,mu),line(i,a,6,mu),line(b,g,7,mu),line(c,g,8,mm),
    line(e,h,9,mu),line(h,f,10,mm),line(g,h,11,mm),extline(a,12,-p),extline(d,13,p-q),
    extline(i,15,q))$
ttyoff:true$
?sleep(delay_secs);
bound_finite_region_only(graph11,[[mu,p],mm,inf]);
closefile(asymp,demou3);
mail(adk,"Demo3 completed execution.")$
logout();