(*^ ::[ 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, cellOutline, groupLikeTitle, center, M7, bold, R65535, e8, 24, "Calculus"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Calculus"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Calculus"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Calculus"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Calculus"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "CalcMath"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "CalcMath"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, B65535, 12, "CalcMath"; 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; currentKernel; ] :[font = subsection; inactive; preserveAspect] Debra Woods :[font = subsection; inactive; preserveAspect] Possible Intersections of Three Planes :[font = subsection; inactive; preserveAspect; startGroup] Brief Description: :[font = text; inactive; preserveAspect; endGroup] This project shows the three possibilities for the intersections of three planes by drawing the planes, and animating a rotation to show several views. :[font = section; inactive; preserveAspect; startGroup] Planes and Their Intersections :[font = smalltext; inactive; preserveAspect] In this lesson, given the equations of any three planes in three variables, the program will solve the system, and display graphically the solution. :[font = smalltext; inactive; Cclosed; preserveAspect; plain; italic; fontSize = 10; fontName = "Calculus"; startGroup] Initialization :[font = input; initialization; preserveAspect; fontName = "Geneva"; startGroup] *) <False,Axes->False, ViewPoint->{1.75,1.224,1.7} ,AspectRatio->Automatic]; plane[1] = Plot3D[f1[x,y],{x,-2 n1,2 n1 },{y,-2 n2,2 n2}, Boxed->False,PlotPoints->{2,2}, DisplayFunction->Identity]; plane[2] = Plot3D[f2[x,y],{x,-2 n1,2 n1},{y,-2 n2,2 n2 }, Boxed->False,PlotPoints->{2,2} ,DisplayFunction->Identity]; plane[3] = Plot3D[f3[x,y],{x,-2 n1,2 n1 },{y,-2 n2,2 n2}, Boxed->False,PlotPoints->{2,2} ,DisplayFunction->Identity]; graphs = Table[plane[a],{a,1,3}]; Show[GraphicsArray[graphs, DisplayFunction->$DisplayFunction]]; Show[threedims, graphs, PlotRange->{{-h,h},{-h, h},{-h,h}}, DisplayFunction->$DisplayFunction]; :[font = smalltext; inactive; preserveAspect] You can see the point where the planes intersect. Now, you can see it from several angles. :[font = input; noPageBreak; preserveAspect] Do[Show[%,ViewPoint->{Cos[j],Sin[j],1.7}],{j,0, 2 Pi,Pi/8}]; :[font = smalltext; inactive; preserveAspect] Select the above cells and press command-y to animate. ;[s] 2:0,1;54,0;55,-1; 2:1,24,16,CalcMath,0,12,0,0,65535;1,24,16,CalcMath,0,12,65535,0,65535; :[font = text; inactive; preserveAspect] Let's investigate the solution of the system x + 2y - 3z = -1 3x - y + 2z = 7 5x + 3y - 4z = 30 :[font = input; preserveAspect] Clear[a,b,sol,x,y,z,f1,f2,f3,zv,n1,n2,n3,spacer,h]; a := {{1, 2, -3}, {3, -1, 2}, {5, 3, -4}}; :[font = input; preserveAspect; startGroup] b = {-1, 7, 30}; sol = LinearSolve[a,b]; :[font = message; inactive; preserveAspect; endGroup] LinearSolve::nosol: Linear equation encountered which has no solution. :[font = smalltext; inactive; preserveAspect] From the message, we can see that there is no solution to this system. Let's see what the planes look like. :[font = input; preserveAspect] Clear[v] v={x,y,z}; a.v; zv = Table[Solve[(a.v)[[i]]==b[[i]],z],{i,1,3}]; f1[x_,y_] = zv[[1,1,1,2]]; f2[x_,y_] = zv[[2,1,1,2]] ; f3[x_,y_] = zv[[3,1,1,2]]; n1 = 5; n2 = 6; n3 = 6; h = Max[n1,n2,n3] + Mean[{n1,n2,n3}]; spacer= h + .2; threedims= Graphics3D[{ {Line[{{-h,0,0},{2 h,0,0}}]}, Text["x",{spacer,0,0}], {Line[{{0,-h,0},{0,h,0}}]}, Text["y",{0, spacer,0}], {Line[{{0,0,-h},{0,0,h}}]}, Text["z",{0,0,spacer}]}, Boxed->False,Axes->False, ViewPoint->{1.75,1.224,1.7} ,AspectRatio->Automatic]; plane[1] = Plot3D[f1[x,y],{x,-h,h },{y,-h,h}, Boxed->False,PlotPoints->{2,2}, DisplayFunction->Identity]; plane[2] = Plot3D[f2[x,y],{x,-h,h},{y,-h,h }, Boxed->False,PlotPoints->{2,2} ,DisplayFunction->Identity]; plane[3] = Plot3D[f3[x,y],{x,-h,h },{y,-h,h}, Boxed->False,PlotPoints->{2,2} ,DisplayFunction->Identity]; graphs = Table[plane[a],{a,1,3}]; Show[GraphicsArray[graphs, DisplayFunction->$DisplayFunction]]; Show[threedims, graphs, PlotRange->{{-h,h},{-h, h},{-h,h}}, DisplayFunction->$DisplayFunction]; :[font = input; preserveAspect] Do[Show[%,ViewPoint->{Cos[j],Sin[j],1}],{j,0,2 Pi,Pi/8}]; :[font = smalltext; inactive; preserveAspect] Select the above cells and press command-y to animate. ;[s] 2:0,1;54,0;55,-1; 2:1,24,16,CalcMath,0,12,0,0,65535;1,24,16,CalcMath,0,12,65535,0,65535; :[font = smalltext; inactive; preserveAspect] You can see that there is no solution by the triangle that they create between them. This is not the only way in which three planes do not intersect,but it is an interesting one. See if you can figure out other ways in which the intersection of three planes produces no intersection. :[font = smalltext; inactive; preserveAspect] Another possibility for the intersection of three planes is the case in which there are infinite solutions. :[font = text; inactive; preserveAspect] Let's investigate the solution of the system x + y - z = 1 2x + 3y + 2z = 3 x + 2y + 3z = 2 :[font = input; preserveAspect] Clear[m,b,a,c,aug,at,naug,redform,z1,z2,z3,x,y,z,sol]; m = {{1, 1, -1}, {2, 3, 2}, {1, 2, 3}}; b = {1, 3, 2}; sol = LinearSolve[m,b] :[font = smalltext; inactive; preserveAspect] It appears as though Mathematica has given us a unique solution. We must be very careful though. Let's see what the graphs of the planes produce. :[font = input; preserveAspect] Clear[v] a := m; v={x,y,z}; a.v; zv = Table[Solve[(a.v)[[i]]==b[[i]],z],{i,1,3}]; f1[x_,y_] = zv[[1,1,1,2]]; f2[x_,y_] = zv[[2,1,1,2]]; f3[x_,y_] = zv[[3,1,1,2]]; n1 = sol[[1]]; n2 = sol[[2]]; n3 = sol[[3]]; h = Max[n1,n2,n3] + Mean[{n1,n2,n3}]; spacer= h + .2; threedims= Graphics3D[{ {Line[{{-h,0,0},{2 h,0,0}}]}, Text["x",{spacer,0,0}], {Line[{{0,-h,0},{0,h,0}}]}, Text["y",{0, spacer,0}], {Line[{{0,0,-h},{0,0,h}}]}, Text["z",{0,0,spacer}]}, Boxed->False,Axes->False, ViewPoint->{1.75,1.224,1.7} ,AspectRatio->Automatic]; plane[1] = Plot3D[f1[x,y],{x,-2 n1-1,2 n1+1 }, {y,-2 n2-1,2 n2+1}, Boxed->False,PlotPoints->{2,2}, DisplayFunction->Identity]; plane[2] = Plot3D[f2[x,y],{x,-2 n1-1,2 n1+1}, {y,-2 n2-1,2 n2+1 }, Boxed->False,PlotPoints->{2,2} ,DisplayFunction->Identity]; plane[3] = Plot3D[f3[x,y],{x,-2 n1-1,2 n1+1 }, {y,-2 n2-1,2 n2+1}, Boxed->False,PlotPoints->{2,2} ,DisplayFunction->Identity]; graphs = Table[plane[a],{a,1,3}]; Show[GraphicsArray[graphs, DisplayFunction->$DisplayFunction]]; Show[threedims, graphs, PlotRange->{{-h,h},{-h, h},{-h,h}}, DisplayFunction->$DisplayFunction]; :[font = input; preserveAspect] Do[Show[%,ViewPoint->{Cos[j],1,Sin[j]}],{j,0,Pi,Pi/8}]; :[font = smalltext; inactive; preserveAspect] Select the above cells and press command-y to animate. ;[s] 2:0,1;54,0;55,-1; 2:1,24,16,CalcMath,0,12,0,0,65535;1,24,16,CalcMath,0,12,65535,0,65535; :[font = smalltext; inactive; preserveAspect] We can see from the animation, that the three planes seem to intersect along a line. This means there must me infinite solutions. Let's see if we can find an equation for the line. Using LinearSolve in this case gives what looks like an answer, but this system in fact has infinite solutions. Let's investigate further. The following calculation will eliminate the y variable and solve in terms of x and z. This is the equation of a line. In fact, it is the line of intersection. :[font = input; preserveAspect] Eliminate[{z == f1[x,y],z==f2[x,y],z==f3[x,y]},y] :[font = smalltext; inactive; preserveAspect; endGroup] ^*)