archive/share/unknown/asymp.dmo

   1 /* This file demonstrates the facilities of the ASYMP package. */
   2 /* Some of this DEMO can take quite a long time, so you may prefer
   3         to look at the DEMOUT file which contains the output from
   4         an extended version of this DEMO. */
   5 showtime:true$
   6 load('asymp);
   7
   8 graph1:diagram(line(a,b,1,m),line(b,c,2,m),line(c,a,3,mm),extline(a,4,p),
   9         extline(b,5,q),extline(c,6,-p-q))$
  10 bound(graph1,[[m,p,q],mm,inf]);
  11 graph2:diagram(line(a,b,2,m),line(b,c,3,m),line(c,d,5,m),line(d,a,4,m),
  12         line(b,d,6,m),extline(a,1,p),extline(c,7,-p))$
  13 bound(graph2,[m,p,inf]);
  14 graph3:diagram(line(a,b,1,m),line(b,c,2,m),line(c,d,3,m),line(d,e,4,m),
  15         line(e,f,5,m),line(f,a,6,m),line(b,e,7,m),line(f,c,8,m),
  16         extline(a,9,p),extline(d,10,-p))$
  17 bound(graph3,[m,p,inf]);
  18