(*^
::[ 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`"];
f[m_,b_]:= 36 (m^(5/3) b^(-3/2))/1000;
shade[m_,b_]:= ((f[1,0.1] - f[m,b])/(f[1,0.1] - f[0.1,1]))^10;
xticks = {{0.9," "},{1,1}};
yticks = Table[{0.1 i," "},{i,1,10}];
zticks = {0.5,1};
axeslabels = Graphics3D[{Text[FontForm["x",{"Times-Roman",12}],{1.16,0,0.1}],
Text[FontForm["y",{"Times-Roman",12}],{0,1.16,0.1}],
Text[FontForm["z",{"Times-Roman",12}],{0.1,0,1.25}]}];
plot = Plot3D[{f[m,b],GrayLevel[shade[m,b]]},{m,0.1,1},{b,0.1,1},
AxesEdge->{{-1,-1},{-1,-1},{-1,-1}},
ViewPoint->{2,2,2},
BoxRatios->{1,1,1},
Shading->True,
ClipFill->None,
PlotRange->{{0,1.16},{0,1.16},{0,1.26}},
Boxed->False,
Axes->True,
Mesh->True,
MeshStyle->Dashing[{0.01,0.01}],
Ticks->{xticks,yticks,zticks}];
left = Show[plot,axeslabels,PlotLabel->"(a) z = P(x,y)"];
line1 = ParametricPlot3D[{t,0.3,f[t,0.3]},{t,0.1,1},
AxesEdge->{{-1,-1},{-1,-1},{-1,-1}},
ViewPoint->{2,2,2},
BoxRatios->{1,1,1},
Shading->False,
PlotRange->{{0,1.16},{0,1.16},{0,1.26}},
Boxed->False,
Axes->True,
Ticks->{xticks,yticks,zticks}];
line2 = ParametricPlot3D[{0.8,t,f[0.8,t]},{t,0.1,1}];
line3 = ParametricPlot3D[{1,t,f[1,t]},{t,0.1,1}];
line4 = ParametricPlot3D[{0.1,t,f[0.1,t]},{t,0.1,1}];
line5 = ParametricPlot3D[{t,0.1,f[t,0.1]},{t,0.1,1}];
line6 = ParametricPlot3D[{t,1,f[t,1]},{t,0.1,1}];
textK = Graphics3D[Text[K,{0.2,0.4,f[0.1,0.3]}]];
textL = Graphics3D[Text[L,{1,0.25,f[1,0.45]}]];
textM = Graphics3D[Text[M,{0.7,0.1,f[0.8,0.1]}]];
textN = Graphics3D[Text[N,{0.73,1.08,f[0.8,1]}]];
textP = Graphics3D[Text["(m,k)",{0.72,0.45,f[0.8,0.3]}]];
text = {textK,textL,textM,textN,textP};
right = Show[line1,line2,line3,line4,line5,line6,axeslabels,text,
PlotLabel->"(b) KL: z = P(x,0.3)\n MN: z = P(0.8,y)"];
Show[GraphicsArray[{{left,right}}],PlotLabel->"Figure 25.1"]
^*)