{VERSION 7 0 "Linux" "7.0" }
{USTYLETAB {PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "Times" 1 10 0
 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ord
ered List 5" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 
2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 2 -1 1 }{PSTYLE "Ordered List 1" -1
 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 
0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 
-1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2
 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0
 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Lef
t Justified Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1
 10 1 {CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 
1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 
"Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1
 }{PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 128 
64 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Headi
ng 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 0 0 1
 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 3" -1 202 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3
 2 72 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Tim
es" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "R3 Font 0" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 9 0 0 255 1 2 
2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Normal" -1 0
 1 {CSTYLE "" -1 -1 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 
0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "R3 Font 2" -1 204 1 {CSTYLE "" -1 -1 "T
imes" 1 9 255 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 
}{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2
 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1
 5 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 
0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 4" -1 205 1 {CSTYLE "" 
-1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 108 2 0 
2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12
 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "L
ine Printed Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2
 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" 
-1 14 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1
 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" -1
 -1 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 
2 -1 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 
255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Erro
r" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 10 255 0 255 1 2 2 2 2 2 1 1 0 
0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE 
"" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0
 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0
 1 2 1 1 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Order
ed List 2" -1 206 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 
1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 -1 1 }{CSTYLE "Help Variable" -1 25 
"Courier" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 200 "Tim
es" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Times
" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times
" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small" -1 
201 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Nonterminal
" -1 24 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Default" 
-1 38 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Comment
" -1 21 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Inp
ut" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Mat
h Small" -1 7 "Times" 1 1 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help F
ixed" -1 23 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Popup
" -1 31 "Times" 1 12 0 128 128 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Plot Ti
tle" -1 27 "Times" 1 10 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Input
" -1 19 "Times" 1 12 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Copyright
" -1 34 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input
 Placeholder" -1 202 "Courier" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 }
{CSTYLE "2D Math Bold Small" -1 10 "Times" 1 1 0 0 0 1 2 1 2 2 2 2 0 0
 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 
}{CSTYLE "Help Notes" -1 37 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }
{CSTYLE "Help Underlined Bold" -1 41 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 
0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "Times" 1 12 0 128 128 1 2 2 1 2 2 
2 0 0 0 1 }{CSTYLE "2D Math Symbol 2" -1 16 "Times" 1 12 0 0 0 1 2 2 2
 2 2 2 0 0 0 1 }{CSTYLE "Big Input" -1 203 "Courier" 1 12 255 0 0 1 2 
1 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Text" -1 28 "Times" 1 8 0 0 0 1 2 2 2
 2 2 2 0 0 0 1 }{CSTYLE "Help Italic" -1 42 "Times" 1 12 0 0 0 1 1 2 2
 2 2 2 0 0 0 1 }{CSTYLE "Help Heading" -1 26 "Times" 1 14 0 0 0 1 2 1 
2 2 2 2 0 0 0 1 }{CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 2 2
 2 2 2 2 0 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 1 2 2
 2 2 2 2 0 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times" 1 12 0 0 0 1 2 2 
2 2 2 2 0 0 0 1 }{CSTYLE "Help Maple Name" -1 35 "Times" 1 12 104 64 
92 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 
255 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 "Times
" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 22
 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" 
-1 40 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Menus" 
-1 36 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 
"Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Couri
er" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined" -1 44 
"Times" 1 12 0 0 0 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Ita
lic" -1 43 "Times" 1 12 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math \+
Bold" -1 5 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math \+
Italic" -1 3 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }}
{SECT 0 {EXCHG {PARA 204 "" 0 "" {TEXT 200 24 "PROGRAM:  Areabargraph
\n" }{TEXT 200 54 "CALLING SEQUENCE:  Areabargraph(data, xmin, xmax, k
)\n" }{TEXT 200 13 "PARAMETERS:\n" }{TEXT 200 36 "     data - a list o
f real numbers\n" }{TEXT 200 32 "     xmin, xmax - real numbers\n" }
{TEXT 200 21 "     k - an integer\n" }{TEXT 200 11 "SYNOPSIS:\n" }
{TEXT 200 89 "     - This program divides the interval [xmin, xmax] on
 the x-axis into k subintervals\n" }{TEXT 200 85 "        of equal len
gth.  Then, on each subinterval, a box is erected whose area is\n" }
{TEXT 200 90 "        equal to the percentage of values in the list da
ta which are in the subinterval.\n" }{TEXT 200 91 "        Important n
ote:  only data values which fall in the user-defined interval will be
\n" }{TEXT 200 87 "        included in the bar graph.  If not all data
 values are included, a warning is\n" }{TEXT 200 87 "        displayed
.  If you wish to be sure of including all data values in the graph,\n
" }{TEXT 200 82 "        choose xmin = min(data) and xmax = max(data).
   (See also \"Bargraph.\")\n" }{TEXT 200 18 "RETURNED VALUES:\n" }
{TEXT 200 14 "     -  none\n" }{TEXT 200 11 "LOCATION:\n" }{TEXT 200 
36 "     Folder:    Important Programs\n" }{TEXT 200 59 "     File:   \+
         \"Areabargraph.ImportantProgs.map\"\n" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "Areabargraph:=proc(data,xmin,xmax,k)\n" }{MPLTEXT 1 
0 55 " local sorteddata, dx, lines,graphicslist, f:        \n" }
{MPLTEXT 1 0 18 " sorteddata:=[]:\n" }{MPLTEXT 1 0 28 "        dx:=(xm
ax-xmin)/k:\n" }{MPLTEXT 1 0 20 "        lines:=[]:\n" }{MPLTEXT 1 0 
27 "        graphicslist:=[]:\n" }{MPLTEXT 1 0 33 "        sorteddata:
=sort(data):\n" }{MPLTEXT 1 0 85 "        if ((op(1,sorteddata)<xmin) \+
or (op(nops(sorteddata),sorteddata)>xmax)) then\n" }{MPLTEXT 1 0 90 " \+
               lprint(`Note:  some data values lie outside the user-de
fined interval.`)\n" }{MPLTEXT 1 0 13 "        fi:\n" }{MPLTEXT 1 0 
57 "        f:=proc(k,sorteddata,xmin,dx,xmax,lines::evaln)\n" }
{MPLTEXT 1 0 70 "                local i,j,currentupperlim,leng,index,
counter,result,\n" }{MPLTEXT 1 0 36 "        finallist,q,numb,linelist
:\n" }{MPLTEXT 1 0 18 "  finallist:=[]:\n" }{MPLTEXT 1 0 17 "  linelis
t:=[]:\n" }{MPLTEXT 1 0 27 "                index:=1:\n" }{MPLTEXT 1 
0 41 "                leng:=nops(sorteddata):\n" }{MPLTEXT 1 0 29 "  c
urrentupperlim:=xmin+dx:\n" }{MPLTEXT 1 0 29 "                result:=
[]:\n" }{MPLTEXT 1 0 41 "                for q from 1 to leng do\n" }
{MPLTEXT 1 0 85 "                        if ((op(q,sorteddata)>=xmin) \+
and (op(q,sorteddata)<=xmax)) \n" }{MPLTEXT 1 0 82 "                  \+
              then finallist:=[op(finallist),op(q,sorteddata)]\n" }
{MPLTEXT 1 0 29 "                        fi:\n" }{MPLTEXT 1 0 21 "    \+
            od:\n" }{MPLTEXT 1 0 40 "                numb:=nops(finall
ist):\n" }{MPLTEXT 1 0 24 "  for i from 1 to k do\n" }{MPLTEXT 1 0 37 
"                        counter:=0:\n" }{MPLTEXT 1 0 93 "            \+
            while ((index<=numb) and (op(index,finallist)<=currentuppe
rlim)) do\n" }{MPLTEXT 1 0 53 "                                counter
:=counter+1:\n" }{MPLTEXT 1 0 49 "                                inde
x:=index+1:\n" }{MPLTEXT 1 0 29 "                        od:\n" }
{MPLTEXT 1 0 55 "                        result:=[op(result),counter]:
\n" }{MPLTEXT 1 0 62 "                        currentupperlim:=current
upperlim+dx:\n" }{MPLTEXT 1 0 21 "                od:\n" }{MPLTEXT 1 
0 38 "                for j from 1 to k do\n" }{MPLTEXT 1 0 71 "      \+
                  linelist:=[op(linelist),[xmin + (j-1)*dx,0]]:\n" }
{MPLTEXT 1 0 204 "                        linelist:=[op(linelist),[xmi
n +                                                                   \+
                                              (j-1)*dx,op(j,result)/(l
eng*dx)]]:\n" }{MPLTEXT 1 0 88 "                        linelist:=[op(
linelist),[xmin + j*dx,op(j,result)/(leng*dx)]]:\n" }{MPLTEXT 1 0 67 "
                        linelist:=[op(linelist),[xmin + j*dx,0]]:\n" }
{MPLTEXT 1 0 14 "         od:\n" }{MPLTEXT 1 0 43 "         lines:=lin
elist:                \n" }{MPLTEXT 1 0 7 " end:\n" }{MPLTEXT 1 0 38 "
 f(k,sorteddata,xmin,dx,xmax,lines):\n" }{MPLTEXT 1 0 26 " plot(lines,
style=LINE);\n" }{MPLTEXT 1 0 4 "end:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 55 "Areabargraph([seq(rand()*10^(-12),i=1..10000)],0,1,10
);" }}{PARA 13 "" 1 "" {TEXT 204 0 "" }{GLPLOT2D 400 400 400 
{PLOTDATA 2 "6&-%+AXESLABELSG6$Q!6\"F&-%'CURVESG6$7J7$$\"\"!F.F-7$F-$
\"3!************\\,\"!#<7$$\"3/+++++++5!#=F07$F4F-F77$F4$\"3*)********
***H+\"F27$$\"37+++++++?F6F97$F<F-F>7$F<$\"3$)************4)*F67$$\"3)
)**************HF6F@7$FCF-FE7$FC$\"3\"**************))*F67$$\"3C++++++
+SF6FG7$FJF-FL7$FJ$\"3#************H.\"F27$$\"3++++++++]F6FN7$FQF-FS7$
FQFG7$$\"3y**************fF6FG7$FVF-FX7$FV$\"3!************H,\"F27$$\"
3c**************pF6FZ7$FgnF-Fin7$Fgn$\"3&*************R**F67$$\"3W++++
+++!)F6F[o7$F^oF-F`o7$F^o$\"3#*************4**F67$$\"3C+++++++!*F6Fbo7
$FeoF-Fgo7$Feo$\"3$*************>**F67$$\"\"\"F.Fio7$F\\pF--%&COLORG6&
%$RGBG$\"#5!\"\"$F.FepFfp-%&STYLEG6#%%LINEG-%%VIEWG6$;$!\"#F`q$\"$-\"F
`q;$!2'***********f1#F6$\"2)*********fO0\"!#;" 1 6 2 1 10 1 2 6 1 4 2 
1.0 45.0 45.0 1 0 "Curve 1" }}{TEXT 204 0 "" }}}{EXCHG {PARA 0 "> " 0 
"" {XPPEDIT 19 1 "Areabargraph([seq(`+`(1/1000000000000*rand(), 1/1000
000000000*rand()), i = 1 .. 1000)], 0, 2, 10); 1;" "C$-I-AreabargraphG
6\"6&7#-I$seqG%*protectedG6$-I\"+GF*6$,$*&#\"\"\"\".++++++\"F2-I%randG
6$F*I(_syslibGF%F%F2F2F//I\"iGF%;F2\"%+5\"\"!\"\"#\"#5F2" }}{PARA 13 "
" 1 "" {TEXT 204 0 "" }{GLPLOT2D 400 400 400 {PLOTDATA 2 "6&-%+AXESLAB
ELSG6$Q!6\"F&-%'CURVESG6$7J7$$\"\"!F.F-7$F-$\"3'*************\\5!#=7$$
\"37+++++++?F2F07$F4F-F67$F4$\"3-++++++]JF27$$\"3C+++++++SF2F87$F;F-F=
7$F;$\"37+++++++XF27$$\"3y**************fF2F?7$FBF-FD7$FB$\"3O++++++]m
F27$$\"3W+++++++!)F2FF7$FIF-FK7$FI$\"3O++++++]\"*F27$$\"\"\"F.FM7$FPF-
FR7$FP$\"32++++++!3\"!#<7$$\"3'**************>\"FVFT7$FXF-FZ7$FX$\"3')
*************4'F27$$\"3#**************R\"FVFfn7$FinF-F[o7$Fin$\"3/++++
++]]F27$$\"33+++++++;FVF]o7$F`oF-Fbo7$F`o$\"3A++++++]FF27$$\"3/+++++++
=FVFdo7$FgoF-Fio7$Fgo$\"3=+++++++!)!#>7$$\"\"#F.F[p7$F_pF--%&COLORG6&%
$RGBG$\"#5!\"\"$F.FhpFip-%&STYLEG6#%%LINEG-%%VIEWG6$;$!\"%!\"#$\"$/#Fd
q;$!2'************f@F2$\"&;5\"Fcq" 1 6 2 1 10 1 2 6 1 4 2 1.0 45.0 
45.0 1 0 "Curve 1" }}{TEXT 204 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{XPPEDIT 19 1 "" "%#%?G" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 
33 1 1 }