(*^

::[	frontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.1";
	macintoshStandardFontEncoding; 
	paletteColors = 128; automaticGrouping; currentKernel; 
	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"; ;
]
:[font = special1; inactive; preserveAspect; ]
                     Pack-Hunters -- Stretch Your Understanding

The cell below illustrates the way in which Mathematica  can be used to work with models of pack-hunters.  Evaluate that cell now.
;[s]
5:0,3;63,0;109,1;120,0;172,2;196,-1;
4:2,13,9,Times,0,12,0,0,0;1,13,9,Times,2,12,0,0,0;1,13,9,Times,1,12,65535,0,0;1,13,9,Times,1,12,0,0,0;
:[font = input; preserveAspect; ]
Clear[r, f, pop]

r[p_] := If[p < 500, 1.5 * p/500, 2.0 - p/1000.0]
f[p_] := r[p] * p 

pop[1] := 200
pop[n_] := f[pop[n-1]]
:[font = input; preserveAspect; ]
Plot[r[p], {p, 0, 2000}, PlotRange -> {0, 2.0}]

TableForm[Table[{i, pop[i]}, {i, 1, 20}]]

ListPlot[Table[{i, pop[i]}, {i, 1, 20}],
         PlotRange -> {0, 2000},
         PlotJoined -> True]
:[font = special1; inactive; preserveAspect; ]
The cell below defines the function  f(q)  used in the marketing questions in this section.  The algebraic form of this function is not at all important.  In fact, usually functions like this are determined from data and do not have a nice algebraic form.  Evaluate the next cell now and then use this function to answer the questions in the text.
;[s]
4:0,0;37,1;41,0;257,2;348,-1;
3:2,13,9,Times,0,12,0,0,0;1,13,9,Times,1,12,65535,0,65535;1,13,9,Times,1,12,65535,0,0;
:[font = input; preserveAspect; ]
f[q_] := If[q < 1000.0,
            500 (1 - Cos[Pi q/1000.0]),
            1000]
            
Plot[{f[q], q}, {q, 0.0, 2000.0},
      PlotRange -> {0, 2000.0},
      AspectRatio -> Automatic,
      PlotStyle -> {{RGBColor[0, 0, 0]},
                    {RGBColor[1, 0, 0]}}]
;[s]
2:0,1;5,0;276,-1;
2:1,12,10,Courier,1,12,0,0,0;1,12,10,Courier,1,12,65535,0,65535;
^*)