(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2"; MacintoshStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, "Times"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Times"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Times"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Times"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Times"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Times"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier"; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, "Courier"; fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = leftheader, inactive, L2, 12, "Times"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times"; fontset = leftfooter, inactive, L2, 12, "Times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; paletteColors = 128; automaticGrouping; currentKernel; ] :[font = input; preserveAspect; plain; startGroup] lst = {73,15,3,2,16,43,2,1,1,1,1,1,3,1,1,1,1,4+5,1,86,1,1,3,1,43,26,5,2,1,3,9,1,1,1,1,1,1,4,7,1,26,10,1}; ht=5; nlst = {}; tlst = {}; x = 0; Do[{dx1 = lst[[2*i - 1]], dx2 = lst[[2*i]], c1 = x, c2 = x + dx1, c3 = x + dx1 + dx2, AppendTo[nlst,Polygon[{{c1,0},{c2,0},{c2,ht},{c1,ht}}]], AppendTo[tlst,Polygon[{{c2,0},{c3,0},{c3,ht},{c2,ht}}]], x = c3},{i,1,21}]; AppendTo[nlst,Polygon[{{x,0},{x+1,0},{x+1,ht},{x,ht}}]]; x lnlst = {}; x = 0; Do[{x = x + lst[[i]],AppendTo[lnlst,Line[{{x,0},{x,ht}}]]},{i,1,Length[lst]-1}] Show[Graphics[{{RGBColor[1,0,0],nlst},{RGBColor[0,1,0],tlst}}], PlotRange->{{0,415},{0,ht}},AspectRatio->.15] Show[Graphics[lnlst],PlotRange->{{0,415},{0,ht}},AspectRatio->.15] :[font = output; output; inactive; preserveAspect] 411 ;[o] 411 :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 522; pictureHeight = 78] %! %%Creator: Mathematica %%AspectRatio: .15 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations -4.40186e-17 0.00240964 0 0.03 [ [ 0 0 0 0 ] [ 1 .15 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .15 L 0 .15 L closepath clip newpath p p 1 0 0 r p 0 0 m .1759 0 L .1759 .15 L 0 .15 L F .21205 0 m .21928 0 L .21928 .15 L .21205 .15 L F .2241 0 m .26265 0 L .26265 .15 L .2241 .15 L F .36627 0 m .37108 0 L .37108 .15 L .36627 .15 L F .37349 0 m .3759 0 L .3759 .15 L .37349 .15 L F .37831 0 m .38072 0 L .38072 .15 L .37831 .15 L F .38313 0 m .39036 0 L .39036 .15 L .38313 .15 L F .39277 0 m .39518 0 L .39518 .15 L .39277 .15 L F .39759 0 m .4 0 L .4 .15 L .39759 .15 L F .42169 0 m .4241 0 L .4241 .15 L .42169 .15 L F .63133 0 m .63373 0 L .63373 .15 L .63133 .15 L F .63614 0 m .64337 0 L .64337 .15 L .63614 .15 L F .64578 0 m .7494 0 L .7494 .15 L .64578 .15 L F .81205 0 m .8241 0 L .8241 .15 L .81205 .15 L F .82892 0 m .83133 0 L .83133 .15 L .82892 .15 L F .83855 0 m .86024 0 L .86024 .15 L .83855 .15 L F .86265 0 m .86506 0 L .86506 .15 L .86265 .15 L F .86747 0 m .86988 0 L .86988 .15 L .86747 .15 L F .87229 0 m .8747 0 L .8747 .15 L .87229 .15 L F .88434 0 m .9012 0 L .9012 .15 L .88434 .15 L F .90361 0 m .96627 0 L .96627 .15 L .90361 .15 L F .99036 0 m .99277 0 L .99277 .15 L .99036 .15 L F P P p 0 1 0 r p .1759 0 m .21205 0 L .21205 .15 L .1759 .15 L F .21928 0 m .2241 0 L .2241 .15 L .21928 .15 L F .26265 0 m .36627 0 L .36627 .15 L .26265 .15 L F .37108 0 m .37349 0 L .37349 .15 L .37108 .15 L F .3759 0 m .37831 0 L .37831 .15 L .3759 .15 L F .38072 0 m .38313 0 L .38313 .15 L .38072 .15 L F .39036 0 m .39277 0 L .39277 .15 L .39036 .15 L F .39518 0 m .39759 0 L .39759 .15 L .39518 .15 L F .4 0 m .42169 0 L .42169 .15 L .4 .15 L F .4241 0 m .63133 0 L .63133 .15 L .4241 .15 L F .63373 0 m .63614 0 L .63614 .15 L .63373 .15 L F .64337 0 m .64578 0 L .64578 .15 L .64337 .15 L F .7494 0 m .81205 0 L .81205 .15 L .7494 .15 L F .8241 0 m .82892 0 L .82892 .15 L .8241 .15 L F .83133 0 m .83855 0 L .83855 .15 L .83133 .15 L F .86024 0 m .86265 0 L .86265 .15 L .86024 .15 L F .86506 0 m .86747 0 L .86747 .15 L .86506 .15 L F .86988 0 m .87229 0 L .87229 .15 L .86988 .15 L F .8747 0 m .88434 0 L .88434 .15 L .8747 .15 L F .9012 0 m .90361 0 L .90361 .15 L .9012 .15 L F .96627 0 m .99036 0 L .99036 .15 L .96627 .15 L F P P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect] Graphics["<<>>"] ;[o] -Graphics- :[font = postscript; PostScript; formatAsPostScript; output; inactive; thinLines; preserveAspect; pictureLeft = 34; pictureWidth = 522; pictureHeight = 78] %! %%Creator: Mathematica %%AspectRatio: .15 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations -4.40186e-17 0.00240964 0 0.03 [ [ 0 0 0 0 ] [ 1 .15 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .15 L 0 .15 L closepath clip newpath p .004 w .1759 0 m .1759 .15 L s .21205 0 m .21205 .15 L s .21928 0 m .21928 .15 L s .2241 0 m .2241 .15 L s .26265 0 m .26265 .15 L s .36627 0 m .36627 .15 L s .37108 0 m .37108 .15 L s .37349 0 m .37349 .15 L s .3759 0 m .3759 .15 L s .37831 0 m .37831 .15 L s .38072 0 m .38072 .15 L s .38313 0 m .38313 .15 L s .39036 0 m .39036 .15 L s .39277 0 m .39277 .15 L s .39518 0 m .39518 .15 L s .39759 0 m .39759 .15 L s .4 0 m .4 .15 L s .42169 0 m .42169 .15 L s .4241 0 m .4241 .15 L s .63133 0 m .63133 .15 L s .63373 0 m .63373 .15 L s .63614 0 m .63614 .15 L s .64337 0 m .64337 .15 L s .64578 0 m .64578 .15 L s .7494 0 m .7494 .15 L s .81205 0 m .81205 .15 L s .8241 0 m .8241 .15 L s .82892 0 m .82892 .15 L s .83133 0 m .83133 .15 L s .83855 0 m .83855 .15 L s .86024 0 m .86024 .15 L s .86265 0 m .86265 .15 L s .86506 0 m .86506 .15 L s .86747 0 m .86747 .15 L s .86988 0 m .86988 .15 L s .87229 0 m .87229 .15 L s .8747 0 m .8747 .15 L s .88434 0 m .88434 .15 L s .9012 0 m .9012 .15 L s .90361 0 m .90361 .15 L s .96627 0 m .96627 .15 L s .99036 0 m .99036 .15 L s P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] Graphics["<<>>"] ;[o] -Graphics- ^*)