File: asymp.dm1

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 (24 lines) | stat: -rw-r--r-- 711 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
/*-*-Macsyma-*-*/

load_package(asymp,"adk\;asymp fasl")$

showtime:true$

graph7:diagram(line(a,b,l1,m),line(b,c,l2,m),line(c,d,l3,m),
	line(d,a,l4,m),line(b,e,l5,m),line(e,d,l6,m),extline(a,el1,p),
	extline(c,el2,-p+q),extline(e,el3,-q))$

bound(graph7,[[m,q],p,inf]);

graph8:diagram(line(a,b,l1,m),line(b,c,l2,m),line(c,d,l3,m),
	line(d,a,l4,m),line(b,e,l5,m),line (e,f,l6,m),line(f,d,l7,m),
	extline(a,el1,p),extline(c,el2,-p+q+r),extline(e,el3,-q),
	extline(f,el4,-r))$

bound(graph8,[[m,q],p,inf]);

graph9:diagram(line(a,b,l1,mm),line(b,c,l2,mu),line(c,d,l3,m),
	line(d,a,l4,m),line(b,e,l5,m),line(e,d,l6,m),extline(a,el1,p),
	extline(c,el2,-p+q),extline(e,el3,-q))$

bound(graph9,[[m,q,p],mu,mm,inf]);