archive/share/unknown/asymp.dmt

   1 (C1) loadfile(asymp,fasl,dsk,adk)$
   2 ASYMP: version of 11:54pm  Saturday, 4 July 1981
   3
   4 (C2) demo(asymp,demo,dsk,adk)$
   5
   6 (C3) /* This file demonstrates the facilities of the ASYMP package. */
   7 showtime:true$
   8 Time= 2 msec.
   9
  10 (C4) graph1:diagram(line(a,b,1,m),line(b,c,2,m),line(c,a,3,mm),extline(a,4,p),
  11         extline(b,5,q),extline(c,6,-p-q))$
  12 1 Loop Diagram
  13 Time= 400 msec.
  14
  15 (C5) bound(graph1,[[m,p,q],mm,inf]);
  16 Time= 978 msec.
  17                                        MM
  18                                    LOG(--)
  19                                        M
  20 (D5)                               -------
  21                                        2
  22                                      MM
  23
  24 (C6) graph2:diagram(line(a,b,2,m),line(b,c,3,m),line(c,d,5,m),line(d,a,4,m),
  25         line(b,d,6,m),extline(a,1,p),extline(c,7,-p))$
  26 2 Loop Diagram
  27 Time= 902 msec.
  28
  29 (C7) bound(graph2,[m,p,inf]);
  30 Time= 15881 msec.
  31                                      1
  32 (D7)                                 --
  33                                       2
  34                                      P
  35
  36 (C8)  graph3:diagram(line(a,b,1,m),line(b,c,2,m),line(c,d,3,m),line(d,e,4,m),
  37         line(e,f,5,m),line(f,a,6,m),line(b,e,7,m),line(f,c,8,m),
  38         extline(a,9,p),extline(d,10,-p))$
  39 3 loop diagram
  40 Time= 1245 msec.
  41
  42 (C9) bound(graph3,[m,p,inf]);
  43 Time= 394113 msec.
  44                                      1
  45 (D9)                                 --
  46                                       4
  47                                      P
  48
  49 (C10) graph4:diagram(line(a,b,1,m),line(b,c,2,m),line(c,d,3,m),line(d,f,4,m),
  50         line(f,e,5,m),line(e,a,6,m),line(b,e,7,m),line(f,c,8,m),
  51         extline(a,9,p),extline(d,10,-p))$
  52 Time= 1224 msec.
  53
  54 (C11) bound(graph4,[m,p,inf]);
  55 Time= 271851 msec.
  56
  57                                      1
  58 (D11)                                --
  59                                       4
  60                                      P
  61
  62 (C12) graph5:diagram(line(a,b,1,m),line(b,c,2,m),line(c,d,3,m),line(d,f,4,m),
  63         line(f,e,5,m),line(e,a,6,m),line(b,e,7,mm),line(f,c,8,mm),
  64         extline(a,9,p),extline(d,10,-p))$
  65 Time= 728 msec.
  66
  67 (C13) bound(graph5,[[m,p],mm,inf]);
  68 Time= 263364 msec.
  69
  70                                      3 MM
  71                                   LOG (--)
  72                                        M
  73 (D13)                             --------
  74                                       4
  75                                     MM
  76
  77 (C14) graph6:diagram(line(a,b,1,m),line(b,c,2,m),line(c,d,3,m),line(d,e,4,m),
  78         line(e,f,5,m),line(f,a,6,m),line(b,e,7,mm),line(f,c,8,mm),
  79         extline(a,9,p),extline(d,10,-p))$
  80 Time= 1357 msec.
  81
  82 (C15) bound(graph6,[[p,m],mm,inf]);
  83 Time= 401423 msec.
  84
  85                                      3 MM
  86                                   LOG (--)
  87                                        P
  88 (D15)                             --------
  89                                       4
  90                                     MM
  91