{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 3 1}{FONT 0 "-adobe-helve
tica-bold-r-normal--*-140-*" "helvetica" "Helvetica-Bold" 8 14 0 
"Helvetica-Bold" 12}{FONT 1 "-adobe-times-medium-r-normal--*-140-
*" "times" "Times-Roman" 4 14 64 "Times-Roman" 12}{FONT 2 "-adobe
-courier-medium-r-normal--*-140-*" "courier" "Courier" 4 14 192 "
Courier" 12}{SCP_R 1 0 194{INP_R 2 0 "> "{TEXT 0 0 ""}}{INP_R 3 0
 "> "{TEXT 0 29 "# INPUT and OUTPUT with Maple"}}{INP_R 4 0 "> "
{TEXT 0 0 ""}}{INP_R 5 0 "> "{TEXT 0 70 "# for debugging a Maple \+
program --set the printlevel to a higher value"}}{INP_R 6 0 "> "
{TEXT 0 10 "?integrate"}}{SEP_R 7 0}{INP_R 8 0 "> "{TEXT 0 19 "in
t( (ln(x))^3, x);"}}{OUT_R 9 0 8{DAG +9*5(3n3\`ln`,2n3\`x`j2x0003
p6j2x0001pB*5p6pBp2j2x0002i2x0003*5p6pBp2pBj2x0006p6i2x0006}}
{SEP_R 10 0}{INP_R 11 0 "> "{TEXT 0 15 "printlevel:= 5;"}}{OUT_R 
12 0 11{DAG :3n5\`printlevel`j2x0005}}{SEP_R 13 0}{INP_R 14 0 "> \+
"{TEXT 0 19 "int( (ln(x))^3, x);"}}{OUT_R 15 0 14{TEXT 2 34 "\{--
> enter int, args = ln(x)^3, x\012"}}{OUT_R 16 0 14{DAG :3n5\`_En
vsignum0`p1}}{OUT_R 17 0 14{DAG :3n4\`surds`n4\`false`}}{OUT_R 18
 0 14{DAG :3n3\`g`*3(3n3\`ln`,2n3\`_X`j2x0003}}{OUT_R 19 0 14{DAG
 :3n3\`r`+9*5(3n3\`ln`,2n3\`_X`j2x0003p9j2x0001pE*5p9pEp5j2x0002i
2x0003*5p9pEp5pEj2x0006p9i2x0006}}{OUT_R 20 0 14{DAG :3n4\`fcns`%
2,2(3n3\`ln`,2n3\`_X`}}{OUT_R 21 0 14{DAG :3n4\`expargs`%2,1}}
{OUT_R 22 0 14{DAG :3n4\`Eiargs`%2,1}}{OUT_R 23 0 14{DAG :3n3\`r`
+9*5(3n3\`ln`,2n3\`x`j2x0003p9j2x0001pE*5p9pEp5j2x0002i2x0003*5p9
pEp5pEj2x0006p9i2x0006}}{OUT_R 24 0 14{TEXT 2 71 "<-- exit int (n
ow at top level) = ln(x)^3*x-3*x*ln(x)^2+6*x*ln(x)-6*x\}\012"}}
{OUT_R 25 0 14{DAG +9*5(3n3\`ln`,2n3\`x`j2x0003p6j2x0001pB*5p6pBp
2j2x0002i2x0003*5p6pBp2pBj2x0006p6i2x0006}}{SEP_R 26 0}{INP_R 27 
0 "> "{TEXT 0 99 "# it gives you info about parameters, local var
iables, precise statement if a run-time error occurs"}}{INP_R 28 
0 "> "{TEXT 0 0 ""}}{INP_R 29 0 "> "{TEXT 0 14 "printlevel:=1;"}}
{OUT_R 30 0 29{DAG :3n5\`printlevel`j2x0001}}{SEP_R 31 0}{INP_R 
32 0 "> "{TEXT 0 33 "interface( prettyprint = false );"}}{INP_R 
33 0 "> "{TEXT 0 14 "(1-x) / (1+x);"}}{OUT_R 34 0 33{DAG *5+5j2x0
001p2n3\`x`i2x0001p2+5p2p2p5p2p7}{TEXT 2 12 "(1-x)/(1+x)\012"}}
{INP_R 35 0 "> "{TEXT 0 59 "# the output is left-adjusted and in \+
one-dimensional format"}}{INP_R 36 0 "> "{TEXT 0 31 "interface( p
rettyprint = true);"}}{SEP_R 37 0}{INP_R 38 0 "> "{TEXT 0 14 "(1-
x) / (1+x);"}}{OUT_R 39 0 38{DAG *5+5j2x0001p2n3\`x`i2x0001p2+5p2
p2p5p2p7}{TEXT 2 130 "\012                                     1 \+
- x\012                                     -----\012            \+
                         1 + x\012"}}{SEP_R 40 0}{INP_R 41 0 "> "
{TEXT 0 0 ""}}{SEP_R 42 0}{INP_R 43 0 "> "{TEXT 0 30 "interface( \+
prettyprint = 100);"}}{SEP_R 44 0}{INP_R 45 0 "> "{TEXT 0 14 "(1-
x) / (1+x);"}}{OUT_R 46 0 45{DAG *5+5j2x0001p2n3\`x`i2x0001p2+5p2
p2p5p2p7}}{SEP_R 47 0}{INP_R 48 0 "> "{TEXT 0 118 "eqn:= x^3 -5*a
*x^2 =1;  sols:=solve(eqn, x);  interface(labeling = false);   so
lve(eqn, x);  interface(labeling=true);"}}{OUT_R 49 0 48{DAG :3n3
\`eqn`=3+5*3n3\`x`j2x0003j2x0001*5n3\`a`pAp6j2x0002i2x0005pA}}
{OUT_R 50 0 48{DAG :3n4\`sols`,4+7*3+7/3j2x0001j2x0002p9*3n3\`a`j
2x0003/3j2x0125j2x0027*3+5j2x0081p9pEj2x1500p8/3p9j2x0018/3p9p11p
9*5pFpBp7/3i2x0001p11/3j2x0025j2x0009pF/3j2x0005p11+9p6/3p2EpBp29
/3i2x0025p23pFp37*7n3\`I`p9p11p8+5p6p9p29/3p42p34p9p8+9p6p3Dp29p4
1pFp37p47p3D}}{OUT_R 51 0 48{DAG ,4+7*3+7/3j2x0001j2x0002p5*3n3\`
a`j2x0003/3j2x0125j2x0027*3+5j2x0081p5pAj2x1500p4/3p5j2x0018/3p5p
Dp5*5pBp7p3/3i2x0001pD/3j2x0025j2x0009pB/3j2x0005pD+9p2/3p2Ap7p25
/3i2x0025p1FpBp33*7n3\`I`p5pDp4+5p2p5p25/3p3Ep30p5p4+9p2p39p25p3D
pBp33p43p39}}{INP_R 52 0 "> "{TEXT 0 27 "# Maple Library (4 modul
es)"}}{INP_R 53 0 "> "{TEXT 0 67 " # standard lib --- the request
ed procedure is loaded automatically"}}{INP_R 54 0 "> "{TEXT 0 
100 " # miscellaneous lib --- functions must be explicitly loaded
 from the external mem to main (readlib)"}}{INP_R 55 0 "> "{TEXT 
0 9 "?randpoly"}}{SEP_R 56 0}{INP_R 57 0 "> "{TEXT 0 85 " # many \+
lib functions are readlib defined :::  gcd:= 'readlib('gcd')' or \+
randpoly(x);"}}{INP_R 58 0 "> "{TEXT 0 12 "randpoly(x);"}}{OUT_R 
59 0 58{DAG +D*3n3\`x`j2x0005i2x0085*3p2j2x0004i2x0055*3p2j2x0003
i2x0037*3p2j2x0002i2x0035p2j2x0097j2x0050j2x0001}}{SEP_R 60 0}
{INP_R 61 0 "> "{TEXT 0 21 "residue(exp(x), x=1);"}}{OUT_R 62 0 
61{DAG (3n4\`residue`,3(3n3\`exp`,2n3\`x`=3p9j2x0001}}{SEP_R 63 0
}{INP_R 64 0 "> "{TEXT 0 17 "readlib(residue);"}}{OUT_R 65 0 64
{DAG @8,3n3\`f`n3\`a`,5n3\`g`n3\`i`n3\`t`n3\`x`,3n5\`remember`nD\
`Copyright~`1993~`by~`Waterloo~`Maple~`Software`,1;6?3|3|3>3a2x00
00j2x0002!2(3n4\`type`,3a2x0002n5\`equation`!2(3p2C,3(3n3\`op`,3j
2x0001p30n4\`name`(3n4\`ERROR`,2n7\`invalid~`arguments`:3l2x0004p
3A?8(3n3\`has`,3(3p3B,3p28p30p50(3p45,2n6\`invalid~`point`=3p58n5
\`infinity`:3l2x0001(3n4\`subs`,3=3p50*3p50i2x0001a2x0001=3p58+3p
68p78:3p6D(3p70,3=3p50+3p76p78p7A:3p6D(3n4\`normal`,2(3p70,3=3p50
+5p50p3Ep58p3Ep7Af7l2x0002j2x0000p3Ej2x0005n4\`true`;6:3l2x0003(3
n5\`traperror`,2(3n4\`series`,4p6Dp50+5*3p9Fp28p3Ep28p3E?3=3pABpA
1(3n4\`RETURN`,2pA1?3|3=3pABn5\`lasterror`!2(3p2C,3pABpB4n4\`brea
k`(3n4\`order`,2pAB?3|3=3n3\`"`p68<3p78pE5(3pC6,2(3n4\`coeff`,4pA
Bp50p78u2(3n4\`residue`,2a2x-001p20p20}{TEXT 2 19 "\012proc(f,a) \+
... end\012"}}{SEP_R 66 0}{INP_R 67 0 "> "{TEXT 0 64 "# the algeb
raic residue of expr. f for the var x around point x."}}{INP_R 68
 0 "> "{TEXT 0 79 "# it is defined as the coeff of (x-a)^(-1) in \+
the Laurent series expansion of f"}}{INP_R 69 0 "> "{TEXT 0 0 ""}
}{INP_R 70 0 "> "{TEXT 0 21 "residue(exp(x), x=1);"}}{OUT_R 71 0 
70{DAG j2x0000}}{SEP_R 72 0}{INP_R 73 0 "> "{TEXT 0 28 "# package
s -- with(package);"}}{INP_R 74 0 "> "{TEXT 0 21 "draw(random(10,
 20));"}}{OUT_R 75 0 74{DAG (3n4\`draw`,2(3n4\`random`,3j2x0010j2
x0020}}{SEP_R 76 0}{INP_R 77 0 "> "{TEXT 0 15 "with(networks);"}}
{OUT_R 78 0 77{DAG [2,4Cn5\`acycpoly`n4\`addedge`n5\`addvertex`n5
\`adjacency`n5\`allpairs`n5\`ancestor`n5\`arrivals`n6\`bicomponen
ts`n5\`charpoly`n5\`chrompoly`n5\`complement`n5\`complete`n5\`com
ponents`n4\`connect`n6\`connectivity`n5\`contract`n5\`countcuts`n
5\`counttrees`n4\`cube`n4\`cycle`n5\`cyclebase`n5\`daughter`n5\`d
egreeseq`n4\`delete`n5\`departures`n5\`diameter`n4\`dinic`n5\`djs
pantree`n6\`dodecahedron`n4\`draw`n5\`duplicate`n4\`edges`n4\`end
s`n4\`eweight`n4\`flow`n5\`flowpoly`n4\`fundcyc`n5\`getlabel`n4\`
girth`n4\`graph`n5\`graphical`n4\`gsimp`n4\`gunion`n4\`head`n5\`i
cosahedron`n5\`incidence`n5\`incident`n5\`indegree`n4\`induce`n5\
`isplanar`n5\`maxdegree`n4\`mincut`n5\`mindegree`n5\`neighbors`n3
\`new`n5\`octahedron`n5\`outdegree`n4\`path`n5\`petersen`n4\`rand
om`n4\`rank`n5\`rankpoly`n6\`shortpathtree`n4\`show`n4\`shrink`n4
\`span`n5\`spanpoly`n5\`spantree`n4\`tail`n5\`tetrahedron`n5\`tut
tepoly`n4\`vdegree`n5\`vertices`n4\`void`n4\`vweight`}}{SEP_R 79 
0}{INP_R 80 0 "> "{TEXT 0 21 "draw(random(10, 20));"}}{SEP_R 81 0
}{INP_R 82 0 "> "{TEXT 0 73 "# share library --- contains user-de
veloped Maple procedures and packages"}}{INP_R 83 0 "> "{TEXT 0 
17 "? share[contents]"}}{OUT_R 84 0 83{TEXT 2 45 "No exact match;
  displaying help for   share\012"}}{SEP_R 85 0}{INP_R 86 0 "> "
{TEXT 0 12 "with(share):"}}{OUT_R 87 0 86{TEXT 2 71 "See ?share a
nd ?share,contents for information about the share library\012"}}
{SEP_R 88 0}{INP_R 89 0 "> "{TEXT 0 0 ""}}{INP_R 90 0 "> "{TEXT 0
 27 "# Reading and Writing files"}}{INP_R 91 0 "> "{TEXT 0 0 ""}}
{INP_R 92 0 "> "{TEXT 0 103 "#files containing results of Maple c
alculations (that cannot be used as input for further calculation
s)"}}{INP_R 93 0 "> "{TEXT 0 37 "writeto( ofile);        # or app
endto"}}{SEP_R 94 0}{INP_R 95 0 "> "{TEXT 0 15 "poly:= x^2 + 1;"}
}{SEP_R 96 0}{INP_R 97 0 "> "{TEXT 0 18 "subs( x= 3, poly);"}}
{SEP_R 98 0}{INP_R 99 0 "> "{TEXT 0 18 "writeto(terminal);"}}
{SEP_R 100 0}{INP_R 101 0 "> "{TEXT 0 0 ""}}{INP_R 102 0 "> "
{TEXT 0 0 ""}}{INP_R 103 0 "> "{TEXT 0 74 "# files containing Map
le code in user readable or non-user readable foramt"}}{INP_R 104
 0 "> "{TEXT 0 0 ""}}{INP_R 105 0 "> "{TEXT 0 95 "#use the menu -
--- save as ,  import, export as text, LaTeX  (.ms or not --- spe
ed and silence)"}}{SEP_R 106 0}{INP_R 107 0 "> "{TEXT 0 90 "# .ma
pleinit file in your hme directory ---- toload library packages w
hich you alwyas want"}}{SEP_R 108 0}{INP_R 109 0 "> "{TEXT 0 0 ""
}}{INP_R 110 0 "> "{TEXT 0 13 "read maximum;"}}{SEP_R 111 0}
{INP_R 112 0 "> "{TEXT 0 22 "maximum(2,4,5,1,89,9);"}}{OUT_R 113 
0 112{DAG j2x0089}}{SEP_R 114 0}{INP_R 115 0 "> "{TEXT 0 83 "# be
 careful when you want to specify a whole path using the /;   use
 `` backquotes"}}{INP_R 116 0 "> "{TEXT 0 0 ""}}{INP_R 117 0 "> "
{TEXT 0 26 "readlib(unload) (maximum);"}}{OUT_R 118 0 117{DAG n4\
`maximum`}}{SEP_R 119 0}{INP_R 120 0 "> "{TEXT 0 22 "maximum(2,4,
5,1,89,9);"}}{OUT_R 121 0 120{DAG (3n4\`maximum`,7j2x0002j2x0004j
2x0005j2x0001j2x0089j2x0009}}{SEP_R 122 0}{INP_R 123 0 "> "{TEXT 
0 24 "# or for system routines"}}{INP_R 124 0 "> "{TEXT 0 12 "pri
nt(igcd);"}}{OUT_R 125 0 124{DAG @8,1p1,2n4\`builtin`p1j2x0090p1p
1}{TEXT 2 32 "\012proc() options builtin; 90 end\012"}}{SEP_R 126
 0}{INP_R 127 0 "> "{TEXT 0 13 "igcd(30, 18);"}}{OUT_R 128 0 127
{DAG j2x0006}}{SEP_R 129 0}{INP_R 130 0 "> "{TEXT 0 22 "readlib(u
nload)(igcd);"}}{OUT_R 131 0 130{DAG n4\`igcd`}}{SEP_R 132 0}
{INP_R 133 0 "> "{TEXT 0 12 "igcd(30,18);"}}{OUT_R 134 0 133{DAG 
(3n4\`igcd`,3j2x0030j2x0018}}{SEP_R 135 0}{INP_R 136 0 "> "{TEXT 
0 12 "#redefine it"}}{INP_R 137 0 "> "{TEXT 0 8 "?readlib"}}
{SEP_R 138 0}{INP_R 139 0 "> "{TEXT 0 38 "igcd:= proc() options b
uiltin; 90 end:"}}{SEP_R 140 0}{INP_R 141 0 "> "{TEXT 0 12 "igcd(
30,18);"}}{OUT_R 142 0 141{DAG j2x0006}}{SEP_R 143 0}{INP_R 144 0
 "> "{TEXT 0 0 ""}}{INP_R 145 0 "> "{TEXT 0 0 ""}}{INP_R 146 0 ">
 "{TEXT 0 18 "# FORMATTED  I / O"}}{INP_R 147 0 "> "{TEXT 0 38 "p
rintf( ` x=%d    y=%4.2f`, 12, 34.3);"}}{OUT_R 148 0 147{TEXT 2 
16 " x=12    y=34.30"}}{SEP_R 149 0}{INP_R 150 0 "> "{TEXT 0 27 "
sscanf(`x=123.45`, `x=%f`);"}}{OUT_R 151 0 150{DAG [2,2e3j5x12345
00000000000i2x0013}}{SEP_R 152 0}{INP_R 153 0 "> "{TEXT 0 26 "# d
ifference to C's sscanf"}}{INP_R 154 0 "> "{TEXT 0 0 ""}}{INP_R 
155 0 "> "{TEXT 0 20 "# readdata, readline"}}{INP_R 156 0 "> "
{TEXT 0 18 "readlib(readdata);"}}{OUT_R 157 0 156{DAG @8,2n4\`fna
me`,7n4\`line`n4\`fmtstr`n3\`i`n4\`retval`n4\`ncols`n3\`a`,2nD\`C
opyright~`1993~`by~`Waterloo~`Maple~`Software`,1;A:3l2x0005j2x000
1:3l2x0002n3\`%f`?3!2(3n4\`type`,3a2x0001n4\`string`(3n4\`ERROR`,
2n8\`expecting~`a~`file~`name`f7l2x0003j2x0002p28a2x0000n4\`true`
;3:3l2x0006b3a2x-001,2p48?8(3p32,3p54n4\`posint`:3p26p56=3p54u2n4
\`integer`:3p2Bn3\`%d`=3p54u2n4\`float`p2A(3p3C,3nA\`invalid~`arg
ument~`to~`readdata`p54:3l2x0004n4\`NULL`:3p2B(3n3\`cat`,2(3n3\`s
eq`,3p2B=3p48~3p28p26:3l2x0001(3n5\`readline`,2p36f7p23p28p28p23(
3p32,3p9Bp38;4:3p48(3n4\`sscanf`,3p9Bp2B?3>3p48[2p23?4=3p26p28:3p
85,3p85(3n3\`op`p59:3p85,3p85p48p9A[2,2p85p23p23}{TEXT 2 21 "\012
proc(fname) ... end\012"}}{SEP_R 158 0}{INP_R 159 0 "> "{TEXT 0 
47 "readdata(data, 3);     # read 3 columns of data"}}{OUT_R 160 
0 159{DAG [2,4[2,4e3j2x0001j2x0000e3j2x0002p7e3j2x0003p7[2,4e3j2x
0004p7e3j2x0005p7e3j2x0006p7[2,4e3j2x0007p7e3j2x0008p7e3j2x0009p7
}}{SEP_R 161 0}{INP_R 162 0 "> "{TEXT 0 44 "readdata(data, 2);  #
 read 2 columns of data"}}{OUT_R 163 0 162{DAG [2,4[2,3e3j2x0001j
2x0000e3j2x0002p7[2,3e3j2x0004p7e3j2x0005p7[2,3e3j2x0007p7e3j2x00
08p7}}{SEP_R 164 0}{INP_R 165 0 "> "{TEXT 0 15 "readline(data);"}
}{OUT_R 166 0 165{DAG n4\`1~`~`2~`~`3`}}{SEP_R 167 0}{INP_R 168 0
 "> "{TEXT 0 15 "readline(data);"}}{OUT_R 169 0 168{DAG n4\`4~`~`
5~`~`6`}}{SEP_R 170 0}{INP_R 171 0 "> "{TEXT 0 15 "readline(data)
;"}}{OUT_R 172 0 171{DAG n4\`7~`~`8~`~`9`}}{SEP_R 173 0}{INP_R 
174 0 "> "{TEXT 0 15 "readline(data);"}}{OUT_R 175 0 174{DAG j2x0
000}}{SEP_R 176 0}{INP_R 177 0 "> "{TEXT 0 0 ""}}{INP_R 178 0 "> \+
"{TEXT 0 0 ""}}{INP_R 179 0 "> "{TEXT 0 0 ""}}{INP_R 180 0 "> "
{TEXT 0 0 ""}}{INP_R 181 0 "> "{TEXT 0 32 "# files containing fro
matted I/O"}}{INP_R 182 0 "> "{TEXT 0 7 "# LaTeX"}}{INP_R 183 0 "
> "{TEXT 0 27 "#generate fortran or C code"}}{INP_R 184 0 "> "
{TEXT 0 15 "sol1:= sols[1];"}}{OUT_R 185 0 184{DAG :3n4\`sol1`+7*
3+7/3j2x0001j2x0002p8*3n3\`a`j2x0003/3j2x0125j2x0027*3+5j2x0081p8
pDj2x1500p7/3p8j2x0018/3p8p10p8*5pEpAp6/3i2x0001p10/3j2x0025j2x00
09pE/3j2x0005p10}}{SEP_R 186 0}{INP_R 187 0 "> "{TEXT 0 27 "fortr
an(sol1, 'optimized');"}}{OUT_R 188 0 187{TEXT 2 147 "      t1 = \+
a**2\012      t2 = t1*a\012      t6 = (1.E0/2.E0+125.E0/27.E0*t2+
sqrt(81+1500*t2)/18)**(1.E0/3.E0)\012      t9 = t6+25.E0/9.E0*t1/
t6+5.E0/3.E0*a\012"}}{SEP_R 189 0}{INP_R 190 0 "> "{TEXT 0 57 "re
adlib(C):       C(sol1, filename = `file.c`);  C(sol1);"}}{OUT_R 
191 0 190{TEXT 2 167 "      t0 = pow(1.0/2.0+125.0/27.0*a*a*a+sqr
t(81.0+1500.0*a*a*a)/18,1.0/3.0)+\01225.0/9.0*a*a/pow(1.0/2.0+125
.0/27.0*a*a*a+sqrt(81.0+1500.0*a*a*a)/18,1.0/3.0)+\0125.0/3.0*a;\
012"}}{SEP_R 192 0}{INP_R 193 0 "> "{TEXT 0 5 "gc();"}}{SEP_R 194
 0}{INP_R 195 0 "> "{TEXT 0 0 ""}}}{END}
