(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "NeXT Mathematica Notebook Front End Version 2.2"; NeXTStandardFontEncoding; fontset = title, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8, 24, "Times"; ; fontset = subtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6, 18, "Times"; ; fontset = subsubtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6, 14, "Times"; ; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20, 18, "Times"; ; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15, 14, "Times"; ; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12, 12, "Times"; ; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 10, "Times"; ; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1, 12, "Courier"; ; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1, 12, "Courier"; ; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L1, 12, "Courier"; ; fontset = name, inactive, noPageBreakInGroup, nohscroll, preserveAspect, M7, italic, B65535, L1, 10, "Times"; ; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, L1, 12, "Times"; ; fontset = leftheader, 12; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, italic, L1, 12, "Times"; ; fontset = leftfooter, 12; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12, "Courier"; ; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1, 12; paletteColors = 128; magnification = 150; currentKernel; ] :[font = title; inactive; preserveAspect; startGroup] Unitary Diagonalization and Quadratic Forms :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] General Diagonalization :[font = text; inactive; preserveAspect] Let's review the basic idea of diagonalization by way of an example we have already worked on. Here is the Leslie model we examined. Recall that the species of animal we were looking at lived 3 years, with survival rates b1 = 0.5, b2 = 0.25, and number of offspring for first year animals as a1 = 0, second year animals at a2 = 4, and third year animals at a3 = 3. The population distribution from one year to the next is given by xn+1 = A . xn, where xn is the vector of animals sorted into age groups, and A is given below: ;[s] 17:0,0;226,1;227,2;237,3;238,4;299,5;300,6;332,7;333,8;366,9;367,10;449,11;452,12;460,13;461,14;476,15;477,16;603,-1; 17:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect] A = {{0, 4, 3}, {0.5, 0, 0}, {0, 0, 0.25}} :[font = text; inactive; preserveAspect] The idea is to simplify the matrix equation above by making a simple linear change of variables from variables x to variables x' with P as the ªchange of basis matrixº, which has to be invertible, otherwise we couldn't solve for one set of variables in terms of the other: x = P. x' This means that xn = P . x'n and xn+1 = P . x'n+1. Now substitute into the first matrix equation and get P . x'n+1 = A . P . x'n, i.e., x'n+1 = P -1 . A . P . x'n. So what we are really interested in is the DIAGONALIZATION THEOREM: The n´n matrix A is diagonalizable, i.e., there is an invertible matrix P such that P -1 . A . P = D is a diagonal matrix, if and only if A has a set of n linearly independent eigenvectors v1, v2, ... , vn, in which case we may choose P = [v1, v2, ..., vn]. Let's test it out on our matrix A: ;[s] 43:0,0;112,1;113,2;128,3;129,4;278,5;293,6;313,7;314,8;324,9;325,10;334,11;337,12;347,13;350,14;413,15;416,16;431,17;432,18;451,19;454,20;461,21;463,22;476,23;477,24;557,25;558,26;576,27;590,28;645,29;647,30;756,31;757,32;760,33;761,34;770,35;771,36;809,37;810,38;813,39;814,40;822,41;823,42;862,-1; 43: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,12,9,Times,0,13,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect] P = Transpose[Eigenvectors[A]] :[font = input; preserveAspect; endGroup] Inverse[P].A.P :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] Unitary Diagonalization :[font = text; inactive; preserveAspect] Before we see the crowning glory of this aspect of linear algebra, it is necessary to introduce a bit of terminology: a square matrix A is called normal if A . A* = A* . A . Examples of such matrices are: any Hermitian matrix A. Remember that this is a square matrix A such that A = A*. In this case, the definition of normal becomes simply A . A = A . A . Another example is any unitary matrix U. For in this case, U* = U-1, which certainly commutes with U under multiplication. (U . U* = I = U* . U) Also recall that we say that a matrix is unitarily diagonalizable if there exists a unitary matrix U (orthogonal if A is real) such that U* . A . U is a diagonal matrix. Now for the theorem that makes this definition worthwhile: ;[s] 7:0,0;147,1;153,2;436,3;438,4;558,5;582,6;766,-1; 7: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,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; preserveAspect] THEOREM: The square matrix A is unitarily diagonalizable if and only if A is a normal matrix. By the way, part of this is easy to see and gives you an idea where someone might have gotten the idea for the definition of ªnormalityº: namely, its not hard to check that if A is unitarily diagonalizable by unitary U, then A is normal. The other direction requires more work. :[font = text; inactive; preserveAspect] Of course, finding this matrix U is another matter altogether. The procedure goes something like this: first, find all the eigenvalues of the matrix A, counting multiplicities. Next, find an orthonormal basis for each eigenspace. In case of multiple eigenvalues, this will involve the Gram-Schmidt Algorithm. Now simply stack all these vectors together to form the matrix U; the theory guarantees us that we will be able to find a full set of n of these, where A is n´n, and that they will automatically form an orthonormal set. Fortunately, in Mathematica we have some tools at our disposal. The matrix that results from the following discussion is really an example matrix, lifted out of your textbook, page 321. MatrixForm it to see that is real symmetric. ;[s] 7:0,0;456,1;457,2;482,3;483,4;561,5;572,6;778,-1; 7: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,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,10,8,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect] a = {{4,2,2},{2,4,2},{2,2,4}} :[font = input; preserveAspect; endGroup] MatrixForm[a] :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] Classification of Quadratic Forms :[font = text; inactive; preserveAspect] Now here is how the matrix is going to appear in a rather different context: consider the problem of classifying the quadric surface given by the equation 4 ( x2 + y2 + z2 + x y + x z + y z) = 1. This is a 3-D version of the classification of conics that you did in Calculus II. Here is how we will handle such problems. We treat the left hand side as a ªquadratic formº, that is, a function of the form Q(x, y, z) = [x, y, z]* . A . [x, y, z]. (Check it out, this is a scalar function of x, y and z.) But we don't want just any 3´3 matrix A. We only want to deal with symmetric matrices (Hermitian if we happen to be dealing with complex numbers). Here's how to find a symmetric A: find any B whatsoever that works, that is, the above formula gives the desired quadratic form. For example, with the form above, we could use the following B: ;[s] 9:0,0;167,1;168,2;174,3;175,4;180,5;181,6;554,7;555,8;561,-1; 9:1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,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 = input; preserveAspect] b = {{4,0,0},{4,4,0},{4,4,4}} :[font = text; inactive; preserveAspect] See what happens in the following cell: :[font = input; preserveAspect] Simplify[{x,y,z} . b . {x,y,z}] :[font = text; inactive; preserveAspect] But rather than use B, use the average of B and its transpose as A. This matrix will give exacly the same quadratic form as B does and it has the virtue of being symmetric (It is always true that ((B + B*)/2)* = (B + B*)/2.) Let's check it out. Notice, by the way, when working with vectors in Mathematica, you don't have to transpose the vector to do multiplication on the left with the matrix B. Mathematica will do this automatically, and in fact, doesn't even know what the Transpose of a vector is. ;[s] 12:0,0;197,1;198,2;206,3;207,4;208,5;209,6;210,7;213,8;221,9;222,10;223,11;508,-1; 12:1,11,8,Times,0,12,0,0,0;1,16,12,Times,0,18,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,17,13,Times,0,19,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect] a = (b + Transpose[b])/2 :[font = text; inactive; preserveAspect] Now make sure this gives the same quadratic form: :[font = input; preserveAspect] Simplify[{x,y,z} . a . {x,y,z}] :[font = text; inactive; preserveAspect] O.K., now let's get down to business. First find the eigenvalues of A. Normally, it would be wise to turn A into a numerical matrix first, since Mathematica handles these in any size. But this matrix A is sufficiently simple that Mathematica will be able to handle it in exact arithmetic. ;[s] 5:0,0;109,1;110,2;234,3;245,4;294,-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,Times,2,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect] Eigenvalues[a] :[font = text; inactive; preserveAspect] Now let's get the eigenspaces for each eigenvalue. :[font = input; preserveAspect] n = NullSpace[a-8 IdentityMatrix[3]] :[font = text; inactive; preserveAspect] This gives us one eigenvector. Let's name it. :[font = input; preserveAspect] v1 = n[[1]] :[font = input; preserveAspect] n = NullSpace[a-2 IdentityMatrix[3]] :[font = text; inactive; preserveAspect] Now name these two eigenvectors :[font = input; preserveAspect] v2 = n[[1]] :[font = input; preserveAspect] v3 = n[[2]] :[font = text; inactive; preserveAspect] O.K., O.K., so we worked too hard. I just wanted to remind you of the definition of the eigenspace. Here's the lazy (but fast) way of doing the whole thing: :[font = input; preserveAspect] Eigensystem[a] :[font = text; inactive; preserveAspect] Notice that the eigenvectors belonging to 2 are linearly independent, but not orthogonal. Let's turn all these v's into an orthonormal set. Start with v1. ;[s] 3:0,0;154,1;155,2;157,-1; 3:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = input; preserveAspect] u1 = v1/Sqrt[v1.v1] :[font = input; preserveAspect] u2 = v2/Sqrt[v2.v2] :[font = input; preserveAspect] u3p = v3 - (v3 . u2) u2 :[font = input; preserveAspect] u3 = u3p/Sqrt[u3p . u3p] :[font = text; inactive; preserveAspect] Finally, let's put them all together to get the desired orthogonal matrix u. :[font = input; preserveAspect] u = Transpose[{u1, u2, u3}] :[font = text; inactive; preserveAspect] Now put it to the tests. :[font = input; preserveAspect] Transpose[u] . u :[font = input; preserveAspect] d = Transpose[u] . a . u :[font = text; inactive; preserveAspect] Great! Now let's see what the significance of this is for the quadratic form we were studying, namely, Q = {x,y,z} . a . {x,y,z}. Make an orthogonal change of variables given by {x,y,z} = u . {x', y', z'} , so that Q = {x,y,z} . a . {x,y,z} = {x', y', z'} . Transpose[u] . a . u . {x', y', z'} and see what we get: :[font = input; preserveAspect] Simplify[u . {xp, yp, zp} . a . u . {xp, yp, zp}] :[font = text; inactive; preserveAspect] Now we can see that there is an orthonormal basis of R3 which give the axes of the surface Q(x,y,z) = 1, which is nothing more than an ellipsoid with major axis of length 8 and minor axes of length 2 each. We could even plot it with some more work with Mathematica. ;[s] 3:0,0;54,1;55,2;267,-1; 3:1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; preserveAspect] For Hermitian matrices, there is a sneaky shortcut in Mathematica. This shortcut is based on ideas we don't develop in 314H (maybe we should) about singular values of a matrix. I won't go into detail about it, but try this command: :[font = input; preserveAspect] SingularValues[a] :[font = text; inactive; preserveAspect] Here Mathematica choked on symbolic matrices. So redo it with numbers: :[font = input; preserveAspect] {uu, dd, vv} = SingularValues[N[a]] :[font = text; inactive; preserveAspect] Now check this out: :[font = input; preserveAspect] uu . Transpose[uu] :[font = input; preserveAspect; endGroup] uu . a . Transpose[uu] :[font = subsection; inactive; Cclosed; preserveAspect; startGroup] Exercises :[font = text; inactive; preserveAspect] (1) For each of the following matrices An, determine whether they are diagonalizable, and if so, find an invertible matrix Sn and a diagonal matrix Dn such that An = Sn-1DnSn: æ5 1 0ö (a) A1 = ÷ 0 5 1ç è0 0 5ø æ 1 5 2ö (b) A2 = ç 0 3 -1÷ è 0 0 2ø æ 1 0 2 3 -1ö ÷ 3 7 5 8 2 ç (c) A3 = ç-1 0 5 2 7 ç ç 4 3 2 7 -1÷ è 6 9 -1 3 -8ø ;[s] 67:0,0;41,1;42,2;133,3;134,4;157,5;158,6;159,7;171,8;172,9;176,10;177,11;179,12;180,13;181,14;182,15;183,16;217,17;218,18;227,19;228,20;241,21;244,22;247,23;248,24;258,25;259,26;284,27;285,28;294,29;295,30;345,31;346,32;356,33;357,34;370,35;371,36;376,37;377,38;387,39;388,40;417,41;418,42;428,43;429,44;479,45;480,46;494,47;495,48;519,49;520,50;536,51;537,52;552,53;553,54;557,55;558,56;573,57;574,58;599,59;600,60;614,61;615,62;640,63;641,64;655,65;656,66;676,-1; 67:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,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,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,0,0,Symbol,0,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; preserveAspect] (2) Repeat the above exercise with Sn being unitary. ;[s] 3:0,0;37,1;38,2;53,-1; 3:1,11,8,Times,0,12,0,0,0;1,11,8,Times,64,12,0,0,0;1,11,8,Times,0,12,0,0,0; :[font = text; inactive; preserveAspect; endGroup; endGroup] (3) Classify the following quadratic forms (i.e. determine their general shape). (a) 3 x2 + 5 x y - 8 y2 = 7 (b) x y = -1 (c) 7 x2 - x y - 9 y2 + 7 x - 8 y = 2 (Hint : first make a substitution x' = x + h, y' = y + k) (d) 7 x2 + 8 y2 - z2 + x y - x z + 3 y z = 0 ;[s] 15:0,0;95,1;96,2;110,3;111,4;149,5;150,6;162,7;163,8;269,9;270,10;276,11;277,12;281,13;282,14;314,-1; 15:1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0;1,11,8,Times,32,12,0,0,0;1,11,8,Times,0,12,0,0,0; ^*)