(*^
::[	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 = subtitle; inactive; preserveAspect; startGroup]

Graphics
:[font = text; inactive; preserveAspect]
Plots of functions in 2D, e.g. generate a plot of sin(exp(x)) as a function of x
from 0 to p:
;[s]
3:0,0;91,1;92,0;94,-1;
2:2,13,9,Times,0,12,0,0,0;1,18,13,Symbol,0,12,0,0,0;
:[font = input; preserveAspect]
Plot[Sin[Exp[x]], {x,0,Pi}]
:[font = text; inactive; preserveAspect]
Replot last graphic with new display options:
:[font = input; preserveAspect]
Show[%, Frame->True, FrameLabel -> {"Time", "Signal"},
GridLines -> Automatic]
:[font = text; inactive; preserveAspect]
Contour plots, e.g. generate a contour plot of  sin(x + sin(y))
over the domain {-2<x<2, -2<y<2}:
:[font = input; preserveAspect]
ContourPlot[ Sin[x + Sin[y]], {x,-2,2}, {y,-2,2}]
:[font = text; inactive; preserveAspect]
Plot 3D surfaces, e.g. replot the above function as a 3D surface
over the domain {-3<x<3, -3<y<3}:
:[font = input; preserveAspect]
Plot3D[ Sin[x + Sin[y]], {x,-3,3}, {y,-3,3}]
:[font = text; inactive; preserveAspect]
3D parametric surfaces: e.g. plot {u sin(t), u cos(t), t/3}
over the domain {0<t<15, -1<u<1}:
:[font = input; preserveAspect]
ParametricPlot3D[ {u Sin[t], u Cos[t], t/3},
{t,0,15},{u,-1,1}, Ticks -> None]
:[font = text; inactive; preserveAspect]
and plot {sin(t), sin(2t)sin(u), sin(2t)cos(u)}
over the domain {-p/2<t<p/2, 0<u<2p}:
;[s]
7:0,0;66,1;67,0;72,1;73,0;82,1;83,0;86,-1;
2:4,13,9,Times,0,12,0,0,0;3,18,13,Symbol,0,12,0,0,0;
:[font = input; preserveAspect]
ParametricPlot3D[ {Sin[t], Sin[2t]Sin[u], Sin[2t]Cos[u]},
{t,-Pi/2,Pi/2},{u,0,2Pi}, Ticks -> None]
:[font = text; inactive; preserveAspect]
Combine the last two plots:
:[font = input; preserveAspect]
Show[%,%%]
:[font = text; inactive; preserveAspect]
Build up graphics from more basic objects:
:[font = input; preserveAspect]
Show[ Graphics3D[{Cuboid[{0,0,0}], Cuboid[{2,2,2}],
 Cuboid[{2,1,3}], Cuboid[{3,2,1}], Cuboid[{2,1,1}]} ]] 
:[font = text; inactive; preserveAspect]
Sound output, e.g. plays a sound whose amplitude is given by sin(1000/t)
as a function of time t in seconds between t=-4 and t=4:
:[font = input; preserveAspect; endGroup]
Play[ Sin[10000 / t], {t,-4,4}]
^*)