(*^ ::[ 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 = "NeXT Mathematica Notebook Front End Version 2.2"; NeXTStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1, 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, L1, 12, "Courier"; ; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1, 12, "Courier"; ; fontset = name, inactive, noPageBreakInGroup, nohscroll, preserveAspect, M7, italic, B65535, L1, 10, "Times"; ; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 12, "Times"; ; fontset = leftheader, 12; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, italic, L1, 12, "Times"; ; fontset = leftfooter, 12; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Courier"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; paletteColors = 128; showRuler; automaticGrouping; currentKernel; ] :[font = title; inactive; preserveAspect; left; rightWrapOffset = 449; spaceBelow = 4; fontSize = 30; fontName = "Helvetica"; startGroup] Drawing Mathematical Solids :[font = text; inactive; preserveAspect; rightWrapOffset = 449; spaceAbove = 0] Programs are described which draw solids whose bounding surfaces are defined by equations. ;[s] 3:0,0;90,1;91,2;107,-1; 3:1,16,12,Times,2,18,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0; :[font = text; inactive; preserveAspect; rightWrapOffset = 449] Each face of a solid we wish to draw is a surface bounded by curves which are the intersection of the surface with other faces of the solid. In order to draw the solid, we will need parametric descriptions for these faces. The method we use [TaFr94] gives natural coordinates for a region by interpolating linearly between opposite bounding curves. Parametric equations for the region bounded by y = f1(x) below, y = f2(x) above, over the interval a £ x £ b are x = s a £ s £ b y = t f2(s) + (1 - t)f1(s) 0 £ t £ 1. ;[s] 23:0,0;401,1;402,2;418,3;419,4;450,5;451,6;454,7;455,8;462,9;464,10;476,11;477,12;480,13;481,14;493,15;494,16;508,17;509,18;515,19;516,20;519,21;520,22;527,-1; 23:1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,7,6,Courier,1,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,7,6,Courier,65,9,0,0,0;1,7,6,Courier,1,10,0,0,0;1,7,6,Courier,65,9,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0; :[font = input; dontNoPageBreakInGroup; noKeepOnOnePage; dontPreserveAspect; rightWrapOffset = 478; fontLeading = -2; spaceBelow = 0; fontSize = 10; fontName = "Courier"] Clear[x,y,picture1] x := s y := t Sin[.8s]^2 + (1-t)(Abs[Cos[2.2x]] - 1 + x/4) picture1 = ParametricPlot3D[{x,y,0}, {s,0,3Pi/4}, {t,0,1}, PlotPoints->{24,10}, ViewPoint->{0,0,1000}, Axes->{True,True,False}, AxesLabel->{FontForm[X,{"Times-Bold",12}], FontForm[Y,{"Times-Bold",12}],""}, PlotRange->{{-.1,3.3},{-.9,1.1},{0,1}}, Ticks->None, DisplayFunction->Identity]; Show[picture1, Graphics3D[Text["y = f (x)",{2.8,.1,0}]], Graphics3D[Text[Subscript[1],{2.91,.04,0}]], Graphics3D[Text["y = f (x)",{2.8,.9,0}]], Graphics3D[Text[Subscript[2],{2.91,.84,0}]], DisplayFunction->$DisplayFunction]; :[font = text; inactive; pageBreakBelow; preserveAspect; rightWrapOffset = 449] The solids we wish to draw are those typically used as regions of integration for triple integrals. Suppose the solid is described by the inequalities a £ x £ b, g1(x) £ y £ g2(x), and h1(x,y) £ z £ h2(x,y). The following program draws this region. ;[s] 23:0,0;154,1;155,2;158,3;159,4;164,5;165,6;169,7;170,8;173,9;174,10;176,11;177,12;181,13;182,14;187,15;188,16;194,17;195,18;198,19;199,20;201,21;202,22;249,-1; 23:1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; dontNoPageBreakInGroup; noKeepOnOnePage; preserveAspect; rightWrapOffset = 449] Clear[a,b,g1,g2,h1,h2,px,py,pz] (*left*) a := 0 (*right*) b := 2Pi (*front*) g1[x_] := 2Abs[Sin[x]] (*back*) g2[x_] := 2Pi - 2Abs[Sin[x]] (*bottom*) h1[x_,y_] := 3Abs[Sin[x/2]] Abs[Sin[y]] (*top*) h2[x_,y_] := 5 - 2Sin[x]^2 Cos[y] px := 37 (*PlotPoints*) py := 11 pz := 15 Show[ (*bottom*) ParametricPlot3D[ {x,y g2[x]+(1-y)g1[x],h1[x,y g2[x]+(1-y)g1[x]]}, {x,a,b}, {y,0,1}, PlotPoints->{px,py}, DisplayFunction->Identity], (*top*) ParametricPlot3D[ {x,y g2[x]+(1-y)g1[x],h2[x,y g2[x]+(1-y)g1[x]]}, {x,a,b}, {y,0,1}, PlotPoints->{px,py}, DisplayFunction->Identity], (*front*) ParametricPlot3D[ {x,g1[x],z h2[x,g1[x]]+(1-z)h1[x,g1[x]]}, {x,a,b}, {z,0,1}, PlotPoints->{px,pz}, DisplayFunction->Identity], (*back*) ParametricPlot3D[ {x,g2[x],z h2[x,g2[x]]+(1-z)h1[x,g2[x]]}, {x,a,b}, {z,0,1}, PlotPoints->{px,pz}, DisplayFunction->Identity], (*left*) ParametricPlot3D[ {a,y,z h2[a,y]+(1-z)h1[a,y]}, {y,g1[a],g2[a]+10^-9}, {z,0,1}, PlotPoints->{py,pz}, DisplayFunction->Identity], (*right*) ParametricPlot3D[ {b,y,z h2[b,y]+(1-z)h1[b,y]}, {y,g1[b],g2[b]+10^-9}, {z,0,1}, PlotPoints->{py,pz}, DisplayFunction->Identity], DisplayFunction->$DisplayFunction]; :[font = text; inactive; pageBreak; preserveAspect] Let us look at how this program works. There are six faces which the Show command pastes together at their edges. To illustrate the description of a face of the solid, consider the two-parameter set of equations for the front surface. Its top bounding curve is the intersection of the front surface y = g1(x) with the top surface z = h2(x,y). Eliminating y we obtain the set of parametric equations {x = x, y = g1(x), z = h2(x,g1(x))} for the top curve. Likewise for its bottom curve {x = x, y = g1(x), z = h1(x,g1(x))}. Thus the parametric equations for the front face using the previously mentioned technique for describing surfaces parametrically are x = x y = g1(x) a £ x £ b z = z h2(x,g1(x)) + (1 - z) h1(x,g1(x)) 0 £ z £ 1. The parameters were mnemonically called x,y,z and the corresponding PlotPoints settings px,py,pz. Care was taken to link the PlotPoints settings so that the surface grids line up at the edge of adjoining surfaces. The program is quite robust; it works even if, for example, the top and bottom surfaces intersect or are accidently interchanged. However, Mathematica does not allow degenerate parameter intervals; hence the 10^-9 terms in the program for the (*left*) and (*right*) faces in case g1(a) = g2(a) or g1(b) = g2(b). Another solid can be drawn by changing the assignments (definitions) at the beginning of the program. ;[s] 77:0,0;70,1;74,2;149,3;154,4;236,5;305,6;306,7;336,8;337,9;343,10;368,11;371,12;372,13;379,14;413,15;414,16;424,17;425,18;429,19;430,20;431,21;432,22;433,23;498,24;499,25;509,26;510,27;514,28;515,29;516,30;517,31;518,32;670,33;671,34;681,35;682,36;685,37;686,38;698,39;699,40;700,41;703,42;704,43;705,44;706,45;707,46;720,47;721,48;725,49;726,50;727,51;728,52;729,53;734,54;735,55;738,56;739,57;743,58;811,59;821,60;868,61;878,62;1096,63;1107,64;1200,65;1208,66;1213,67;1223,68;1238,69;1239,70;1246,71;1247,72;1255,73;1256,74;1263,75;1264,76;1372,-1; 77:1,11,8,Times,0,12,0,0,0;1,10,8,Courier,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,64,11,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,0,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Courier,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Courier,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Courier,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Courier,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; pageBreakBelow; preserveAspect; rightWrapOffset = 449; spaceAbove = 8] Exercises 1. Modify the program to leave off the front surface. This is sometimes useful to view hidden surfaces. 2. Modify the program to leave off the right half of the top surface without changing the grid spacing. 3. Modify the program to draw only the (p/q)th left part of the top surface without affecting the grid spacing. How should px be chosen? 4. Use the program to plot some regions of integration for triple integrals in rectangular coordinates found in your favorite calculus textbook. 5. Experiment with some (nearly) random choices for a, b, g1, g2, h1, and h2. 6. Write a Mathematica package for the program with the option to skip faces. ;[s] 14:0,0;9,1;505,2;565,3;566,4;569,5;570,6;573,7;574,8;581,9;582,10;583,11;596,12;607,13;663,-1; 14:1,10,8,Times,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; preserveAspect; spaceAbove = 12] SOLIDS INSIDE A CYLINDER DESCRIBED PARAMETRICALLY ;[s] 1:0,0;50,-1; 1:1,10,8,Times,1,12,0,0,0; :[font = smalltext; inactive; preserveAspect; rightWrapOffset = 449; fontLeading = -2; spaceAbove = 8] The procedure is similar, but shorter, for a solid inside a cylinder described parametrically. The parametric equations for a radially simple region bounded by x = f1(t), y = f2(t) for €t1 £ t £ t2 are x = s f1(t) 0 £ s £ 1 y = s f2(t) t1 £ t £ t2. ;[s] 34:0,0;165,1;166,2;176,3;177,4;196,5;197,6;198,7;199,8;202,9;203,10;205,11;206,12;210,13;213,14;220,15;221,16;228,17;229,18;232,19;233,20;248,21;249,22;256,23;257,24;258,25;259,26;262,27;263,28;265,29;266,30;267,31;268,32;271,33;274,-1; 34:1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,6,5,Courier,65,8,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,6,5,Courier,65,8,0,0,0;1,7,6,Courier,1,10,0,0,0;1,6,5,Courier,65,8,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,7,6,Courier,1,10,0,0,0;1,6,5,Courier,65,8,0,0,0;1,7,6,Courier,1,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,0,0,Symbol,0,10,0,0,0;1,0,0,Symbol,0,10,0,0,0; :[font = input; dontNoPageBreakInGroup; noKeepOnOnePage; preserveAspect] Clear[x,y,picture3] x := s (3 + Cos[4t]) Cos[t] y := s 2Sin[t]^3 picture3 = ParametricPlot3D[{x,y,0}, {s,0,1}, {t,0,2Pi}, ViewPoint->{0,0,1000}, Axes->{True,True,False}, PlotPoints->{8,49}, AxesLabel->{FontForm[X,{"Times-Bold",12}], FontForm[Y,{"Times-Bold",12}],""}, Ticks->None, PlotRange->{{-4.5,4.5},{-2.2,2.2},{0,1}}, DisplayFunction->Identity]; Show[picture3, Graphics3D[Text["x = f (t)",{3.1,1.55,0}]], Graphics3D[Text[Subscript[1],{3.4,1.43,0}]], Graphics3D[Text["y = f (t)",{3.1,.9,0}]], Graphics3D[Text[Subscript[2],{3.4,.78,0}]], DisplayFunction->$DisplayFunction]; ;[s] 1:0,0;588,-1; 1:1,7,6,Courier,1,10,0,0,0; :[font = text; inactive; pageBreakBelow; preserveAspect; rightWrapOffset = 449; fontLeading = -5] The next program shows a solid inside the cylinder x = f1(t) y = f2(t) a £ t £ b for h1(x,y) £ z £ h2(x,y). The top edge is emphasized with an additional one-parameter plot. ;[s] 17:0,0;58,1;59,2;72,3;73,4;81,5;82,6;85,7;86,8;94,9;95,10;101,11;102,12;105,13;107,14;108,15;109,16;181,-1; 17:1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,9,7,Times,64,10,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; dontNoPageBreakInGroup; noKeepOnOnePage; dontPreserveAspect; rightWrapOffset = 449] Clear[x,y,a,b,h1,h2,pt,pr,pz] (*sides*) x := (2 + Cos[4t]) Cos[t] y := (2 + Cos[4t]) Sin[t] (*top*) h2[x_,y_] := 12 + x^2/2 + y^3/4 (*bottom*) h1[x_,y_] := 0 a := 0 b := 2Pi pt := 65 (*PlotPoints*) pr := 15 pz := 20 Show[ (*top*) ParametricPlot3D[ {r x,r y,h2[r x,r y]}, {t,a,b}, {r,0,1}, PlotPoints->{pt,pr}, DisplayFunction->Identity], (*bottom*) ParametricPlot3D[ {r x,r y,h1[r x,r y]}, {t,a,b}, {r,0,1}, PlotPoints->{pt,pr}, DisplayFunction->Identity], (*sides*) ParametricPlot3D[ {x,y,z h1[x,y]+(1-z) h2[x,y]}, {t,a,b}, {z,0,1}, PlotPoints->{pt,pz}, DisplayFunction->Identity], (*edge*) ParametricPlot3D[ {x,y,h2[x,y],Thickness[.005]}, {t,a,b}, PlotPoints->pt, DisplayFunction->Identity], DisplayFunction->$DisplayFunction]; :[font = text; inactive; noFill; preserveAspect; rightWrapOffset = 449; endGroup] Exercises 1. Modify the previous program to add the cone z = 3Sqrt[x^2 + y^2] - 5 to the bottom of the solid. 2. The edge curve was obtained by taking r = 1 in the parametric equations for the top surface. Obtain the edge curve by taking z = 1 in the equations for the lateral surface. 3. Modify the program to emphasize the bottom edge also. 4. Draw the rectangular solid -4 £ x £ 4, -4 £ y £ 4, -6 £ z £ -2 and attach it as the base for the solid of exercise 1. 5. Modify the program to allow for an inner bounding cylinder. Test it with an example. ;[s] 16:0,0;9,1;383,2;384,3;387,4;388,5;395,6;396,7;399,8;400,9;407,10;408,11;411,12;413,13;414,14;416,15;561,-1; 16:1,10,8,Times,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0; ^*)