{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal
" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 
-1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 
0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 
0 0 2 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 
0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" 0 18 1 {CSTYLE "" -1 -1 "" 1 
18 0 0 0 0 0 1 1 0 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 19 0 }
{PSTYLE "Author" 0 19 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 }3 0 0 -1 8 8 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 17 "Integrator Maplet" }}
{PARA 19 "" 0 "" {TEXT -1 15 "by Karen Ranger" }}}{EXCHG {PARA 0 "" 0 
"" {TEXT -1 138 "This maplet accepts functions of a single variable as
 input and outputs the integral of the function, along with a plot of \+
both functions." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT 256 96 "To run this maplet, click the \"Execute-Worksheet\"  but
ton in the tool-bar menu (the !!! button)\n" }{TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "with(Maplets): with(Maplets[Element
s]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 810 "integrationMaplet3
:= Maplet( \n     Window('title'=\"Integration Maplet\", [\n    [\"Int
egrand: \", TextField['TF1']()],\n    [\"Variable of Integration: \", \+
TextField['TF2'](3)],\n     MathMLViewer['TB1'](),\n    \n      # Incl
ude a string in the Maplet to add a title to\n      # the graph. \n\n \+
   [\"Plot the function and its Integral\"],\n    \n      # The Plotte
r window element places a window on a \n      # Maplet that allows 2D \+
or 3D graphs to be displayed.   \n\n     Plotter['PL1'](),\n    [Butto
n(\"Integrate\", Evaluate(TB1 = 'MathML[Export](int(TF1, TF2))')),\n  \+
  \n      # Define a plot button that displays the graphs when\n      \+
# selected.  \n \n     Button(\"Plot\", Evaluate('PL1'='plot([TF1, eva
l(int(TF1,TF2)) ], x=-5..5)')),\n     Button(\"OK\", Shutdown(['TF1', \+
'TF2']))]\n] ) ):\nMaplets[Display]( integrationMaplet3 );\n" }}{PARA 
6 "" 1 "" {TEXT -1 38 "Initializing Java runtime environment." }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7$Q$x^26\"Q\"xF%" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }