(*^
::[	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-4,  12, "Courier"; 
	fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-4,  12, "Courier"; 
	fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R32768, L-4,  12, "Courier"; 
	fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-4,  12, "Courier"; 
	fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B32768, L-4,  12, "Courier"; 
	fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, N-5, o24, w516, h523,  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]
ShowFig0[D71,60,45,75];
:[font = input; preserveAspect]
ShowFig0[D71,70,50,60];
:[font = input; preserveAspect]
ShowFig0[D71,65,70,45];
:[font = input; preserveAspect]
ShowFig0[D71,70,80,30];
:[font = input; preserveAspect]
ShowFig0[D71,30,60,90];
:[font = input; preserveAspect]
ShowFig0[D72,60,45,75];
:[font = input; preserveAspect]
ShowFig0[D72,70,50,60];
:[font = input; preserveAspect]
ShowFig0[D72,70, 30, 80];
:[font = input; preserveAspect]
ShowFig0[D72,100,50,30];
:[font = input; preserveAspect]
ShowFig0[D72,60,45,75];
:[font = input; preserveAspect]
ShowFig0[D73,50,60,70];
:[font = input; preserveAspect]
ShowFig0[D73,45,45,90];
:[font = input; preserveAspect]
ShowFig0[D73,30,70,80];
:[font = input; preserveAspect]
ShowFig0[D73,60,45,75];
:[font = input; preserveAspect]
ShowFig0[D73,60,90,30];
:[font = input; preserveAspect]
ShowFig0[D73,40,30,110];
:[font = input; preserveAspect]
ShowFig0[D131,50,60,70];
:[font = input; preserveAspect]
ShowFig0[D131,60,80,40];
:[font = input; preserveAspect]
ShowFig0[D131,34,80,66];
:[font = input; preserveAspect]
ShowFig0[D132,50,60,70];
:[font = input; preserveAspect]
ShowFig0[D132,35,60,85];
:[font = input; preserveAspect]
ShowFig0[D133,58,72,50];
:[font = input; preserveAspect]
ShowFig0[D133,56,88,36];
:[font = input; preserveAspect]
ShowFig0[D134,45,80,55];
:[font = input; preserveAspect]
ShowFig0[D134,40, 90, 50];
:[font = input; preserveAspect]
ShowFig0[D135,75,55,60];
:[font = input; preserveAspect]
ShowFig0[D135,110, 30, 40];
:[font = input; preserveAspect]
ShowFig0[D136,58, 66, 56];
:[font = input; preserveAspect]
ShowFig0[D137,74,48,58];
:[font = input; preserveAspect]
ShowFig0[D137,110,22,48]
:[font = input; preserveAspect]
ShowFig0[D138,60,30,90];
:[font = input; preserveAspect]
ShowFig0[D138,70,50,60];
:[font = input; preserveAspect]
ShowFig0[D138,80,20,80];
:[font = input; preserveAspect]
ShowFig0[D139,60,50,70];
:[font = input; preserveAspect]
ShowFig0[D139,70,30,80];
:[font = input; preserveAspect]
ShowFig0[D151,90,40,50];
:[font = input; preserveAspect]
ShowFig0[D151,110,30,40];
:[font = input; preserveAspect]
ShowFig0[D152,67.5,58.00,54.50];
:[font = input; preserveAspect]
ShowFig0[D153,60,72,48];
:[font = input; preserveAspect]
ShowFig0[D154,60, 50, 70];
:[font = input; preserveAspect]
ShowFig0[D154,30,70,80];
:[font = input; preserveAspect]
ShowFig0[D211,90,60,30];
^*)