(*^ ::[ 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, 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, L1, 12, "Courier"; ; fontset = name, inactive, noPageBreakInGroup, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L1, 10, "Times"; ; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = leftheader, inactive, 12; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1, 12; fontset = leftfooter, inactive, 12; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; 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; startGroup] New Mathematica Tools for Linear Algebra ;[s] 3:0,0;4,1;15,2;41,-1; 3:1,21,16,Times,1,24,0,0,0;1,22,17,Times,3,24,0,0,0;1,21,16,Times,1,24,0,0,0; :[font = subsubtitle; inactive; preserveAspect; fontSize = 12; fontName = "Times"] by Stephen Hughes, Elizabeth Koopman, Shari Prevost, and Barry Tesman Department of Mathematics and Computer Science Dickinson College Carlisle, PA :[font = subtitle; inactive; preserveAspect; startGroup] Mathematica in Education Vol.3 No.3 Summer 1994 (c) TELOS/Springer-Verlag ;[s] 2:0,0;24,1;74,-1; 2:1,17,13,Times,3,18,0,0,0;1,16,12,Times,1,18,0,0,0; :[font = section; inactive; Cclosed; preserveAspect; startGroup] Introduction :[font = text; inactive; preserveAspect; endGroup] Dickinson College is integrating Mathematica-based assignments (either as in-class or homework assignments) into many of its core mathematics classes. In the three years since we began this process, we have seen that Mathematica can be a powerful learning tool for students in undergraduate mathematics classes. However, most students are not familiar with Mathematica's language and capabilities. In addition, it can be very difficult for them to learn both Mathematica and the concepts of the mathematics at the same time. This motivated us to design packages that allow students to concentrate on the mathematical concepts rather than Mathematica's syntax and programming language. In this article, we will discuss two new Mathematica packages. The first package, ElementaryRowOps, is designed to help reduce the frustration most of us encounter while putting a matrix into reduced row echelon form, but retain the strategy used to place a matrix in this form. The second package, PictureThis, allows the user to visualize the effects of a linear transformation (represented by a 2 ´ 2 matrix) on a set of points in the plane. ;[s] 20:0,0;1,1;33,2;44,3;218,4;229,5;359,6;370,7;462,8;473,9;642,10;653,11;731,12;742,13;773,14;789,15;991,16;1002,17;1092,18;1093,19;1136,-1; 20:1,16,12,Times,0,18,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,Times,2,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,Times,2,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,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,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = section; inactive; Cclosed; preserveAspect; startGroup] ElementaryRowOps :[font = text; inactive; preserveAspect] After students become familar with the basic algebraic operations associated with matrices, they are introduced to the notion of the reduced row echelon form of a matrix. As the course progresses they learn that this form of a matrix contains a wealth of information about the original matrix. Before the value of the reduced row echelon form is unveiled to the students, they spend time learning how to take a matrix and put it into its reduced row echelon form via the elementary row operations. Row reducing matrices is often a tedious process and it is easy to make arithmetic errors. This very often leads to unnecessary frustration. :[font = text; inactive; preserveAspect] Mathematica can be used to relieve this frustration: Mathematica can automatically put a matrix into its reduced row echelon form by using the command RowReduce. For example if we take the matrix M, :[font = input; Cclosed; preserveAspect; startGroup] M={{0,0,1,5},{0,2,0,2},{1,2,0,4}}; MatrixForm[M] :[font = output; output; inactive; preserveAspect; endGroup] MatrixForm[{{0, 0, 1, 5}, {0, 2, 0, 2}, {1, 2, 0, 4}}] ;[o] 0 0 1 5 0 2 0 2 1 2 0 4 :[font = text; inactive; preserveAspect] and ask Mathematica to give us the reduced row echelon form for M, we obtain: ;[s] 5:0,0;8,1;19,2;64,3;65,4;78,-1; 5: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; :[font = input; Cclosed; preserveAspect; startGroup] MatrixForm[RowReduce[M]] :[font = output; output; inactive; preserveAspect; endGroup] MatrixForm[{{1, 0, 0, 2}, {0, 1, 0, 1}, {0, 0, 1, 5}}] ;[o] 1 0 0 2 0 1 0 1 0 0 1 5 :[font = text; inactive; preserveAspect] With this Mathematica function at our disposal you might well ask why we should ask our students to perform the row reduction by hand. Our response would be to ask, "What if we are required to keep track of the elementary row operations used along the way to obtain the reduced row echelon form?" For example, this would be necessary if we needed to write our invertible matrix as a product of elementary matrices. In this case Mathematica's RowReduce let's us verify that we have obtained the correct reduced row echelon form, but it doesn't give us a clue as to how we got there. In the event our "hand-computed" reduced row echelon form for our matrix is deemed incorrect by Mathematica, we are sentenced to either repeat the entire process (with no guarantee of a correct result) or perform a painstaking check of the arithmetic at each step. Such mistakes fuel frustration and divert attention from the actual concept of row reduction. This motivated us to create a Mathematica package, ElementaryRowOps, to perform the elementary row operations. ;[s] 13:0,0;10,1;21,2;432,3;443,4;446,5;455,6;683,7;694,8;978,9;989,10;999,11;1015,12;1058,-1; 13: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,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,Times,2,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; :[font = text; inactive; preserveAspect] The ElementaryRowOps package contains three commands: RowOp1, RowOp2, and RowOp3. :[font = input; Cclosed; preserveAspect; startGroup] ?RowOp1 :[font = info; inactive; preserveAspect; endGroup] RowOp1[M,a,b] Interchanges rows 'a' and 'b' of Matrix 'M'. :[font = input; Cclosed; preserveAspect; startGroup] ?RowOp2 :[font = info; inactive; preserveAspect; endGroup] RowOp2[M,s,a] Replaces row 'a' with the scalar multiple 's' times row 'a'. :[font = input; Cclosed; preserveAspect; startGroup] ?RowOp3 :[font = info; inactive; preserveAspect; endGroup] RowOp3[M,s,a,b] Replaces row 'b' with ('s' * row 'a') + row 'b'. :[font = text; inactive; preserveAspect] Using the matrix M introduced above, we demonstrate how the ElementaryRowOps package can be used to obtain the reduced row echelon form for M: ;[s] 7:0,0;17,1;18,2;60,3;76,4;140,5;141,6;143,-1; 7: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,Courier,1,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; Cclosed; preserveAspect; startGroup] MatrixForm[M] :[font = output; output; inactive; preserveAspect; endGroup] MatrixForm[{{0, 0, 1, 5}, {0, 2, 0, 2}, {1, 2, 0, 4}}] ;[o] 0 0 1 5 0 2 0 2 1 2 0 4 :[font = input; Cclosed; preserveAspect; startGroup] RowOp1[M,1,3] :[font = print; inactive; preserveAspect; endGroup] 1 2 0 4 0 2 0 2 0 0 1 5 :[font = input; Cclosed; preserveAspect; startGroup] RowOp2[%,1/2,2] :[font = print; inactive; preserveAspect; endGroup] 1 2 0 4 0 1 0 1 0 0 1 5 :[font = input; Cclosed; preserveAspect; startGroup] RowOp3[%,-2,2,1] :[font = print; inactive; preserveAspect; endGroup] 1 0 0 2 0 1 0 1 0 0 1 5 :[font = text; inactive; preserveAspect; endGroup] As seen above, students who use this package for row reduction are still responsible for understanding the strategy required to put a matrix into its reduced row echelon form. However, this package offers a tool which allows students to keep track of the elementary row operations performed and to verify the arithmetic involved in each step. The code for ElementaryRowOps can be found at the end of this article. ;[s] 3:0,0;358,1;374,2;416,-1; 3: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; :[font = section; inactive; Cclosed; preserveAspect; startGroup] PictureThis :[font = text; inactive; preserveAspect] When we teach students about real-valued functions of one variable, we spend large amounts of time studying the graph of the function. As students go on and take third semester calculus, the graphs associated with functions of two variables become harder and harder to visualize, but we still spend a good portion of the semester drawing and classifying the resulting surfaces. Then in linear algebra we introduce a new type of function: the linear transformation. We emphasize the algebraic properties of these maps and spend little, if no time, discussing the geometric properties. The Mathematica package PictureThis was written to help students "discover" the geometric properties of linear transformations from Â2 to Â2. The usage statement for PictureThis is displayed below. ;[s] 13:0,0;593,1;604,2;613,3;624,4;721,5;722,6;723,7;727,8;728,9;729,10;756,11;767,12;788,-1; 13: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,0,0,Symbol,0,12,0,0,0;1,9,7,Times,32,10,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,9,7,Times,32,10,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; :[font = input; Cclosed; preserveAspect; startGroup] ?PictureThis :[font = info; inactive; preserveAspect; endGroup] PictureThis[{{x1,y1},...,{xn,yn}},A] plots the points {x1,y1}, {x2,y2}, ... , {xn,yn} and their image under the linear transformation represented by the 2 x 2 matrix A. :[font = text; inactive; preserveAspect] For example students could be invited to determine the effects of applying a linear transformation T: Â2 ® Â2 represented by matrices of the form ;[s] 9:0,0;102,1;103,2;104,3;105,4;106,5;107,6;108,7;109,8;146,-1; 9:1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,9,7,Times,32,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,9,7,Times,32,10,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 124; pictureTop = 1; pictureWidth = 215; pictureHeight = 53; pictureID = 21608] :[font = text; inactive; preserveAspect] where r is any nonzero real number. To further aid the student in this process, one can pre-define regions in the plane so that the student is not faced with the cumbersome task of selecting and typing in large sets of points. We will use four such subsets of the plane entitled Region1, Region2, Region3, and Region4. (The code for these lists may be found at the end of the article.) ;[s] 11:0,0;6,1;7,2;281,3;288,4;290,5;297,6;299,7;306,8;312,9;319,10;389,-1; 11: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,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; :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 32; pictureTop = 1; pictureWidth = 308; pictureHeight = 308] %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.47619 0.0238095 0.47619 [ [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p % Start of sub-graphic p 0.0238095 0.0238095 0.477324 0.477324 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.333333 0.5 0.333333 [ [(-1.5)] 0 .5 0 2 Msboxa [(-1)] .16667 .5 0 2 Msboxa [(-0.5)] .33333 .5 0 2 Msboxa [(0.5)] .66667 .5 0 2 Msboxa [(1)] .83333 .5 0 2 Msboxa [(1.5)] 1 .5 0 2 Msboxa [(Region3)] .5 1 0 -2 Msboxa [(-1.5)] .4875 0 1 0 Msboxa [(-1)] .4875 .16667 1 0 Msboxa [(-0.5)] .4875 .33333 1 0 Msboxa [(0.5)] .4875 .66667 1 0 Msboxa [(1)] .4875 .83333 1 0 Msboxa [(1.5)] .4875 1 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w 0 .5 m 0 .50625 L s P [(-1.5)] 0 .5 0 2 Mshowa p .002 w .16667 .5 m .16667 .50625 L s P [(-1)] .16667 .5 0 2 Mshowa p .002 w .33333 .5 m .33333 .50625 L s P [(-0.5)] .33333 .5 0 2 Mshowa p .002 w .66667 .5 m .66667 .50625 L s P [(0.5)] .66667 .5 0 2 Mshowa p .002 w .83333 .5 m .83333 .50625 L s P [(1)] .83333 .5 0 2 Mshowa p .002 w 1 .5 m 1 .50625 L s P [(1.5)] 1 .5 0 2 Mshowa p .001 w .03333 .5 m .03333 .50375 L s P p .001 w .06667 .5 m .06667 .50375 L s P p .001 w .1 .5 m .1 .50375 L s P p .001 w .13333 .5 m .13333 .50375 L s P p .001 w .2 .5 m .2 .50375 L s P p .001 w .23333 .5 m .23333 .50375 L s P p .001 w .26667 .5 m .26667 .50375 L s P p .001 w .3 .5 m .3 .50375 L s P p .001 w .36667 .5 m .36667 .50375 L s P p .001 w .4 .5 m .4 .50375 L s P p .001 w .43333 .5 m .43333 .50375 L s P p .001 w .46667 .5 m .46667 .50375 L s P p .001 w .53333 .5 m .53333 .50375 L s P p .001 w .56667 .5 m .56667 .50375 L s P p .001 w .6 .5 m .6 .50375 L s P p .001 w .63333 .5 m .63333 .50375 L s P p .001 w .7 .5 m .7 .50375 L s P p .001 w .73333 .5 m .73333 .50375 L s P p .001 w .76667 .5 m .76667 .50375 L s P p .001 w .8 .5 m .8 .50375 L s P p .001 w .86667 .5 m .86667 .50375 L s P p .001 w .9 .5 m .9 .50375 L s P p .001 w .93333 .5 m .93333 .50375 L s P p .001 w .96667 .5 m .96667 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Region3)] .5 1 0 -2 Mshowa p .002 w .5 0 m .50625 0 L s P [(-1.5)] .4875 0 1 0 Mshowa p .002 w .5 .16667 m .50625 .16667 L s P [(-1)] .4875 .16667 1 0 Mshowa p .002 w .5 .33333 m .50625 .33333 L s P [(-0.5)] .4875 .33333 1 0 Mshowa p .002 w .5 .66667 m .50625 .66667 L s P [(0.5)] .4875 .66667 1 0 Mshowa p .002 w .5 .83333 m .50625 .83333 L s P [(1)] .4875 .83333 1 0 Mshowa p .002 w .5 1 m .50625 1 L s P [(1.5)] .4875 1 1 0 Mshowa p .001 w .5 .03333 m .50375 .03333 L s P p .001 w .5 .06667 m .50375 .06667 L s P p .001 w .5 .1 m .50375 .1 L s P p .001 w .5 .13333 m .50375 .13333 L s P p .001 w .5 .2 m .50375 .2 L s P p .001 w .5 .23333 m .50375 .23333 L s P p .001 w .5 .26667 m .50375 .26667 L s P p .001 w .5 .3 m .50375 .3 L s P p .001 w .5 .36667 m .50375 .36667 L s P p .001 w .5 .4 m .50375 .4 L s P p .001 w .5 .43333 m .50375 .43333 L s P p .001 w .5 .46667 m .50375 .46667 L s P p .001 w .5 .53333 m .50375 .53333 L s P p .001 w .5 .56667 m .50375 .56667 L s P p .001 w .5 .6 m .50375 .6 L s P p .001 w .5 .63333 m .50375 .63333 L s P p .001 w .5 .7 m .50375 .7 L s P p .001 w .5 .73333 m .50375 .73333 L s P p .001 w .5 .76667 m .50375 .76667 L s P p .001 w .5 .8 m .50375 .8 L s P p .001 w .5 .86667 m .50375 .86667 L s P p .001 w .5 .9 m .50375 .9 L s P p .001 w .5 .93333 m .50375 .93333 L s P p .001 w .5 .96667 m .50375 .96667 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p 1 0 0 r p .015 w .83252 .52325 Mdot .83009 .54639 Mdot .82605 .5693 Mdot .82042 .59188 Mdot .81323 .61401 Mdot .80452 .63558 Mdot .79432 .65649 Mdot .78268 .67664 Mdot .76967 .69593 Mdot .75535 .71426 Mdot .73978 .73155 Mdot .72304 .74771 Mdot .70522 .76267 Mdot .6864 .77635 Mdot .66667 .78868 Mdot .64612 .7996 Mdot .62487 .80906 Mdot .60301 .81702 Mdot .58064 .82343 Mdot .55788 .82827 Mdot .53484 .83151 Mdot .51163 .83313 Mdot .48837 .83313 Mdot .46516 .83151 Mdot .44212 .82827 Mdot .41936 .82343 Mdot .39699 .81702 Mdot .37513 .80906 Mdot .35388 .7996 Mdot .33333 .78868 Mdot .3136 .77635 Mdot .29478 .76267 Mdot .27696 .74771 Mdot .26022 .73155 Mdot .24465 .71426 Mdot .23033 .69593 Mdot .21732 .67664 Mdot .20568 .65649 Mdot .19548 .63558 Mdot .18677 .61401 Mdot .17958 .59188 Mdot .17395 .5693 Mdot .16991 .54639 Mdot .16748 .52325 Mdot .16667 .5 Mdot .16748 .47675 Mdot .16991 .45361 Mdot .17395 .4307 Mdot .17958 .40812 Mdot .18677 .38599 Mdot .19548 .36442 Mdot .20568 .34351 Mdot .21732 .32336 Mdot .23033 .30407 Mdot .24465 .28574 Mdot .26022 .26845 Mdot .27696 .25229 Mdot .29478 .23733 Mdot .3136 .22365 Mdot .33333 .21132 Mdot .35388 .2004 Mdot .37513 .19094 Mdot .39699 .18298 Mdot .41936 .17657 Mdot .44212 .17173 Mdot .46516 .16849 Mdot .48837 .16687 Mdot .51163 .16687 Mdot .53484 .16849 Mdot .55788 .17173 Mdot .58064 .17657 Mdot .60301 .18298 Mdot .62487 .19094 Mdot .64612 .2004 Mdot .66667 .21132 Mdot .6864 .22365 Mdot .70522 .23733 Mdot .72304 .25229 Mdot .73978 .26845 Mdot .75535 .28574 Mdot .76967 .30407 Mdot .78268 .32336 Mdot .79432 .34351 Mdot .80452 .36442 Mdot .81323 .38599 Mdot .82042 .40812 Mdot .82605 .4307 Mdot .83009 .45361 Mdot .83252 .47675 Mdot .83333 .5 Mdot P P MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0238095 0.97619 0.477324 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.1 0.5 0.1 [ [(-4)] .1 .5 0 2 Msboxa [(-2)] .3 .5 0 2 Msboxa [(2)] .7 .5 0 2 Msboxa [(4)] .9 .5 0 2 Msboxa [(Region4)] .5 1 0 -2 Msboxa [(-4)] .4875 .1 1 0 Msboxa [(-2)] .4875 .3 1 0 Msboxa [(2)] .4875 .7 1 0 Msboxa [(4)] .4875 .9 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .1 .5 m .1 .50625 L s P [(-4)] .1 .5 0 2 Mshowa p .002 w .3 .5 m .3 .50625 L s P [(-2)] .3 .5 0 2 Mshowa p .002 w .7 .5 m .7 .50625 L s P [(2)] .7 .5 0 2 Mshowa p .002 w .9 .5 m .9 .50625 L s P [(4)] .9 .5 0 2 Mshowa p .001 w .14 .5 m .14 .50375 L s P p .001 w .18 .5 m .18 .50375 L s P p .001 w .22 .5 m .22 .50375 L s P p .001 w .26 .5 m .26 .50375 L s P p .001 w .34 .5 m .34 .50375 L s P p .001 w .38 .5 m .38 .50375 L s P p .001 w .42 .5 m .42 .50375 L s P p .001 w .46 .5 m .46 .50375 L s P p .001 w .54 .5 m .54 .50375 L s P p .001 w .58 .5 m .58 .50375 L s P p .001 w .62 .5 m .62 .50375 L s P p .001 w .66 .5 m .66 .50375 L s P p .001 w .74 .5 m .74 .50375 L s P p .001 w .78 .5 m .78 .50375 L s P p .001 w .82 .5 m .82 .50375 L s P p .001 w .86 .5 m .86 .50375 L s P p .001 w .06 .5 m .06 .50375 L s P p .001 w .02 .5 m .02 .50375 L s P p .001 w .94 .5 m .94 .50375 L s P p .001 w .98 .5 m .98 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Region4)] .5 1 0 -2 Mshowa p .002 w .5 .1 m .50625 .1 L s P [(-4)] .4875 .1 1 0 Mshowa p .002 w .5 .3 m .50625 .3 L s P [(-2)] .4875 .3 1 0 Mshowa p .002 w .5 .7 m .50625 .7 L s P [(2)] .4875 .7 1 0 Mshowa p .002 w .5 .9 m .50625 .9 L s P [(4)] .4875 .9 1 0 Mshowa p .001 w .5 .14 m .50375 .14 L s P p .001 w .5 .18 m .50375 .18 L s P p .001 w .5 .22 m .50375 .22 L s P p .001 w .5 .26 m .50375 .26 L s P p .001 w .5 .34 m .50375 .34 L s P p .001 w .5 .38 m .50375 .38 L s P p .001 w .5 .42 m .50375 .42 L s P p .001 w .5 .46 m .50375 .46 L s P p .001 w .5 .54 m .50375 .54 L s P p .001 w .5 .58 m .50375 .58 L s P p .001 w .5 .62 m .50375 .62 L s P p .001 w .5 .66 m .50375 .66 L s P p .001 w .5 .74 m .50375 .74 L s P p .001 w .5 .78 m .50375 .78 L s P p .001 w .5 .82 m .50375 .82 L s P p .001 w .5 .86 m .50375 .86 L s P p .001 w .5 .06 m .50375 .06 L s P p .001 w .5 .02 m .50375 .02 L s P p .001 w .5 .94 m .50375 .94 L s P p .001 w .5 .98 m .50375 .98 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p 1 0 0 r p .015 w .4 .3 Mdot .41 .32 Mdot .42 .34 Mdot .43 .36 Mdot .44 .38 Mdot .45 .4 Mdot .46 .42 Mdot .47 .44 Mdot .48 .46 Mdot .49 .48 Mdot .5 .5 Mdot .51 .52 Mdot .52 .54 Mdot .53 .56 Mdot .54 .58 Mdot .55 .6 Mdot .56 .62 Mdot .57 .64 Mdot .58 .66 Mdot .59 .68 Mdot .6 .7 Mdot .61 .72 Mdot .62 .74 Mdot .63 .76 Mdot .64 .78 Mdot .65 .8 Mdot .66 .82 Mdot .67 .84 Mdot .68 .86 Mdot .69 .88 Mdot .7 .9 Mdot P P MathSubEnd P % End of sub-graphic P p % Start of sub-graphic p 0.0238095 0.522676 0.477324 0.97619 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.1 0.5 0.1 [ [(-4)] .1 .5 0 2 Msboxa [(-2)] .3 .5 0 2 Msboxa [(2)] .7 .5 0 2 Msboxa [(4)] .9 .5 0 2 Msboxa [(Region1)] .5 1 0 -2 Msboxa [(-4)] .4875 .1 1 0 Msboxa [(-2)] .4875 .3 1 0 Msboxa [(2)] .4875 .7 1 0 Msboxa [(4)] .4875 .9 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .1 .5 m .1 .50625 L s P [(-4)] .1 .5 0 2 Mshowa p .002 w .3 .5 m .3 .50625 L s P [(-2)] .3 .5 0 2 Mshowa p .002 w .7 .5 m .7 .50625 L s P [(2)] .7 .5 0 2 Mshowa p .002 w .9 .5 m .9 .50625 L s P [(4)] .9 .5 0 2 Mshowa p .001 w .14 .5 m .14 .50375 L s P p .001 w .18 .5 m .18 .50375 L s P p .001 w .22 .5 m .22 .50375 L s P p .001 w .26 .5 m .26 .50375 L s P p .001 w .34 .5 m .34 .50375 L s P p .001 w .38 .5 m .38 .50375 L s P p .001 w .42 .5 m .42 .50375 L s P p .001 w .46 .5 m .46 .50375 L s P p .001 w .54 .5 m .54 .50375 L s P p .001 w .58 .5 m .58 .50375 L s P p .001 w .62 .5 m .62 .50375 L s P p .001 w .66 .5 m .66 .50375 L s P p .001 w .74 .5 m .74 .50375 L s P p .001 w .78 .5 m .78 .50375 L s P p .001 w .82 .5 m .82 .50375 L s P p .001 w .86 .5 m .86 .50375 L s P p .001 w .06 .5 m .06 .50375 L s P p .001 w .02 .5 m .02 .50375 L s P p .001 w .94 .5 m .94 .50375 L s P p .001 w .98 .5 m .98 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Region1)] .5 1 0 -2 Mshowa p .002 w .5 .1 m .50625 .1 L s P [(-4)] .4875 .1 1 0 Mshowa p .002 w .5 .3 m .50625 .3 L s P [(-2)] .4875 .3 1 0 Mshowa p .002 w .5 .7 m .50625 .7 L s P [(2)] .4875 .7 1 0 Mshowa p .002 w .5 .9 m .50625 .9 L s P [(4)] .4875 .9 1 0 Mshowa p .001 w .5 .14 m .50375 .14 L s P p .001 w .5 .18 m .50375 .18 L s P p .001 w .5 .22 m .50375 .22 L s P p .001 w .5 .26 m .50375 .26 L s P p .001 w .5 .34 m .50375 .34 L s P p .001 w .5 .38 m .50375 .38 L s P p .001 w .5 .42 m .50375 .42 L s P p .001 w .5 .46 m .50375 .46 L s P p .001 w .5 .54 m .50375 .54 L s P p .001 w .5 .58 m .50375 .58 L s P p .001 w .5 .62 m .50375 .62 L s P p .001 w .5 .66 m .50375 .66 L s P p .001 w .5 .74 m .50375 .74 L s P p .001 w .5 .78 m .50375 .78 L s P p .001 w .5 .82 m .50375 .82 L s P p .001 w .5 .86 m .50375 .86 L s P p .001 w .5 .06 m .50375 .06 L s P p .001 w .5 .02 m .50375 .02 L s P p .001 w .5 .94 m .50375 .94 L s P p .001 w .5 .98 m .50375 .98 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p 1 0 0 r p .015 w .5 .5 Mdot .5 .55 Mdot .5 .6 Mdot .5 .65 Mdot .5 .7 Mdot .5 .75 Mdot .5 .8 Mdot .5 .85 Mdot .5 .9 Mdot .5 .95 Mdot .5 1 Mdot .55 .5 Mdot .55 .55 Mdot .55 .6 Mdot .55 .65 Mdot .55 .7 Mdot .55 .75 Mdot .55 .8 Mdot .55 .85 Mdot .55 .9 Mdot .55 .95 Mdot .55 1 Mdot .6 .5 Mdot .6 .55 Mdot .6 .6 Mdot .6 .65 Mdot .6 .7 Mdot .6 .75 Mdot .6 .8 Mdot .6 .85 Mdot .6 .9 Mdot .6 .95 Mdot .6 1 Mdot .65 .5 Mdot .65 .55 Mdot .65 .6 Mdot .65 .65 Mdot .65 .7 Mdot .65 .75 Mdot .65 .8 Mdot .65 .85 Mdot .65 .9 Mdot .65 .95 Mdot .65 1 Mdot .7 .5 Mdot .7 .55 Mdot .7 .6 Mdot .7 .65 Mdot .7 .7 Mdot .7 .75 Mdot .7 .8 Mdot .7 .85 Mdot .7 .9 Mdot .7 .95 Mdot .7 1 Mdot .75 .5 Mdot .75 .55 Mdot .75 .6 Mdot .75 .65 Mdot .75 .7 Mdot .75 .75 Mdot .75 .8 Mdot .75 .85 Mdot .75 .9 Mdot .75 .95 Mdot .75 1 Mdot .8 .5 Mdot .8 .55 Mdot .8 .6 Mdot .8 .65 Mdot .8 .7 Mdot .8 .75 Mdot .8 .8 Mdot .8 .85 Mdot .8 .9 Mdot .8 .95 Mdot .8 1 Mdot .85 .5 Mdot .85 .55 Mdot .85 .6 Mdot .85 .65 Mdot .85 .7 Mdot .85 .75 Mdot .85 .8 Mdot .85 .85 Mdot .85 .9 Mdot .85 .95 Mdot .85 1 Mdot .9 .5 Mdot .9 .55 Mdot .9 .6 Mdot .9 .65 Mdot .9 .7 Mdot .9 .75 Mdot .9 .8 Mdot .9 .85 Mdot .9 .9 Mdot .9 .95 Mdot .9 1 Mdot .95 .5 Mdot .95 .55 Mdot .95 .6 Mdot .95 .65 Mdot .95 .7 Mdot .95 .75 Mdot .95 .8 Mdot .95 .85 Mdot .95 .9 Mdot .95 .95 Mdot .95 1 Mdot 1 .5 Mdot 1 .55 Mdot 1 .6 Mdot 1 .65 Mdot 1 .7 Mdot 1 .75 Mdot 1 .8 Mdot 1 .85 Mdot 1 .9 Mdot 1 .95 Mdot 1 1 Mdot P P MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.522676 0.97619 0.97619 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.1 0.5 0.1 [ [(-4)] .1 .5 0 2 Msboxa [(-2)] .3 .5 0 2 Msboxa [(2)] .7 .5 0 2 Msboxa [(4)] .9 .5 0 2 Msboxa [(Region2)] .5 1 0 -2 Msboxa [(-4)] .4875 .1 1 0 Msboxa [(-2)] .4875 .3 1 0 Msboxa [(2)] .4875 .7 1 0 Msboxa [(4)] .4875 .9 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .1 .5 m .1 .50625 L s P [(-4)] .1 .5 0 2 Mshowa p .002 w .3 .5 m .3 .50625 L s P [(-2)] .3 .5 0 2 Mshowa p .002 w .7 .5 m .7 .50625 L s P [(2)] .7 .5 0 2 Mshowa p .002 w .9 .5 m .9 .50625 L s P [(4)] .9 .5 0 2 Mshowa p .001 w .14 .5 m .14 .50375 L s P p .001 w .18 .5 m .18 .50375 L s P p .001 w .22 .5 m .22 .50375 L s P p .001 w .26 .5 m .26 .50375 L s P p .001 w .34 .5 m .34 .50375 L s P p .001 w .38 .5 m .38 .50375 L s P p .001 w .42 .5 m .42 .50375 L s P p .001 w .46 .5 m .46 .50375 L s P p .001 w .54 .5 m .54 .50375 L s P p .001 w .58 .5 m .58 .50375 L s P p .001 w .62 .5 m .62 .50375 L s P p .001 w .66 .5 m .66 .50375 L s P p .001 w .74 .5 m .74 .50375 L s P p .001 w .78 .5 m .78 .50375 L s P p .001 w .82 .5 m .82 .50375 L s P p .001 w .86 .5 m .86 .50375 L s P p .001 w .06 .5 m .06 .50375 L s P p .001 w .02 .5 m .02 .50375 L s P p .001 w .94 .5 m .94 .50375 L s P p .001 w .98 .5 m .98 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Region2)] .5 1 0 -2 Mshowa p .002 w .5 .1 m .50625 .1 L s P [(-4)] .4875 .1 1 0 Mshowa p .002 w .5 .3 m .50625 .3 L s P [(-2)] .4875 .3 1 0 Mshowa p .002 w .5 .7 m .50625 .7 L s P [(2)] .4875 .7 1 0 Mshowa p .002 w .5 .9 m .50625 .9 L s P [(4)] .4875 .9 1 0 Mshowa p .001 w .5 .14 m .50375 .14 L s P p .001 w .5 .18 m .50375 .18 L s P p .001 w .5 .22 m .50375 .22 L s P p .001 w .5 .26 m .50375 .26 L s P p .001 w .5 .34 m .50375 .34 L s P p .001 w .5 .38 m .50375 .38 L s P p .001 w .5 .42 m .50375 .42 L s P p .001 w .5 .46 m .50375 .46 L s P p .001 w .5 .54 m .50375 .54 L s P p .001 w .5 .58 m .50375 .58 L s P p .001 w .5 .62 m .50375 .62 L s P p .001 w .5 .66 m .50375 .66 L s P p .001 w .5 .74 m .50375 .74 L s P p .001 w .5 .78 m .50375 .78 L s P p .001 w .5 .82 m .50375 .82 L s P p .001 w .5 .86 m .50375 .86 L s P p .001 w .5 .06 m .50375 .06 L s P p .001 w .5 .02 m .50375 .02 L s P p .001 w .5 .94 m .50375 .94 L s P p .001 w .5 .98 m .50375 .98 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p 1 0 0 r p .015 w .5 .5 Mdot .55 .5 Mdot .55 .55 Mdot .6 .5 Mdot .6 .55 Mdot .6 .6 Mdot .65 .5 Mdot .65 .55 Mdot .65 .6 Mdot .65 .65 Mdot .7 .5 Mdot .7 .55 Mdot .7 .6 Mdot .7 .65 Mdot .7 .7 Mdot .75 .5 Mdot .75 .55 Mdot .75 .6 Mdot .75 .65 Mdot .75 .7 Mdot .75 .75 Mdot .8 .5 Mdot .8 .55 Mdot .8 .6 Mdot .8 .65 Mdot .8 .7 Mdot .8 .75 Mdot .8 .8 Mdot .85 .5 Mdot .85 .55 Mdot .85 .6 Mdot .85 .65 Mdot .85 .7 Mdot .85 .75 Mdot .85 .8 Mdot .85 .85 Mdot .9 .5 Mdot .9 .55 Mdot .9 .6 Mdot .9 .65 Mdot .9 .7 Mdot .9 .75 Mdot .9 .8 Mdot .9 .85 Mdot .9 .9 Mdot .95 .5 Mdot .95 .55 Mdot .95 .6 Mdot .95 .65 Mdot .95 .7 Mdot .95 .75 Mdot .95 .8 Mdot .95 .85 Mdot .95 .9 Mdot .95 .95 Mdot 1 .5 Mdot 1 .55 Mdot 1 .6 Mdot 1 .65 Mdot 1 .7 Mdot 1 .75 Mdot 1 .8 Mdot 1 .85 Mdot 1 .9 Mdot 1 .95 Mdot 1 1 Mdot P P MathSubEnd P % End of sub-graphic P P % End of Graphics MathPictureEnd :[font = text; inactive; preserveAspect] The student could be asked to replace r in the first matrix by the scalars 2, 1/2, and -3, and describe in each case how the linear transformation T(x)=Ax changes each of the four given regions. The tool they are to use is PictureThis. For example, when r=2, we would type and evaluate the following cells: ;[s] 12:0,0;38,1;39,2;149,3;150,4;152,5;153,6;154,7;224,8;235,9;256,10;257,11;309,-1; 12: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,Times,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,10,8,Times,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; :[font = input; preserveAspect] A={{2,0},{0,1}}; :[font = input; Cclosed; preserveAspect; startGroup] PictureThis[Region1,A] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 375; pictureHeight = 89] %! %%Creator: Mathematica %%AspectRatio: .2381 MathPictureStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.02381 0.47619 0.005669 0.47619 [ [ 0 0 0 0 ] [ 1 .2381 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .2381 L 0 .2381 L closepath clip newpath p p % Start of sub-graphic p 0.02381 0.005669 0.477324 0.232426 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.04878 0.25 0.04878 [ [(-10)] .0122 .25 0 2 Msboxa [(-5)] .2561 .25 0 2 Msboxa [(5)] .7439 .25 0 2 Msboxa [(10)] .9878 .25 0 2 Msboxa [(Domain)] .5 .5 0 -2 Msboxa [(-4)] .4875 .05488 1 0 Msboxa [(-2)] .4875 .15244 1 0 Msboxa [(2)] .4875 .34756 1 0 Msboxa [(4)] .4875 .44512 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .501 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .0122 .25 m .0122 .25625 L s P [(-10)] .0122 .25 0 2 Mshowa p .002 w .2561 .25 m .2561 .25625 L s P [(-5)] .2561 .25 0 2 Mshowa p .002 w .7439 .25 m .7439 .25625 L s P [(5)] .7439 .25 0 2 Mshowa p .002 w .9878 .25 m .9878 .25625 L s P [(10)] .9878 .25 0 2 Mshowa p .001 w .06098 .25 m .06098 .25375 L s P p .001 w .10976 .25 m .10976 .25375 L s P p .001 w .15854 .25 m .15854 .25375 L s P p .001 w .20732 .25 m .20732 .25375 L s P p .001 w .30488 .25 m .30488 .25375 L s P p .001 w .35366 .25 m .35366 .25375 L s P p .001 w .40244 .25 m .40244 .25375 L s P p .001 w .45122 .25 m .45122 .25375 L s P p .001 w .54878 .25 m .54878 .25375 L s P p .001 w .59756 .25 m .59756 .25375 L s P p .001 w .64634 .25 m .64634 .25375 L s P p .001 w .69512 .25 m .69512 .25375 L s P p .001 w .79268 .25 m .79268 .25375 L s P p .001 w .84146 .25 m .84146 .25375 L s P p .001 w .89024 .25 m .89024 .25375 L s P p .001 w .93902 .25 m .93902 .25375 L s P p .002 w 0 .25 m 1 .25 L s P [(Domain)] .5 .5 0 -2 Mshowa p .002 w .5 .05488 m .50625 .05488 L s P [(-4)] .4875 .05488 1 0 Mshowa p .002 w .5 .15244 m .50625 .15244 L s P [(-2)] .4875 .15244 1 0 Mshowa p .002 w .5 .34756 m .50625 .34756 L s P [(2)] .4875 .34756 1 0 Mshowa p .002 w .5 .44512 m .50625 .44512 L s P [(4)] .4875 .44512 1 0 Mshowa p .001 w .5 .07439 m .50375 .07439 L s P p .001 w .5 .0939 m .50375 .0939 L s P p .001 w .5 .11341 m .50375 .11341 L s P p .001 w .5 .13293 m .50375 .13293 L s P p .001 w .5 .17195 m .50375 .17195 L s P p .001 w .5 .19146 m .50375 .19146 L s P p .001 w .5 .21098 m .50375 .21098 L s P p .001 w .5 .23049 m .50375 .23049 L s P p .001 w .5 .26951 m .50375 .26951 L s P p .001 w .5 .28902 m .50375 .28902 L s P p .001 w .5 .30854 m .50375 .30854 L s P p .001 w .5 .32805 m .50375 .32805 L s P p .001 w .5 .36707 m .50375 .36707 L s P p .001 w .5 .38659 m .50375 .38659 L s P p .001 w .5 .4061 m .50375 .4061 L s P p .001 w .5 .42561 m .50375 .42561 L s P p .001 w .5 .03537 m .50375 .03537 L s P p .001 w .5 .01585 m .50375 .01585 L s P p .001 w .5 .46463 m .50375 .46463 L s P p .001 w .5 .48415 m .50375 .48415 L s P p .002 w .5 0 m .5 .5 L s P P 0 0 m 1 0 L 1 .5 L 0 .5 L closepath clip newpath p p .8 0 0 r p .015 w .5 .25 Mdot .5 .27439 Mdot .5 .29878 Mdot .5 .32317 Mdot .5 .34756 Mdot .5 .37195 Mdot .5 .39634 Mdot .5 .42073 Mdot .5 .44512 Mdot .5 .46951 Mdot .5 .4939 Mdot .52439 .25 Mdot .52439 .27439 Mdot .52439 .29878 Mdot .52439 .32317 Mdot .52439 .34756 Mdot .52439 .37195 Mdot .52439 .39634 Mdot .52439 .42073 Mdot .52439 .44512 Mdot .52439 .46951 Mdot .52439 .4939 Mdot .54878 .25 Mdot .54878 .27439 Mdot .54878 .29878 Mdot .54878 .32317 Mdot .54878 .34756 Mdot .54878 .37195 Mdot .54878 .39634 Mdot .54878 .42073 Mdot P P p 0 .4 0 r p .015 w .54878 .44512 Mdot .54878 .46951 Mdot .54878 .4939 Mdot .57317 .25 Mdot .57317 .27439 Mdot .57317 .29878 Mdot .57317 .32317 Mdot .57317 .34756 Mdot .57317 .37195 Mdot .57317 .39634 Mdot .57317 .42073 Mdot .57317 .44512 Mdot .57317 .46951 Mdot .57317 .4939 Mdot .59756 .25 Mdot .59756 .27439 Mdot .59756 .29878 Mdot .59756 .32317 Mdot .59756 .34756 Mdot .59756 .37195 Mdot .59756 .39634 Mdot .59756 .42073 Mdot .59756 .44512 Mdot .59756 .46951 Mdot .59756 .4939 Mdot .62195 .25 Mdot .62195 .27439 Mdot .62195 .29878 Mdot .62195 .32317 Mdot .62195 .34756 Mdot P P p 1 0 1 r p .015 w .62195 .37195 Mdot .62195 .39634 Mdot .62195 .42073 Mdot .62195 .44512 Mdot .62195 .46951 Mdot .62195 .4939 Mdot .64634 .25 Mdot .64634 .27439 Mdot .64634 .29878 Mdot .64634 .32317 Mdot .64634 .34756 Mdot .64634 .37195 Mdot .64634 .39634 Mdot .64634 .42073 Mdot .64634 .44512 Mdot .64634 .46951 Mdot .64634 .4939 Mdot .67073 .25 Mdot .67073 .27439 Mdot .67073 .29878 Mdot .67073 .32317 Mdot .67073 .34756 Mdot .67073 .37195 Mdot .67073 .39634 Mdot .67073 .42073 Mdot .67073 .44512 Mdot .67073 .46951 Mdot .67073 .4939 Mdot .69512 .25 Mdot .69512 .27439 Mdot P P p 0 0 1 r p .015 w .69512 .29878 Mdot .69512 .32317 Mdot .69512 .34756 Mdot .69512 .37195 Mdot .69512 .39634 Mdot .69512 .42073 Mdot .69512 .44512 Mdot .69512 .46951 Mdot .69512 .4939 Mdot .71951 .25 Mdot .71951 .27439 Mdot .71951 .29878 Mdot .71951 .32317 Mdot .71951 .34756 Mdot .71951 .37195 Mdot .71951 .39634 Mdot .71951 .42073 Mdot .71951 .44512 Mdot .71951 .46951 Mdot .71951 .4939 Mdot .7439 .25 Mdot .7439 .27439 Mdot .7439 .29878 Mdot .7439 .32317 Mdot .7439 .34756 Mdot .7439 .37195 Mdot .7439 .39634 Mdot .7439 .42073 Mdot .7439 .44512 Mdot .7439 .46951 Mdot .7439 .4939 Mdot P P P MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.005669 0.97619 0.232426 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.04878 0.25 0.04878 [ [(-10)] .0122 .25 0 2 Msboxa [(-5)] .2561 .25 0 2 Msboxa [(5)] .7439 .25 0 2 Msboxa [(10)] .9878 .25 0 2 Msboxa [(Image)] .5 .5 0 -2 Msboxa [(-4)] .4875 .05488 1 0 Msboxa [(-2)] .4875 .15244 1 0 Msboxa [(2)] .4875 .34756 1 0 Msboxa [(4)] .4875 .44512 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .501 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .0122 .25 m .0122 .25625 L s P [(-10)] .0122 .25 0 2 Mshowa p .002 w .2561 .25 m .2561 .25625 L s P [(-5)] .2561 .25 0 2 Mshowa p .002 w .7439 .25 m .7439 .25625 L s P [(5)] .7439 .25 0 2 Mshowa p .002 w .9878 .25 m .9878 .25625 L s P [(10)] .9878 .25 0 2 Mshowa p .001 w .06098 .25 m .06098 .25375 L s P p .001 w .10976 .25 m .10976 .25375 L s P p .001 w .15854 .25 m .15854 .25375 L s P p .001 w .20732 .25 m .20732 .25375 L s P p .001 w .30488 .25 m .30488 .25375 L s P p .001 w .35366 .25 m .35366 .25375 L s P p .001 w .40244 .25 m .40244 .25375 L s P p .001 w .45122 .25 m .45122 .25375 L s P p .001 w .54878 .25 m .54878 .25375 L s P p .001 w .59756 .25 m .59756 .25375 L s P p .001 w .64634 .25 m .64634 .25375 L s P p .001 w .69512 .25 m .69512 .25375 L s P p .001 w .79268 .25 m .79268 .25375 L s P p .001 w .84146 .25 m .84146 .25375 L s P p .001 w .89024 .25 m .89024 .25375 L s P p .001 w .93902 .25 m .93902 .25375 L s P p .002 w 0 .25 m 1 .25 L s P [(Image)] .5 .5 0 -2 Mshowa p .002 w .5 .05488 m .50625 .05488 L s P [(-4)] .4875 .05488 1 0 Mshowa p .002 w .5 .15244 m .50625 .15244 L s P [(-2)] .4875 .15244 1 0 Mshowa p .002 w .5 .34756 m .50625 .34756 L s P [(2)] .4875 .34756 1 0 Mshowa p .002 w .5 .44512 m .50625 .44512 L s P [(4)] .4875 .44512 1 0 Mshowa p .001 w .5 .07439 m .50375 .07439 L s P p .001 w .5 .0939 m .50375 .0939 L s P p .001 w .5 .11341 m .50375 .11341 L s P p .001 w .5 .13293 m .50375 .13293 L s P p .001 w .5 .17195 m .50375 .17195 L s P p .001 w .5 .19146 m .50375 .19146 L s P p .001 w .5 .21098 m .50375 .21098 L s P p .001 w .5 .23049 m .50375 .23049 L s P p .001 w .5 .26951 m .50375 .26951 L s P p .001 w .5 .28902 m .50375 .28902 L s P p .001 w .5 .30854 m .50375 .30854 L s P p .001 w .5 .32805 m .50375 .32805 L s P p .001 w .5 .36707 m .50375 .36707 L s P p .001 w .5 .38659 m .50375 .38659 L s P p .001 w .5 .4061 m .50375 .4061 L s P p .001 w .5 .42561 m .50375 .42561 L s P p .001 w .5 .03537 m .50375 .03537 L s P p .001 w .5 .01585 m .50375 .01585 L s P p .001 w .5 .46463 m .50375 .46463 L s P p .001 w .5 .48415 m .50375 .48415 L s P p .002 w .5 0 m .5 .5 L s P P 0 0 m 1 0 L 1 .5 L 0 .5 L closepath clip newpath p p .8 0 0 r p .015 w .5 .25 Mdot .5 .27439 Mdot .5 .29878 Mdot .5 .32317 Mdot .5 .34756 Mdot .5 .37195 Mdot .5 .39634 Mdot .5 .42073 Mdot .5 .44512 Mdot .5 .46951 Mdot .5 .4939 Mdot .54878 .25 Mdot .54878 .27439 Mdot .54878 .29878 Mdot .54878 .32317 Mdot .54878 .34756 Mdot .54878 .37195 Mdot .54878 .39634 Mdot .54878 .42073 Mdot .54878 .44512 Mdot .54878 .46951 Mdot .54878 .4939 Mdot .59756 .25 Mdot .59756 .27439 Mdot .59756 .29878 Mdot .59756 .32317 Mdot .59756 .34756 Mdot .59756 .37195 Mdot .59756 .39634 Mdot .59756 .42073 Mdot P P p 0 .4 0 r p .015 w .59756 .44512 Mdot .59756 .46951 Mdot .59756 .4939 Mdot .64634 .25 Mdot .64634 .27439 Mdot .64634 .29878 Mdot .64634 .32317 Mdot .64634 .34756 Mdot .64634 .37195 Mdot .64634 .39634 Mdot .64634 .42073 Mdot .64634 .44512 Mdot .64634 .46951 Mdot .64634 .4939 Mdot .69512 .25 Mdot .69512 .27439 Mdot .69512 .29878 Mdot .69512 .32317 Mdot .69512 .34756 Mdot .69512 .37195 Mdot .69512 .39634 Mdot .69512 .42073 Mdot .69512 .44512 Mdot .69512 .46951 Mdot .69512 .4939 Mdot .7439 .25 Mdot .7439 .27439 Mdot .7439 .29878 Mdot .7439 .32317 Mdot .7439 .34756 Mdot P P p 1 0 1 r p .015 w .7439 .37195 Mdot .7439 .39634 Mdot .7439 .42073 Mdot .7439 .44512 Mdot .7439 .46951 Mdot .7439 .4939 Mdot .79268 .25 Mdot .79268 .27439 Mdot .79268 .29878 Mdot .79268 .32317 Mdot .79268 .34756 Mdot .79268 .37195 Mdot .79268 .39634 Mdot .79268 .42073 Mdot .79268 .44512 Mdot .79268 .46951 Mdot .79268 .4939 Mdot .84146 .25 Mdot .84146 .27439 Mdot .84146 .29878 Mdot .84146 .32317 Mdot .84146 .34756 Mdot .84146 .37195 Mdot .84146 .39634 Mdot .84146 .42073 Mdot .84146 .44512 Mdot .84146 .46951 Mdot .84146 .4939 Mdot .89024 .25 Mdot .89024 .27439 Mdot P P p 0 0 1 r p .015 w .89024 .29878 Mdot .89024 .32317 Mdot .89024 .34756 Mdot .89024 .37195 Mdot .89024 .39634 Mdot .89024 .42073 Mdot .89024 .44512 Mdot .89024 .46951 Mdot .89024 .4939 Mdot .93902 .25 Mdot .93902 .27439 Mdot .93902 .29878 Mdot .93902 .32317 Mdot .93902 .34756 Mdot .93902 .37195 Mdot .93902 .39634 Mdot .93902 .42073 Mdot .93902 .44512 Mdot .93902 .46951 Mdot .93902 .4939 Mdot .9878 .25 Mdot .9878 .27439 Mdot .9878 .29878 Mdot .9878 .32317 Mdot .9878 .34756 Mdot .9878 .37195 Mdot .9878 .39634 Mdot .9878 .42073 Mdot .9878 .44512 Mdot .9878 .46951 Mdot .9878 .4939 Mdot P P P MathSubEnd P % End of sub-graphic P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -GraphicsArray- :[font = input; Cclosed; preserveAspect; startGroup] PictureThis[Region2,A] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 405; pictureHeight = 96] %! %%Creator: Mathematica %%AspectRatio: .2381 MathPictureStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.02381 0.47619 0.005669 0.47619 [ [ 0 0 0 0 ] [ 1 .2381 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .2381 L 0 .2381 L closepath clip newpath p p % Start of sub-graphic p 0.02381 0.005669 0.477324 0.232426 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.04878 0.25 0.04878 [ [(-10)] .0122 .25 0 2 Msboxa [(-5)] .2561 .25 0 2 Msboxa [(5)] .7439 .25 0 2 Msboxa [(10)] .9878 .25 0 2 Msboxa [(Domain)] .5 .5 0 -2 Msboxa [(-4)] .4875 .05488 1 0 Msboxa [(-2)] .4875 .15244 1 0 Msboxa [(2)] .4875 .34756 1 0 Msboxa [(4)] .4875 .44512 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .501 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .0122 .25 m .0122 .25625 L s P [(-10)] .0122 .25 0 2 Mshowa p .002 w .2561 .25 m .2561 .25625 L s P [(-5)] .2561 .25 0 2 Mshowa p .002 w .7439 .25 m .7439 .25625 L s P [(5)] .7439 .25 0 2 Mshowa p .002 w .9878 .25 m .9878 .25625 L s P [(10)] .9878 .25 0 2 Mshowa p .001 w .06098 .25 m .06098 .25375 L s P p .001 w .10976 .25 m .10976 .25375 L s P p .001 w .15854 .25 m .15854 .25375 L s P p .001 w .20732 .25 m .20732 .25375 L s P p .001 w .30488 .25 m .30488 .25375 L s P p .001 w .35366 .25 m .35366 .25375 L s P p .001 w .40244 .25 m .40244 .25375 L s P p .001 w .45122 .25 m .45122 .25375 L s P p .001 w .54878 .25 m .54878 .25375 L s P p .001 w .59756 .25 m .59756 .25375 L s P p .001 w .64634 .25 m .64634 .25375 L s P p .001 w .69512 .25 m .69512 .25375 L s P p .001 w .79268 .25 m .79268 .25375 L s P p .001 w .84146 .25 m .84146 .25375 L s P p .001 w .89024 .25 m .89024 .25375 L s P p .001 w .93902 .25 m .93902 .25375 L s P p .002 w 0 .25 m 1 .25 L s P [(Domain)] .5 .5 0 -2 Mshowa p .002 w .5 .05488 m .50625 .05488 L s P [(-4)] .4875 .05488 1 0 Mshowa p .002 w .5 .15244 m .50625 .15244 L s P [(-2)] .4875 .15244 1 0 Mshowa p .002 w .5 .34756 m .50625 .34756 L s P [(2)] .4875 .34756 1 0 Mshowa p .002 w .5 .44512 m .50625 .44512 L s P [(4)] .4875 .44512 1 0 Mshowa p .001 w .5 .07439 m .50375 .07439 L s P p .001 w .5 .0939 m .50375 .0939 L s P p .001 w .5 .11341 m .50375 .11341 L s P p .001 w .5 .13293 m .50375 .13293 L s P p .001 w .5 .17195 m .50375 .17195 L s P p .001 w .5 .19146 m .50375 .19146 L s P p .001 w .5 .21098 m .50375 .21098 L s P p .001 w .5 .23049 m .50375 .23049 L s P p .001 w .5 .26951 m .50375 .26951 L s P p .001 w .5 .28902 m .50375 .28902 L s P p .001 w .5 .30854 m .50375 .30854 L s P p .001 w .5 .32805 m .50375 .32805 L s P p .001 w .5 .36707 m .50375 .36707 L s P p .001 w .5 .38659 m .50375 .38659 L s P p .001 w .5 .4061 m .50375 .4061 L s P p .001 w .5 .42561 m .50375 .42561 L s P p .001 w .5 .03537 m .50375 .03537 L s P p .001 w .5 .01585 m .50375 .01585 L s P p .001 w .5 .46463 m .50375 .46463 L s P p .001 w .5 .48415 m .50375 .48415 L s P p .002 w .5 0 m .5 .5 L s P P 0 0 m 1 0 L 1 .5 L 0 .5 L closepath clip newpath p p .8 0 0 r p .015 w .5 .25 Mdot .52439 .25 Mdot .52439 .27439 Mdot .54878 .25 Mdot .54878 .27439 Mdot .54878 .29878 Mdot .57317 .25 Mdot .57317 .27439 Mdot .57317 .29878 Mdot .57317 .32317 Mdot .59756 .25 Mdot .59756 .27439 Mdot .59756 .29878 Mdot .59756 .32317 Mdot .59756 .34756 Mdot .62195 .25 Mdot P P p 0 .4 0 r p .015 w .62195 .27439 Mdot .62195 .29878 Mdot .62195 .32317 Mdot .62195 .34756 Mdot .62195 .37195 Mdot .64634 .25 Mdot .64634 .27439 Mdot .64634 .29878 Mdot .64634 .32317 Mdot .64634 .34756 Mdot .64634 .37195 Mdot .64634 .39634 Mdot .67073 .25 Mdot .67073 .27439 Mdot .67073 .29878 Mdot .67073 .32317 Mdot P P p 1 0 1 r p .015 w .67073 .34756 Mdot .67073 .37195 Mdot .67073 .39634 Mdot .67073 .42073 Mdot .69512 .25 Mdot .69512 .27439 Mdot .69512 .29878 Mdot .69512 .32317 Mdot .69512 .34756 Mdot .69512 .37195 Mdot .69512 .39634 Mdot .69512 .42073 Mdot .69512 .44512 Mdot .71951 .25 Mdot .71951 .27439 Mdot .71951 .29878 Mdot P P p 0 0 1 r p .015 w .71951 .32317 Mdot .71951 .34756 Mdot .71951 .37195 Mdot .71951 .39634 Mdot .71951 .42073 Mdot .71951 .44512 Mdot .71951 .46951 Mdot .7439 .25 Mdot .7439 .27439 Mdot .7439 .29878 Mdot .7439 .32317 Mdot .7439 .34756 Mdot .7439 .37195 Mdot .7439 .39634 Mdot .7439 .42073 Mdot .7439 .44512 Mdot .7439 .46951 Mdot .7439 .4939 Mdot P P P MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.005669 0.97619 0.232426 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.04878 0.25 0.04878 [ [(-10)] .0122 .25 0 2 Msboxa [(-5)] .2561 .25 0 2 Msboxa [(5)] .7439 .25 0 2 Msboxa [(10)] .9878 .25 0 2 Msboxa [(Image)] .5 .5 0 -2 Msboxa [(-4)] .4875 .05488 1 0 Msboxa [(-2)] .4875 .15244 1 0 Msboxa [(2)] .4875 .34756 1 0 Msboxa [(4)] .4875 .44512 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .501 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .0122 .25 m .0122 .25625 L s P [(-10)] .0122 .25 0 2 Mshowa p .002 w .2561 .25 m .2561 .25625 L s P [(-5)] .2561 .25 0 2 Mshowa p .002 w .7439 .25 m .7439 .25625 L s P [(5)] .7439 .25 0 2 Mshowa p .002 w .9878 .25 m .9878 .25625 L s P [(10)] .9878 .25 0 2 Mshowa p .001 w .06098 .25 m .06098 .25375 L s P p .001 w .10976 .25 m .10976 .25375 L s P p .001 w .15854 .25 m .15854 .25375 L s P p .001 w .20732 .25 m .20732 .25375 L s P p .001 w .30488 .25 m .30488 .25375 L s P p .001 w .35366 .25 m .35366 .25375 L s P p .001 w .40244 .25 m .40244 .25375 L s P p .001 w .45122 .25 m .45122 .25375 L s P p .001 w .54878 .25 m .54878 .25375 L s P p .001 w .59756 .25 m .59756 .25375 L s P p .001 w .64634 .25 m .64634 .25375 L s P p .001 w .69512 .25 m .69512 .25375 L s P p .001 w .79268 .25 m .79268 .25375 L s P p .001 w .84146 .25 m .84146 .25375 L s P p .001 w .89024 .25 m .89024 .25375 L s P p .001 w .93902 .25 m .93902 .25375 L s P p .002 w 0 .25 m 1 .25 L s P [(Image)] .5 .5 0 -2 Mshowa p .002 w .5 .05488 m .50625 .05488 L s P [(-4)] .4875 .05488 1 0 Mshowa p .002 w .5 .15244 m .50625 .15244 L s P [(-2)] .4875 .15244 1 0 Mshowa p .002 w .5 .34756 m .50625 .34756 L s P [(2)] .4875 .34756 1 0 Mshowa p .002 w .5 .44512 m .50625 .44512 L s P [(4)] .4875 .44512 1 0 Mshowa p .001 w .5 .07439 m .50375 .07439 L s P p .001 w .5 .0939 m .50375 .0939 L s P p .001 w .5 .11341 m .50375 .11341 L s P p .001 w .5 .13293 m .50375 .13293 L s P p .001 w .5 .17195 m .50375 .17195 L s P p .001 w .5 .19146 m .50375 .19146 L s P p .001 w .5 .21098 m .50375 .21098 L s P p .001 w .5 .23049 m .50375 .23049 L s P p .001 w .5 .26951 m .50375 .26951 L s P p .001 w .5 .28902 m .50375 .28902 L s P p .001 w .5 .30854 m .50375 .30854 L s P p .001 w .5 .32805 m .50375 .32805 L s P p .001 w .5 .36707 m .50375 .36707 L s P p .001 w .5 .38659 m .50375 .38659 L s P p .001 w .5 .4061 m .50375 .4061 L s P p .001 w .5 .42561 m .50375 .42561 L s P p .001 w .5 .03537 m .50375 .03537 L s P p .001 w .5 .01585 m .50375 .01585 L s P p .001 w .5 .46463 m .50375 .46463 L s P p .001 w .5 .48415 m .50375 .48415 L s P p .002 w .5 0 m .5 .5 L s P P 0 0 m 1 0 L 1 .5 L 0 .5 L closepath clip newpath p p .8 0 0 r p .015 w .5 .25 Mdot .54878 .25 Mdot .54878 .27439 Mdot .59756 .25 Mdot .59756 .27439 Mdot .59756 .29878 Mdot .64634 .25 Mdot .64634 .27439 Mdot .64634 .29878 Mdot .64634 .32317 Mdot .69512 .25 Mdot .69512 .27439 Mdot .69512 .29878 Mdot .69512 .32317 Mdot .69512 .34756 Mdot .7439 .25 Mdot P P p 0 .4 0 r p .015 w .7439 .27439 Mdot .7439 .29878 Mdot .7439 .32317 Mdot .7439 .34756 Mdot .7439 .37195 Mdot .79268 .25 Mdot .79268 .27439 Mdot .79268 .29878 Mdot .79268 .32317 Mdot .79268 .34756 Mdot .79268 .37195 Mdot .79268 .39634 Mdot .84146 .25 Mdot .84146 .27439 Mdot .84146 .29878 Mdot .84146 .32317 Mdot P P p 1 0 1 r p .015 w .84146 .34756 Mdot .84146 .37195 Mdot .84146 .39634 Mdot .84146 .42073 Mdot .89024 .25 Mdot .89024 .27439 Mdot .89024 .29878 Mdot .89024 .32317 Mdot .89024 .34756 Mdot .89024 .37195 Mdot .89024 .39634 Mdot .89024 .42073 Mdot .89024 .44512 Mdot .93902 .25 Mdot .93902 .27439 Mdot .93902 .29878 Mdot P P p 0 0 1 r p .015 w .93902 .32317 Mdot .93902 .34756 Mdot .93902 .37195 Mdot .93902 .39634 Mdot .93902 .42073 Mdot .93902 .44512 Mdot .93902 .46951 Mdot .9878 .25 Mdot .9878 .27439 Mdot .9878 .29878 Mdot .9878 .32317 Mdot .9878 .34756 Mdot .9878 .37195 Mdot .9878 .39634 Mdot .9878 .42073 Mdot .9878 .44512 Mdot .9878 .46951 Mdot .9878 .4939 Mdot P P P MathSubEnd P % End of sub-graphic P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -GraphicsArray- :[font = input; Cclosed; preserveAspect; startGroup] PictureThis[Region3,A] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 413; pictureHeight = 98] %! %%Creator: Mathematica %%AspectRatio: .23795 MathPictureStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.02381 0.47619 0.005665 0.47619 [ [ 0 0 0 0 ] [ 1 .23795 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .23795 L 0 .23795 L closepath clip newpath p p % Start of sub-graphic p 0.02381 0.005665 0.477324 0.232285 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.238095 0.249848 0.238095 [ [(-2)] .02381 .24985 0 2 Msboxa [(-1)] .2619 .24985 0 2 Msboxa [(1)] .7381 .24985 0 2 Msboxa [(2)] .97619 .24985 0 2 Msboxa [(Domain)] .5 .4997 0 -2 Msboxa [(-1)] .4875 .01175 1 0 Msboxa [(-0.5)] .4875 .1308 1 0 Msboxa [(0.5)] .4875 .3689 1 0 Msboxa [(1)] .4875 .48794 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .5007 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .02381 .24985 m .02381 .2561 L s P [(-2)] .02381 .24985 0 2 Mshowa p .002 w .2619 .24985 m .2619 .2561 L s P [(-1)] .2619 .24985 0 2 Mshowa p .002 w .7381 .24985 m .7381 .2561 L s P [(1)] .7381 .24985 0 2 Mshowa p .002 w .97619 .24985 m .97619 .2561 L s P [(2)] .97619 .24985 0 2 Mshowa p .001 w .07143 .24985 m .07143 .2536 L s P p .001 w .11905 .24985 m .11905 .2536 L s P p .001 w .16667 .24985 m .16667 .2536 L s P p .001 w .21429 .24985 m .21429 .2536 L s P p .001 w .30952 .24985 m .30952 .2536 L s P p .001 w .35714 .24985 m .35714 .2536 L s P p .001 w .40476 .24985 m .40476 .2536 L s P p .001 w .45238 .24985 m .45238 .2536 L s P p .001 w .54762 .24985 m .54762 .2536 L s P p .001 w .59524 .24985 m .59524 .2536 L s P p .001 w .64286 .24985 m .64286 .2536 L s P p .001 w .69048 .24985 m .69048 .2536 L s P p .001 w .78571 .24985 m .78571 .2536 L s P p .001 w .83333 .24985 m .83333 .2536 L s P p .001 w .88095 .24985 m .88095 .2536 L s P p .001 w .92857 .24985 m .92857 .2536 L s P p .002 w 0 .24985 m 1 .24985 L s P [(Domain)] .5 .4997 0 -2 Mshowa p .002 w .5 .01175 m .50625 .01175 L s P [(-1)] .4875 .01175 1 0 Mshowa p .002 w .5 .1308 m .50625 .1308 L s P [(-0.5)] .4875 .1308 1 0 Mshowa p .002 w .5 .3689 m .50625 .3689 L s P [(0.5)] .4875 .3689 1 0 Mshowa p .002 w .5 .48794 m .50625 .48794 L s P [(1)] .4875 .48794 1 0 Mshowa p .001 w .5 .03556 m .50375 .03556 L s P p .001 w .5 .05937 m .50375 .05937 L s P p .001 w .5 .08318 m .50375 .08318 L s P p .001 w .5 .10699 m .50375 .10699 L s P p .001 w .5 .15461 m .50375 .15461 L s P p .001 w .5 .17842 m .50375 .17842 L s P p .001 w .5 .20223 m .50375 .20223 L s P p .001 w .5 .22604 m .50375 .22604 L s P p .001 w .5 .27366 m .50375 .27366 L s P p .001 w .5 .29747 m .50375 .29747 L s P p .001 w .5 .32128 m .50375 .32128 L s P p .001 w .5 .34509 m .50375 .34509 L s P p .001 w .5 .3927 m .50375 .3927 L s P p .001 w .5 .41651 m .50375 .41651 L s P p .001 w .5 .44032 m .50375 .44032 L s P p .001 w .5 .46413 m .50375 .46413 L s P p .002 w .5 0 m .5 .4997 L s P P 0 0 m 1 0 L 1 .4997 L 0 .4997 L closepath clip newpath p p .8 0 0 r p .015 w .73752 .26646 Mdot .73578 .28298 Mdot .73289 .29935 Mdot .72887 .31548 Mdot .72374 .33128 Mdot .71751 .34669 Mdot .71023 .36163 Mdot .70192 .37602 Mdot .69262 .3898 Mdot .68239 .40289 Mdot .67127 .41524 Mdot .65932 .42679 Mdot .64659 .43747 Mdot .63314 .44724 Mdot .61905 .45604 Mdot .60437 .46385 Mdot .58919 .47061 Mdot .57358 .47629 Mdot .5576 .48087 Mdot .54134 .48433 Mdot .52489 .48664 Mdot .50831 .4878 Mdot P P p 0 .4 0 r p .015 w .49169 .4878 Mdot .47511 .48664 Mdot .45866 .48433 Mdot .4424 .48087 Mdot .42642 .47629 Mdot .41081 .47061 Mdot .39563 .46385 Mdot .38095 .45604 Mdot .36686 .44724 Mdot .35341 .43747 Mdot .34068 .42679 Mdot .32873 .41524 Mdot .31761 .40289 Mdot .30738 .3898 Mdot .29808 .37602 Mdot .28977 .36163 Mdot .28249 .34669 Mdot .27626 .33128 Mdot .27113 .31548 Mdot .26711 .29935 Mdot .26422 .28298 Mdot .26248 .26646 Mdot P P p 1 0 1 r p .015 w .2619 .24985 Mdot .26248 .23324 Mdot .26422 .21671 Mdot .26711 .20034 Mdot .27113 .18422 Mdot .27626 .16841 Mdot .28249 .15301 Mdot .28977 .13807 Mdot .29808 .12368 Mdot .30738 .1099 Mdot .31761 .0968 Mdot .32873 .08445 Mdot .34068 .07291 Mdot .35341 .06223 Mdot .36686 .05246 Mdot .38095 .04365 Mdot .39563 .03585 Mdot .41081 .02909 Mdot .42642 .02341 Mdot .4424 .01882 Mdot .45866 .01537 Mdot .47511 .01306 Mdot P P p 0 0 1 r p .015 w .49169 .0119 Mdot .50831 .0119 Mdot .52489 .01306 Mdot .54134 .01537 Mdot .5576 .01882 Mdot .57358 .02341 Mdot .58919 .02909 Mdot .60437 .03585 Mdot .61905 .04365 Mdot .63314 .05246 Mdot .64659 .06223 Mdot .65932 .07291 Mdot .67127 .08445 Mdot .68239 .0968 Mdot .69262 .1099 Mdot .70192 .12368 Mdot .71023 .13807 Mdot .71751 .15301 Mdot .72374 .16841 Mdot .72887 .18422 Mdot .73289 .20034 Mdot .73578 .21671 Mdot .73752 .23324 Mdot .7381 .24985 Mdot P P P MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.005665 0.97619 0.232285 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.238095 0.249848 0.238095 [ [(-2)] .02381 .24985 0 2 Msboxa [(-1)] .2619 .24985 0 2 Msboxa [(1)] .7381 .24985 0 2 Msboxa [(2)] .97619 .24985 0 2 Msboxa [(Image)] .5 .4997 0 -2 Msboxa [(-1)] .4875 .01175 1 0 Msboxa [(-0.5)] .4875 .1308 1 0 Msboxa [(0.5)] .4875 .3689 1 0 Msboxa [(1)] .4875 .48794 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .5007 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .02381 .24985 m .02381 .2561 L s P [(-2)] .02381 .24985 0 2 Mshowa p .002 w .2619 .24985 m .2619 .2561 L s P [(-1)] .2619 .24985 0 2 Mshowa p .002 w .7381 .24985 m .7381 .2561 L s P [(1)] .7381 .24985 0 2 Mshowa p .002 w .97619 .24985 m .97619 .2561 L s P [(2)] .97619 .24985 0 2 Mshowa p .001 w .07143 .24985 m .07143 .2536 L s P p .001 w .11905 .24985 m .11905 .2536 L s P p .001 w .16667 .24985 m .16667 .2536 L s P p .001 w .21429 .24985 m .21429 .2536 L s P p .001 w .30952 .24985 m .30952 .2536 L s P p .001 w .35714 .24985 m .35714 .2536 L s P p .001 w .40476 .24985 m .40476 .2536 L s P p .001 w .45238 .24985 m .45238 .2536 L s P p .001 w .54762 .24985 m .54762 .2536 L s P p .001 w .59524 .24985 m .59524 .2536 L s P p .001 w .64286 .24985 m .64286 .2536 L s P p .001 w .69048 .24985 m .69048 .2536 L s P p .001 w .78571 .24985 m .78571 .2536 L s P p .001 w .83333 .24985 m .83333 .2536 L s P p .001 w .88095 .24985 m .88095 .2536 L s P p .001 w .92857 .24985 m .92857 .2536 L s P p .002 w 0 .24985 m 1 .24985 L s P [(Image)] .5 .4997 0 -2 Mshowa p .002 w .5 .01175 m .50625 .01175 L s P [(-1)] .4875 .01175 1 0 Mshowa p .002 w .5 .1308 m .50625 .1308 L s P [(-0.5)] .4875 .1308 1 0 Mshowa p .002 w .5 .3689 m .50625 .3689 L s P [(0.5)] .4875 .3689 1 0 Mshowa p .002 w .5 .48794 m .50625 .48794 L s P [(1)] .4875 .48794 1 0 Mshowa p .001 w .5 .03556 m .50375 .03556 L s P p .001 w .5 .05937 m .50375 .05937 L s P p .001 w .5 .08318 m .50375 .08318 L s P p .001 w .5 .10699 m .50375 .10699 L s P p .001 w .5 .15461 m .50375 .15461 L s P p .001 w .5 .17842 m .50375 .17842 L s P p .001 w .5 .20223 m .50375 .20223 L s P p .001 w .5 .22604 m .50375 .22604 L s P p .001 w .5 .27366 m .50375 .27366 L s P p .001 w .5 .29747 m .50375 .29747 L s P p .001 w .5 .32128 m .50375 .32128 L s P p .001 w .5 .34509 m .50375 .34509 L s P p .001 w .5 .3927 m .50375 .3927 L s P p .001 w .5 .41651 m .50375 .41651 L s P p .001 w .5 .44032 m .50375 .44032 L s P p .001 w .5 .46413 m .50375 .46413 L s P p .002 w .5 0 m .5 .4997 L s P P 0 0 m 1 0 L 1 .4997 L 0 .4997 L closepath clip newpath p p .8 0 0 r p .015 w .97503 .26646 Mdot .97156 .28298 Mdot .96578 .29935 Mdot .95774 .31548 Mdot .94747 .33128 Mdot .93502 .34669 Mdot .92045 .36163 Mdot .90383 .37602 Mdot .88525 .3898 Mdot .86478 .40289 Mdot .84254 .41524 Mdot .81863 .42679 Mdot .79317 .43747 Mdot .76628 .44724 Mdot .7381 .45604 Mdot .70875 .46385 Mdot .67838 .47061 Mdot .64715 .47629 Mdot .6152 .48087 Mdot .58269 .48433 Mdot .54978 .48664 Mdot .51662 .4878 Mdot P P p 0 .4 0 r p .015 w .48338 .4878 Mdot .45022 .48664 Mdot .41731 .48433 Mdot .3848 .48087 Mdot .35285 .47629 Mdot .32162 .47061 Mdot .29125 .46385 Mdot .2619 .45604 Mdot .23372 .44724 Mdot .20683 .43747 Mdot .18137 .42679 Mdot .15746 .41524 Mdot .13522 .40289 Mdot .11475 .3898 Mdot .09617 .37602 Mdot .07955 .36163 Mdot .06498 .34669 Mdot .05253 .33128 Mdot .04226 .31548 Mdot .03422 .29935 Mdot .02844 .28298 Mdot .02497 .26646 Mdot P P p 1 0 1 r p .015 w .02381 .24985 Mdot .02497 .23324 Mdot .02844 .21671 Mdot .03422 .20034 Mdot .04226 .18422 Mdot .05253 .16841 Mdot .06498 .15301 Mdot .07955 .13807 Mdot .09617 .12368 Mdot .11475 .1099 Mdot .13522 .0968 Mdot .15746 .08445 Mdot .18137 .07291 Mdot .20683 .06223 Mdot .23372 .05246 Mdot .2619 .04365 Mdot .29125 .03585 Mdot .32162 .02909 Mdot .35285 .02341 Mdot .3848 .01882 Mdot .41731 .01537 Mdot .45022 .01306 Mdot P P p 0 0 1 r p .015 w .48338 .0119 Mdot .51662 .0119 Mdot .54978 .01306 Mdot .58269 .01537 Mdot .6152 .01882 Mdot .64715 .02341 Mdot .67838 .02909 Mdot .70875 .03585 Mdot .7381 .04365 Mdot .76628 .05246 Mdot .79317 .06223 Mdot .81863 .07291 Mdot .84254 .08445 Mdot .86478 .0968 Mdot .88525 .1099 Mdot .90383 .12368 Mdot .92045 .13807 Mdot .93502 .15301 Mdot .94747 .16841 Mdot .95774 .18422 Mdot .96578 .20034 Mdot .97156 .21671 Mdot .97503 .23324 Mdot .97619 .24985 Mdot P P P MathSubEnd P % End of sub-graphic P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -GraphicsArray- :[font = input; Cclosed; preserveAspect; startGroup] PictureThis[Region4,A] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 134] %! %%Creator: Mathematica %%AspectRatio: .47619 MathPictureStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.02381 0.47619 0.011338 0.47619 [ [ 0 0 0 0 ] [ 1 .47619 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .47619 L 0 .47619 L closepath clip newpath p p % Start of sub-graphic p 0.02381 0.011338 0.477324 0.464853 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.120482 0.5 0.120482 [ [(-4)] .01807 .5 0 2 Msboxa [(-2)] .25904 .5 0 2 Msboxa [(2)] .74096 .5 0 2 Msboxa [(4)] .98193 .5 0 2 Msboxa [(Domain)] .5 1 0 -2 Msboxa [(-4)] .4875 .01807 1 0 Msboxa [(-2)] .4875 .25904 1 0 Msboxa [(2)] .4875 .74096 1 0 Msboxa [(4)] .4875 .98193 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .01807 .5 m .01807 .50625 L s P [(-4)] .01807 .5 0 2 Mshowa p .002 w .25904 .5 m .25904 .50625 L s P [(-2)] .25904 .5 0 2 Mshowa p .002 w .74096 .5 m .74096 .50625 L s P [(2)] .74096 .5 0 2 Mshowa p .002 w .98193 .5 m .98193 .50625 L s P [(4)] .98193 .5 0 2 Mshowa p .001 w .06627 .5 m .06627 .50375 L s P p .001 w .11446 .5 m .11446 .50375 L s P p .001 w .16265 .5 m .16265 .50375 L s P p .001 w .21084 .5 m .21084 .50375 L s P p .001 w .30723 .5 m .30723 .50375 L s P p .001 w .35542 .5 m .35542 .50375 L s P p .001 w .40361 .5 m .40361 .50375 L s P p .001 w .45181 .5 m .45181 .50375 L s P p .001 w .54819 .5 m .54819 .50375 L s P p .001 w .59639 .5 m .59639 .50375 L s P p .001 w .64458 .5 m .64458 .50375 L s P p .001 w .69277 .5 m .69277 .50375 L s P p .001 w .78916 .5 m .78916 .50375 L s P p .001 w .83735 .5 m .83735 .50375 L s P p .001 w .88554 .5 m .88554 .50375 L s P p .001 w .93373 .5 m .93373 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Domain)] .5 1 0 -2 Mshowa p .002 w .5 .01807 m .50625 .01807 L s P [(-4)] .4875 .01807 1 0 Mshowa p .002 w .5 .25904 m .50625 .25904 L s P [(-2)] .4875 .25904 1 0 Mshowa p .002 w .5 .74096 m .50625 .74096 L s P [(2)] .4875 .74096 1 0 Mshowa p .002 w .5 .98193 m .50625 .98193 L s P [(4)] .4875 .98193 1 0 Mshowa p .001 w .5 .06627 m .50375 .06627 L s P p .001 w .5 .11446 m .50375 .11446 L s P p .001 w .5 .16265 m .50375 .16265 L s P p .001 w .5 .21084 m .50375 .21084 L s P p .001 w .5 .30723 m .50375 .30723 L s P p .001 w .5 .35542 m .50375 .35542 L s P p .001 w .5 .40361 m .50375 .40361 L s P p .001 w .5 .45181 m .50375 .45181 L s P p .001 w .5 .54819 m .50375 .54819 L s P p .001 w .5 .59639 m .50375 .59639 L s P p .001 w .5 .64458 m .50375 .64458 L s P p .001 w .5 .69277 m .50375 .69277 L s P p .001 w .5 .78916 m .50375 .78916 L s P p .001 w .5 .83735 m .50375 .83735 L s P p .001 w .5 .88554 m .50375 .88554 L s P p .001 w .5 .93373 m .50375 .93373 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p .8 0 0 r p .015 w .37952 .25904 Mdot .39157 .28313 Mdot .40361 .30723 Mdot .41566 .33133 Mdot .42771 .35542 Mdot .43976 .37952 Mdot .45181 .40361 Mdot P P p 0 .4 0 r p .015 w .46386 .42771 Mdot .4759 .45181 Mdot .48795 .4759 Mdot .5 .5 Mdot .51205 .5241 Mdot .5241 .54819 Mdot .53614 .57229 Mdot P P p 1 0 1 r p .015 w .54819 .59639 Mdot .56024 .62048 Mdot .57229 .64458 Mdot .58434 .66867 Mdot .59639 .69277 Mdot .60843 .71687 Mdot .62048 .74096 Mdot P P p 0 0 1 r p .015 w .63253 .76506 Mdot .64458 .78916 Mdot .65663 .81325 Mdot .66867 .83735 Mdot .68072 .86145 Mdot .69277 .88554 Mdot .70482 .90964 Mdot .71687 .93373 Mdot .72892 .95783 Mdot .74096 .98193 Mdot P P P MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.011338 0.97619 0.464853 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.120482 0.5 0.120482 [ [(-4)] .01807 .5 0 2 Msboxa [(-2)] .25904 .5 0 2 Msboxa [(2)] .74096 .5 0 2 Msboxa [(4)] .98193 .5 0 2 Msboxa [(Image)] .5 1 0 -2 Msboxa [(-4)] .4875 .01807 1 0 Msboxa [(-2)] .4875 .25904 1 0 Msboxa [(2)] .4875 .74096 1 0 Msboxa [(4)] .4875 .98193 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .01807 .5 m .01807 .50625 L s P [(-4)] .01807 .5 0 2 Mshowa p .002 w .25904 .5 m .25904 .50625 L s P [(-2)] .25904 .5 0 2 Mshowa p .002 w .74096 .5 m .74096 .50625 L s P [(2)] .74096 .5 0 2 Mshowa p .002 w .98193 .5 m .98193 .50625 L s P [(4)] .98193 .5 0 2 Mshowa p .001 w .06627 .5 m .06627 .50375 L s P p .001 w .11446 .5 m .11446 .50375 L s P p .001 w .16265 .5 m .16265 .50375 L s P p .001 w .21084 .5 m .21084 .50375 L s P p .001 w .30723 .5 m .30723 .50375 L s P p .001 w .35542 .5 m .35542 .50375 L s P p .001 w .40361 .5 m .40361 .50375 L s P p .001 w .45181 .5 m .45181 .50375 L s P p .001 w .54819 .5 m .54819 .50375 L s P p .001 w .59639 .5 m .59639 .50375 L s P p .001 w .64458 .5 m .64458 .50375 L s P p .001 w .69277 .5 m .69277 .50375 L s P p .001 w .78916 .5 m .78916 .50375 L s P p .001 w .83735 .5 m .83735 .50375 L s P p .001 w .88554 .5 m .88554 .50375 L s P p .001 w .93373 .5 m .93373 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Image)] .5 1 0 -2 Mshowa p .002 w .5 .01807 m .50625 .01807 L s P [(-4)] .4875 .01807 1 0 Mshowa p .002 w .5 .25904 m .50625 .25904 L s P [(-2)] .4875 .25904 1 0 Mshowa p .002 w .5 .74096 m .50625 .74096 L s P [(2)] .4875 .74096 1 0 Mshowa p .002 w .5 .98193 m .50625 .98193 L s P [(4)] .4875 .98193 1 0 Mshowa p .001 w .5 .06627 m .50375 .06627 L s P p .001 w .5 .11446 m .50375 .11446 L s P p .001 w .5 .16265 m .50375 .16265 L s P p .001 w .5 .21084 m .50375 .21084 L s P p .001 w .5 .30723 m .50375 .30723 L s P p .001 w .5 .35542 m .50375 .35542 L s P p .001 w .5 .40361 m .50375 .40361 L s P p .001 w .5 .45181 m .50375 .45181 L s P p .001 w .5 .54819 m .50375 .54819 L s P p .001 w .5 .59639 m .50375 .59639 L s P p .001 w .5 .64458 m .50375 .64458 L s P p .001 w .5 .69277 m .50375 .69277 L s P p .001 w .5 .78916 m .50375 .78916 L s P p .001 w .5 .83735 m .50375 .83735 L s P p .001 w .5 .88554 m .50375 .88554 L s P p .001 w .5 .93373 m .50375 .93373 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p .8 0 0 r p .015 w .25904 .25904 Mdot .28313 .28313 Mdot .30723 .30723 Mdot .33133 .33133 Mdot .35542 .35542 Mdot .37952 .37952 Mdot .40361 .40361 Mdot P P p 0 .4 0 r p .015 w .42771 .42771 Mdot .45181 .45181 Mdot .4759 .4759 Mdot .5 .5 Mdot .5241 .5241 Mdot .54819 .54819 Mdot .57229 .57229 Mdot P P p 1 0 1 r p .015 w .59639 .59639 Mdot .62048 .62048 Mdot .64458 .64458 Mdot .66867 .66867 Mdot .69277 .69277 Mdot .71687 .71687 Mdot .74096 .74096 Mdot P P p 0 0 1 r p .015 w .76506 .76506 Mdot .78916 .78916 Mdot .81325 .81325 Mdot .83735 .83735 Mdot .86145 .86145 Mdot .88554 .88554 Mdot .90964 .90964 Mdot .93373 .93373 Mdot .95783 .95783 Mdot .98193 .98193 Mdot P P P MathSubEnd P % End of sub-graphic P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -GraphicsArray- :[font = text; inactive; preserveAspect] After observing the four sets of graphics above, it is not hard to see that the linear transformation T(x)=Ax sends any point (x,y) to the point (2x,y), thus causing a horizontal expansion by a factor of 2. ;[s] 6:0,0;104,1;105,2;107,3;108,4;109,5;207,-1; 6:1,11,8,Times,0,12,0,0,0;1,10,8,Times,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,10,8,Times,1,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; preserveAspect] Besides plotting both the domain and image of the given points, PictureThis also automatically breaks the sets of points into as many as four color-coordinated subsets. The colored sets in the domain and image are "linked" to one another in the sense that points in the domain of a certain color are sent to points in the image of the same color (e.g., red points go to red points). This feature allows the student to recognize such actions as reflections and rotations which otherwise may not be so apparent if all of the points were depicted in the same color. To illustrate, consider the linear transformation T(x)=Ax with ;[s] 8:0,0;64,1;75,2;618,3;619,4;621,5;622,6;623,7;629,-1; 8: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,1,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,10,8,Times,1,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 183; pictureWidth = 107; pictureHeight = 53; pictureID = 11600] :[font = text; inactive; preserveAspect] This transformation takes the plane and rotates it 90û in a counterclockwise direction. If all of the points were drawn in the same color the output provided by PictureThis may mislead an inexperienced student to believe that this linear transformation fixes Region3. However since PictureThis supplies color coordination between a point and its image, this pitfall should be avoided. ;[s] 7:0,0;162,1;173,2;260,3;267,4;284,5;295,6;387,-1; 7: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,Courier,1,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; Cclosed; preserveAspect; startGroup] A={{0,-1},{1,0}}; PictureThis[Region3,A] :[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 134] %! %%Creator: Mathematica %%AspectRatio: .47619 MathPictureStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.02381 0.47619 0.011338 0.47619 [ [ 0 0 0 0 ] [ 1 .47619 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .47619 L 0 .47619 L closepath clip newpath p p % Start of sub-graphic p 0.02381 0.011338 0.477324 0.464853 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.47619 0.5 0.47619 [ [(-1)] .02381 .5 0 2 Msboxa [(-0.5)] .2619 .5 0 2 Msboxa [(0.5)] .7381 .5 0 2 Msboxa [(1)] .97619 .5 0 2 Msboxa [(Domain)] .5 1 0 -2 Msboxa [(-1)] .4875 .02381 1 0 Msboxa [(-0.5)] .4875 .2619 1 0 Msboxa [(0.5)] .4875 .7381 1 0 Msboxa [(1)] .4875 .97619 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .02381 .5 m .02381 .50625 L s P [(-1)] .02381 .5 0 2 Mshowa p .002 w .2619 .5 m .2619 .50625 L s P [(-0.5)] .2619 .5 0 2 Mshowa p .002 w .7381 .5 m .7381 .50625 L s P [(0.5)] .7381 .5 0 2 Mshowa p .002 w .97619 .5 m .97619 .50625 L s P [(1)] .97619 .5 0 2 Mshowa p .001 w .07143 .5 m .07143 .50375 L s P p .001 w .11905 .5 m .11905 .50375 L s P p .001 w .16667 .5 m .16667 .50375 L s P p .001 w .21429 .5 m .21429 .50375 L s P p .001 w .30952 .5 m .30952 .50375 L s P p .001 w .35714 .5 m .35714 .50375 L s P p .001 w .40476 .5 m .40476 .50375 L s P p .001 w .45238 .5 m .45238 .50375 L s P p .001 w .54762 .5 m .54762 .50375 L s P p .001 w .59524 .5 m .59524 .50375 L s P p .001 w .64286 .5 m .64286 .50375 L s P p .001 w .69048 .5 m .69048 .50375 L s P p .001 w .78571 .5 m .78571 .50375 L s P p .001 w .83333 .5 m .83333 .50375 L s P p .001 w .88095 .5 m .88095 .50375 L s P p .001 w .92857 .5 m .92857 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Domain)] .5 1 0 -2 Mshowa p .002 w .5 .02381 m .50625 .02381 L s P [(-1)] .4875 .02381 1 0 Mshowa p .002 w .5 .2619 m .50625 .2619 L s P [(-0.5)] .4875 .2619 1 0 Mshowa p .002 w .5 .7381 m .50625 .7381 L s P [(0.5)] .4875 .7381 1 0 Mshowa p .002 w .5 .97619 m .50625 .97619 L s P [(1)] .4875 .97619 1 0 Mshowa p .001 w .5 .07143 m .50375 .07143 L s P p .001 w .5 .11905 m .50375 .11905 L s P p .001 w .5 .16667 m .50375 .16667 L s P p .001 w .5 .21429 m .50375 .21429 L s P p .001 w .5 .30952 m .50375 .30952 L s P p .001 w .5 .35714 m .50375 .35714 L s P p .001 w .5 .40476 m .50375 .40476 L s P p .001 w .5 .45238 m .50375 .45238 L s P p .001 w .5 .54762 m .50375 .54762 L s P p .001 w .5 .59524 m .50375 .59524 L s P p .001 w .5 .64286 m .50375 .64286 L s P p .001 w .5 .69048 m .50375 .69048 L s P p .001 w .5 .78571 m .50375 .78571 L s P p .001 w .5 .83333 m .50375 .83333 L s P p .001 w .5 .88095 m .50375 .88095 L s P p .001 w .5 .92857 m .50375 .92857 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p .8 0 0 r p .015 w .97503 .53322 Mdot .97156 .56627 Mdot .96578 .59901 Mdot .95774 .63126 Mdot .94747 .66287 Mdot .93502 .69368 Mdot .92045 .72356 Mdot .90383 .75234 Mdot .88525 .7799 Mdot .86478 .80609 Mdot .84254 .83079 Mdot .81863 .85388 Mdot .79317 .87524 Mdot .76628 .89478 Mdot .7381 .91239 Mdot .70875 .928 Mdot .67838 .94152 Mdot .64715 .95288 Mdot .6152 .96205 Mdot .58269 .96896 Mdot .54978 .97358 Mdot .51662 .9759 Mdot P P p 0 .4 0 r p .015 w .48338 .9759 Mdot .45022 .97358 Mdot .41731 .96896 Mdot .3848 .96205 Mdot .35285 .95288 Mdot .32162 .94152 Mdot .29125 .928 Mdot .2619 .91239 Mdot .23372 .89478 Mdot .20683 .87524 Mdot .18137 .85388 Mdot .15746 .83079 Mdot .13522 .80609 Mdot .11475 .7799 Mdot .09617 .75234 Mdot .07955 .72356 Mdot .06498 .69368 Mdot .05253 .66287 Mdot .04226 .63126 Mdot .03422 .59901 Mdot .02844 .56627 Mdot .02497 .53322 Mdot P P p 1 0 1 r p .015 w .02381 .5 Mdot .02497 .46678 Mdot .02844 .43373 Mdot .03422 .40099 Mdot .04226 .36874 Mdot .05253 .33713 Mdot .06498 .30632 Mdot .07955 .27644 Mdot .09617 .24766 Mdot .11475 .2201 Mdot .13522 .19391 Mdot .15746 .16921 Mdot .18137 .14612 Mdot .20683 .12476 Mdot .23372 .10522 Mdot .2619 .08761 Mdot .29125 .072 Mdot .32162 .05848 Mdot .35285 .04712 Mdot .3848 .03795 Mdot .41731 .03104 Mdot .45022 .02642 Mdot P P p 0 0 1 r p .015 w .48338 .0241 Mdot .51662 .0241 Mdot .54978 .02642 Mdot .58269 .03104 Mdot .6152 .03795 Mdot .64715 .04712 Mdot .67838 .05848 Mdot .70875 .072 Mdot .7381 .08761 Mdot .76628 .10522 Mdot .79317 .12476 Mdot .81863 .14612 Mdot .84254 .16921 Mdot .86478 .19391 Mdot .88525 .2201 Mdot .90383 .24766 Mdot .92045 .27644 Mdot .93502 .30632 Mdot .94747 .33713 Mdot .95774 .36874 Mdot .96578 .40099 Mdot .97156 .43373 Mdot .97503 .46678 Mdot .97619 .5 Mdot P P P MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.011338 0.97619 0.464853 MathSubStart %% Graphics /Helvetica findfont 6 scalefont setfont % Scaling calculations 0.5 0.47619 0.5 0.47619 [ [(-1)] .02381 .5 0 2 Msboxa [(-0.5)] .2619 .5 0 2 Msboxa [(0.5)] .7381 .5 0 2 Msboxa [(1)] .97619 .5 0 2 Msboxa [(Image)] .5 1 0 -2 Msboxa [(-1)] .4875 .02381 1 0 Msboxa [(-0.5)] .4875 .2619 1 0 Msboxa [(0.5)] .4875 .7381 1 0 Msboxa [(1)] .4875 .97619 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 1.001 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .02381 .5 m .02381 .50625 L s P [(-1)] .02381 .5 0 2 Mshowa p .002 w .2619 .5 m .2619 .50625 L s P [(-0.5)] .2619 .5 0 2 Mshowa p .002 w .7381 .5 m .7381 .50625 L s P [(0.5)] .7381 .5 0 2 Mshowa p .002 w .97619 .5 m .97619 .50625 L s P [(1)] .97619 .5 0 2 Mshowa p .001 w .07143 .5 m .07143 .50375 L s P p .001 w .11905 .5 m .11905 .50375 L s P p .001 w .16667 .5 m .16667 .50375 L s P p .001 w .21429 .5 m .21429 .50375 L s P p .001 w .30952 .5 m .30952 .50375 L s P p .001 w .35714 .5 m .35714 .50375 L s P p .001 w .40476 .5 m .40476 .50375 L s P p .001 w .45238 .5 m .45238 .50375 L s P p .001 w .54762 .5 m .54762 .50375 L s P p .001 w .59524 .5 m .59524 .50375 L s P p .001 w .64286 .5 m .64286 .50375 L s P p .001 w .69048 .5 m .69048 .50375 L s P p .001 w .78571 .5 m .78571 .50375 L s P p .001 w .83333 .5 m .83333 .50375 L s P p .001 w .88095 .5 m .88095 .50375 L s P p .001 w .92857 .5 m .92857 .50375 L s P p .002 w 0 .5 m 1 .5 L s P [(Image)] .5 1 0 -2 Mshowa p .002 w .5 .02381 m .50625 .02381 L s P [(-1)] .4875 .02381 1 0 Mshowa p .002 w .5 .2619 m .50625 .2619 L s P [(-0.5)] .4875 .2619 1 0 Mshowa p .002 w .5 .7381 m .50625 .7381 L s P [(0.5)] .4875 .7381 1 0 Mshowa p .002 w .5 .97619 m .50625 .97619 L s P [(1)] .4875 .97619 1 0 Mshowa p .001 w .5 .07143 m .50375 .07143 L s P p .001 w .5 .11905 m .50375 .11905 L s P p .001 w .5 .16667 m .50375 .16667 L s P p .001 w .5 .21429 m .50375 .21429 L s P p .001 w .5 .30952 m .50375 .30952 L s P p .001 w .5 .35714 m .50375 .35714 L s P p .001 w .5 .40476 m .50375 .40476 L s P p .001 w .5 .45238 m .50375 .45238 L s P p .001 w .5 .54762 m .50375 .54762 L s P p .001 w .5 .59524 m .50375 .59524 L s P p .001 w .5 .64286 m .50375 .64286 L s P p .001 w .5 .69048 m .50375 .69048 L s P p .001 w .5 .78571 m .50375 .78571 L s P p .001 w .5 .83333 m .50375 .83333 L s P p .001 w .5 .88095 m .50375 .88095 L s P p .001 w .5 .92857 m .50375 .92857 L s P p .002 w .5 0 m .5 1 L s P P 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath p p .8 0 0 r p .015 w .46678 .97503 Mdot .43373 .97156 Mdot .40099 .96578 Mdot .36874 .95774 Mdot .33713 .94747 Mdot .30632 .93502 Mdot .27644 .92045 Mdot .24766 .90383 Mdot .2201 .88525 Mdot .19391 .86478 Mdot .16921 .84254 Mdot .14612 .81863 Mdot .12476 .79317 Mdot .10522 .76628 Mdot .08761 .7381 Mdot .072 .70875 Mdot .05848 .67838 Mdot .04712 .64715 Mdot .03795 .6152 Mdot .03104 .58269 Mdot .02642 .54978 Mdot .0241 .51662 Mdot P P p 0 .4 0 r p .015 w .0241 .48338 Mdot .02642 .45022 Mdot .03104 .41731 Mdot .03795 .3848 Mdot .04712 .35285 Mdot .05848 .32162 Mdot .072 .29125 Mdot .08761 .2619 Mdot .10522 .23372 Mdot .12476 .20683 Mdot .14612 .18137 Mdot .16921 .15746 Mdot .19391 .13522 Mdot .2201 .11475 Mdot .24766 .09617 Mdot .27644 .07955 Mdot .30632 .06498 Mdot .33713 .05253 Mdot .36874 .04226 Mdot .40099 .03422 Mdot .43373 .02844 Mdot .46678 .02497 Mdot P P p 1 0 1 r p .015 w .5 .02381 Mdot .53322 .02497 Mdot .56627 .02844 Mdot .59901 .03422 Mdot .63126 .04226 Mdot .66287 .05253 Mdot .69368 .06498 Mdot .72356 .07955 Mdot .75234 .09617 Mdot .7799 .11475 Mdot .80609 .13522 Mdot .83079 .15746 Mdot .85388 .18137 Mdot .87524 .20683 Mdot .89478 .23372 Mdot .91239 .2619 Mdot .928 .29125 Mdot .94152 .32162 Mdot .95288 .35285 Mdot .96205 .3848 Mdot .96896 .41731 Mdot .97358 .45022 Mdot P P p 0 0 1 r p .015 w .9759 .48338 Mdot .9759 .51662 Mdot .97358 .54978 Mdot .96896 .58269 Mdot .96205 .6152 Mdot .95288 .64715 Mdot .94152 .67838 Mdot .928 .70875 Mdot .91239 .7381 Mdot .89478 .76628 Mdot .87524 .79317 Mdot .85388 .81863 Mdot .83079 .84254 Mdot .80609 .86478 Mdot .7799 .88525 Mdot .75234 .90383 Mdot .72356 .92045 Mdot .69368 .93502 Mdot .66287 .94747 Mdot .63126 .95774 Mdot .59901 .96578 Mdot .56627 .97156 Mdot .53322 .97503 Mdot .5 .97619 Mdot P P P MathSubEnd P % End of sub-graphic P P % End of Graphics MathPictureEnd :[font = output; output; inactive; preserveAspect; endGroup] The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated. ;[o] -GraphicsArray- :[font = text; inactive; preserveAspect; endGroup] The code for PictureThis is found at the end of this article. ;[s] 3:0,0;13,1;24,2;62,-1; 3: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; :[font = section; inactive; Cclosed; preserveAspect; startGroup] Conclusion :[font = text; inactive; preserveAspect; endGroup] The two packages presented provide valuable tools for the linear algebra student which are relatively simple to use. They allow the student to benefit from the vast capabilities of the computer algebra system Mathematica with a minimal understanding of how to use Mathematica. This permits the student to focus on the mathematical concepts being presented via Mathematica and not the enormous task of first becoming proficient in Mathematica. ;[s] 9:0,0;210,1;221,2;265,3;276,4;362,5;373,6;432,7;443,8;445,-1; 9: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,Times,2,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,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = section; inactive; Cclosed; preserveAspect; startGroup] Code for ElementaryRowOps and PictureThis ;[s] 4:0,0;9,1;25,2;30,3;42,-1; 4:1,16,12,Times,1,18,0,0,0;1,14,11,Courier,1,18,0,0,0;1,16,12,Times,1,18,0,0,0;1,14,11,Courier,1,18,0,0,0; :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] ElementaryRowOps :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) BeginPackage["`ElementaryRowOps`"]; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) RowOp1::usage="RowOp1[M,a,b] Interchanges rows 'a' and 'b' of Matrix 'M'."; RowOp2::usage="RowOp2[M,s,a] Replaces row 'a' with the scalar multiple 's' times row 'a'."; RowOp3::usage="RowOp3[M,s,a,b] Replaces row 'b' with ('s' * row 'a') + row 'b'."; Begin ["`ElementaryRowOps`Private`"]; RowOp1[M_List, RowA_, RowB_]:= Module[{M1}, If[ MatrixQ[M], M1=M; M1[[RowA]] = M[[RowB]]; M1[[RowB]] = M[[RowA]]; Print[MatrixForm[M1]]; M1; ,(*else*) Print["A Matrix was not entered."]; Print["Check your Matrix and try again."] ] ] RowOp2[M_List, Sclr_, RowA_]:= Module[{M1}, If[ MatrixQ[M], If [Sclr != 0, M1= M; M1[[RowA]] = Sclr*M[[RowA]]; Print[MatrixForm[M1]]; M1; ,(*else*) Print["Scalar needs to be non-zero"] ] ,(*else*) Print["A Matrix was not entered."]; Print["Check your Matrix and try again."] ] ] RowOp3[M_List, Sclr_, RowA_, RowB_] := Module[{M1}, If[ MatrixQ[M], If [Sclr != 0, M1 = M; M1[[RowB]] = Sclr*M[[RowA]] + M[[RowB]]; Print[MatrixForm[M1]]; M1; ,(*else*) Print["Scalar needs to be non-zero."]] ,(*else*) Print["A Matrix was not entered."]; Print["Check your Matrix and try again."] ] ] (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) End[]; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) Protect[ElementaryRowOps]; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"; endGroup] *) EndPackage[]; (* :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] PictureThis :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) BeginPackage["`PictureThis`"]; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) PictureThis::usage="PictureThis[{{x1,y1},...,{xn,yn}},A] plots the points {x1,y1}, {x2,y2}, ... , {xn,yn} and their image under the linear transformation represented by the 2 x 2 matrix A."; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) Begin["`PictureThis`Private`"]; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) PictureThis[list1_List,list2_List,opts___Rule]:= Module[{x1,x2,z1,z2,plotsize1,plotsize2,a1,a2,b1,b2,y1, w1,y2,w2,c1,c2,d2,d1,p11,p1,A,Alist,p21,p2, size,part,remain,num,lista, listb, listc,listd, plota, plotb, plotc, plotd,alist, alistb, alistc, alistd,aplota, aplotb, aplotc, aplotd,Dom,Ima}, size = Length[list1]; If [size > 3, part = Floor[size/4]; (* size of each division *) remain = Mod[size,4]; num = 1; lista = Range[num, part]; (* These while loop blocks divide the main list (list1) into four lists of size part. If the list does not divide evenly by four, the extra points are put into the last list *) While[num <= part, lista[[num]] = list1[[num]]; num = num+1; ]; num = 1; listb = Range[num, part]; While[num <= part, listb[[num]] = list1[[num+part]]; num = num+1; ]; num = 1; listc = Range[num, part]; While[num <= part, listc[[num]] = list1[[num+(2*part)]]; num = num+1; ]; num = 1; listd = Range[num, part+remain]; While[num <= (part+remain), listd[[num]] = list1[[num+(part*3)]]; num = num+1; ]; (* Here we plot, but do not show the entire list1 to ascertain the size of the plotrange for the domain. *) p11=ListPlot[list1,AspectRatio->1, PlotStyle->{PointSize[.015],RGBColor[1,0,0]}, DisplayFunction->Identity]; plotsize1=PlotRange[p11]; x1=plotsize1[[1,1]]; x2=plotsize1[[1,2]]; a1=Min[x1,x2,-x1,-x2]; b1=Max[x1,x2,-x1,-x2]; y1=plotsize1[[2,1]]; y2=plotsize1[[2,2]]; c1=Min[y1,y2,-y1,-y2]; d1=Max[y1,y2,-y1,-y2]; (* Now we apply the transformation matrix to the lists*) A=list2; Alist=Map[A.#&,list1]; alista = Map[A.#&,lista]; alistb = Map[A.#&,listb]; alistc = Map[A.#&,listc]; alistd = Map[A.#&,listd]; (* Again we plot but do not show the entire Alist (after the transformation matrix has been applied) to ascertain the size of the plotrange for the image. *) p21=ListPlot[Alist, AspectRatio->Automatic, PlotStyle->{PointSize[.015],RGBColor[0,0,1]}, PlotLabel->"Image", DisplayFunction->Identity]; plotsize2=PlotRange[p21]; z1=plotsize2[[1,1]]; z2=plotsize2[[1,2]]; a2=Min[z1,z2,-z1,-z2]; b2=Max[z1,z2,-z1,-z2]; w1=plotsize2[[2,1]]; w2=plotsize2[[2,2]]; c2=Min[w1,w2,-w1,-w2]; d2=Max[w1,w2,-w1,-w2]; a=Min[a1,a2]; b=Max[b1,b2]; c=Min[c1,c2]; d=Max[d1,d2]; (* Here we plot the divided lists over the maximum plot ranges. Each list has a different color. *) plota=ListPlot[lista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Domain", DisplayFunction->Identity]; plotb=ListPlot[listb,AspectRatio->Automatic,PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,.4,0]}, PlotLabel->"Domain", DisplayFunction->Identity]; plotc=ListPlot[listc,AspectRatio->Automatic,PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[1,0,1]}, PlotLabel->"Domain", DisplayFunction->Identity]; plotd=ListPlot[listd,AspectRatio->Automatic,PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,0,1]}, PlotLabel->"Domain",DisplayFunction->Identity]; aplota=ListPlot[alista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Image",DisplayFunction->Identity]; aplotb=ListPlot[alistb,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,.4,0]}, PlotLabel->"Image",DisplayFunction->Identity]; aplotc=ListPlot[alistc,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[1,0,1]}, PlotLabel->"Image",DisplayFunction->Identity]; aplotd=ListPlot[alistd,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,0,1]}, PlotLabel->"Image",DisplayFunction->Identity]; (*Merges the original list with different colors *) Dom=Show[{plota,plotb,plotc,plotd},DisplayFunction->Identity]; (*Merges the transformed matrix with differnt colors*) Ima=Show[{aplota,aplotb,aplotc,aplotd},DisplayFunction->Identity]; Show[GraphicsArray[{Dom,Ima}],DisplayFunction->$DisplayFunction], (* This is for 3 points *) If[size == 3, (* Assign each point to a separate list *) lista = Range[1]; listb = Range[1]; listc = Range[1]; lista[[1]] = list1[[1]]; listb[[1]] = list1[[2]]; listc[[1]] = list1[[3]]; (* Here we plot, but do not show the entire list1 to ascertain the size of the plotrange for the domain. *) p11=ListPlot[list1,AspectRatio->1, PlotStyle->{PointSize[.015],RGBColor[1,0,0]}, DisplayFunction->Identity]; plotsize1=PlotRange[p11]; x1=plotsize1[[1,1]]; x2=plotsize1[[1,2]]; a1=Min[x1,x2,-x1,-x2]; b1=Max[x1,x2,-x1,-x2]; y1=plotsize1[[2,1]]; y2=plotsize1[[2,2]]; c1=Min[y1,y2,-y1,-y2]; d1=Max[y1,y2,-y1,-y2]; (* Now we apply the transformation matrix to the lists*) A=list2; Alist=Map[A.#&,list1]; alista = Map[A.#&,lista]; alistb = Map[A.#&,listb]; alistc = Map[A.#&,listc]; (* Again we plot but do not show the entire Alist (after the transformation matrix has been applied) to ascertain the size of the plotrange for the image. *) p21=ListPlot[Alist, AspectRatio->Automatic, PlotStyle->{PointSize[.015],RGBColor[0,0,1]}, PlotLabel->"Image",DisplayFunction->Identity]; plotsize2=PlotRange[p21]; z1=plotsize2[[1,1]]; z2=plotsize2[[1,2]]; a2=Min[z1,z2,-z1,-z2]; b2=Max[z1,z2,-z1,-z2]; w1=plotsize2[[2,1]]; w2=plotsize2[[2,2]]; c2=Min[w1,w2,-w1,-w2]; d2=Max[w1,w2,-w1,-w2]; a=Min[a1,a2]; b=Max[b1,b2]; c=Min[c1,c2]; d=Max[d1,d2]; (* Here we plot the divided lists over the maximum plot ranges. Each list has a different color. *) plota=ListPlot[lista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Domain",DisplayFunction->Identity]; plotb=ListPlot[listb,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,.4,0]}, PlotLabel->"Domain",DisplayFunction->Identity]; plotc=ListPlot[listc,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[1,0,1]}, PlotLabel->"Domain",DisplayFunction->Identity]; aplota=ListPlot[alista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Image",DisplayFunction->Identity]; aplotb=ListPlot[alistb,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,.4,0]}, PlotLabel->"Image",DisplayFunction->Identity]; aplotc=ListPlot[alistc,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[1,0,1]}, PlotLabel->"Image",DisplayFunction->Identity]; (*Merges the original list with different colors *) Dom=Show[{plota,plotb,plotc},DisplayFunction->Identity]; (*Merges the transformed matrix with differnt colors*) Ima=Show[{aplota,aplotb,aplotc},DisplayFunction->Identity]; Show[GraphicsArray[{Dom,Ima}],DisplayFunction->$DisplayFunction]; , (* This is for two points *) If[size == 2, (* Assign each point to a separate list *) lista = Range[1]; listb = Range[1]; lista[[1]] = list1[[1]]; listb[[1]] = list1[[2]]; (* Here we plot, but do not show the entire list1 to ascertain the size of the plotrange for the domain. *) p11=ListPlot[list1,AspectRatio->1, PlotStyle->{PointSize[.015],RGBColor[1,0,0]}, DisplayFunction->Identity]; plotsize1=PlotRange[p11]; x1=plotsize1[[1,1]]; x2=plotsize1[[1,2]]; a1=Min[x1,x2,-x1,-x2]; b1=Max[x1,x2,-x1,-x2]; y1=plotsize1[[2,1]]; y2=plotsize1[[2,2]]; c1=Min[y1,y2,-y1,-y2]; d1=Max[y1,y2,-y1,-y2]; (* Now we apply the transformation matrix to the lists*) A=list2; Alist=Map[A.#&,list1]; alista = Map[A.#&,lista]; alistb = Map[A.#&,listb]; (* Again we plot but do not show the entire Alist (after the transformation matrix has been applied) to ascertain the size of the plotrange for the image. *) p21=ListPlot[Alist, AspectRatio->Automatic, PlotStyle->{PointSize[.015],RGBColor[0,0,1]}, PlotLabel->"Image",DisplayFunction->Identity]; plotsize2=PlotRange[p21]; z1=plotsize2[[1,1]]; z2=plotsize2[[1,2]]; a2=Min[z1,z2,-z1,-z2]; b2=Max[z1,z2,-z1,-z2]; w1=plotsize2[[2,1]]; w2=plotsize2[[2,2]]; c2=Min[w1,w2,-w1,-w2]; d2=Max[w1,w2,-w1,-w2]; a=Min[a1,a2]; b=Max[b1,b2]; c=Min[c1,c2]; d=Max[d1,d2]; (* Here we plot the divided lists over the maximum plot ranges. Each list has a different color. *) plota=ListPlot[lista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Domain",DisplayFunction->Identity]; plotb=ListPlot[listb,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,.4,0]}, PlotLabel->"Domain",DisplayFunction->Identity]; aplota=ListPlot[alista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Image",DisplayFunction->Identity]; aplotb=ListPlot[alistb,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[0,.4,0]}, PlotLabel->"Image",DisplayFunction->Identity]; (*Merges the original list with different colors *) Dom=Show[{plota,plotb},DisplayFunction->Identity]; (*Merges the transformed matrix with differnt colors*) Ima=Show[{aplota,aplotb},DisplayFunction->Identity]; Show[GraphicsArray[{Dom,Ima}],DisplayFunction->$DisplayFunction]; , (* This is for one point *) (* Assign each point to a separate list *) lista = Range[1]; lista[[1]] = list1[[1]]; (* Here we plot, but do not show the entire list1 to ascertain the size of the plotrange for the domain. *) p11=ListPlot[list1,AspectRatio->1, PlotStyle->{PointSize[.015],RGBColor[1,0,0]}, DisplayFunction->Identity]; plotsize1=PlotRange[p11]; x1=plotsize1[[1,1]]; x2=plotsize1[[1,2]]; a1=Min[x1,x2,-x1,-x2]; b1=Max[x1,x2,-x1,-x2]; y1=plotsize1[[2,1]]; y2=plotsize1[[2,2]]; c1=Min[y1,y2,-y1,-y2]; d1=Max[y1,y2,-y1,-y2]; (* Now we apply the transformation matrix to the lists*) A=list2; Alist=Map[A.#&,list1]; alista = Map[A.#&,lista]; (* Again we plot but do not show the entire Alist (after the transformation matrix has been applied) to ascertain the size of the plotrange for the image. *) p21=ListPlot[Alist, AspectRatio->Automatic, PlotStyle->{PointSize[.015],RGBColor[0,0,1]}, PlotLabel->"Image",DisplayFunction->Identity]; plotsize2=PlotRange[p21]; z1=plotsize2[[1,1]]; z2=plotsize2[[1,2]]; a2=Min[z1,z2,-z1,-z2]; b2=Max[z1,z2,-z1,-z2]; w1=plotsize2[[2,1]]; w2=plotsize2[[2,2]]; c2=Min[w1,w2,-w1,-w2]; d2=Max[w1,w2,-w1,-w2]; a=Min[a1,a2]; b=Max[b1,b2]; c=Min[c1,c2]; d=Max[d1,d2]; (* Here we plot the divided lists over the maximum plot ranges. Each list has a different color. *) plota=ListPlot[lista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Domain", DisplayFunction->Identity]; aplota=ListPlot[alista,AspectRatio->Automatic, PlotRange->{{a,b},{c,d}}, PlotStyle->{PointSize[.015],RGBColor[.8,0,0]}, PlotLabel->"Image",DisplayFunction->Identity]; (*Merges the original list with different colors *) Dom=Show[{plota},DisplayFunction->Identity]; (*Merges the transformed matrix with differnt colors*) Ima=Show[{aplota},DisplayFunction->Identity]; Show[GraphicsArray[{Dom,Ima}],DisplayFunction->$DisplayFunction]; ]]]] (* ;[s] 7:0,0;4575,1;4604,2;7765,3;7793,4;10479,5;10509,6;12669,-1; 7:1,7,6,Courier,1,10,0,0,0;1,7,6,Courier,1,10,65535,0,0;1,7,6,Courier,1,10,0,0,0;1,7,6,Courier,1,10,65535,0,0;1,7,6,Courier,1,10,0,0,0;1,7,6,Courier,1,10,65535,0,0;1,7,6,Courier,1,10,0,0,0; :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) End[]; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) Protect[PictureThis]; (* :[font = input; initialization; preserveAspect; fontSize = 10; fontName = "Courier"] *) EndPackage[]; (* :[font = input; initialization; noPageBreakBelow; preserveAspect; fontSize = 10; fontName = "Courier"] *) Region1=Flatten[Table[{.5i,.5j},{i,0,10},{j,0,10}],1]; (* :[font = input; initialization; noPageBreakBelow; preserveAspect; fontSize = 10; fontName = "Courier"] *) Region2=Flatten[Table[Table[{.5i,.5j},{j,0,i}],{i,0,10}],1]; (* :[font = input; initialization; noPageBreakBelow; preserveAspect; fontSize = 10; fontName = "Courier"] *) Region3=Table[{Cos[(2Pi/90)*i],Sin[(2Pi/90)*i]},{i,1,90}]; (* :[font = input; initialization; noPageBreakBelow; preserveAspect; fontSize = 10; fontName = "Courier"; endGroup; endGroup] *) Region4=Table[{-1+(3t)/30,-2+(6t)/30},{t,0,30}]; (* :[font = section; inactive; Cclosed; preserveAspect; startGroup] About the authors :[font = text; inactive; preserveAspect; endGroup; endGroup; endGroup] Stephen Hughes is a junior majoring in computer science at Dickinson College. Elizabeth Koopman is a senior at Dickinson College. She is a major in both mathematics and computer science. Shari Prevost is an assistant professor of mathematics in the Department of Mathematics and Computer Science at Dickinson College. Barry Tesman is an assistant professor of mathematics in the Department of Mathematics and Computer Science at Dickinson College. The Dana Internship Program and Dickinson College provided funding for this project. ^*)