(*^
::[ 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]
ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
a = 24; b = 33.4;
maize = {{12,0}, {15,9}, {20,20}, {25,29},
{30,35}, {35,38}, {45,30}, {50,7}, {51,0}};
m0[t_]:= t(t-12)(51-t)(1884 - 71 t + t^2);
approxm[t_] = Fit[maize,{m0[t]},t];
s = Abs[FindMinimum[-approxm[t],{t,37,37.1}][[1]]];
appm[t_] = approxm[t]/s;
tang = D[appm[t],t]/.t->a;
chor = (appm[b] - appm[a])/(b-a);
xl = a - appm[a]/tang;
xh = a + (1.05 - appm[a])/tang;
xl2 = a - appm[a]/chor;
xh2 = a + (1.05 - appm[a])/chor;
line1 = Graphics[{Dashing[{0.01,0.01}],
Line[{{xl,0},{xh,1.05}}]}];
line2 = Graphics[{Thickness[0.0008],
Line[{{a,appm[a]},{b,appm[a]}}]}];
line3 = Graphics[{Thickness[0.0008],
Line[{{b,appm[a]},{b,appm[b]}}]}];
line4 = Graphics[{Dashing[{0.01,0.01}],
Line[{{a,0},{a,appm[a]}}]}];
circ = Graphics[Circle[{xl,0},{5,0.2},{0,0.75}]];
text = Graphics[{Text[FontForm["q",{"Symbol",9}],{xl+3,0.05}],
Text[FontForm["M",{"Times-Roman",10}],{a+2,0.05}],
Text[FontForm["O",{"Times-Roman",10}],{xl-1,0.05}],
Text[FontForm["P",{"Times-Roman",10}],{a-1,appm[a]+0.05}],
Text[FontForm["R",{"Times-Roman",10}],{b+2,appm[a]}],
Text[FontForm["Q",{"Times-Roman",10}],{b,appm[b]+0.05}],
Text[FontForm["x + x",{"Times-Roman",10}],{b,-0.035}],
Text[FontForm["x",{"Times-Roman",10}],{a,-0.035}],
Text[FontForm[d,{"Symbol",9}],{b + 0.6,-0.031}],
Text[FontForm["y + y",{"Times-Roman",10}],{-1.5,appm[b]}],
Text[FontForm[d,{"Symbol",9}],{-0.9,appm[b]+0.005}]}];
plot = Plot[appm[t],{t,15,43},
PlotLabel -> "Figure 30.6\n\n y = F(x)",
Ticks->{{{b," "}},
{{appm[a],"y"},{appm[b]," "}}},
PlotRange->{{-3,52},{-0.1,1.05}}];
Show[plot, line1, line2, line3, line4, circ,text]
^*)