{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "with(Maplets):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 24 "with(Maplets[Elements]):" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 415 "Plot:=proc()\n local expr,x,range,a,l,Args
,tit:\n expr:=parse(Maplets:-Tools:-Get(TFF)):\n range:=parse(Maplets:
-Tools:-Get(TFR)):\n a:=parse(Maplets:-Tools:-Get(CBA)):\n l:=parse(Ma
plets:-Tools:-Get(CBL)):\n tit:=Maplets:-Tools:-Get(Title):\n x:=op(in
dets(expr,symbol)):\n Args:=expr,x=range,tickmarks=[3,3],\n  `if`(a,NU
LL,axes=none),\n  labels=`if`(l,[x,\"\"],[\"\",\"\"]),\n  title=tit:\n
 Maplets:-Tools:-Set(Pl=plot(Args)):\nend:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 105 "ChangeA:=proc()\n Maplets:-Tools:-Get(CBL(enabled)
):\n Maplets:-Tools:-Set(CBL(enabled)= evalb(not %))\nend:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 957 "M:=Maplet(\n Window(\n  [\n   BoxR
ow(border=true,inset=0,spacing=0,Plotter[Pl](width=250,height=250)),\n
   BoxCell(\n    GridLayout(inset=5,\n     GridRow(\n      GridCell(ha
lign=right,Label(\"Axes: \")),\n      GridCell(halign=left,CheckBox[CB
A](value=true,onchange=Evaluate(function=\"ChangeA\"))),\n      GridCe
ll(halign=right,Label(\"          Labels: \")),\n      GridCell(halign
=left,CheckBox[CBL](value=true))\n     ),\n     GridRow(\n      GridCe
ll(halign=right,Label(\"Function: \")),\n      GridCell(halign=left,Te
xtField[TFF](7,halign=right,value=\"sin(x)\")),\n      GridCell(halign
=right,Label(\"Range: \")),\n      GridCell(halign=left,TextField[TFR]
(7,halign=right,value=\"-2*Pi..2*Pi\"))\n     )\n    )\n   ),\n   BoxR
ow(inset=0,spacing=0,\n    BoxCell(halign=left,Button(\"Plot\",onclick
=Plot)),\n    BoxCell(TextField[Title](12,halign=center,value=\"Functi
on sin(x)\")),\n    BoxCell(halign=right,Button(\"Exit\",Shutdown()))
\n   )\n  ]\n ),\n Action[Plot](Evaluate(function=\"Plot\"))\n):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Display(M);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{MARK "7 0 0" 0 }{VIEWOPTS 1 1 1 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }