(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 227768, 6167] NotebookOptionsPosition[ 221447, 5962] NotebookOutlinePosition[ 221851, 5979] CellTagsIndexPosition[ 221808, 5976] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Mathematica Code for: \[OpenCurlyDoubleQuote]Transformations and Projections \ in Computer Graphics,\[CloseCurlyDoubleQuote] 2006, by David Salomon.\ \>", "Title", CellChangeTimes->{ 3.432822199015625*^9, 3.432822257640625*^9, {3.432822297265625*^9, 3.432822325765625*^9}, {3.432847615484375*^9, 3.432847616234375*^9}, { 3.432878457188719*^9, 3.43287845748559*^9}, {3.432923988671875*^9, 3.432923988953125*^9}, {3.433638011296875*^9, 3.4336380116875*^9}, { 3.433639751078125*^9, 3.433639751390625*^9}, {3.4336445585625*^9, 3.43364455890625*^9}}, Background->RGBColor[1, 1, 0]], Cell["Code Examples:", "Subtitle", CellChangeTimes->{{3.434221361578125*^9, 3.43422138759375*^9}}, Background->RGBColor[1, 0.5, 0]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Sine", " ", "Values", " ", "as", " ", "16"}], "-", RowBox[{"Bit", " ", RowBox[{"Integers", ".", " ", "Page"}], " ", "23."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "d2r", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d2r", "=", RowBox[{"Pi", "/", "180"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"N", "[", RowBox[{"16384", "*", RowBox[{"Sin", "[", RowBox[{"i", "*", "d2r"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "30"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "30"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"N", "[", RowBox[{"16384", "*", RowBox[{"Sin", "[", RowBox[{"i", "*", "d2r"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "31", ",", "60"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a2", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "31", ",", "60"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"N", "[", RowBox[{"16384", "*", RowBox[{"Sin", "[", RowBox[{"i", "*", "d2r"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "61", ",", "90"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a3", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "61", ",", "90"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tab1", "=", RowBox[{"MatrixForm", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"a1", ",", "\"\<\!\(\* StyleBox[\"\[Theta]\", FontVariations->{\"Underline\"->True}]\)\>\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{"s1", ",", "\"\<\!\(\* StyleBox[\"Sin\", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\" \", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\"\[Theta]\", FontVariations->{\"Underline\"->True}]\)\>\""}], "]"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tab2", "=", RowBox[{"MatrixForm", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"a2", ",", "\"\<\!\(\* StyleBox[\"\[Theta]\", FontVariations->{\"Underline\"->True}]\)\>\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{"s2", ",", "\"\<\!\(\* StyleBox[\"Sin\", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\" \", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\"\[Theta]\", FontVariations->{\"Underline\"->True}]\)\>\""}], "]"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tab3", "=", RowBox[{"MatrixForm", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"a3", ",", "\"\<\!\(\* StyleBox[\"\[Theta]\", FontVariations->{\"Underline\"->True}]\)\>\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{"s3", ",", "\"\<\!\(\* StyleBox[\"Sin\", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\" \", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\"\[Theta]\", FontVariations->{\"Underline\"->True}]\)\>\""}], "]"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Quiet", "[", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"{", "tab1", "}"}], ",", RowBox[{"{", "tab2", "}"}], ",", RowBox[{"{", "tab3", "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Framed", "[", RowBox[{"%", ",", RowBox[{"Background", "\[Rule]", "LightCyan"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Labeled", "[", RowBox[{"%", ",", "\"\<\!\(\* StyleBox[\"Sine\", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\" \", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\"Values\", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\" \", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\"as\", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\" \", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\"16\", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\"-\", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\"Bit\", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\" \", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\"Integers\", FontSize->14, FontColor->RGBColor[0, 0, 1]]\)\>\"", ",", RowBox[{"{", "Top", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Framed", "[", RowBox[{"%", ",", RowBox[{"Background", "\[Rule]", "LightYellow"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.432923648625*^9, 3.432923720609375*^9}, {3.432923827*^9, 3.43292388528125*^9}, {3.4329241815*^9, 3.432924308453125*^9}}], Cell[BoxData[ FrameBox[ InterpretationBox[GridBox[{ { TagBox["\<\"\\!\\(\\*\\nStyleBox[\\\"Sine\\\",\\nFontSize->14,\\\ nFontColor->RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\ \\\"Values\\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, \ 1]]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\ \\\"as\\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, \ 1]]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\ \\\"16\\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, \ 1]]\\)\\!\\(\\*\\nStyleBox[\\\"-\\\",\\nFontSize->14,\\nFontColor->RGBColor[0,\ 0, 1]]\\)\\!\\(\\*\\nStyleBox[\\\"Bit\\\",\\nFontSize->14,\\nFontColor->\ RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\ \\\"Integers\\\",\\nFontSize->14,\\nFontColor->RGBColor[0, 0, 1]]\\)\"\>", "Labeled", Editable->True, Selectable->True]}, { TagBox[ TagBox[ FrameBox[ RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\"\\!\\(\\*\\nStyleBox[\\\"\[Theta]\\\",\\nFontVariations->{\ \\\"Underline\\\"->True}]\\)\"\>", \ "\<\"\\!\\(\\*\\nStyleBox[\\\"Sin\\\",\\nFontVariations->{\\\"Underline\\\"->\ True}]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)\\!\\(\\*\\nStyleBox[\\\"\ \[Theta]\\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)\"\>"}, {"0", "0"}, {"1", "286"}, {"2", "572"}, {"3", "857"}, {"4", "1143"}, {"5", "1428"}, {"6", "1713"}, {"7", "1997"}, {"8", "2280"}, {"9", "2563"}, {"10", "2845"}, {"11", "3126"}, {"12", "3406"}, {"13", "3686"}, {"14", "3964"}, {"15", "4240"}, {"16", "4516"}, {"17", "4790"}, {"18", "5063"}, {"19", "5334"}, {"20", "5604"}, {"21", "5872"}, {"22", "6138"}, {"23", "6402"}, {"24", "6664"}, {"25", "6924"}, {"26", "7182"}, {"27", "7438"}, {"28", "7692"}, {"29", "7943"}, {"30", "8192"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "<>", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\"\\!\\(\\*\\nStyleBox[\\\"\[Theta]\\\",\\nFontVariations->{\ \\\"Underline\\\"->True}]\\)\"\>", \ "\<\"\\!\\(\\*\\nStyleBox[\\\"Sin\\\",\\nFontVariations->{\\\"Underline\\\"->\ True}]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)\\!\\(\\*\\nStyleBox[\\\"\ \[Theta]\\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)\"\>"}, {"31", "8438"}, {"32", "8682"}, {"33", "8923"}, {"34", "9162"}, {"35", "9397"}, {"36", "9630"}, {"37", "9860"}, {"38", "10087"}, {"39", "10311"}, {"40", "10531"}, {"41", "10749"}, {"42", "10963"}, {"43", "11174"}, {"44", "11381"}, {"45", "11585"}, {"46", "11786"}, {"47", "11982"}, {"48", "12176"}, {"49", "12365"}, {"50", "12551"}, {"51", "12733"}, {"52", "12911"}, {"53", "13085"}, {"54", "13255"}, {"55", "13421"}, {"56", "13583"}, {"57", "13741"}, {"58", "13894"}, {"59", "14044"}, {"60", "14189"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "<>", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\"\\!\\(\\*\\nStyleBox[\\\"\[Theta]\\\",\\nFontVariations->{\ \\\"Underline\\\"->True}]\\)\"\>", \ "\<\"\\!\\(\\*\\nStyleBox[\\\"Sin\\\",\\nFontVariations->{\\\"Underline\\\"->\ True}]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)\\!\\(\\*\\nStyleBox[\\\"\ \[Theta]\\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)\"\>"}, {"61", "14330"}, {"62", "14466"}, {"63", "14598"}, {"64", "14726"}, {"65", "14849"}, {"66", "14968"}, {"67", "15082"}, {"68", "15191"}, {"69", "15296"}, {"70", "15396"}, {"71", "15491"}, {"72", "15582"}, {"73", "15668"}, {"74", "15749"}, {"75", "15826"}, {"76", "15897"}, {"77", "15964"}, {"78", "16026"}, {"79", "16083"}, {"80", "16135"}, {"81", "16182"}, {"82", "16225"}, {"83", "16262"}, {"84", "16294"}, {"85", "16322"}, {"86", "16344"}, {"87", "16362"}, {"88", "16374"}, {"89", "16382"}, {"90", "16384"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], Background->RGBColor[0.9, 1, 1], StripOnInput->False], "Labeled", Editable->True, Selectable->True], "SkipImageSizeLevel"]} }, BaselinePosition->{2, 1}, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}], Labeled[ Framed[ StringJoin[ MatrixForm[{{ "\!\(\*\nStyleBox[\"\[Theta]\",\n\ FontVariations->{\"Underline\"->True}]\)", "\!\(\*\nStyleBox[\"Sin\",\nFontVariations->{\"Underline\"->True}]\)\ \!\(\*\nStyleBox[\" \",\nFontVariations->{\"Underline\"->True}]\)\!\(\*\n\ StyleBox[\"\[Theta]\",\nFontVariations->{\"Underline\"->True}]\)"}, {0, 0}, { 1, 286}, {2, 572}, {3, 857}, {4, 1143}, {5, 1428}, {6, 1713}, {7, 1997}, {8, 2280}, {9, 2563}, {10, 2845}, {11, 3126}, {12, 3406}, {13, 3686}, {14, 3964}, {15, 4240}, {16, 4516}, {17, 4790}, {18, 5063}, { 19, 5334}, {20, 5604}, {21, 5872}, {22, 6138}, {23, 6402}, {24, 6664}, {25, 6924}, {26, 7182}, {27, 7438}, {28, 7692}, {29, 7943}, { 30, 8192}}], MatrixForm[{{ "\!\(\*\nStyleBox[\"\[Theta]\",\n\ FontVariations->{\"Underline\"->True}]\)", "\!\(\*\nStyleBox[\"Sin\",\nFontVariations->{\"Underline\"->True}]\)\ \!\(\*\nStyleBox[\" \",\nFontVariations->{\"Underline\"->True}]\)\!\(\*\n\ StyleBox[\"\[Theta]\",\nFontVariations->{\"Underline\"->True}]\)"}, {31, 8438}, {32, 8682}, {33, 8923}, {34, 9162}, {35, 9397}, {36, 9630}, { 37, 9860}, {38, 10087}, {39, 10311}, {40, 10531}, {41, 10749}, {42, 10963}, {43, 11174}, {44, 11381}, {45, 11585}, {46, 11786}, {47, 11982}, {48, 12176}, {49, 12365}, {50, 12551}, {51, 12733}, {52, 12911}, {53, 13085}, {54, 13255}, {55, 13421}, {56, 13583}, {57, 13741}, {58, 13894}, {59, 14044}, {60, 14189}}], MatrixForm[{{ "\!\(\*\nStyleBox[\"\[Theta]\",\n\ FontVariations->{\"Underline\"->True}]\)", "\!\(\*\nStyleBox[\"Sin\",\nFontVariations->{\"Underline\"->True}]\)\ \!\(\*\nStyleBox[\" \",\nFontVariations->{\"Underline\"->True}]\)\!\(\*\n\ StyleBox[\"\[Theta]\",\nFontVariations->{\"Underline\"->True}]\)"}, {61, 14330}, {62, 14466}, {63, 14598}, {64, 14726}, {65, 14849}, {66, 14968}, {67, 15082}, {68, 15191}, {69, 15296}, {70, 15396}, {71, 15491}, {72, 15582}, {73, 15668}, {74, 15749}, {75, 15826}, {76, 15897}, {77, 15964}, {78, 16026}, {79, 16083}, {80, 16135}, {81, 16182}, {82, 16225}, {83, 16262}, {84, 16294}, {85, 16322}, {86, 16344}, {87, 16362}, {88, 16374}, {89, 16382}, {90, 16384}}]], Background -> RGBColor[0.9, 1, 1]], "\!\(\*\nStyleBox[\"Sine\",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\ \)\!\(\*\nStyleBox[\" \",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)\!\(\ \*\nStyleBox[\"Values\",\nFontSize->14,\nFontColor->RGBColor[0, 0, \ 1]]\)\!\(\*\nStyleBox[\" \",\nFontSize->14,\nFontColor->RGBColor[0, 0, \ 1]]\)\!\(\*\nStyleBox[\"as\",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)\ \!\(\*\nStyleBox[\" \",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\ \nStyleBox[\"16\",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\ StyleBox[\"-\",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\ StyleBox[\"Bit\",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\ StyleBox[\" \",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\ StyleBox[\"Integers\",\nFontSize->14,\nFontColor->RGBColor[0, 0, 1]]\)", { Top}], Editable->False, Selectable->False], Background->RGBColor[1, 1, 0.85], StripOnInput->False]], "Output", CellChangeTimes->{ 3.432923553875*^9, {3.432923708828125*^9, 3.43292373028125*^9}, 3.432923845390625*^9, {3.432923875703125*^9, 3.43292388628125*^9}, 3.432924194484375*^9, {3.432924226515625*^9, 3.432924324375*^9}, 3.4331040558125*^9, 3.433638139953125*^9, 3.4336396784375*^9, 3.433639734203125*^9, 3.43363993940625*^9, 3.433641529015625*^9, 3.433641677984375*^9, 3.433642640390625*^9, 3.433644574953125*^9, { 3.433650779609375*^9, 3.43365079378125*^9}, 3.4337010576875*^9, 3.433813842921875*^9, 3.4338158520625*^9, 3.4340839541875*^9, 3.43408442171875*^9, 3.434085329265625*^9, 3.434085757*^9, 3.43408601209375*^9, 3.43408612784375*^9, 3.43408638946875*^9, 3.434220956390625*^9, 3.43432746621875*^9, 3.434369192125*^9, 3.434369317875*^9, 3.434369375125*^9, 3.434370409015625*^9, 3.434373413703125*^9, 3.434373674921875*^9, 3.434373925078125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"CORDIC", " ", RowBox[{"Rotation", ".", " ", "Fig", ".", " ", "1.12"}]}], ",", " ", RowBox[{"page", " ", "26."}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ StyleBox[ RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "i"}], ")"}]}], "+", "1"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "16"}], "}"}]}], "]"}], ",", "17"}], "]"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Column", "[", RowBox[{"%", ",", RowBox[{"Alignment", "\[Rule]", "\"\<.\>\""}]}], "]"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Framed", "[", RowBox[{"%", ",", RowBox[{"Background", "\[Rule]", "LightBlue"}]}], "]"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Labeled", "[", RowBox[{"%", ",", "\"\<\!\(\* StyleBox[\"CORDIC\", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\" \", FontVariations->{\"Underline\"->True}]\)\!\(\* StyleBox[\"Rotation\", FontVariations->{\"Underline\"->True}]\)\>\"", ",", RowBox[{"{", "Top", "}"}]}], "]"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{"Framed", "[", RowBox[{"%", ",", RowBox[{"Background", "\[Rule]", "LightOrange"}], ",", "\[IndentingNewLine]", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Thick", ",", "Brown"}], "]"}]}]}], "]"}], FontSize->14], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.43291743478125*^9, 3.4329174374375*^9}, 3.432924347890625*^9, 3.43309953896875*^9, {3.43309957196875*^9, 3.433099619203125*^9}, {3.433099656046875*^9, 3.433099657875*^9}, { 3.4330997389375*^9, 3.43309975865625*^9}, {3.433099789875*^9, 3.4330997919375*^9}, {3.43310028328125*^9, 3.433100305734375*^9}}], Cell[BoxData[ FrameBox[ InterpretationBox[GridBox[{ { TagBox["\<\"\\!\\(\\*\\nStyleBox[\\\"CORDIC\\\",\\nFontVariations->{\\\"\ Underline\\\"->True}]\\)\\!\\(\\*\\nStyleBox[\\\" \\\",\\nFontVariations->{\\\ \"Underline\\\"->True}]\\)\\!\\(\\*\\nStyleBox[\\\"Rotation\\\",\\\ nFontVariations->{\\\"Underline\\\"->True}]\\)\"\>", "Labeled", Editable->True, Selectable->True]}, { TagBox[ TagBox[ FrameBox[ TagBox[GridBox[{ {"0.7071067811865475244008443621`17."}, {"0.63245553203367586639977870889`17."}, {"0.61357199107789634960780908776`17."}, {"0.60883391251775242102211350754`17."}, {"0.60764825625616820092932166031`17."}, {"0.60735177014129595905351239038`17."}, {"0.60727764409352599904691536734`17."}, {"0.60725911229889273006029454182`17."}, {"0.60725447933256232971739808632`17."}, {"0.60725332108987516334343519857`17."}, {"0.60725303152913433540228465467`17."}, {"0.60725295913894481363035179764`17."}, {"0.60725294104139716351297018643`17."}, {"0.60725293651701023412897124209`17."}, {"0.60725293538591350072955560274`17."}, {"0.60725293510313931731386319807`17."}, {"0.60725293503244577145582519095`17."} }, ColumnsEqual->False, GridBoxAlignment->{"Columns" -> {{"."}}, "Rows" -> {{"."}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, RowsEqual->False], "Column"], Background->RGBColor[0.87, 0.94, 1], StripOnInput->False], "Labeled", Editable->True, Selectable->True], "SkipImageSizeLevel"]} }, BaselinePosition->{2, 1}, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}], Labeled[ Framed[ Column[{ 0.707106781186547524`17., 0.632455532033675866`17., 0.61357199107789635`17., 0.608833912517752421`17., 0.607648256256168201`17., 0.607351770141295959`17., 0.607277644093525999`17., 0.60725911229889273`17., 0.60725447933256233`17., 0.607253321089875163`17., 0.607253031529134335`17., 0.607252959138944814`17., 0.607252941041397164`17., 0.607252936517010234`17., 0.607252935385913501`17., 0.607252935103139317`17., 0.607252935032445771`17.}, Alignment -> "."], Background -> RGBColor[0.87, 0.94, 1]], "\!\(\*\nStyleBox[\"CORDIC\",\nFontVariations->{\"Underline\"->True}]\)\!\ \(\*\nStyleBox[\" \",\nFontVariations->{\"Underline\"->True}]\)\!\(\*\n\ StyleBox[\"Rotation\",\nFontVariations->{\"Underline\"->True}]\)", {Top}], Editable->False, Selectable->False], Background->RGBColor[1, 0.9, 0.8], FrameStyle->Directive[ Thickness[Large], RGBColor[0.6, 0.4, 0.2]], StripOnInput->False]], "Output", CellChangeTimes->{ 3.433099759265625*^9, 3.43309979390625*^9, {3.43310028421875*^9, 3.433100306953125*^9}, 3.433104056203125*^9, 3.433638140125*^9, 3.4336396785625*^9, 3.4336397343125*^9, 3.43363993953125*^9, 3.43364152915625*^9, 3.433641678296875*^9, 3.433642640515625*^9, 3.433644575078125*^9, {3.43365077975*^9, 3.433650793875*^9}, 3.433701058015625*^9, 3.43381384309375*^9, 3.43381585246875*^9, 3.434083441734375*^9, 3.4340839543125*^9, 3.434084421890625*^9, 3.43408532940625*^9, 3.43408575709375*^9, 3.434086012171875*^9, 3.434086127984375*^9, 3.434086389609375*^9, 3.434220956546875*^9, 3.434327466359375*^9, 3.4343691923125*^9, 3.434369318*^9, 3.43436937525*^9, 3.434370409171875*^9, 3.434373413859375*^9, 3.434373675125*^9, 3.43437392525*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"CORDIC", " ", RowBox[{"Rotations", ".", " ", "Fig"}], ".1", ".13"}], ",", " ", RowBox[{"page", " ", "28."}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ StyleBox[ RowBox[{"Clear", "[", RowBox[{"t", ",", "d", ",", "x", ",", "y", ",", "z"}], "]"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"2.", "^", RowBox[{"{", RowBox[{"-", "i"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "15"}], "}"}]}], "]"}]}], ";"}], FontSize->14], StyleBox[ RowBox[{"(*", RowBox[{"Arctans", " ", "in", " ", RowBox[{"radians", "."}]}], "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"d", "=", "1"}], ";", RowBox[{"x", "=", "2.1"}], ";", RowBox[{"y", "=", "0.34"}], ";", RowBox[{"z", "=", RowBox[{"46.", " ", "Degree"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{"Do", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\<,\>\"", ",", "x", ",", "\"\<,\>\"", ",", "y", ",", "\"\<,\>\"", ",", "z", ",", "\"\<,\>\"", ",", "d"}], "]"}], ",", "\n", RowBox[{"xn", "=", RowBox[{"x", "+", RowBox[{"y", " ", "d", " ", RowBox[{"2", "^", RowBox[{"{", RowBox[{"-", "i"}], "}"}]}]}]}]}], ",", RowBox[{"yn", "=", RowBox[{"y", "-", RowBox[{"x", " ", "d", " ", RowBox[{"2", "^", RowBox[{"{", RowBox[{"-", "i"}], "}"}]}]}]}]}], ",", "\n", RowBox[{"zn", "=", RowBox[{"z", "-", RowBox[{"d", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}]}], ",", RowBox[{"d", "=", RowBox[{"Sign", "[", "zn", "]"}]}], ",", RowBox[{"x", "=", "xn"}], ",", RowBox[{"y", "=", "yn"}], ",", RowBox[{"z", "=", "zn"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "14"}], "}"}]}], "]"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{"Print", "[", RowBox[{ RowBox[{"0.60725", "x"}], ",", "\"\<,\>\"", ",", RowBox[{"0.60725", "y"}]}], "]"}], FontSize->14], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4328787379669695`*^9, 3.4328787792479553`*^9}, { 3.4328788134039865`*^9, 3.432878867794263*^9}, 3.432909027640625*^9, { 3.432909064828125*^9, 3.43290909965625*^9}, {3.432917455671875*^9, 3.43291745759375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "0", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "2.1`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0.34`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0.8028514559173916`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1"}], SequenceForm[0, ",", 2.1, ",", 0.34, ",", 0.8028514559173916, ",", 1], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.4343739253125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"1", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.44`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1.76`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "0.01745329251994332`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "1", "}"}]}], SequenceForm[ 1, ",", {2.44}, ",", {-1.76}, ",", {0.01745329251994332}, ",", {1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.43437392534375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"2", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "1.56`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.98`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.4461943164808628`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 2, ",", {1.56}, ",", {-2.98}, ",", {-0.4461943164808628}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"3", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.305`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.59`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.20121565335399863`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 3, ",", {2.305}, ",", {-2.59}, ",", {-0.20121565335399863`}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925390625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"4", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.62875`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.301875`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.07686065880723719`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 4, ",", {2.62875}, ",", {-2.301875}, ",", {-0.07686065880723719}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"5", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.7726171875000003`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.137578125`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.014441848811279842`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 5, ",", {2.7726171875000003`}, ",", {-2.137578125}, ",", {-0.014441848811279842`}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.4343739254375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"6", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.8394165039062504`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.050933837890625`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "0.016797984618988435`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "1", "}"}]}], SequenceForm[ 6, ",", {2.8394165039062504`}, ",", {-2.050933837890625}, ",", { 0.016797984618988435`}, ",", {1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925453125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"7", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.8073706626892094`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.09529972076416`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "0.001174255998511604`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "1", "}"}]}], SequenceForm[ 7, ",", {2.8073706626892094`}, ",", {-2.09529972076416}, ",", { 0.001174255998511604}, ",", {1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.43437392546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"8", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.7910011336207394`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.1172323040664196`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.006638085061589507`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 8, ",", {2.7910011336207394`}, ",", {-2.1172323040664196`}, ",", {-0.006638085061589507}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.4343739255*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"9", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.799271572308499`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.1063299558882136`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.0027318549296225353`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 9, ",", {2.799271572308499}, ",", {-2.1063299558882136`}, ",", {-0.0027318549296225353`}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925515625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"10", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.803385498003593`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.1008626285985486`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.0007787324131437166`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 10, ",", {2.803385498003593}, ",", {-2.1008626285985486`}, ",", {-0.0007787324131437166}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.43437392553125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"11", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.8054371216643337`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.0981249474481545`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "0.00019782977641560288`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "1", "}"}]}], SequenceForm[ 11, ",", {2.8054371216643337`}, ",", {-2.0981249474481545`}, ",", { 0.00019782977641560288`}, ",", {1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925546875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"12", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.8044126465923376`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.099494789792717`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.0002904514347792954`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 12, ",", {2.8044126465923376`}, ",", {-2.099494789792717}, ",", {-0.0002904514347792954}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925578125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"13", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.8049252185625018`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.09881011873642`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "0.00004631081462993364`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], SequenceForm[ 13, ",", {2.8049252185625018`}, ",", {-2.09881011873642}, ",", {-0.00004631081462993364}, ",", {-1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.43437392559375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"14", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "2.805181420969574`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "2.098467720638451`"}], "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "0.00007575949726373657`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", "1", "}"}]}], SequenceForm[ 14, ",", {2.805181420969574}, ",", {-2.098467720638451}, ",", { 0.00007575949726373657}, ",", {1}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925609375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ RowBox[{"{", "1.7033686411184321`", "}"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"-", "1.2743984934759782`"}], "}"}]}], SequenceForm[{1.7033686411184321`}, ",", {-1.2743984934759782`}], Editable->False]], "Print", CellChangeTimes->{ 3.43290904475*^9, {3.432909082203125*^9, 3.43290910071875*^9}, 3.433104056234375*^9, 3.43363814015625*^9, 3.43363967859375*^9, 3.43363973434375*^9, 3.433639939578125*^9, 3.4336415291875*^9, 3.433641678453125*^9, 3.433642640546875*^9, 3.43364457509375*^9, { 3.4336507798125*^9, 3.433650793890625*^9}, 3.43370105815625*^9, 3.433813843125*^9, 3.4338158525*^9, 3.4340834225625*^9, 3.434083954328125*^9, 3.434084421953125*^9, 3.434085329453125*^9, 3.434085757109375*^9, 3.434086012203125*^9, 3.43408612803125*^9, 3.434086389671875*^9, 3.43422095659375*^9, 3.434327466375*^9, 3.434369192390625*^9, 3.43436931803125*^9, 3.43436937528125*^9, 3.434370409234375*^9, 3.434373413921875*^9, 3.434373675203125*^9, 3.434373925640625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "Mathematica", " ", "Code", " ", "for", " ", "a", " ", "General", " ", RowBox[{"Rotation", ".", " ", "Fig", ".", " ", "127"}]}], ",", " ", RowBox[{"page", " ", "50."}]}], "*)"}], "\n", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tm", ",", " ", "a", ",", " ", "b", ",", " ", "c", ",", " ", "t", ",", " ", "x", ",", " ", "y", ",", " ", "z"}], "]"}], "\n", RowBox[{ RowBox[{"tm", " ", "=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "2"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"a", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "/", "tm"}], ",", " ", RowBox[{ RowBox[{"-", "y"}], "/", "tm"}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"y", "/", "tm"}], ",", " ", RowBox[{"x", "/", "tm"}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"b", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"z", ",", " ", "0", ",", " ", RowBox[{"Sqrt", "[", RowBox[{"1", " ", "-", " ", RowBox[{"z", "^", "2"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"1", " ", "-", " ", RowBox[{"z", "^", "2"}]}], "]"}]}], ",", " ", "0", ",", " ", "z"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", " ", RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], ",", " ", RowBox[{"Cos", "[", "t", "]"}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"a", ".", "b", ".", "c", ".", RowBox[{"Transpose", "[", "b", "]"}], ".", RowBox[{"Transpose", "[", "a", "]"}]}], " ", "/.", " ", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "2"}]}], " ", "->", " ", RowBox[{"1", " ", "-", " ", RowBox[{"z", "^", "2"}]}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.433646250015625*^9, 3.433646279421875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["y", "2"], "+", RowBox[{ SuperscriptBox["x", "2"], " ", SuperscriptBox["z", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["z", "2"]}]]}], ",", RowBox[{ RowBox[{"x", " ", "y"}], "-", RowBox[{"x", " ", "y", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}], " ", "z", " ", RowBox[{"Sin", "[", "t", "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["z", "2"]}]]}], ",", RowBox[{ RowBox[{"x", " ", "z"}], "-", RowBox[{"x", " ", "z", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", RowBox[{"y", " ", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", " ", "y"}], "-", RowBox[{"x", " ", "y", " ", RowBox[{"Cos", "[", "t", "]"}]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}], " ", "z", " ", RowBox[{"Sin", "[", "t", "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["z", "2"]}]]}], ",", RowBox[{ SuperscriptBox["y", "2"], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{ SuperscriptBox["y", "2"], " ", SuperscriptBox["z", "2"]}]}], ")"}], " ", RowBox[{"Cos", "[", "t", "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["z", "2"]}]]}], ",", RowBox[{ RowBox[{"y", " ", "z"}], "-", RowBox[{"y", " ", "z", " ", RowBox[{"Cos", "[", "t", "]"}]}], "-", RowBox[{"x", " ", RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", " ", "z"}], "-", RowBox[{"x", " ", "z", " ", RowBox[{"Cos", "[", "t", "]"}]}], "-", RowBox[{"y", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"y", " ", "z"}], "-", RowBox[{"y", " ", "z", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], ",", RowBox[{ SuperscriptBox["z", "2"], "+", RowBox[{"Cos", "[", "t", "]"}], "-", RowBox[{ SuperscriptBox["z", "2"], " ", RowBox[{"Cos", "[", "t", "]"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.4336462089375*^9, 3.433646292640625*^9, {3.433650782484375*^9, 3.4336507965*^9}, 3.433701061203125*^9, 3.4338138465625*^9, 3.433815864890625*^9, 3.434083957296875*^9, 3.434084424640625*^9, 3.434085332140625*^9, 3.43408575971875*^9, 3.43408601453125*^9, 3.434086130671875*^9, 3.43408639228125*^9, 3.4342209596875*^9, 3.43432746928125*^9, 3.434369196609375*^9, 3.434369320671875*^9, 3.43436937790625*^9, 3.43437041190625*^9, 3.4343734165625*^9, 3.4343736790625*^9, 3.434373927984375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Computing", " ", "Three", " ", "Givens", " ", RowBox[{"Matrices", ".", "Fig", ".", "1.28"}]}], ",", RowBox[{"page", " ", "51.", RowBox[{"(", RowBox[{"Mathematica", " ", RowBox[{"code", "."}]}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n", "=", "3"}], ";"}], "\n", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5774", ",", RowBox[{"-", ".5774"}], ",", RowBox[{"-", ".5774"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5774", ",", ".7886", ",", RowBox[{"-", ".2115"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5774", ",", RowBox[{"-", ".2115"}], ",", ".7886"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotation", " ", "from", " ", "1"}], ",", "1", ",", RowBox[{ RowBox[{"1", " ", "to", " ", "x"}], "-", "axis"}]}], " ", "*)"}], "\n", RowBox[{ RowBox[{"qq", "=", RowBox[{"IdentityMatrix", "[", "n", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Tt", "=", RowBox[{"IdentityMatrix", "[", "n", "]"}]}], ";", "\n", " ", RowBox[{"dd", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}], "^", "2"}], "+", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], "]"}]}], ";", "\n", " ", RowBox[{"coss", "=", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}], "/", "dd"}]}], ";", RowBox[{"ssin", "=", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "/", "dd"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tt", "[", RowBox[{"[", RowBox[{"j", ",", "j"}], "]"}], "]"}], "=", "coss"}], ";", RowBox[{ RowBox[{"Tt", "[", RowBox[{"[", RowBox[{"j", ",", "i"}], "]"}], "]"}], "=", "ssin"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tt", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", RowBox[{"-", "ssin"}]}], ";", RowBox[{ RowBox[{"Tt", "[", RowBox[{"[", RowBox[{"i", ",", "i"}], "]"}], "]"}], "=", "coss"}], ";", "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{"Tt", ".", "a"}]}], ";", "\n", " ", RowBox[{"qq", "=", RowBox[{"qq", ".", RowBox[{"Transpose", "[", "Tt", "]"}]}]}]}], ",", "\n", " ", RowBox[{"{", " ", RowBox[{"i", ",", "n", ",", RowBox[{"j", "+", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "\n", RowBox[{"{", " ", RowBox[{"j", ",", "1", ",", RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ";"}], "\n", "qq", "\n", "a"}]}], FontSize->14]], "Input", CellChangeTimes->{{3.43421942453125*^9, 3.4342194654375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5773502691896258`", ",", RowBox[{"-", "0.5772962649052491`"}], ",", RowBox[{"-", "0.5774042684230133`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5773502691896257`", ",", "0.7886948971605231`", ",", RowBox[{"-", "0.21125109670630998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5773502691896258`", ",", RowBox[{"-", "0.21139863225527392`"}], ",", "0.7886553651293232`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4338136663125*^9, 3.433813846640625*^9, 3.4338158651875*^9, 3.434083480171875*^9, 3.43408395740625*^9, 3.43408442478125*^9, 3.434085332265625*^9, 3.434085759828125*^9, 3.434086014640625*^9, 3.43408613075*^9, 3.434086392359375*^9, 3.4342209598125*^9, 3.434327469359375*^9, 3.4343691968125*^9, 3.43436932078125*^9, 3.43436937803125*^9, 3.434370412*^9, 3.43437341665625*^9, 3.434373679296875*^9, 3.434373928078125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.00008613629027`", ",", RowBox[{"-", "0.0001732050807570218`"}], ",", RowBox[{"-", "0.00017320508075692465`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.3620998218821115`*^-17", ",", "1.0000064699790696`", ",", RowBox[{"-", "0.00018706878966873175`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4362327841849306`*^-17"}], ",", RowBox[{"-", "2.7755575615628914`*^-17"}], ",", "1.0000064524818166`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4338136663125*^9, 3.433813846640625*^9, 3.4338158651875*^9, 3.434083480171875*^9, 3.43408395740625*^9, 3.43408442478125*^9, 3.434085332265625*^9, 3.434085759828125*^9, 3.434086014640625*^9, 3.43408613075*^9, 3.434086392359375*^9, 3.4342209598125*^9, 3.434327469359375*^9, 3.4343691968125*^9, 3.43436932078125*^9, 3.43436937803125*^9, 3.434370412*^9, 3.43437341665625*^9, 3.434373679296875*^9, 3.43437392809375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Chop", "[", "%", "]"}], FontSize->14]], "Input", CellChangeTimes->{{3.4338131916875*^9, 3.43381320046875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.00008613629027`", ",", RowBox[{"-", "0.0001732050807570218`"}], ",", RowBox[{"-", "0.00017320508075692465`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.0000064699790696`", ",", RowBox[{"-", "0.00018706878966873175`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1.0000064524818166`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.433813698890625*^9, 3.433813846703125*^9, 3.43381586534375*^9, 3.434083500140625*^9, 3.434083957453125*^9, 3.43408442484375*^9, 3.4340853323125*^9, 3.434085759875*^9, 3.4340860146875*^9, 3.434086130859375*^9, 3.434086392453125*^9, 3.434220959859375*^9, 3.434327469421875*^9, 3.434369196890625*^9, 3.43436932084375*^9, 3.43436937809375*^9, 3.434370412109375*^9, 3.43437341675*^9, 3.43437367940625*^9, 3.434373928171875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Rotating", " ", "point", " ", RowBox[{"(", RowBox[{"1", ",", "1", ",", "1"}], ")"}], " ", "to", " ", "the", " ", "x", " ", RowBox[{"axis", ".", "Fig", ".", "1.29"}]}], ",", RowBox[{"page", " ", "51.", RowBox[{"(", RowBox[{"Mathematica", " ", RowBox[{"code", "."}]}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.7071", ",", "0", ",", "0.7071"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7071"}], ",", "0", ",", "0.7071"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"T2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.8165", ",", "0.5774", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5774"}], ",", "0.8165", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"T3", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.9660", ",", "0.2587"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.2587"}], ",", "0.9660"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\n", RowBox[{"a", "=", RowBox[{"T1", ".", "p"}]}], "\n", RowBox[{"b", "=", RowBox[{"T2", ".", "a"}]}], "\n", RowBox[{"c", "=", RowBox[{"T3", ".", "b"}]}]}]}], FontSize->14]], "Input", CellChangeTimes->{{3.43381352796875*^9, 3.4338135465*^9}, { 3.43381359790625*^9, 3.4338136015625*^9}, 3.434219475640625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.4142`", ",", "1.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.433813723890625*^9, 3.433813846734375*^9, 3.433815865484375*^9, 3.4340835203125*^9, 3.4340839575*^9, 3.434084424890625*^9, 3.434085332359375*^9, 3.4340857599375*^9, 3.434086014734375*^9, 3.434086130875*^9, 3.434086392484375*^9, 3.43422095990625*^9, 3.434327469453125*^9, 3.434369196921875*^9, 3.43436932090625*^9, 3.43436937815625*^9, 3.434370412140625*^9, 3.43437341678125*^9, 3.4343736794375*^9, 3.434373928203125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7320943`", ",", RowBox[{"-", "0.000059079999999974017`"}], ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.433813723890625*^9, 3.433813846734375*^9, 3.433815865484375*^9, 3.4340835203125*^9, 3.4340839575*^9, 3.434084424890625*^9, 3.434085332359375*^9, 3.4340857599375*^9, 3.434086014734375*^9, 3.434086130875*^9, 3.434086392484375*^9, 3.43422095990625*^9, 3.434327469453125*^9, 3.434369196921875*^9, 3.43436932090625*^9, 3.43436937815625*^9, 3.434370412140625*^9, 3.43437341678125*^9, 3.4343736794375*^9, 3.43437392821875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7320943`", ",", RowBox[{"-", "0.000057071279999974896`"}], ",", "0.00001528399599999328`"}], "}"}]], "Output", CellChangeTimes->{3.433813723890625*^9, 3.433813846734375*^9, 3.433815865484375*^9, 3.4340835203125*^9, 3.4340839575*^9, 3.434084424890625*^9, 3.434085332359375*^9, 3.4340857599375*^9, 3.434086014734375*^9, 3.434086130875*^9, 3.434086392484375*^9, 3.43422095990625*^9, 3.434327469453125*^9, 3.434369196921875*^9, 3.43436932090625*^9, 3.43436937815625*^9, 3.434370412140625*^9, 3.43437341678125*^9, 3.4343736794375*^9, 3.43437392825*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Two examples using Matlab code:", FontSize->18], "\n\n\nComputing Three Givens Matrices. Fig. 1.28, page 51. (Matlab code)\n\n\ n=3;\nA=[.5774,-.5774,-.5774; .5774,.7886,-.2115; .5774,-.2115,.7886]\n% \ Rotation from 1,1,1 to x-axis\nQ=eye(n);\nfor j=1:n-1,\nfor i=n:-1:j+1,\n\ T=eye(n);\nD=sqrt(A(j,j)^2+A(i,j)^2);\ncos=A(j,j)/D; sin=A(i,j)/D;\n\ T(j,j)=cos; T(j,i)=sin; T(i,j)=-sin; T(i,i)=cos; T\nA=T*A;\nQ=Q*T';\nend;\n\ end;\nQ\nA\n\n\nRotating point (1,1,1) to the x axis. Fig. 1.29, page 51. \ (Matlab code)\n\nT1=[0.7071,0,0.7071; 0,1,0; -0.7071,0,0.7071];\n\ T2=[0.8165,0.5774,0; -0.5774,0.8165,0; 0,0,1];\nT3=[1,0,0; 0,0.9660,0.2587; \ 0,-0.2587,0.9660];\np=[1;1;1];\na=T1*p\nb=T2*a\nc=T3*b\n\n\n(Note: The rest \ of this file is done using ", StyleBox["Mathematica", FontSlant->"Italic"], " code.)" }], "Subsection", CellChangeTimes->{{3.432870674379569*^9, 3.4328707070968533`*^9}, { 3.4328707449232836`*^9, 3.432870790233753*^9}, {3.433637493*^9, 3.433637516453125*^9}, {3.4336375968125*^9, 3.433637617828125*^9}, { 3.433639867828125*^9, 3.433639869953125*^9}, {3.433639919109375*^9, 3.433639921453125*^9}, {3.433644643234375*^9, 3.433644705375*^9}, 3.433644764703125*^9, {3.43364493496875*^9, 3.433644938421875*^9}, 3.4336461903125*^9, {3.43364632909375*^9, 3.43364633221875*^9}, { 3.433646590046875*^9, 3.43364671278125*^9}, {3.433646755546875*^9, 3.43364676425*^9}, {3.43365697390625*^9, 3.433656979203125*^9}, { 3.434221148578125*^9, 3.43422125890625*^9}, {3.43422145928125*^9, 3.4342214873125*^9}, {3.434221528296875*^9, 3.4342215415*^9}}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "4"}], ",", "1"}], "}"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0", "0"}, {"0", "0", "1", "0"}, {"0", RowBox[{"-", "1"}], "0", "0"}, {"0", "0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "3", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0", "0"}, {"0", RowBox[{"1", "/", "2"}], "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "0", "1"}, {"0", "0", "0", "1"} }], ")"}], RowBox[{"(*", " ", RowBox[{ RowBox[{"Page", " ", "94"}], ",", " ", RowBox[{"Mathematica", " ", RowBox[{"code", "."}]}]}], " ", "*)"}]}], FontSize->14, FontWeight->"Bold"]], "Input", CellChangeTimes->{ 3.43371189996875*^9, {3.4342208855*^9, 3.434220898296875*^9}}, FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "2", ",", "0", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.43371213440625*^9, 3.433813846796875*^9, 3.433815865625*^9, 3.43408212875*^9, 3.434082567*^9, 3.4340839575625*^9, 3.4340844249375*^9, 3.43408533240625*^9, 3.434085759984375*^9, 3.43408601478125*^9, 3.434086130953125*^9, 3.4340863925625*^9, 3.434220959953125*^9, 3.434327469515625*^9, 3.434369196984375*^9, 3.434369320953125*^9, 3.434369378203125*^9, 3.43437041221875*^9, 3.434373416859375*^9, 3.434373679515625*^9, 3.43437392828125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"tests", " ", "of", " ", "matrix", " ", "T_g"}], ",", " ", RowBox[{"equation", " ", RowBox[{ RowBox[{"{", RowBox[{"eq", ":", RowBox[{"pers", ".", "gen5"}]}], "}"}], ".", " ", "Code"}], " ", "begins", " ", "on", " ", "page", " ", "110."}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ StyleBox[ RowBox[{"Clear", "[", RowBox[{ "k", ",", "r", ",", "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "T"}], "]"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"k", "=", "3."}], ";", " ", RowBox[{"r", "=", RowBox[{"1", "/", "k"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "k"}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], "=", RowBox[{"Normalize", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "k"}], "}"}], "]"}]}]}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"T", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"e", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", "0", ",", RowBox[{"d", " ", "r"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{"e", " ", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", RowBox[{"-", "e"}], ",", "0", ",", RowBox[{"f", " ", "r"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "d"}], "+", RowBox[{"b", " ", "d", " ", "e"}], "-", RowBox[{"a", " ", RowBox[{"e", "^", "2"}]}], "-", RowBox[{"a", " ", "f"}], "+", RowBox[{"c", " ", "d", " ", "f"}], "-", RowBox[{"a", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", RowBox[{"d", "^", "2"}]}], "+", RowBox[{"c", " ", "e"}], "+", RowBox[{"a", " ", "d", " ", "e"}], "-", RowBox[{"b", " ", "f"}], "+", RowBox[{"c", " ", "e", " ", "f"}], "-", RowBox[{"b", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "e"}], "+", RowBox[{"c", " ", "f"}]}], ")"}]}], " ", "r"}]}], "}"}]}], "}"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "0", ",", "1"}], "}"}], ".", "T"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "k"}], ",", RowBox[{ RowBox[{"-", "2"}], "k"}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], "=", RowBox[{"Normalize", "[", RowBox[{"{", RowBox[{ RowBox[{"2", "k"}], ",", RowBox[{ RowBox[{"-", "2"}], "k"}], ",", RowBox[{"2", "k"}]}], "}"}], "]"}]}]}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"T", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"e", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", "0", ",", RowBox[{"d", " ", "r"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{"e", " ", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", RowBox[{"-", "e"}], ",", "0", ",", RowBox[{"f", " ", "r"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "d"}], "+", RowBox[{"b", " ", "d", " ", "e"}], "-", RowBox[{"a", " ", RowBox[{"e", "^", "2"}]}], "-", RowBox[{"a", " ", "f"}], "+", RowBox[{"c", " ", "d", " ", "f"}], "-", RowBox[{"a", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", RowBox[{"d", "^", "2"}]}], "+", RowBox[{"c", " ", "e"}], "+", RowBox[{"a", " ", "d", " ", "e"}], "-", RowBox[{"b", " ", "f"}], "+", RowBox[{"c", " ", "e", " ", "f"}], "-", RowBox[{"b", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "e"}], "+", RowBox[{"c", " ", "f"}]}], ")"}]}], " ", "r"}]}], "}"}]}], "}"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "k"}], ",", "0", ",", "0", ",", "1"}], "}"}], ".", "T"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->16], StyleBox[ RowBox[{"(*", " ", RowBox[{ "for", " ", "exercise", " ", "that", " ", "follows", " ", "the", " ", "tests", " ", "of", " ", "matrix", " ", "T_g"}], " ", "*)"}], FontSize->16], StyleBox["\[IndentingNewLine]", FontSize->16], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "k"}], ",", RowBox[{"-", "k"}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], "=", RowBox[{"Normalize", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}]}]}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"T", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"e", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", "0", ",", RowBox[{"d", " ", "r"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{"e", " ", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", RowBox[{"-", "e"}], ",", "0", ",", RowBox[{"f", " ", "r"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "d"}], "+", RowBox[{"b", " ", "d", " ", "e"}], "-", RowBox[{"a", " ", RowBox[{"e", "^", "2"}]}], "-", RowBox[{"a", " ", "f"}], "+", RowBox[{"c", " ", "d", " ", "f"}], "-", RowBox[{"a", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", RowBox[{"d", "^", "2"}]}], "+", RowBox[{"c", " ", "e"}], "+", RowBox[{"a", " ", "d", " ", "e"}], "-", RowBox[{"b", " ", "f"}], "+", RowBox[{"c", " ", "e", " ", "f"}], "-", RowBox[{"b", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "e"}], "+", RowBox[{"c", " ", "f"}]}], ")"}]}], " ", "r"}]}], "}"}]}], "}"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "4"}], "k"}], ",", "1"}], "}"}], ".", "T"}], FontSize->14]}]}]], "Input", CellChangeTimes->{{3.432918095484375*^9, 3.432918150234375*^9}, { 3.43291821840625*^9, 3.43291883675*^9}, {3.43291887440625*^9, 3.432918901109375*^9}, {3.432919140796875*^9, 3.432919175546875*^9}, 3.43291928159375*^9, {3.432919411765625*^9, 3.4329194240625*^9}, { 3.432919541859375*^9, 3.43291954584375*^9}, {3.432919591421875*^9, 3.43291967159375*^9}, 3.43291983640625*^9, 3.43291988*^9, { 3.432920082890625*^9, 3.432920126734375*^9}, {3.432920313453125*^9, 3.432920412859375*^9}, {3.43292049578125*^9, 3.43292049671875*^9}, { 3.432922342515625*^9, 3.43292235753125*^9}, {3.43292240196875*^9, 3.432922413421875*^9}, {3.43292244640625*^9, 3.4329224814375*^9}, { 3.43292252275*^9, 3.43292254996875*^9}, {3.43292259521875*^9, 3.43292259640625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.30151134457776363`"}], ",", "0.30151134457776363`", ",", "0.9045340337332909`"}], "}"}]], "Output", CellChangeTimes->{ 3.4329205585*^9, 3.43292242503125*^9, {3.43292246803125*^9, 3.4329224908125*^9}, {3.432922524859375*^9, 3.43292255409375*^9}, 3.43292259721875*^9, 3.433104056671875*^9, 3.433638140515625*^9, 3.43363968040625*^9, 3.433639736359375*^9, 3.43363993965625*^9, 3.43364152928125*^9, 3.43364167853125*^9, 3.433642640875*^9, 3.433644575421875*^9, {3.4336507825625*^9, 3.433650796625*^9}, 3.43370106128125*^9, 3.433813846828125*^9, 3.433815865765625*^9, 3.434083585453125*^9, 3.434083957609375*^9, 3.434084141640625*^9, 3.43408428259375*^9, 3.434084353875*^9, 3.434084386984375*^9, 3.434084424984375*^9, 3.434085332453125*^9, 3.43408576003125*^9, 3.434086014828125*^9, 3.434086130984375*^9, 3.43408639259375*^9, 3.43422096*^9, 3.434327469546875*^9, 3.43436919703125*^9, 3.434369321*^9, 3.434369378265625*^9, 3.43437041225*^9, 3.434373416875*^9, 3.4343736795625*^9, 3.4343739283125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"6.938893903907228`*^-17", ",", RowBox[{"-", "6.938893903907228`*^-17"}], ",", "0.`", ",", "1.1055415967851334`"}], "}"}]], "Output", CellChangeTimes->{ 3.4329205585*^9, 3.43292242503125*^9, {3.43292246803125*^9, 3.4329224908125*^9}, {3.432922524859375*^9, 3.43292255409375*^9}, 3.43292259721875*^9, 3.433104056671875*^9, 3.433638140515625*^9, 3.43363968040625*^9, 3.433639736359375*^9, 3.43363993965625*^9, 3.43364152928125*^9, 3.43364167853125*^9, 3.433642640875*^9, 3.433644575421875*^9, {3.4336507825625*^9, 3.433650796625*^9}, 3.43370106128125*^9, 3.433813846828125*^9, 3.433815865765625*^9, 3.434083585453125*^9, 3.434083957609375*^9, 3.434084141640625*^9, 3.43408428259375*^9, 3.434084353875*^9, 3.434084386984375*^9, 3.434084424984375*^9, 3.434085332453125*^9, 3.43408576003125*^9, 3.434086014828125*^9, 3.434086130984375*^9, 3.43408639259375*^9, 3.43422096*^9, 3.434327469546875*^9, 3.43436919703125*^9, 3.434369321*^9, 3.434369378265625*^9, 3.43437041225*^9, 3.434373416875*^9, 3.4343736795625*^9, 3.4343739283125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.5773502691896257`", ",", RowBox[{"-", "0.5773502691896257`"}], ",", "0.5773502691896257`"}], "}"}]], "Output", CellChangeTimes->{ 3.4329205585*^9, 3.43292242503125*^9, {3.43292246803125*^9, 3.4329224908125*^9}, {3.432922524859375*^9, 3.43292255409375*^9}, 3.43292259721875*^9, 3.433104056671875*^9, 3.433638140515625*^9, 3.43363968040625*^9, 3.433639736359375*^9, 3.43363993965625*^9, 3.43364152928125*^9, 3.43364167853125*^9, 3.433642640875*^9, 3.433644575421875*^9, {3.4336507825625*^9, 3.433650796625*^9}, 3.43370106128125*^9, 3.433813846828125*^9, 3.433815865765625*^9, 3.434083585453125*^9, 3.434083957609375*^9, 3.434084141640625*^9, 3.43408428259375*^9, 3.434084353875*^9, 3.434084386984375*^9, 3.434084424984375*^9, 3.434085332453125*^9, 3.43408576003125*^9, 3.434086014828125*^9, 3.434086130984375*^9, 3.43408639259375*^9, 3.43422096*^9, 3.434327469546875*^9, 3.43436919703125*^9, 3.434369321*^9, 3.434369378265625*^9, 3.43437041225*^9, 3.434373416875*^9, 3.4343736795625*^9, 3.4343739283125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "4.440892098500626`*^-16"}], ",", RowBox[{"-", "1.6653345369377348`*^-16"}], ",", "0.`", ",", "3.4641016151377544`"}], "}"}]], "Output", CellChangeTimes->{ 3.4329205585*^9, 3.43292242503125*^9, {3.43292246803125*^9, 3.4329224908125*^9}, {3.432922524859375*^9, 3.43292255409375*^9}, 3.43292259721875*^9, 3.433104056671875*^9, 3.433638140515625*^9, 3.43363968040625*^9, 3.433639736359375*^9, 3.43363993965625*^9, 3.43364152928125*^9, 3.43364167853125*^9, 3.433642640875*^9, 3.433644575421875*^9, {3.4336507825625*^9, 3.433650796625*^9}, 3.43370106128125*^9, 3.433813846828125*^9, 3.433815865765625*^9, 3.434083585453125*^9, 3.434083957609375*^9, 3.434084141640625*^9, 3.43408428259375*^9, 3.434084353875*^9, 3.434084386984375*^9, 3.434084424984375*^9, 3.434085332453125*^9, 3.43408576003125*^9, 3.434086014828125*^9, 3.434086130984375*^9, 3.43408639259375*^9, 3.43422096*^9, 3.434327469546875*^9, 3.43436919703125*^9, 3.434369321*^9, 3.434369378265625*^9, 3.43437041225*^9, 3.434373416875*^9, 3.4343736795625*^9, 3.4343739283125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox["1", SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox["1", SqrtBox["2"]]}]}], "}"}]], "Output", CellChangeTimes->{ 3.4329205585*^9, 3.43292242503125*^9, {3.43292246803125*^9, 3.4329224908125*^9}, {3.432922524859375*^9, 3.43292255409375*^9}, 3.43292259721875*^9, 3.433104056671875*^9, 3.433638140515625*^9, 3.43363968040625*^9, 3.433639736359375*^9, 3.43363993965625*^9, 3.43364152928125*^9, 3.43364167853125*^9, 3.433642640875*^9, 3.433644575421875*^9, {3.4336507825625*^9, 3.433650796625*^9}, 3.43370106128125*^9, 3.433813846828125*^9, 3.433815865765625*^9, 3.434083585453125*^9, 3.434083957609375*^9, 3.434084141640625*^9, 3.43408428259375*^9, 3.434084353875*^9, 3.434084386984375*^9, 3.434084424984375*^9, 3.434085332453125*^9, 3.43408576003125*^9, 3.434086014828125*^9, 3.434086130984375*^9, 3.43408639259375*^9, 3.43422096*^9, 3.434327469546875*^9, 3.43436919703125*^9, 3.434369321*^9, 3.434369378265625*^9, 3.43437041225*^9, 3.434373416875*^9, 3.4343736795625*^9, 3.4343739283125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", RowBox[{"-", "2.1213203435596446`"}], ",", "0.`", ",", "3.5355339059327373`"}], "}"}]], "Output", CellChangeTimes->{ 3.4329205585*^9, 3.43292242503125*^9, {3.43292246803125*^9, 3.4329224908125*^9}, {3.432922524859375*^9, 3.43292255409375*^9}, 3.43292259721875*^9, 3.433104056671875*^9, 3.433638140515625*^9, 3.43363968040625*^9, 3.433639736359375*^9, 3.43363993965625*^9, 3.43364152928125*^9, 3.43364167853125*^9, 3.433642640875*^9, 3.433644575421875*^9, {3.4336507825625*^9, 3.433650796625*^9}, 3.43370106128125*^9, 3.433813846828125*^9, 3.433815865765625*^9, 3.434083585453125*^9, 3.434083957609375*^9, 3.434084141640625*^9, 3.43408428259375*^9, 3.434084353875*^9, 3.434084386984375*^9, 3.434084424984375*^9, 3.434085332453125*^9, 3.43408576003125*^9, 3.434086014828125*^9, 3.434086130984375*^9, 3.43408639259375*^9, 3.43422096*^9, 3.434327469546875*^9, 3.43436919703125*^9, 3.434369321*^9, 3.434369378265625*^9, 3.43437041225*^9, 3.434373416875*^9, 3.4343736795625*^9, 3.4343739283125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chop", "[", RowBox[{"Out", "[", "51", "]"}], "]"}]], "Input", CellChangeTimes->{{3.434084118171875*^9, 3.43408413640625*^9}, { 3.4340842074375*^9, 3.4340842739375*^9}, {3.434084348015625*^9, 3.434084349296875*^9}, {3.4340843835625*^9, 3.434084412515625*^9}, { 3.434084470296875*^9, 3.43408451503125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1.1055415967851334`"}], "}"}]], "Output", CellChangeTimes->{3.434084516859375*^9, 3.434085332703125*^9, 3.434085760109375*^9, 3.434086014890625*^9, 3.434086131015625*^9, 3.434086392625*^9, 3.43422096025*^9, 3.434327469578125*^9, 3.434369197125*^9, 3.434369321109375*^9, 3.434369378328125*^9, 3.43437041228125*^9, 3.434373416921875*^9, 3.43437367959375*^9, 3.43437392834375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Chop", "[", RowBox[{"Out", "[", "54", "]"}], "]"}]], "Input", CellChangeTimes->{{3.434085254859375*^9, 3.434085255625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "3.4641016151377544`"}], "}"}]], "Output", CellChangeTimes->{3.434085257796875*^9, 3.434085332765625*^9, 3.434085760140625*^9, 3.434086014921875*^9, 3.434086131046875*^9, 3.43408639265625*^9, 3.434220960296875*^9, 3.434327469609375*^9, 3.43436919715625*^9, 3.43436932115625*^9, 3.434369378375*^9, 3.4343704123125*^9, 3.434373416953125*^9, 3.434373679625*^9, 3.434373928375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Out", "[", "55", "]"}], "]"}]], "Input", CellChangeTimes->{{3.434085273203125*^9, 3.434085285140625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", RowBox[{"-", "0.7071067811865475`"}], ",", RowBox[{"-", "0.7071067811865475`"}]}], "}"}]], "Output", CellChangeTimes->{3.434085286*^9, 3.4340853328125*^9, 3.4340857601875*^9, 3.43408601496875*^9, 3.434086131078125*^9, 3.4340863926875*^9, 3.43422096034375*^9, 3.434327469640625*^9, 3.4343691971875*^9, 3.43436932121875*^9, 3.434369378421875*^9, 3.434370412359375*^9, 3.434373416984375*^9, 3.43437367965625*^9, 3.43437392840625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Used", " ", "in", " ", "the", " ", "discussion", " ", "of", " ", "the", " ", "top", " ", "vector", " ", "in", " ", "general", " ", RowBox[{"perspective", ".", " ", RowBox[{"(", RowBox[{ RowBox[{"Ref", ":", " ", RowBox[{"3.5", " ", "General", " ", "Perspective"}]}], ",", " ", RowBox[{"page", " ", "96."}]}], ")"}]}], " ", "Fig", ".3", ".35"}], ",", " ", RowBox[{ RowBox[{"pages", " ", "112"}], "-", "113"}]}], "*)"}], FontSize->12], StyleBox["\[IndentingNewLine]", FontSize->12], RowBox[{ StyleBox[ RowBox[{"Clear", "[", RowBox[{"a", ",", "h", ",", "T", ",", "i"}], "]"}], FontSize->12], StyleBox["\[IndentingNewLine]", FontSize->12], StyleBox["\[IndentingNewLine]", FontSize->12], StyleBox[ RowBox[{ RowBox[{"a", "=", RowBox[{"1", "/", SqrtBox["2"]}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"h", "=", "a"}], ";", " ", RowBox[{"i", "=", "a"}], ";", RowBox[{"T", "=", RowBox[{"(", GridBox[{ {"i", "h", "0", "0"}, { RowBox[{"-", "h"}], "i", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", "1"} }], ")"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{ RowBox[{"{", RowBox[{"h", ",", "i", ",", "0", ",", "1"}], "}"}], ".", "T"}], FontSize->14]}]}]], "Input", CellChangeTimes->{{3.43370751490625*^9, 3.43370756828125*^9}, { 3.433707628671875*^9, 3.43370764190625*^9}, {3.434082196109375*^9, 3.434082211734375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.433707719546875*^9, 3.433813846875*^9, 3.43381586590625*^9, 3.43408217309375*^9, 3.4340822258125*^9, 3.434083957671875*^9, 3.43408442528125*^9, 3.434085332875*^9, 3.434085760234375*^9, 3.434086015015625*^9, 3.434086131109375*^9, 3.43408639271875*^9, 3.43422096040625*^9, 3.434327469671875*^9, 3.434369197203125*^9, 3.434369321265625*^9, 3.43436937846875*^9, 3.434370412390625*^9, 3.434373417015625*^9, 3.4343736796875*^9, 3.4343739284375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Code", " ", "to", " ", "check", " ", "matrix", " ", "T_g", " ", "for", " ", "the", " ", "case", " ", "1"}], "+", "f"}], "=", RowBox[{"0.", " ", "Page", " ", "112."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "a", ",", "b", ",", "c", ",", "r", ",", "k", ",", "x", ",", "y", ",", "z", ",", "T"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"1", "/", "k"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"-", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "0", ",", RowBox[{"c", " ", "r"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ".", "T"}]}]}], FontSize->14]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", FractionBox["2", "k"]}], "}"}]], "Output", CellChangeTimes->{3.433654728921875*^9, 3.4337010613125*^9, 3.43381384690625*^9, 3.43381586615625*^9, 3.43408365328125*^9, 3.43408395771875*^9, 3.4340844253125*^9, 3.43408533290625*^9, 3.43408576028125*^9, 3.434086015046875*^9, 3.434086131140625*^9, 3.43408639275*^9, 3.4342209604375*^9, 3.434327469703125*^9, 3.434369197234375*^9, 3.434369321296875*^9, 3.434369378515625*^9, 3.4343704124375*^9, 3.434373417046875*^9, 3.43437367971875*^9, 3.434373928484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "For", " ", "exercise", " ", "that", " ", "follows", " ", "the", " ", "tests", " ", "of", " ", "matrix", " ", "T_g"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "k", ",", "r", ",", "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "T"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "k"}], ",", RowBox[{"-", "k"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], "=", RowBox[{"Normalize", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"e", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", "0", ",", RowBox[{"d", " ", "r"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{"e", " ", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", RowBox[{"-", "e"}], ",", "0", ",", RowBox[{"f", " ", "r"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "d"}], "+", RowBox[{"b", " ", "d", " ", "e"}], "-", RowBox[{"a", " ", RowBox[{"e", "^", "2"}]}], "-", RowBox[{"a", " ", "f"}], "+", RowBox[{"c", " ", "d", " ", "f"}], "-", RowBox[{"a", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", RowBox[{"d", "^", "2"}]}], "+", RowBox[{"c", " ", "e"}], "+", RowBox[{"a", " ", "d", " ", "e"}], "-", RowBox[{"b", " ", "f"}], "+", RowBox[{"c", " ", "e", " ", "f"}], "-", RowBox[{"b", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "e"}], "+", RowBox[{"c", " ", "f"}]}], ")"}]}], " ", "r"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "4"}], "k"}], ",", "1"}], "}"}], ".", "T"}]}]}], FontSize->14]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", FractionBox["1", SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox["1", SqrtBox["2"]]}]}], "}"}]], "Output", CellChangeTimes->{3.43370106134375*^9, 3.4338138469375*^9, 3.43381586628125*^9, 3.434083641484375*^9, 3.434083957765625*^9, 3.434084425359375*^9, 3.4340853329375*^9, 3.434085760328125*^9, 3.43408601509375*^9, 3.4340861311875*^9, 3.43408639278125*^9, 3.43422096046875*^9, 3.434327469734375*^9, 3.434369197265625*^9, 3.434369321328125*^9, 3.434369378578125*^9, 3.434370412484375*^9, 3.434373417078125*^9, 3.434373679765625*^9, 3.434373928515625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["2"], " ", "k"}], "+", FractionBox[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", "k"}], "2"]}], "+", FractionBox["k", SqrtBox["2"]], "+", RowBox[{ SqrtBox["2"], " ", "k"}]}], RowBox[{"1", "-", FractionBox["1", SqrtBox["2"]]}]]}], ",", "0", ",", RowBox[{ RowBox[{"2", " ", SqrtBox["2"], " ", "k", " ", "r"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["k", SqrtBox["2"]]}], "+", RowBox[{ SqrtBox["2"], " ", "k"}]}], ")"}], " ", "r"}]}]}], "}"}]], "Output", CellChangeTimes->{3.43370106134375*^9, 3.4338138469375*^9, 3.43381586628125*^9, 3.434083641484375*^9, 3.434083957765625*^9, 3.434084425359375*^9, 3.4340853329375*^9, 3.434085760328125*^9, 3.43408601509375*^9, 3.4340861311875*^9, 3.43408639278125*^9, 3.43422096046875*^9, 3.434327469734375*^9, 3.434369197265625*^9, 3.434369321328125*^9, 3.434369378578125*^9, 3.434370412484375*^9, 3.434373417078125*^9, 3.434373679765625*^9, 3.434373928515625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Code", " ", "for", " ", "page", " ", "113."}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox["Clear", FontColor->GrayLevel[0]], "[", RowBox[{"a", ",", "h", ",", "i", ",", "T"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"1", "/", RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";", RowBox[{"h", "=", "a"}], ";", RowBox[{"i", "=", "a"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "h", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "h"}], ",", "i", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "i", ",", "0", ",", "1"}], "}"}], ".", "T"}]}]}], FontSize->14]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.43408325115625*^9, 3.434083319125*^9, 3.434083670515625*^9, 3.4340839578125*^9, 3.43408442540625*^9, 3.434085333*^9, 3.434085760375*^9, 3.434086015125*^9, 3.43408613121875*^9, 3.434086392828125*^9, 3.43422096053125*^9, 3.434327469765625*^9, 3.434369197296875*^9, 3.434369321390625*^9, 3.434369378625*^9, 3.434370412515625*^9, 3.434373417109375*^9, 3.434373679796875*^9, 3.434373928546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Drop", "[", RowBox[{"%", ",", RowBox[{"-", "1"}]}], "]"}], FontSize->14]], "Input", CellChangeTimes->{{3.434083088203125*^9, 3.434083098625*^9}, { 3.43408330759375*^9, 3.434083314578125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.434083101453125*^9, 3.434083266078125*^9, 3.434083322015625*^9, 3.434083688578125*^9, 3.43408395784375*^9, 3.434084425453125*^9, 3.434085333046875*^9, 3.43408576040625*^9, 3.43408601515625*^9, 3.43408613125*^9, 3.434086392859375*^9, 3.434220960578125*^9, 3.4343274698125*^9, 3.434369197328125*^9, 3.4343693214375*^9, 3.434369378671875*^9, 3.434370412546875*^9, 3.434373417140625*^9, 3.434373679828125*^9, 3.43437392859375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Append", "[", RowBox[{"%", ",", "1"}], "]"}], FontSize->14]], "Input", CellChangeTimes->{{3.434083164765625*^9, 3.434083241734375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.434083225046875*^9, 3.4340832691875*^9, 3.434083324453125*^9, 3.434083690765625*^9, 3.434083957890625*^9, 3.434084425484375*^9, 3.43408533309375*^9, 3.434085760453125*^9, 3.4340860151875*^9, 3.43408613128125*^9, 3.434086392890625*^9, 3.434220960609375*^9, 3.43432746984375*^9, 3.434369197359375*^9, 3.43436932146875*^9, 3.43436937871875*^9, 3.43437041259375*^9, 3.4343734171875*^9, 3.434373679859375*^9, 3.434373928625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Display", " ", "two", " ", "cubes", " ", "as", " ", "a", " ", "stereo", " ", RowBox[{"pair", ".", " ", "Fig"}], ".3", ".42", RowBox[{"(", "a", ")"}]}], ",", " ", RowBox[{"page", " ", "126."}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"Trg", ",", "Tlf", ",", "pt", ",", "e", ",", "r", ",", "qt"}], "]"}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{"(*", RowBox[{ RowBox[{"Tlf", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "r"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}], "*)"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Trg", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "r"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "e"}], ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"pt", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"e", "=", ".1"}], ";", RowBox[{"r", "=", "3"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"qt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"qt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"pt", "[", RowBox[{"[", "i", "]"}], "]"}], ".", "Trg"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], ";"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"(*", " ", RowBox[{"Use", " ", "Tlf", " ", "for", " ", "other", " ", RowBox[{"image", "."}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "/", RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], RowBox[{ StyleBox["ListPlot", FontSize->14], StyleBox["[", FontSize->14], RowBox[{ StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], FontSize->14], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"Joined", "\[Rule]", "True"}], FontSize->14], StyleBox[",", FontSize->14], RowBox[{ StyleBox["AspectRatio", FontSize->14], StyleBox["\[Rule]", FontSize->14], "1"}], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], FontSize->14], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"PlotStyle", "\[Rule]", "Thick"}], FontSize->14], StyleBox[",", FontSize->14], RowBox[{ StyleBox["Background", FontSize->14], StyleBox["\[Rule]", FontSize->14], RowBox[{ StyleBox["Lighter", FontSize->14], StyleBox["[", FontSize->14], "LightGreen", StyleBox["]", FontSize->14]}]}], StyleBox[",", FontSize->14], RowBox[{ StyleBox["Frame", FontSize->14], StyleBox["\[Rule]", FontSize->14], "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"FrameLabel", "\[Rule]", "\"\\""}], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"FrameTicks", "\[Rule]", "False"}], FontSize->14]}], StyleBox["]", FontSize->14]}]}]}]], "Input", CellChangeTimes->{{3.434371985890625*^9, 3.43437203853125*^9}, { 3.434372772203125*^9, 3.4343727794375*^9}, {3.43437286321875*^9, 3.4343729488125*^9}, 3.43437382784375*^9}], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[{{0.225, 0.25}, {-0.275, 0.25}, { 0.225, -0.25}, {-0.275, -0.25}, {-0.45, -0.5}, {0.55, -0.5}, {-0.45, 0.5}, {0.55, 0.5}, {0.225, 0.25}}, {{}, {}, {RGBColor[0.628709, 0.583197, 0.478777], Thickness[Large], LineBox[{1, 2}], {RGBColor[0.628709, 0.583197, 0.478777], LineBox[{2, 3}]}, {RGBColor[0.495384, 0.591978, 0.426517], LineBox[{3, 4}]}, {RGBColor[0.495384, 0.591978, 0.426517], LineBox[{4, 5}]}, {RGBColor[0.45684, 0.59295, 0.506035], LineBox[{5, 6}]}, {RGBColor[0.45684, 0.59295, 0.506035], LineBox[{6, 7}]}, {RGBColor[0.762737, 0.757717, 0.654841], LineBox[{7, 8}]}, {RGBColor[0.762737, 0.757717, 0.654841], LineBox[{8, 9}]}}}, VertexColors->{{0.628709, 0.583197, 0.478777}, {0.628709, 0.583197, 0.478777}, {0.495384, 0.591978, 0.426517}, {0.495384, 0.591978, 0.426517}, {0.45684, 0.59295, 0.506035}, {0.45684, 0.59295, 0.506035}, { 0.762737, 0.757717, 0.654841}, {0.762737, 0.757717, 0.654841}, {0.628709, 0.583197, 0.478777}}], AspectRatio->1, AxesOrigin->{0, 0}, Background->RGBColor[0.92, 1, 0.92], Frame->True, FrameLabel->FormBox["\"Fig. 3.42(a)\"", TraditionalForm], FrameTicks->False, PlotRange->{{-0.45, 0.55}, {-0.5, 0.5}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.434373374953125*^9, 3.43437341728125*^9, 3.43437367996875*^9, 3.434373830078125*^9, 3.43437392871875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Display", " ", "two", " ", "cubes", " ", "as", " ", "a", " ", "stereo", " ", RowBox[{"pair", ".", " ", "Fig"}], ".3", ".42", RowBox[{"(", "b", ")"}]}], ",", " ", RowBox[{"page", " ", "126."}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"Trg", ",", "Tlf", ",", "pt", ",", "e", ",", "r", ",", "qt"}], "]"}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Tlf", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "r"}], "}"}], ",", RowBox[{"{", RowBox[{"e", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{"(*", RowBox[{ RowBox[{"Trg", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "r"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "e"}], ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}], " ", "*)"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"pt", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"e", "=", ".1"}], ";", RowBox[{"r", "=", "3"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"qt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"qt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"pt", "[", RowBox[{"[", "i", "]"}], "]"}], ".", "Tlf"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], ";"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"(*", " ", RowBox[{"Use", " ", "Trg", " ", "for", " ", "other", " ", "image"}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "/", RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], ";"}], FontSize->14], StyleBox["\n", FontSize->14], RowBox[{ StyleBox["ListPlot", FontSize->14], StyleBox["[", FontSize->14], RowBox[{ StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"qt", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], FontSize->14], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"Joined", "\[Rule]", "True"}], FontSize->14], StyleBox[",", FontSize->14], RowBox[{ StyleBox["AspectRatio", FontSize->14], StyleBox["\[Rule]", FontSize->14], "1"}], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], FontSize->14], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"PlotStyle", "\[Rule]", "Thick"}], FontSize->14], StyleBox[",", FontSize->14], RowBox[{ StyleBox["Background", FontSize->14], StyleBox["\[Rule]", FontSize->14], RowBox[{ StyleBox["Lighter", FontSize->14], StyleBox["[", FontSize->14], "LightCyan", StyleBox["]", FontSize->14]}]}], StyleBox[",", FontSize->14], RowBox[{ StyleBox["Frame", FontSize->14], StyleBox["\[Rule]", FontSize->14], "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"FrameLabel", "\[Rule]", "\"\\""}], StyleBox[",", FontSize->14], StyleBox[ RowBox[{"FrameTicks", "\[Rule]", "False"}], FontSize->14]}], StyleBox["]", FontSize->14]}]}]}]], "Input", CellChangeTimes->{3.43437383696875*^9}], Cell[BoxData[ GraphicsBox[ GraphicsComplexBox[{{0.275, 0.25}, {-0.225, 0.25}, { 0.275, -0.25}, {-0.225, -0.25}, {-0.55, -0.5}, {0.45, -0.5}, {-0.55, 0.5}, {0.45, 0.5}, {0.275, 0.25}}, {{}, {}, {RGBColor[0.8453409999999999, 0.6248695, 0.3151775], Thickness[Large], LineBox[{1, 2}], {RGBColor[0.8453409999999999, 0.6248695, 0.3151775], LineBox[{2, 3}]}, {RGBColor[0.277947, 0.45009699999999997`, 0.32815550000000004`], LineBox[{3, 4}]}, {RGBColor[0.277947, 0.45009699999999997`, 0.32815550000000004`], LineBox[{4, 5}]}, {RGBColor[0.237736, 0.340215, 0.575113], LineBox[{5, 6}]}, {RGBColor[0.237736, 0.340215, 0.575113], LineBox[{6, 7}]}, {RGBColor[0.72987, 0.239399, 0.230961], LineBox[{7, 8}]}, {RGBColor[0.72987, 0.239399, 0.230961], LineBox[{8, 9}]}}}, VertexColors->{{0.8453409999999999, 0.6248695, 0.3151775}, { 0.8453409999999999, 0.6248695, 0.3151775}, {0.277947, 0.45009699999999997`, 0.32815550000000004`}, {0.277947, 0.45009699999999997`, 0.32815550000000004`}, {0.237736, 0.340215, 0.575113}, {0.237736, 0.340215, 0.575113}, {0.72987, 0.239399, 0.230961}, {0.72987, 0.239399, 0.230961}, {0.8453409999999999, 0.6248695, 0.3151775}}], AspectRatio->1, AxesOrigin->{0, 0}, Background->RGBColor[0.9333333333333333, 1, 1], Frame->True, FrameLabel->FormBox["\"Fig. 3.42(b)\"", TraditionalForm], FrameTicks->False, PlotRange->{{-0.55, 0.45}, {-0.5, 0.5}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.434373351015625*^9, 3.43437341734375*^9, 3.43437368003125*^9, 3.434373839125*^9, 3.434373928765625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"False", " ", "perspective"}], ",", " ", RowBox[{ RowBox[{"nonlinear", " ", RowBox[{"projections", ".", " ", "Pages"}], " ", "145"}], "-", "146"}], ",", " ", RowBox[{"Fig", ".4", RowBox[{".1", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"a", ",", "b", ",", "tabl1", ",", "tabl2", ",", "f"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", ".001"}], ";", " ", RowBox[{"b", "=", ".001"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tabl1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "10"}], ",", "10", ",", " ", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", RowBox[{"-", "10"}], ",", "10", ",", " ", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "2."}], ")"}]}], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], " ", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"b", " ", RowBox[{"y", "^", "2"}]}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tabl2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"f", "[", RowBox[{"i", ",", "j"}], "]"}]}], ")"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "10"}], ",", "10", ",", " ", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", RowBox[{"-", "10"}], ",", "10", ",", " ", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", "Black", ",", "tabl1"}], "}"}], "]"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightBlue", "]"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameTicks", "\[Rule]", "False"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", "Red", ",", "tabl2"}], "}"}], "]"}], ",", RowBox[{"Background", "\[Rule]", "LightYellow"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{ "FrameLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"FrameTicks", "\[Rule]", "False"}]}], "]"}]}]}], FontSize->14]], "Input"], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], PointSize[ 0.02], {PointBox[{-10, -10}], PointBox[{-10, -5}], PointBox[{-10, 0}], PointBox[{-10, 5}], PointBox[{-10, 10}]}, {PointBox[{-5, -10}], PointBox[{-5, -5}], PointBox[{-5, 0}], PointBox[{-5, 5}], PointBox[{-5, 10}]}, {PointBox[{0, -10}], PointBox[{0, -5}], PointBox[{0, 0}], PointBox[{0, 5}], PointBox[{0, 10}]}, { PointBox[{5, -10}], PointBox[{5, -5}], PointBox[{5, 0}], PointBox[{5, 5}], PointBox[{5, 10}]}, {PointBox[{10, -10}], PointBox[{10, -5}], PointBox[{10, 0}], PointBox[{10, 5}], PointBox[{10, 10}]}}, Background->RGBColor[0.9133333333333333, 0.96, 1], Frame->True, FrameTicks->False, GridLines->Automatic]], "Output", CellChangeTimes->{ 3.433700508578125*^9, {3.4337008653125*^9, 3.4337010079375*^9}, 3.433701061640625*^9, 3.43370179853125*^9, 3.433702897671875*^9, 3.43381384725*^9, 3.433815866453125*^9, 3.434083750828125*^9, 3.4340839580625*^9, 3.434084425625*^9, 3.434085333296875*^9, 3.434085760625*^9, 3.43408601534375*^9, 3.4340861314375*^9, 3.434086393046875*^9, 3.434220960828125*^9, 3.43432746996875*^9, 3.43436919896875*^9, 3.434369323*^9, 3.43436937890625*^9, 3.43437041384375*^9, 3.434373417390625*^9, 3.434373680125*^9, 3.434373928828125*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[1, 0, 0], PointSize[ 0.02], {PointBox[{-16.930941063701713`, -16.930941063701713`}], PointBox[{-17.897042116712353`, -8.948521058356176}], PointBox[{-18.262128682421235`, 0}], PointBox[{-17.897042116712353`, 8.948521058356176}], PointBox[{-16.930941063701713`, 16.930941063701713`}]}, { PointBox[{-8.948521058356176, -17.897042116712353`}], PointBox[{-9.534973838524524, -9.534973838524524}], PointBox[{-9.75904824042418, 0}], PointBox[{-9.534973838524524, 9.534973838524524}], PointBox[{-8.948521058356176, 17.897042116712353`}]}, { PointBox[{0, -18.262128682421235`}], PointBox[{0, -9.75904824042418}], PointBox[{0, 0}], PointBox[{0, 9.75904824042418}], PointBox[{0, 18.262128682421235`}]}, { PointBox[{8.948521058356176, -17.897042116712353`}], PointBox[{9.534973838524524, -9.534973838524524}], PointBox[{9.75904824042418, 0}], PointBox[{9.534973838524524, 9.534973838524524}], PointBox[{8.948521058356176, 17.897042116712353`}]}, { PointBox[{16.930941063701713`, -16.930941063701713`}], PointBox[{17.897042116712353`, -8.948521058356176}], PointBox[{18.262128682421235`, 0}], PointBox[{17.897042116712353`, 8.948521058356176}], PointBox[{16.930941063701713`, 16.930941063701713`}]}}, Background->RGBColor[1, 1, 0.85], Frame->True, FrameLabel->FormBox[ "\"Fig. 4.1: Moving Points in False Perspective.\"", TraditionalForm], FrameTicks->False, GridLines->Automatic]], "Output", CellChangeTimes->{ 3.433700508578125*^9, {3.4337008653125*^9, 3.4337010079375*^9}, 3.433701061640625*^9, 3.43370179853125*^9, 3.433702897671875*^9, 3.43381384725*^9, 3.433815866453125*^9, 3.434083750828125*^9, 3.4340839580625*^9, 3.434084425625*^9, 3.434085333296875*^9, 3.434085760625*^9, 3.43408601534375*^9, 3.4340861314375*^9, 3.434086393046875*^9, 3.434220960828125*^9, 3.43432746996875*^9, 3.43436919896875*^9, 3.434369323*^9, 3.43436937890625*^9, 3.43437041384375*^9, 3.434373417390625*^9, 3.434373680125*^9, 3.434373928828125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Hemispherical", " ", "Fisheye", " ", RowBox[{"Projection", ".", " ", "Page"}], " ", "149"}], ",", " ", RowBox[{"Fig", ".", " ", "4.3", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"k", ",", "n", ",", "P", ",", "Q", ",", "L"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "10"}], ";", " ", RowBox[{"n", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"scal", "[", "q_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"k", " ", RowBox[{"Tan", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"q", "/", "k"}], "]"}], "/", "2"}], "]"}]}], ")"}], "/", "q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10."}], ",", "10."}], "}"}]}], "]"}], ",", RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10."}], ",", "10."}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Q", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}], ".", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{"i", "/", "20"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"scal", "[", RowBox[{"Q", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], " ", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", "L", "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "10"}], "]"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], "]"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "LightBlue", "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "%"}], "]"}], RowBox[{"(*", RowBox[{ "This", " ", "line", " ", "makes", " ", "a", " ", "pdf", " ", "file", " ", "named", " ", "\"\\"", " ", "for", " ", "the", " ", "graph", " ", RowBox[{"below", "."}]}], "*)"}]}]}], FontSize->14]], "Input", CellChangeTimes->{{3.4328635669965115`*^9, 3.432863591757698*^9}, { 3.4328636427798033`*^9, 3.432863659683024*^9}, {3.432863792487346*^9, 3.432863848633533*^9}, {3.4328642443438587`*^9, 3.432864249639785*^9}, { 3.4328643441551933`*^9, 3.432864347935887*^9}, {3.43310306865625*^9, 3.43310310328125*^9}, {3.433103143484375*^9, 3.43310319584375*^9}, { 3.434086066140625*^9, 3.434086069671875*^9}, {3.434086161453125*^9, 3.4340862755*^9}, {3.43408631115625*^9, 3.434086322125*^9}}], Cell[BoxData[ GraphicsBox[{{ {Hue[ NCache[ Rational[1, 20], 0.05]], LineBox[{{-4.030145222807305, 1.394617849824229}, {-1.9309428033157074`, 0.6681960950821249}}]}, {Hue[ NCache[ Rational[1, 10], 0.1]], LineBox[{{7.409413529533975, 4.205206597346347}, {3.2023962693283483`, 1.8175173872288795`}}]}, {Hue[ NCache[ Rational[3, 20], 0.15]], LineBox[{{1.7051582338646565`, -9.817454290777459}, { 0.7070355026686148, -4.070759294680766}}]}, {Hue[ NCache[ Rational[1, 5], 0.2]], LineBox[{{8.313577109769149, -0.44890813132984775`}, { 3.612684055386364, -0.1950740610179608}}]}, {Hue[ NCache[ Rational[1, 4], 0.25]], LineBox[{{1.5923894934707334`, -8.570026308185714}, { 0.684434023738353, -3.6835319585477375`}}]}, {Hue[ NCache[ Rational[3, 10], 0.3]], LineBox[{{5.3376056641048315`, 6.543431878981103}, {2.3118114872857283`, 2.8340761637431915`}}]}, {Hue[ NCache[ Rational[7, 20], 0.35]], LineBox[{{-6.0872554542742, 0.22316095487188115`}, {-2.804002933869995, 0.10279574709594531`}}]}, {Hue[ NCache[ Rational[2, 5], 0.4]], LineBox[{{1.6303896148152148`, -5.4450280991659845`}, { 0.7582341249159885, -2.532281902680064}}]}, {Hue[ NCache[ Rational[9, 20], 0.45]], LineBox[{{1.2522354371235256`, -5.479410041253457}, { 0.5832120651926855, -2.5519626353472495`}}]}, {Hue[ NCache[ Rational[1, 2], 0.5]], LineBox[{{-4.1444302913475495`, -5.035222534260325}, \ {-1.8891057170103425`, -2.295144810554327}}]}, {Hue[ NCache[ Rational[11, 20], 0.55]], LineBox[{{-0.7180832859353377, -1.7382877500594436`}, \ {-0.3559215031957486, -0.8615908504011962}}]}, {Hue[ NCache[ Rational[3, 5], 0.6]], LineBox[{{7.1616716182503275`, -0.7334101995633073}, { 3.208371556923852, -0.32856189857133344`}}]}, {Hue[ NCache[ Rational[13, 20], 0.65]], LineBox[{{-6.687938063128032, 6.867094400116326}, {-2.8038995366828083`, 2.879010335487114}}]}, {Hue[ NCache[ Rational[7, 10], 0.7]], LineBox[{{9.752258088716353, 5.061383203090346}, {3.923378292521603, 2.0362177465457036`}}]}, {Hue[ NCache[ Rational[3, 4], 0.75]], LineBox[{{1.606903703007312, 6.684548690893784}, {0.7259464419155396, 3.019860075550177}}]}, {Hue[ NCache[ Rational[4, 5], 0.8]], LineBox[{{-8.5613190210528, -4.489708665579805}, {-3.5808290417175797`, \ -1.8778507305971464`}}]}, {Hue[ NCache[ Rational[17, 20], 0.85]], LineBox[{{-9.98548579046342, 5.2545749990795}, {-3.9819059812348203`, 2.095363616426575}}]}, {Hue[ NCache[ Rational[9, 10], 0.9]], LineBox[{{-3.898924685157632, -1.0331405445609079`}, \ {-1.876033448476157, -0.4971130183538731}}]}, {Hue[ NCache[ Rational[19, 20], 0.95]], LineBox[{{6.1017696638107815`, -4.96858595579238}, { 2.6850805172239243`, -2.186423625128869}}]}, {Hue[1], LineBox[{{4.470685700027152, -5.588112445394923}, { 2.005069495414469, -2.5062271322583167`}}]}, {Hue[ NCache[ Rational[21, 20], 1.05]], LineBox[{{-5.150465773312745, -9.489175914538924}, {-2.083827146836648, \ -3.839226051026898}}]}, {Hue[ NCache[ Rational[11, 10], 1.1]], LineBox[{{-1.3848840086252991`, 9.4471100888654}, {-0.5812424278713604, 3.9649971912599624`}}]}, {Hue[ NCache[ Rational[23, 20], 1.15]], LineBox[{{5.567617512622592, 2.2491118355205213`}, {2.5699453844308975`, 1.0381630145498608`}}]}, {Hue[ NCache[ Rational[6, 5], 1.2]], LineBox[{{1.4534443731243751`, 0.18052028842870982`}, { 0.7228662258973557, 0.08978122727452811}}]}, {Hue[ NCache[ Rational[5, 4], 1.25]], LineBox[{{2.2555555757506234`, 5.382017435404194}, {1.0452959086460827`, 2.494197379116976}}]}, {Hue[ NCache[ Rational[13, 10], 1.3]], LineBox[{{1.7011862844080223`, 5.119137085338362}, {0.7963534878652624, 2.396352892175007}}]}, {Hue[ NCache[ Rational[27, 20], 1.35]], LineBox[{{-9.35134812725669, 8.69746874451041}, {-3.5664722124115724`, 3.317091843175167}}]}, {Hue[ NCache[ Rational[7, 5], 1.4]], LineBox[{{0.26250530546082373`, -0.3911542490818327}, { 0.13117991749748178`, -0.1954687431298488}}]}, {Hue[ NCache[ Rational[29, 20], 1.45]], LineBox[{{-9.365862336793269, -6.557106254569093}, \ {-3.7181898938671094`, -2.6031309592256036`}}]}, {Hue[ NCache[ Rational[3, 2], 1.5]], LineBox[{{-5.838570009381544, -9.358013704520925}, \ {-2.3459100233690027`, -3.760005979715147}}]}, {Hue[ NCache[ Rational[31, 20], 1.55]], LineBox[{{-5.467632000604049, 8.41147970122329}, {-2.2626219272307133`, 3.480848456944663}}]}, {Hue[ NCache[ Rational[8, 5], 1.6]], LineBox[{{-0.3092557094086974, 6.2300987408739985`}, {-0.14195158607288788`, 2.859680098869321}}]}, {Hue[ NCache[ Rational[33, 20], 1.65]], LineBox[{{9.682833772708697, 7.900655615762211}, {3.7233720468667997`, 3.0380651947741764`}}]}, {Hue[ NCache[ Rational[17, 10], 1.7]], LineBox[{{-8.924371700783398, 6.782988652008598}, {-3.566643932437752, 2.710835690243261}}]}, {Hue[ NCache[ Rational[7, 4], 1.75]], LineBox[{{-5.884783739913895, -4.348456219758309}, \ {-2.6281779739444167`, -1.9420453431305886`}}]}, {Hue[ NCache[ Rational[9, 5], 1.8]], LineBox[{{-0.3778160739077734, -3.397531636420111}, \ {-0.18368979447122882`, -1.6518404882790976`}}]}, {Hue[ NCache[ Rational[37, 20], 1.85]], LineBox[{{1.8596606843354824`, 0.26952634483749627`}, {0.921764097088345, 0.13359410670093952`}}]}, {Hue[ NCache[ Rational[19, 10], 1.9]], LineBox[{{7.9209976416842025`, 1.4833312782415256`}, {3.467583061042255, 0.6493594174648457}}]}, {Hue[ NCache[ Rational[39, 20], 1.95]], LineBox[{{1.2110088115921709`, 1.5720576003270885`}, {0.5996579140024003, 0.7784392419608844}}]}, {Hue[2], LineBox[{{-2.3415076637766195`, -8.12551447267664}, \ {-1.0138128412015055`, -3.5181396333683495`}}]}, {Hue[ NCache[ Rational[41, 20], 2.05]], LineBox[{{0.5768711483854396, -1.8708361451038176`}, { 0.2857235083974186, -0.9266226409690501}}]}, {Hue[ NCache[ Rational[21, 10], 2.1]], LineBox[{{-6.502937654395075, -8.767500768155715}, \ {-2.6217335191927638`, -3.5347179790178043`}}]}, {Hue[ NCache[ Rational[43, 20], 2.15]], LineBox[{{-3.95549685101051, -0.28231584632710494`}, \ {-1.9055668813826736`, -0.13600610672032665`}}]}, {Hue[ NCache[ Rational[11, 5], 2.2]], LineBox[{{3.806318055013623, -4.9975995090297145`}, { 1.7452576956110648`, -2.291479292232969}}]}, {Hue[ NCache[ Rational[9, 4], 2.25]], LineBox[{{-3.638330623719206, 1.8170285379106836`}, {-1.749590650313787, 0.8737677990440957}}]}, {Hue[ NCache[ Rational[23, 10], 2.3]], LineBox[{{2.7306897557970196`, -1.7805881610383132`}, { 1.3308787968470839`, -0.8678199434454474}}]}, {Hue[ NCache[ Rational[47, 20], 2.35]], LineBox[{{-7.753546883805311, -3.8345152423310083`}, {-3.33888145500861, \ -1.6512432340234147`}}]}, {Hue[ NCache[ Rational[12, 5], 2.4]], LineBox[{{-6.891494170295207, -8.383056524618201}, \ {-2.7836575372288515`, -3.386139188850151}}]}, {Hue[ NCache[ Rational[49, 20], 2.45]], LineBox[{{0.386792431859206, 5.895958412831494}, {0.17894498023337313`, 2.7276959804243663`}}]}, {Hue[ NCache[ Rational[5, 2], 2.5]], LineBox[{{-4.8124918119794104`, 0.1336121971402715}, {-2.2809579824070787`, 0.06332765218538608}}]}}, CircleBox[{0, 0}, 10], PointBox[{0, 0}]}, AspectRatio->1, Background->RGBColor[0.9422222222222222, 0.9733333333333333, 1]]], "Output",\ CellChangeTimes->{{3.4328635718237715`*^9, 3.432863593382407*^9}, { 3.4328636492161503`*^9, 3.432863660401645*^9}, 3.4328642810404067`*^9, 3.432866710788582*^9, {3.433103089515625*^9, 3.43310310446875*^9}, { 3.43310316009375*^9, 3.43310319865625*^9}, 3.433104056890625*^9, 3.43363814075*^9, 3.433639680515625*^9, 3.433639737*^9, 3.43363994003125*^9, 3.433641529546875*^9, 3.433641678890625*^9, 3.43364264109375*^9, 3.433644575609375*^9, {3.43365078284375*^9, 3.433650796875*^9}, 3.433701061859375*^9, 3.43381384740625*^9, 3.4338158666875*^9, 3.434083768796875*^9, 3.43408395821875*^9, 3.434084425890625*^9, 3.43408533353125*^9, 3.43408576078125*^9, 3.4340860155*^9, 3.4340860725*^9, 3.43408613159375*^9, 3.434086393203125*^9, 3.4342209610625*^9, 3.434327470109375*^9, 3.434369199203125*^9, 3.43436932315625*^9, 3.43436937915625*^9, 3.43437041403125*^9, 3.43437341753125*^9, 3.4343736803125*^9, 3.43437392896875*^9}], Cell[BoxData["\<\"xyz.pdf\"\>"], "Output", CellChangeTimes->{{3.4328635718237715`*^9, 3.432863593382407*^9}, { 3.4328636492161503`*^9, 3.432863660401645*^9}, 3.4328642810404067`*^9, 3.432866710788582*^9, {3.433103089515625*^9, 3.43310310446875*^9}, { 3.43310316009375*^9, 3.43310319865625*^9}, 3.433104056890625*^9, 3.43363814075*^9, 3.433639680515625*^9, 3.433639737*^9, 3.43363994003125*^9, 3.433641529546875*^9, 3.433641678890625*^9, 3.43364264109375*^9, 3.433644575609375*^9, {3.43365078284375*^9, 3.433650796875*^9}, 3.433701061859375*^9, 3.43381384740625*^9, 3.4338158666875*^9, 3.434083768796875*^9, 3.43408395821875*^9, 3.434084425890625*^9, 3.43408533353125*^9, 3.43408576078125*^9, 3.4340860155*^9, 3.4340860725*^9, 3.43408613159375*^9, 3.434086393203125*^9, 3.4342209610625*^9, 3.434327470109375*^9, 3.434369199203125*^9, 3.43436932315625*^9, 3.43436937915625*^9, 3.43437041403125*^9, 3.43437341753125*^9, 3.4343736803125*^9, 3.434373929171875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Animation", ":", " ", RowBox[{"Hemispherical", " ", "Fisheye", " ", RowBox[{"Projection", ".", " ", "Page"}], " ", "149"}]}], ",", " ", RowBox[{"Fig", ".", " ", "4.3", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"k", ",", "n", ",", "P", ",", "Q", ",", "L"}], "]"}], "\[IndentingNewLine]", RowBox[{"k", "=", "10"}]}], ";", " ", RowBox[{"n", "=", "50"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"scal", "[", "q_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"k", " ", RowBox[{"Tan", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"q", "/", "k"}], "]"}], "/", "2"}], "]"}]}], ")"}], "/", "q"}]}], ";", "\[IndentingNewLine]", RowBox[{"P", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10."}], ",", "10."}], "}"}]}], "]"}], ",", RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10."}], ",", "10."}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", "n", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}], ".", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", RowBox[{"i", "/", "20"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"scal", "[", RowBox[{"Q", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], " ", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tx", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}], ",", "Blue", ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "11"}]}], "}"}]}], "]"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", "tx", "]"}], ",", RowBox[{"Graphics", "[", "L", "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "10"}], "]"}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], "]"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "LightBlue", "]"}], "]"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}]}], "]"}]}], FontSize->14]], "Input", CellChangeTimes->{{3.4338155545625*^9, 3.43381555653125*^9}, { 3.43381560521875*^9, 3.433815635265625*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 10, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 0, 6}}, Typeset`size$$ = {360., {179., 183.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$3040$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$3040$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( Clear[$CellContext`k$$, $CellContext`n, $CellContext`P, \ $CellContext`Q, $CellContext`L] ($CellContext`k$$ = 10); $CellContext`n = 50; $CellContext`scal[ Pattern[$CellContext`q$, Blank[]]] := ($CellContext`k$$ Tan[ArcTan[$CellContext`q$/$CellContext`k$$]/ 2])/$CellContext`q$; $CellContext`P = Table[{ Random[Real, {-10., 10.}], Random[Real, {-10., 10.}]}, {$CellContext`n}]; $CellContext`Q = Table[ Sqrt[ Dot[ Part[$CellContext`P, $CellContext`i], Part[$CellContext`P, $CellContext`i]]], {$CellContext`i, \ $CellContext`n}]; $CellContext`L = Table[{ Hue[$CellContext`i/20], Line[{ Part[$CellContext`P, $CellContext`i], $CellContext`scal[ Part[$CellContext`Q, $CellContext`i]] Part[$CellContext`P, $CellContext`i]}]}, {$CellContext`i, \ $CellContext`n}]; $CellContext`tx = Graphics[{ Text[ Style[ "Hemispherical Fisheye Projection", FontFamily -> "Jokewood", FontSize -> 14, Blue, Bold], {0, -11}]}]; Show[ Graphics[$CellContext`tx], Graphics[$CellContext`L], Graphics[ Circle[{0, 0}, 10]], Graphics[ Point[{0, 0}]], AspectRatio -> 1, Background -> Lighter[ Lighter[LightBlue]]]), "Specifications" :> {{$CellContext`k$$, 0, 6, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{404., {215.5, 220.5}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.433104024921875*^9, 3.433104056984375*^9, 3.433638141125*^9, 3.433639680578125*^9, 3.43363973753125*^9, 3.43363994021875*^9, 3.43364152996875*^9, 3.433641679359375*^9, 3.433642641140625*^9, 3.43364457565625*^9, {3.433650782921875*^9, 3.4336507969375*^9}, 3.433701062546875*^9, 3.43381384775*^9, 3.43381544646875*^9, 3.433815558859375*^9, {3.433815609703125*^9, 3.433815636484375*^9}, 3.433815867046875*^9, 3.434083791109375*^9, 3.43408395828125*^9, 3.43408442625*^9, 3.434085333875*^9, 3.434085760890625*^9, 3.434086015796875*^9, 3.434086132234375*^9, 3.43408639384375*^9, 3.434220961859375*^9, 3.43432747075*^9, 3.434369200328125*^9, 3.434369323453125*^9, 3.434369379828125*^9, 3.434370414625*^9, 3.4343734181875*^9, 3.43437368115625*^9, 3.434373929609375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", RowBox[{"Code", " ", "for", " ", "Table", " ", RowBox[{"4.6", ".", " ", "Page"}], " ", "151"}], "*)"}], FontSize->14, FontColor->GrayLevel[0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ RowBox[{"Clear", "[", RowBox[{ "k", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "angl", ",", "data"}], "]"}], FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ RowBox[{"k", " ", "=", " ", "10"}], ";"}], FontColor->GrayLevel[0]], StyleBox["\n", FontColor->GrayLevel[0]], RowBox[{ RowBox[{"c1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "4"}], "}"}]}], "]"}]}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{ RowBox[{"c2", "=", RowBox[{"angl", " ", "=", " ", RowBox[{"{", RowBox[{ "0", ",", "22.5", ",", " ", "45.", ",", " ", "67.5", ",", " ", "89."}], "}"}]}]}], ";"}], FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{ RowBox[{"c3", "=", RowBox[{"k", " ", RowBox[{"Tan", "[", RowBox[{"angl", " ", "Degree"}], "]"}]}]}], ";"}], FontColor->GrayLevel[0]], StyleBox["\n", FontColor->GrayLevel[0]], StyleBox[ RowBox[{ RowBox[{"c4", "=", RowBox[{"k", " ", RowBox[{"Tan", "[", RowBox[{ RowBox[{"angl", "/", "2"}], " ", "Degree"}], "]"}]}]}], ";"}], FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{"data", "=", RowBox[{"Style", "[", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Prepend", "[", RowBox[{"c1", ",", "\"\<#\>\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{"c2", ",", "\"\<\[Theta]\>\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{ "c3", ",", "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \ \(R\)]\)n\>\""}], "]"}], ",", RowBox[{"Prepend", "[", RowBox[{ "c4", ",", "\"\<\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \ \(r\)]\)n\>\""}], "]"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"16", ",", RowBox[{"Darker", "[", "Purple", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Framed", "[", RowBox[{"data", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", "LightPurple", "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Labeled", "[", RowBox[{"%", ",", "\"\<\!\(\* StyleBox[\"Table\", FontSize->18, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\" \", FontSize->18, FontColor->RGBColor[0, 0, 1]]\)\!\(\* StyleBox[\"4.6\", FontSize->18, FontColor->RGBColor[0, 0, 1]]\)\>\"", ",", RowBox[{"{", "Top", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Framed", "[", RowBox[{"%", ",", RowBox[{"Background", "\[Rule]", RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "LightGray", "]"}], "]"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.434081814546875*^9, 3.434081823265625*^9}}], Cell[BoxData[ FrameBox[ InterpretationBox[GridBox[{ { TagBox["\<\"\\!\\(\\*\\nStyleBox[\\\"Table\\\",\\nFontSize->18,\\\ nFontColor->RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\\\" \ \\\",\\nFontSize->18,\\nFontColor->RGBColor[0, 0, 1]]\\)\\!\\(\\*\\nStyleBox[\ \\\"4.6\\\",\\nFontSize->18,\\nFontColor->RGBColor[0, 0, 1]]\\)\"\>", "Labeled", Editable->True, Selectable->True]}, { TagBox[ TagBox[ FrameBox[ StyleBox[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\"#\"\>", "\<\"\[Theta]\"\>", "\<\"\\!\\(\\*SuperscriptBox[\ \\(\[InvisiblePrefixScriptBase]\\), \\(R\\)]\\)n\"\>", \ "\<\"\\!\\(\\*SuperscriptBox[\\(\[InvisiblePrefixScriptBase]\\), \\(r\\)]\\)n\ \"\>"}, {"0", "0", "0", "0"}, {"1", "22.5`", "4.14213562373095`", "1.98912367379658`"}, {"2", "45.`", "9.999999999999998`", "4.14213562373095`"}, {"3", "67.5`", "24.14213562373095`", "6.681786379192989`"}, {"4", "89.`", "572.8996163075915`", "9.826972631156899`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], StripOnInput->False, FrontFaceColor->RGBColor[ 0.33333333333333337`, 0, 0.33333333333333337`], BackFaceColor->RGBColor[ 0.33333333333333337`, 0, 0.33333333333333337`], GraphicsColor->RGBColor[ 0.33333333333333337`, 0, 0.33333333333333337`], FontSize->16, FontColor->RGBColor[0.33333333333333337`, 0, 0.33333333333333337`]], Background->RGBColor[0.96, 0.92, 0.96], StripOnInput->False], "Labeled", Editable->True, Selectable->True], "SkipImageSizeLevel"]} }, BaselinePosition->{2, 1}, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}], Labeled[ Framed[ Style[ MatrixForm[{{ "#", "\[Theta]", "\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \(R\)]\)n", "\!\(\*SuperscriptBox[\(\[InvisiblePrefixScriptBase]\), \(r\)]\)n"}, \ {0, 0, 0, 0}, {1, 22.5, 4.14213562373095, 1.98912367379658}, { 2, 45., 9.999999999999998, 4.14213562373095}, { 3, 67.5, 24.14213562373095, 6.681786379192989}, { 4, 89., 572.8996163075915, 9.826972631156899}}], {16, RGBColor[0.33333333333333337`, 0, 0.33333333333333337`]}], Background -> RGBColor[0.96, 0.92, 0.96]], "\!\(\*\nStyleBox[\"Table\",\nFontSize->18,\nFontColor->RGBColor[0, 0, \ 1]]\)\!\(\*\nStyleBox[\" \",\nFontSize->18,\nFontColor->RGBColor[0, 0, \ 1]]\)\!\(\*\nStyleBox[\"4.6\",\nFontSize->18,\nFontColor->RGBColor[0, 0, \ 1]]\)", {Top}], Editable->False, Selectable->False], Background->RGBColor[ 0.9333333333333333, 0.9333333333333333, 0.9333333333333333], StripOnInput->False]], "Output", CellChangeTimes->{3.434081791140625*^9, 3.43408182675*^9, 3.434083818015625*^9, 3.4340839586875*^9, 3.434084426515625*^9, 3.434085334046875*^9, 3.434085761140625*^9, 3.4340860161875*^9, 3.43408613253125*^9, 3.434086394125*^9, 3.434220962234375*^9, 3.434327471015625*^9, 3.4343692008125*^9, 3.4343693239375*^9, 3.434369379984375*^9, 3.43437041521875*^9, 3.434373418484375*^9, 3.434373681765625*^9, 3.43437392990625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Offaxis", " ", "Hemispherical", " ", "Fisheye", " ", RowBox[{"Projection", ".", " ", "Page"}], " ", "157"}], ",", " ", RowBox[{ RowBox[{"Fig", ".", " ", "4.12"}], RowBox[{ RowBox[{"(", "b", ")"}], "."}]}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"k", ",", "n", ",", "P", ",", "Q", ",", "L", ",", "Pt"}], "]"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"k", "=", "10"}], ";", " ", RowBox[{"n", "=", "50"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{ RowBox[{"scal", "[", "q_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"k", " ", RowBox[{"Tan", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"q", "/", "k"}], "]"}], "/", "2"}], "]"}]}], ")"}], "/", "q"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"P", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10."}], ",", "10."}], "}"}]}], "]"}], ",", RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10."}], ",", "10."}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"x", "=", RowBox[{"-", "5"}]}], ";", " ", RowBox[{"y", "=", "5"}], ";"}], FontSize->14], StyleBox[" ", FontSize->14], StyleBox[ RowBox[{"(*", " ", RowBox[{"Location", " ", "of", " ", "viewer"}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Pt", "=", RowBox[{"P", "-", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", " ", RowBox[{"{", "n", "}"}]}], "]"}]}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"Q", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Pt", "[", RowBox[{"[", "i", "]"}], "]"}], ".", RowBox[{"Pt", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{"L", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"scal", "[", RowBox[{"Q", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], " ", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", "L", "]"}], ",", " ", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "k"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Background", "\[Rule]", "LightPurple"}]}], "]"}], FontSize->14], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.432866427831373*^9, 3.432866439970833*^9}, { 3.4328665692396717`*^9, 3.432866647591524*^9}, {3.433103018859375*^9, 3.433103030578125*^9}}], Cell[BoxData[ GraphicsBox[{{ {RGBColor[1, 0, 0], LineBox[{{-1.4687744092779926`, 5.358930615534836}, {-3.5249634195830826`, 5.149929755022304}}]}, {RGBColor[1, 0, 0], LineBox[{{-6.441368620352, 11.660346082020993`}, {-5.694856552202639, 8.210826883340399}}]}, {RGBColor[1, 0, 0], LineBox[{{-4.538281727780472, 4.357840857697971}, {-4.796731769050925, 4.717293941571697}}]}, {RGBColor[1, 0, 0], LineBox[{{ 2.67167334767667, -0.20854976180303986`}, {-2.3636287249728047`, 3.2100813793478515`}}]}, {RGBColor[1, 0, 0], LineBox[{{ 3.0285426026191615`, -1.2601157592567667`}, {-2.3160481626474194`, 2.9072354690357183`}}]}, {RGBColor[1, 0, 0], LineBox[{{-10.87588841994801, -2.0077467503467386`}, {-7.29070722085767, 2.2680393268762615`}}]}, {RGBColor[1, 0, 0], LineBox[{{-6.271248149046588, 4.675234980255507}, {-5.579760078776461, 4.851889032387487}}]}, {RGBColor[1, 0, 0], LineBox[{{-11.922282359051989`, 3.796106954416258}, {-8.157389201283832, 4.450880691589214}}]}, {RGBColor[1, 0, 0], LineBox[{{-12.11875529117631, 7.672730202376741}, {-8.475348365363992, 6.30481638431964}}]}, {RGBColor[1, 0, 0], LineBox[{{-0.27765596458593045`, 13.984427082167851`}, {-3.0729184136457466`, 8.666341093352809}}]}, {RGBColor[1, 0, 0], LineBox[{{4.820141259538694, 2.404702697272966}, {-1.6626377296763066`, 4.117991577770753}}]}, {RGBColor[1, 0, 0], LineBox[{{0.6730612392815427, -2.2145292726443433`}, {-3.047503151936726, 2.5169762724291953`}}]}, {RGBColor[1, 0, 0], LineBox[{{-8.711084331183311, 12.045772081738132`}, {-6.829186136840218, 8.472847142533615}}]}, {RGBColor[1, 0, 0], LineBox[{{-7.885570140366456, 1.1251246453346644`}, {-6.226002991932707, 3.3536671967423737`}}]}, {RGBColor[1, 0, 0], LineBox[{{0.8271973965971586, 2.6879312240401587`}, {-2.7971338021135113`, 4.125964368956348}}]}, {RGBColor[1, 0, 0], LineBox[{{-5.557243488043127, -3.6663255928622966`}, {-5.202580012144686, 1.8494484340820634`}}]}, {RGBColor[1, 0, 0], LineBox[{{ 2.7986547939779953`, -1.0519530167030755`}, {-2.3693755982666476`, 2.9585690475520994`}}]}, {RGBColor[1, 0, 0], LineBox[{{-9.681355068095115, 13.341421157484444`}, {-7.278220144686209, 9.059421564881543}}]}, {RGBColor[1, 0, 0], LineBox[{{-5.930097056975415, 9.272812003041418}, {-5.446712159179949, 7.052169783071454}}]}, {RGBColor[1, 0, 0], LineBox[{{-12.759072709043128`, 4.545314203068184}, {-8.57226320305784, 4.790663472010064}}]}, {RGBColor[1, 0, 0], LineBox[{{-8.811341765799106, -3.399918199335321}, {-6.424152145021479, 1.861272943577081}}]}, {RGBColor[1, 0, 0], LineBox[{{-7.481416744457197, 5.5608871209003325`}, {-6.168982311882559, 5.2642309578831545`}}]}, {RGBColor[1, 0, 0], LineBox[{{-8.6314830253378, 9.195379103391712}, {-6.804443121515814, 7.084636748250301}}]}, {RGBColor[1, 0, 0], LineBox[{{-3.15447798373874, 2.7754163935446776`}, {-4.234499982146908, 4.077269858905778}}]}, {RGBColor[1, 0, 0], LineBox[{{-14.920398694154489`, 12.149607021653583`}, {-9.646473992680356, 8.348702416927367}}]}, {RGBColor[1, 0, 0], LineBox[{{-10.268907843372283`, -3.3497082517899877`}, \ {-6.974709648991415, 1.8706513871155734`}}]}, {RGBColor[1, 0, 0], LineBox[{{-10.747596090751646`, 4.461675797613424}, {-7.6788262675442684`, 4.749099103166209}}]}, {RGBColor[1, 0, 0], LineBox[{{ 0.28833564467084294`, -4.683382658927691}, {-3.2677827204003735`, 1.8281660065065792`}}]}, {RGBColor[1, 0, 0], LineBox[{{-8.546250884729645, 0.5136288143164993}, {-6.486263178389222, 3.119724600822729}}]}, {RGBColor[1, 0, 0], LineBox[{{-5.030309287234042, -3.0248038164121347`}, {-5.011160995427521, 2.044971793294608}}]}, {RGBColor[1, 0, 0], LineBox[{{2.3838461722457716`, 6.2408168112750815`}, {-2.198329475379415, 5.470806109107468}}]}, {RGBColor[1, 0, 0], LineBox[{{-7.271236578190915, 7.429881980519681}, {-6.098303588711961, 6.175019865819969}}]}, {RGBColor[1, 0, 0], LineBox[{{-3.804812061955122, 4.640735010610404}, {-4.478693883898844, 4.8432990910398726`}}]}, {RGBColor[1, 0, 0], LineBox[{{-14.789819833733718`, -3.131005140380653}, {-8.601024689976157, 2.009143093324245}}]}, {RGBColor[1, 0, 0], LineBox[{{-10.173329036617323`, 10.445355907218692`}, {-7.585189314999557, 7.721125180337683}}]}, {RGBColor[1, 0, 0], LineBox[{{-6.635341849994978, 9.09357846607467}, {-5.79425097549402, 6.988164547951307}}]}, {RGBColor[1, 0, 0], LineBox[{{-10.252930342462834`, 13.295748885565107`}, {-7.558394210310411, 9.04037261782307}}]}, {RGBColor[1, 0, 0], LineBox[{{-11.366434006622693`, 7.443286717864657}, {-8.119008999105256, 6.19700184632195}}]}, {RGBColor[1, 0, 0], LineBox[{{-14.505334251711188`, 3.834073087951685}, {-9.209178783854908, 4.483700973394413}}]}, {RGBColor[1, 0, 0], LineBox[{{-6.654769651293536, 7.126669376792346}, {-5.790652585377924, 6.016127313968157}}]}, {RGBColor[1, 0, 0], LineBox[{{-0.9590833669815435, -1.6795557263648142`}, \ {-3.5483526577623783`, 2.6004554911436895`}}]}, {RGBColor[1, 0, 0], LineBox[{{3.3755396359405054`, 5.151473193204481}, {-1.9421214585351683`, 5.055302302566815}}]}, {RGBColor[1, 0, 0], LineBox[{{1.6570704607726867`, 7.079627462360104}, {-2.4030112234813243`, 5.811283162903813}}]}, {RGBColor[1, 0, 0], LineBox[{{-4.353223785868581, 12.721591212684803`}, {-4.703344301714873, 8.541648537813842}}]}, {RGBColor[1, 0, 0], LineBox[{{-9.538117477272191, -2.561107548250299}, {-6.741263141330114, 2.098823918213108}}]}, {RGBColor[1, 0, 0], LineBox[{{-4.563403952134863, 10.852596353065454`}, {-4.796118247367159, 7.733047190303813}}]}, {RGBColor[1, 0, 0], LineBox[{{-14.364788440654868`, 1.9935365445310094`}, {-8.979348593206334, 3.7224734228795704`}}]}, {RGBColor[1, 0, 0], LineBox[{{-12.928062102139885`, -3.240982113009215}, {-7.952806026431761, 1.9306469432874538`}}]}, {RGBColor[1, 0, 0], LineBox[{{0.8881419018079661, 3.6977876589659004`}, {-2.741477201137378, 4.500508596730198}}]}, {RGBColor[1, 0, 0], LineBox[{{3.438371904482807, 4.315731169126128}, {-1.952446227376576, 4.752873412001375}}]}}, CircleBox[{0, 0}, 10], {AbsolutePointSize[5], PointBox[{0, 0}]}, {AbsolutePointSize[5], PointBox[{-5, 5}]}}, AspectRatio->Automatic, Background->RGBColor[0.94, 0.88, 0.94], PlotRange->All]], "Output", CellChangeTimes->{ 3.432866651388035*^9, 3.4328667123978024`*^9, 3.433103033625*^9, 3.43310405778125*^9, 3.43363814175*^9, 3.433639681015625*^9, 3.433639738453125*^9, 3.43363994146875*^9, 3.433641530984375*^9, 3.433641679953125*^9, 3.433642641734375*^9, 3.433644576109375*^9, { 3.433650783390625*^9, 3.4336507974375*^9}, 3.433701063390625*^9, 3.433813848359375*^9, 3.433815867921875*^9, 3.434083958921875*^9, 3.434084426984375*^9, 3.434085334515625*^9, 3.434085761375*^9, 3.43408601640625*^9, 3.43408613278125*^9, 3.434086394375*^9, 3.434220962796875*^9, 3.434327471265625*^9, 3.43436920109375*^9, 3.434369324171875*^9, 3.4343693805625*^9, 3.43437041546875*^9, 3.43437341871875*^9, 3.434373682*^9, 3.434373930140625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 4.3. Circle Inversion Go to the Wolfram Demonstrations Project and see Orthogonal Circle Inversion. \ This is a free user interactive downloadable Mathematica notebook. Just click on the hyperlink below. \ \>", "Subsection", CellChangeTimes->{ 3.43421848903125*^9, {3.434218529046875*^9, 3.434218772171875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hyperlink", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.434218349625*^9, 3.4342183633125*^9}}], Cell[BoxData[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"http://demonstrations.wolfram.com/OrthogonalCircleInversion/\"\ \>", True-> StyleBox["\<\"http://demonstrations.wolfram.com/OrthogonalCircleInversion/\ \"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaselinePosition->Baseline, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/OrthogonalCircleInversion/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/OrthogonalCircleInversion/"], Annotation[#, "http://demonstrations.wolfram.com/OrthogonalCircleInversion/", "Hyperlink"]& ]], "Output", CellChangeTimes->{3.434218498078125*^9, 3.434220962828125*^9, 3.43432747128125*^9, 3.434369201109375*^9, 3.4343693241875*^9, 3.4343693806875*^9, 3.434370415484375*^9, 3.434373418734375*^9, 3.434373682015625*^9, 3.43437393015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Telescopic", " ", RowBox[{"Projection", ".", " ", "Fig", ".", " ", "4.41"}], RowBox[{"(", "a", ")"}], " ", "Twenty", " ", "Nonuniformly", " ", "Spaced", " ", RowBox[{"Points", ".", " ", "Page"}], " ", "195."}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"k", ",", "z", ",", "l", ",", "r"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "10."}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", RowBox[{"z", "/", RowBox[{"(", RowBox[{"z", "+", "k"}], ")"}]}]}], ",", " ", RowBox[{"{", RowBox[{"z", ",", "0", ",", "100", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"%", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "-", RowBox[{"%", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "20"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"%%", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", "%", "]"}], ",", RowBox[{"Background", "\[Rule]", "LightYellow"}], ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}]}], FontSize->14]], "Input", CellChangeTimes->{{3.432867077722103*^9, 3.43286711712457*^9}, { 3.4328671914455595`*^9, 3.432867200132225*^9}, {3.4328672564236956`*^9, 3.432867322761077*^9}, {3.4328674951209836`*^9, 3.4328674985269504`*^9}, { 3.432867605346187*^9, 3.432867698322826*^9}, {3.432867758536566*^9, 3.432867811532156*^9}, {3.4328678594187965`*^9, 3.4328679383966*^9}, { 3.433639426140625*^9, 3.433639434875*^9}, {3.4336394781875*^9, 3.4336396393125*^9}, {3.433639720609375*^9, 3.43363972228125*^9}, { 3.43364246228125*^9, 3.433642483453125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "3.333333333333333`", ",", "5.`", ",", "6.`", ",", "6.666666666666666`", ",", "7.142857142857143`", ",", "7.5`", ",", "7.777777777777778`", ",", "8.`", ",", "8.181818181818182`", ",", "8.333333333333334`", ",", "8.461538461538463`", ",", "8.571428571428571`", ",", "8.666666666666668`", ",", "8.75`", ",", "8.823529411764707`", ",", "8.88888888888889`", ",", "8.947368421052632`", ",", "9.`", ",", "9.04761904761905`", ",", "9.09090909090909`"}], "}"}]], "Output", CellChangeTimes->{ 3.432867330885297*^9, {3.432867866699441*^9, 3.4328679392559032`*^9}, 3.43310405790625*^9, 3.433638141765625*^9, 3.433639681140625*^9, 3.4336397385625*^9, 3.43363994159375*^9, 3.433641531109375*^9, 3.4336416800625*^9, {3.433642463859375*^9, 3.433642484828125*^9}, 3.43364264175*^9, 3.43364457615625*^9, {3.433650783421875*^9, 3.4336507975*^9}, 3.433701063421875*^9, 3.433813848359375*^9, 3.4338158679375*^9, 3.43408386453125*^9, 3.434083959046875*^9, 3.43408442703125*^9, 3.43408533459375*^9, 3.4340857615*^9, 3.43408601653125*^9, 3.434086132796875*^9, 3.434086394390625*^9, 3.434220962859375*^9, 3.4343274713125*^9, 3.43436920115625*^9, 3.434369324234375*^9, 3.43436938071875*^9, 3.434370415546875*^9, 3.43437341878125*^9, 3.4343736820625*^9, 3.434373930203125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.333333333333333`", ",", "1.666666666666667`", ",", "1.`", ",", "0.6666666666666661`", ",", "0.47619047619047716`", ",", "0.35714285714285676`", ",", "0.2777777777777777`", ",", "0.22222222222222232`", ",", "0.18181818181818166`", ",", "0.15151515151515227`", ",", "0.12820512820512953`", ",", "0.10989010989010772`", ",", "0.09523809523809668`", ",", "0.08333333333333215`", ",", "0.07352941176470651`", ",", "0.06535947712418277`", ",", "0.058479532163742576`", ",", "0.05263157894736814`", ",", "0.047619047619049226`", ",", "0.043290043290040714`"}], "}"}]], "Output", CellChangeTimes->{ 3.432867330885297*^9, {3.432867866699441*^9, 3.4328679392559032`*^9}, 3.43310405790625*^9, 3.433638141765625*^9, 3.433639681140625*^9, 3.4336397385625*^9, 3.43363994159375*^9, 3.433641531109375*^9, 3.4336416800625*^9, {3.433642463859375*^9, 3.433642484828125*^9}, 3.43364264175*^9, 3.43364457615625*^9, {3.433650783421875*^9, 3.4336507975*^9}, 3.433701063421875*^9, 3.433813848359375*^9, 3.4338158679375*^9, 3.43408386453125*^9, 3.434083959046875*^9, 3.43408442703125*^9, 3.43408533459375*^9, 3.4340857615*^9, 3.43408601653125*^9, 3.434086132796875*^9, 3.434086394390625*^9, 3.434220962859375*^9, 3.4343274713125*^9, 3.43436920115625*^9, 3.434369324234375*^9, 3.43436938071875*^9, 3.434370415546875*^9, 3.43437341878125*^9, 3.4343736820625*^9, 3.434373930203125*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.5, 0, 0.5], PointBox[{0, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{3.333333333333333, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{5., 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{6., 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{6.666666666666666, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{7.142857142857143, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{7.5, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{7.777777777777778, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8., 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.181818181818182, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.333333333333334, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.461538461538463, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.571428571428571, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.666666666666668, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.75, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.823529411764707, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.88888888888889, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{8.947368421052632, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{9., 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{9.04761904761905, 0}]}, {RGBColor[0.5, 0, 0.5], PointBox[{9.09090909090909, 0}]}}, Background->RGBColor[1, 1, 0.85], Frame->True, PlotLabel->FormBox[ "\"Twenty Nonuniformly Spaced Points\"", TraditionalForm]]], "Output", CellChangeTimes->{ 3.432867330885297*^9, {3.432867866699441*^9, 3.4328679392559032`*^9}, 3.43310405790625*^9, 3.433638141765625*^9, 3.433639681140625*^9, 3.4336397385625*^9, 3.43363994159375*^9, 3.433641531109375*^9, 3.4336416800625*^9, {3.433642463859375*^9, 3.433642484828125*^9}, 3.43364264175*^9, 3.43364457615625*^9, {3.433650783421875*^9, 3.4336507975*^9}, 3.433701063421875*^9, 3.433813848359375*^9, 3.4338158679375*^9, 3.43408386453125*^9, 3.434083959046875*^9, 3.43408442703125*^9, 3.43408533459375*^9, 3.4340857615*^9, 3.43408601653125*^9, 3.434086132796875*^9, 3.434086394390625*^9, 3.434220962859375*^9, 3.4343274713125*^9, 3.43436920115625*^9, 3.434369324234375*^9, 3.43436938071875*^9, 3.434370415546875*^9, 3.43437341878125*^9, 3.4343736820625*^9, 3.434373930234375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{"l", "=", "20."}], ";", RowBox[{"r", "=", "0.1"}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{"Varing", " ", RowBox[{"Heights", ".", " ", "Fig", ".", " ", "4.41"}], RowBox[{"(", "b", ")"}]}], ",", " ", RowBox[{"Page", " ", "196."}]}], "*)"}]}], FontSize->14], "\[IndentingNewLine]", StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"l", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{"z", " ", RowBox[{"r", "/", RowBox[{"(", RowBox[{"z", "+", "l"}], ")"}]}]}], ")"}]}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"z", ",", "0", ",", "100", ",", "5"}], "}"}]}], "]"}], FontSize->14], "\[IndentingNewLine]", StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"%", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"%", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "20"}], "}"}]}], "]"}], FontSize->14], "\[IndentingNewLine]", StyleBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"%%", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}], FontSize->14], "\[IndentingNewLine]", StyleBox[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", "%", "]"}], ",", RowBox[{"Background", "\[Rule]", "LightCyan"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], FontSize->14]}], "Input", CellChangeTimes->{{3.433642395421875*^9, 3.43364240725*^9}, 3.433642506125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20.`", ",", "19.6`", ",", "19.333333333333332`", ",", "19.142857142857142`", ",", "19.`", ",", "18.88888888888889`", ",", "18.799999999999997`", ",", "18.727272727272727`", ",", "18.666666666666668`", ",", "18.615384615384617`", ",", "18.571428571428573`", ",", "18.53333333333333`", ",", "18.5`", ",", "18.47058823529412`", ",", "18.444444444444446`", ",", "18.421052631578945`", ",", "18.400000000000002`", ",", "18.38095238095238`", ",", "18.363636363636363`", ",", "18.347826086956523`", ",", "18.333333333333332`"}], "}"}]], "Output", CellChangeTimes->{ 3.432867330885297*^9, {3.432867866699441*^9, 3.4328679392559032`*^9}, 3.43310405790625*^9, 3.433638141796875*^9, 3.43363968128125*^9, 3.433639738671875*^9, 3.433639941703125*^9, 3.43364153121875*^9, 3.433641680171875*^9, 3.433642431703125*^9, 3.433642507140625*^9, 3.433642641859375*^9, 3.43364457625*^9, {3.433650783515625*^9, 3.4336507976875*^9}, 3.433701063515625*^9, 3.433813848453125*^9, 3.433815868046875*^9, 3.4340838816875*^9, 3.434083959125*^9, 3.434084427125*^9, 3.4340853346875*^9, 3.43408576159375*^9, 3.434086016609375*^9, 3.434086132921875*^9, 3.4340863945*^9, 3.434220962984375*^9, 3.4343274714375*^9, 3.434369201234375*^9, 3.43436932434375*^9, 3.4343693808125*^9, 3.434370415640625*^9, 3.43437341890625*^9, 3.43437368215625*^9, 3.434373930328125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.3999999999999986`", ",", "0.26666666666666927`", ",", "0.1904761904761898`", ",", "0.14285714285714235`", ",", "0.11111111111111072`", ",", "0.08888888888889213`", ",", "0.07272727272727053`", ",", "0.060606060606058776`", ",", "0.0512820512820511`", ",", "0.0439560439560438`", ",", "0.03809523809524151`", ",", "0.03333333333333144`", ",", "0.029411764705880472`", ",", "0.02614379084967311`", ",", "0.023391812865501294`", ",", "0.021052631578942993`", ",", "0.019047619047622533`", ",", "0.017316017316016286`", ",", "0.01581027667984003`", ",", "0.014492753623191135`"}], "}"}]], "Output", CellChangeTimes->{ 3.432867330885297*^9, {3.432867866699441*^9, 3.4328679392559032`*^9}, 3.43310405790625*^9, 3.433638141796875*^9, 3.43363968128125*^9, 3.433639738671875*^9, 3.433639941703125*^9, 3.43364153121875*^9, 3.433641680171875*^9, 3.433642431703125*^9, 3.433642507140625*^9, 3.433642641859375*^9, 3.43364457625*^9, {3.433650783515625*^9, 3.4336507976875*^9}, 3.433701063515625*^9, 3.433813848453125*^9, 3.433815868046875*^9, 3.4340838816875*^9, 3.434083959125*^9, 3.434084427125*^9, 3.4340853346875*^9, 3.43408576159375*^9, 3.434086016609375*^9, 3.434086132921875*^9, 3.4340863945*^9, 3.434220962984375*^9, 3.4343274714375*^9, 3.434369201234375*^9, 3.43436932434375*^9, 3.4343693808125*^9, 3.434370415640625*^9, 3.43437341890625*^9, 3.43437368215625*^9, 3.434373930328125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "20.`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "19.6`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "19.333333333333332`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "19.142857142857142`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "19.`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "18.88888888888889`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "18.799999999999997`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "18.727272727272727`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "18.666666666666668`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "18.615384615384617`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "18.571428571428573`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "18.53333333333333`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "18.5`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "18.47058823529412`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "18.444444444444446`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "18.421052631578945`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "18.400000000000002`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "18.38095238095238`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"19", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "18.363636363636363`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "18.347826086956523`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"21", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "18.333333333333332`"}], "}"}]}], "}"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.432867330885297*^9, {3.432867866699441*^9, 3.4328679392559032`*^9}, 3.43310405790625*^9, 3.433638141796875*^9, 3.43363968128125*^9, 3.433639738671875*^9, 3.433639941703125*^9, 3.43364153121875*^9, 3.433641680171875*^9, 3.433642431703125*^9, 3.433642507140625*^9, 3.433642641859375*^9, 3.43364457625*^9, {3.433650783515625*^9, 3.4336507976875*^9}, 3.433701063515625*^9, 3.433813848453125*^9, 3.433815868046875*^9, 3.4340838816875*^9, 3.434083959125*^9, 3.434084427125*^9, 3.4340853346875*^9, 3.43408576159375*^9, 3.434086016609375*^9, 3.434086132921875*^9, 3.4340863945*^9, 3.434220962984375*^9, 3.4343274714375*^9, 3.434369201234375*^9, 3.43436932434375*^9, 3.4343693808125*^9, 3.434370415640625*^9, 3.43437341890625*^9, 3.43437368215625*^9, 3.434373930328125*^9}], Cell[BoxData[ GraphicsBox[{LineBox[{{1, 17}, {1, 20.}}], LineBox[{{2, 17}, {2, 19.6}}], LineBox[{{3, 17}, {3, 19.333333333333332`}}], LineBox[{{4, 17}, {4, 19.142857142857142`}}], LineBox[{{5, 17}, {5, 19.}}], LineBox[{{6, 17}, {6, 18.88888888888889}}], LineBox[{{7, 17}, {7, 18.799999999999997`}}], LineBox[{{8, 17}, {8, 18.727272727272727`}}], LineBox[{{9, 17}, {9, 18.666666666666668`}}], LineBox[{{10, 17}, {10, 18.615384615384617`}}], LineBox[{{11, 17}, {11, 18.571428571428573`}}], LineBox[{{12, 17}, {12, 18.53333333333333}}], LineBox[{{13, 17}, {13, 18.5}}], LineBox[{{14, 17}, {14, 18.47058823529412}}], LineBox[{{15, 17}, {15, 18.444444444444446`}}], LineBox[{{16, 17}, {16, 18.421052631578945`}}], LineBox[{{17, 17}, {17, 18.400000000000002`}}], LineBox[{{18, 17}, {18, 18.38095238095238}}], LineBox[{{19, 17}, {19, 18.363636363636363`}}], LineBox[{{20, 17}, {20, 18.347826086956523`}}], LineBox[{{21, 17}, {21, 18.333333333333332`}}]}, Background->RGBColor[0.9, 1, 1], Frame->True, PlotLabel->FormBox["\"Varing Heights\"", TraditionalForm]]], "Output", CellChangeTimes->{ 3.432867330885297*^9, {3.432867866699441*^9, 3.4328679392559032`*^9}, 3.43310405790625*^9, 3.433638141796875*^9, 3.43363968128125*^9, 3.433639738671875*^9, 3.433639941703125*^9, 3.43364153121875*^9, 3.433641680171875*^9, 3.433642431703125*^9, 3.433642507140625*^9, 3.433642641859375*^9, 3.43364457625*^9, {3.433650783515625*^9, 3.4336507976875*^9}, 3.433701063515625*^9, 3.433813848453125*^9, 3.433815868046875*^9, 3.4340838816875*^9, 3.434083959125*^9, 3.434084427125*^9, 3.4340853346875*^9, 3.43408576159375*^9, 3.434086016609375*^9, 3.434086132921875*^9, 3.4340863945*^9, 3.434220962984375*^9, 3.4343274714375*^9, 3.434369201234375*^9, 3.43436932434375*^9, 3.4343693808125*^9, 3.434370415640625*^9, 3.43437341890625*^9, 3.43437368215625*^9, 3.43437393034375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"1.27", RowBox[{"(", "a", ")"}]}], ",", " ", RowBox[{"page", " ", "251.", " ", "60", " ", RowBox[{"Degrees", "."}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t14", "=", RowBox[{"2", "^", "14"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<(x*=\>\"", ",", RowBox[{ RowBox[{"(", RowBox[{"8192", "-", RowBox[{"(", RowBox[{"2", "*", "14189."}], ")"}]}], ")"}], "/", "t14"}], ",", "\"\<,y*=\>\"", ",", RowBox[{ RowBox[{"(", RowBox[{"14189.", "+", RowBox[{"(", RowBox[{"2", "*", "8192"}], ")"}]}], ")"}], "/", "t14"}], ",", "\"\<)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<(x*=\>\"", ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"60", "Degree"}], "]"}], "-", RowBox[{"2.", RowBox[{"Sin", "[", RowBox[{"60", "Degree"}], "]"}]}]}], ",", "\[IndentingNewLine]", "\"\<,y*=\>\"", ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"60", "Degree"}], "]"}], "+", RowBox[{"2.", RowBox[{"Cos", "[", RowBox[{"60", "Degree"}], "]"}]}]}], ",", "\"\<)\>\""}], "]"}]}]}], FontSize->14]], "Input", CellChangeTimes->{{3.432829152296875*^9, 3.43282937884375*^9}, { 3.43282941721875*^9, 3.432829566546875*^9}, {3.432829608203125*^9, 3.432829695921875*^9}, {3.43282980353125*^9, 3.4328298254375*^9}, { 3.432829979296875*^9, 3.432830022171875*^9}, {3.43283016053125*^9, 3.432830187421875*^9}, {3.432847885734375*^9, 3.4328478873125*^9}, { 3.432847975875*^9, 3.4328479811875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"(x*=\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.2320556640625`"}], "\[InvisibleSpace]", "\<\",y*=\"\>", "\[InvisibleSpace]", "1.86602783203125`", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(x*=", -1.2320556640625, ",y*=", 1.86602783203125, ")"], Editable->False]], "Print", CellChangeTimes->{ 3.4336378840625*^9, 3.433638141859375*^9, 3.433639681421875*^9, 3.43363973875*^9, 3.433639941796875*^9, 3.433641531328125*^9, 3.43364168028125*^9, 3.43364264196875*^9, 3.4336445763125*^9, { 3.4336507836875*^9, 3.433650797765625*^9}, 3.433701063703125*^9, 3.4338138485*^9, 3.43381586821875*^9, 3.43408229846875*^9, 3.434083899796875*^9, 3.434083959265625*^9, 3.434084427265625*^9, 3.434085334828125*^9, 3.43408576171875*^9, 3.434086016734375*^9, 3.43408613296875*^9, 3.4340863945625*^9, 3.434220963109375*^9, 3.4343274715*^9, 3.43436920128125*^9, 3.434369324453125*^9, 3.434369380953125*^9, 3.4343704156875*^9, 3.434373418953125*^9, 3.434373682203125*^9, 3.434373930375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"(x*=\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.2320508075688772`"}], "\[InvisibleSpace]", "\<\",y*=\"\>", "\[InvisibleSpace]", "1.8660254037844386`", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm[ "(x*=", -1.2320508075688772`, ",y*=", 1.8660254037844386`, ")"], Editable->False]], "Print", CellChangeTimes->{ 3.4336378840625*^9, 3.433638141859375*^9, 3.433639681421875*^9, 3.43363973875*^9, 3.433639941796875*^9, 3.433641531328125*^9, 3.43364168028125*^9, 3.43364264196875*^9, 3.4336445763125*^9, { 3.4336507836875*^9, 3.433650797765625*^9}, 3.433701063703125*^9, 3.4338138485*^9, 3.43381586821875*^9, 3.43408229846875*^9, 3.434083899796875*^9, 3.434083959265625*^9, 3.434084427265625*^9, 3.434085334828125*^9, 3.43408576171875*^9, 3.434086016734375*^9, 3.43408613296875*^9, 3.4340863945625*^9, 3.434220963109375*^9, 3.4343274715*^9, 3.43436920128125*^9, 3.434369324453125*^9, 3.434369380953125*^9, 3.4343704156875*^9, 3.434373418953125*^9, 3.434373682203125*^9, 3.434373930390625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"1.27", RowBox[{"(", "b", ")"}]}], ",", " ", RowBox[{ RowBox[{"page", " ", "251"}], "-", RowBox[{"252.", " ", "80", " ", RowBox[{"Degrees", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t14", "=", RowBox[{"2", "^", "14"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<(x*=\>\"", ",", RowBox[{ RowBox[{"(", RowBox[{"2845", "-", RowBox[{"(", RowBox[{"2", "*", "16135."}], ")"}]}], ")"}], "/", "t14"}], ",", "\"\<,y*=\>\"", ",", RowBox[{ RowBox[{"(", RowBox[{"16135.", "+", RowBox[{"(", RowBox[{"2", "*", "2845"}], ")"}]}], ")"}], "/", "t14"}], ",", "\"\<)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\<(x*=\>\"", ",", RowBox[{ RowBox[{"Cos", "[", RowBox[{"80", "Degree"}], "]"}], "-", RowBox[{"2.", RowBox[{"Sin", "[", RowBox[{"80", "Degree"}], "]"}]}]}], ",", "\[IndentingNewLine]", "\"\<,y*=\>\"", ",", RowBox[{ RowBox[{"Sin", "[", RowBox[{"80", "Degree"}], "]"}], "+", RowBox[{"2.", RowBox[{"Cos", "[", RowBox[{"80", "Degree"}], "]"}]}]}], ",", "\"\<)\>\""}], "]"}]}]}], FontSize->14]], "Input", CellChangeTimes->{{3.432830156421875*^9, 3.432830194453125*^9}, { 3.432830232953125*^9, 3.4328302338125*^9}, {3.432830278296875*^9, 3.432830341828125*^9}, {3.43284789465625*^9, 3.43284789615625*^9}, { 3.432848015984375*^9, 3.43284802121875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"(x*=\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.79595947265625`"}], "\[InvisibleSpace]", "\<\",y*=\"\>", "\[InvisibleSpace]", "1.33209228515625`", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm["(x*=", -1.79595947265625, ",y*=", 1.33209228515625, ")"], Editable->False]], "Print", CellChangeTimes->{ 3.43363791421875*^9, 3.433638141890625*^9, 3.43363968146875*^9, 3.433639738796875*^9, 3.43363994184375*^9, 3.433641531375*^9, 3.433641680328125*^9, 3.433642642*^9, 3.43364457634375*^9, { 3.43365078375*^9, 3.4336507978125*^9}, 3.43370106378125*^9, 3.433813848546875*^9, 3.433815868296875*^9, 3.43408231190625*^9, 3.434083959328125*^9, 3.43408442734375*^9, 3.434085334890625*^9, 3.43408576178125*^9, 3.4340860168125*^9, 3.434086133015625*^9, 3.43408639459375*^9, 3.4342209631875*^9, 3.43432747153125*^9, 3.4343692013125*^9, 3.4343693245*^9, 3.434369381015625*^9, 3.434370415734375*^9, 3.434373419*^9, 3.43437368225*^9, 3.434373930421875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"(x*=\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.7959673283574857`"}], "\[InvisibleSpace]", "\<\",y*=\"\>", "\[InvisibleSpace]", "1.3321041083460687`", "\[InvisibleSpace]", "\<\")\"\>"}], SequenceForm[ "(x*=", -1.7959673283574857`, ",y*=", 1.3321041083460687`, ")"], Editable->False]], "Print", CellChangeTimes->{ 3.43363791421875*^9, 3.433638141890625*^9, 3.43363968146875*^9, 3.433639738796875*^9, 3.43363994184375*^9, 3.433641531375*^9, 3.433641680328125*^9, 3.433642642*^9, 3.43364457634375*^9, { 3.43365078375*^9, 3.4336507978125*^9}, 3.43370106378125*^9, 3.433813848546875*^9, 3.433815868296875*^9, 3.43408231190625*^9, 3.434083959328125*^9, 3.43408442734375*^9, 3.434085334890625*^9, 3.43408576178125*^9, 3.4340860168125*^9, 3.434086133015625*^9, 3.43408639459375*^9, 3.4342209631875*^9, 3.43432747153125*^9, 3.4343692013125*^9, 3.4343693245*^9, 3.434369381015625*^9, 3.434370415734375*^9, 3.434373419*^9, 3.43437368225*^9, 3.434373930421875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Code", " ", "for", " ", "exercise", " ", RowBox[{ RowBox[{"{", RowBox[{"ex", ":", RowBox[{"pers", ".", "sqrt8"}]}], "}"}], ".", " ", "Page"}], " ", "264"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "r", ",", "T"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", "1.", ",", "0"}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], "=", RowBox[{"Normalize", "[", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"e", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", "0", ",", RowBox[{"d", " ", "r"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"e", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "^", "2"}], "+", "f", "+", RowBox[{"f", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{"e", " ", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "d"}], ",", RowBox[{"-", "e"}], ",", "0", ",", RowBox[{"f", " ", "r"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "d"}], "+", RowBox[{"b", " ", "d", " ", "e"}], "-", RowBox[{"a", " ", RowBox[{"e", "^", "2"}]}], "-", RowBox[{"a", " ", "f"}], "+", RowBox[{"c", " ", "d", " ", "f"}], "-", RowBox[{"a", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "b"}], " ", RowBox[{"d", "^", "2"}]}], "+", RowBox[{"c", " ", "e"}], "+", RowBox[{"a", " ", "d", " ", "e"}], "-", RowBox[{"b", " ", "f"}], "+", RowBox[{"c", " ", "e", " ", "f"}], "-", RowBox[{"b", " ", RowBox[{"f", "^", "2"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"a", " ", "d"}], "+", RowBox[{"b", " ", "e"}], "+", RowBox[{"c", " ", "f"}]}], ")"}]}], " ", "r"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "10", ",", "1"}], "}"}], ".", "T"}]}]}], FontSize->14]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", FractionBox["1", SqrtBox["2"]], ",", FractionBox["1", SqrtBox["2"]]}], "}"}]], "Output", CellChangeTimes->{3.433697687421875*^9, 3.433701063828125*^9, 3.43381384859375*^9, 3.43381586834375*^9, 3.434082340140625*^9, 3.434083959390625*^9, 3.43408442740625*^9, 3.434085334953125*^9, 3.434085761890625*^9, 3.434086016859375*^9, 3.4340861330625*^9, 3.434086394640625*^9, 3.434220963234375*^9, 3.434327471578125*^9, 3.434369201359375*^9, 3.4343693245625*^9, 3.434369381078125*^9, 3.434370415765625*^9, 3.43437341903125*^9, 3.434373682296875*^9, 3.43437393046875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "7.0710678118654755`"}], ",", "0", ",", RowBox[{"7.0710678118654755`", " ", "r"}]}], "}"}]], "Output", CellChangeTimes->{3.433697687421875*^9, 3.433701063828125*^9, 3.43381384859375*^9, 3.43381586834375*^9, 3.434082340140625*^9, 3.434083959390625*^9, 3.43408442740625*^9, 3.434085334953125*^9, 3.434085761890625*^9, 3.434086016859375*^9, 3.4340861330625*^9, 3.434086394640625*^9, 3.434220963234375*^9, 3.434327471578125*^9, 3.434369201359375*^9, 3.4343693245625*^9, 3.434369381078125*^9, 3.434370415765625*^9, 3.43437341903125*^9, 3.434373682296875*^9, 3.43437393046875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Exercise", " ", "to", " ", "compute", " ", RowBox[{"matrix", " ", "\\", "bfT_"}], RowBox[{ RowBox[{"{", "123", "}"}], ".", " ", "Answers"}], " ", "3.25"}], ",", " ", RowBox[{ RowBox[{"pages", " ", "264"}], "-", "265."}]}], " ", "*)"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], RowBox[{ StyleBox[ RowBox[{"Clear", "[", RowBox[{ "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "k", ",", "r", ",", "k"}], "]"}], FontSize->14, FontWeight->"Bold"], StyleBox["\[IndentingNewLine]", FontSize->14, FontWeight->"Bold"], StyleBox[ RowBox[{ RowBox[{"k", "=", RowBox[{"Sqrt", "[", "2", "]"}]}], ";", " ", RowBox[{"r", "=", RowBox[{"1", "/", "k"}]}], ";"}], FontSize->14, FontWeight->"Bold"], StyleBox["\[IndentingNewLine]", FontSize->14, FontWeight->"Bold"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "k"}], ",", RowBox[{ RowBox[{"-", "2"}], "k"}]}], "}"}]}], ";", " ", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], "=", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".99"}]}], "}"}]}], ";"}], FontSize->14, FontWeight->"Bold"], StyleBox["\[IndentingNewLine]", FontSize->14, FontWeight->"Bold"], StyleBox[ RowBox[{ StyleBox["T123", FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"CompatibilityType"->0, "Masked"->False, "Outline"->False, "RotationAngle"->0, "Shadow"->False, "StrikeThrough"->False, "Underline"->False}], StyleBox["=", FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"CompatibilityType"->0, "Masked"->False, "Outline"->False, "RotationAngle"->0, "Shadow"->False, "StrikeThrough"->False, "Underline"->False}], StyleBox["\[IndentingNewLine]", FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"CompatibilityType"->0, "Masked"->False, "Outline"->False, "RotationAngle"->0, "Shadow"->False, "StrikeThrough"->False, "Underline"->False}], StyleBox[ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, { RowBox[{"-", "a"}], RowBox[{"-", "b"}], RowBox[{"-", "c"}], "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ { RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"e", "^", "2"}], "+", "f", "-", RowBox[{"f", "^", "3"}], "-", RowBox[{ RowBox[{"e", "^", "2"}], " ", "f"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"f", "^", "2"}]}], ")"}]}], RowBox[{ RowBox[{"-", "e"}], " ", RowBox[{"d", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], "d", "0"}, { RowBox[{ RowBox[{"-", "e"}], " ", RowBox[{"d", "/", RowBox[{"(", RowBox[{"1", "+", "f"}], ")"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", "^", "2"}], "+", "f", "-", RowBox[{"f", "^", "3"}], "-", RowBox[{ RowBox[{"d", "^", "2"}], " ", "f"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"f", "^", "2"}]}], ")"}]}], "e", "0"}, { RowBox[{"-", "d"}], RowBox[{"-", "e"}], "f", "0"}, {"0", "0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "0", "r"}, {"0", "0", "0", "1"} }], ")"}]}], FontWeight->"Bold"]}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14, FontWeight->"Bold"], StyleBox[ RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"2", "k"}], "-", "3"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "k"}], "+", "1"}], ",", "1"}], "}"}], ".", "T123"}], FontSize->14, FontWeight->"Bold"], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.43364960665625*^9, 3.433649607375*^9}, { 3.433711566140625*^9, 3.433711598125*^9}, {3.433711644140625*^9, 3.43371164690625*^9}, {3.434082447640625*^9, 3.434082448234375*^9}}, FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"99.00999999999985`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", RowBox[{"-", "0.9899999999999969`"}], ",", "0.`", ",", RowBox[{"-", "0.7071067811865475`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "1.`", ",", "0.`", ",", RowBox[{"-", "0.700035713374682`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "5.62856997824491`", ",", "0.`", ",", "1.02`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.433712057140625*^9, 3.433813848625*^9, 3.433815868421875*^9, 3.4340823668125*^9, {3.434082431359375*^9, 3.434082461171875*^9}, 3.434083959453125*^9, 3.434084427453125*^9, 3.434085335015625*^9, 3.434085761953125*^9, 3.434086016921875*^9, 3.434086133109375*^9, 3.4340863946875*^9, 3.434220963296875*^9, 3.434327471640625*^9, 3.434369201421875*^9, 3.434369324609375*^9, 3.434369381140625*^9, 3.434370415828125*^9, 3.43437341909375*^9, 3.43437368234375*^9, 3.434373930515625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "3.9699999999999904`", ",", "0.`", ",", "2.42128463018496`"}], "}"}]], "Output", CellChangeTimes->{ 3.433712057140625*^9, 3.433813848625*^9, 3.433815868421875*^9, 3.4340823668125*^9, {3.434082431359375*^9, 3.434082461171875*^9}, 3.434083959453125*^9, 3.434084427453125*^9, 3.434085335015625*^9, 3.434085761953125*^9, 3.434086016921875*^9, 3.434086133109375*^9, 3.4340863946875*^9, 3.434220963296875*^9, 3.434327471640625*^9, 3.434369201421875*^9, 3.434369324609375*^9, 3.434369381140625*^9, 3.434370415828125*^9, 3.43437341909375*^9, 3.43437368234375*^9, 3.43437393053125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{ "Exercise", " ", "for", " ", "Hemispherical", " ", "Fisheye", " ", RowBox[{"Projection", ".", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"4.1", ".", " ", "Pages"}], " ", "267"}], "-", "268"}], ")"}], "."}]}], " ", "*)"}], FontSize->14], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"k", ",", "q", ",", "scal"}], "]"}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{ RowBox[{ RowBox[{"scal", "[", "q_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"k", " ", RowBox[{"Tan", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"q", "/", "k"}], "]"}], "/", "2"}], "]"}]}], ")"}], "/", "q"}]}], ";"}], FontSize->14], StyleBox["\[IndentingNewLine]", FontSize->14], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"scal", "[", "1.", "]"}], ",", RowBox[{"scal", "[", "10.", "]"}], ",", " ", RowBox[{"scal", "[", "100.", "]"}], ",", " ", RowBox[{"scal", "[", "1000.", "]"}], ",", " ", RowBox[{"scal", "[", "10000.", "]"}]}], "}"}], FontSize->14]}]}]], "Input", CellChangeTimes->{{3.434085565109375*^9, 3.434085599484375*^9}, { 3.43408563278125*^9, 3.4340856500625*^9}, {3.434085742484375*^9, 3.434085744390625*^9}, {3.434085827078125*^9, 3.43408584053125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.41421356237309503`", ",", "0.09049875621120891`", ",", "0.009900499987500627`", ",", "0.0009990004999998752`", ",", "0.0000999900005`"}], "}"}]], "Output", CellChangeTimes->{ 3.433698492828125*^9, 3.433701063890625*^9, 3.433813848671875*^9, 3.4338158685*^9, 3.434083959515625*^9, 3.43408442753125*^9, 3.434085335078125*^9, 3.434085568734375*^9, {3.43408560309375*^9, 3.434085634453125*^9}, 3.434085694859375*^9, 3.434085762015625*^9, 3.43408586396875*^9, 3.434086017*^9, 3.434086133140625*^9, 3.434086394734375*^9, 3.434220963359375*^9, 3.4343274716875*^9, 3.43436920146875*^9, 3.43436932465625*^9, 3.434369381203125*^9, 3.434370415859375*^9, 3.434373419125*^9, 3.434373682375*^9, 3.4343739305625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "For further information about books by David Salomon, and free downloadable \ ", StyleBox["Mathematica", FontSlant->"Italic"], " notebooks and other information,\njust click on the hyperlink below." }], "Subsection", CellChangeTimes->{ 3.43421848903125*^9, {3.434218529046875*^9, 3.434218772171875*^9}, { 3.434218994171875*^9, 3.43421913471875*^9}, {3.434219577875*^9, 3.43421957903125*^9}}, Background->RGBColor[1, 1, 0]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Hyperlink", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.434218349625*^9, 3.4342183633125*^9}, 3.434219234234375*^9}], Cell[BoxData[ TagBox[ ButtonBox[ PaneSelectorBox[{False->"\<\"http://www.davidsalomon.name/\"\>", True-> StyleBox["\<\"http://www.davidsalomon.name/\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaselinePosition->Baseline, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.davidsalomon.name/"], None}, ButtonNote->"http://www.davidsalomon.name/"], Annotation[#, "http://www.davidsalomon.name/", "Hyperlink"]& ]], "Output", CellChangeTimes->{3.434219237703125*^9, 3.43422096340625*^9, 3.43432747171875*^9, 3.4343692015*^9, 3.43436932471875*^9, 3.43436938125*^9, 3.434370415890625*^9, 3.43437341915625*^9, 3.434373682421875*^9, 3.43437393059375*^9}] }, Open ]], Cell["\<\ This notebook was done with Mathematica 6.0.1. 10-28-2008. 10-29-2008 and \ 10-30-2008.\ \>", "Subsubsection", CellChangeTimes->{{3.433638195703125*^9, 3.433638219984375*^9}, { 3.433650815234375*^9, 3.433650890125*^9}, {3.43365092053125*^9, 3.433650937484375*^9}, {3.433694389171875*^9, 3.433694426296875*^9}, { 3.433813925703125*^9, 3.433813935390625*^9}, 3.4338140134375*^9, { 3.43421936665625*^9, 3.434219368234375*^9}, {3.434219501921875*^9, 3.434219515421875*^9}, {3.43432750753125*^9, 3.434327523546875*^9}, { 3.434373464546875*^9, 3.43437347303125*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1272, 907}, WindowMargins->{{-2, Automatic}, {Automatic, -1}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 609, 11, 153, "Title"], Cell[1202, 36, 133, 2, 65, "Subtitle"], Cell[CellGroupData[{ Cell[1360, 42, 5783, 182, 352, "Input"], Cell[7146, 226, 11864, 270, 531, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19047, 501, 2664, 81, 172, "Input"], Cell[21714, 584, 3968, 90, 304, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25719, 679, 3024, 94, 192, "Input"], Cell[CellGroupData[{ Cell[28768, 777, 1223, 22, 23, "Print"], Cell[29994, 801, 1349, 26, 23, "Print"], Cell[31346, 829, 1387, 28, 23, "Print"], Cell[32736, 859, 1395, 28, 23, "Print"], Cell[34134, 889, 1410, 29, 23, "Print"], Cell[35547, 920, 1440, 29, 23, "Print"], Cell[36990, 951, 1412, 27, 23, "Print"], Cell[38405, 980, 1408, 27, 23, "Print"], Cell[39816, 1009, 1451, 29, 23, "Print"], Cell[41270, 1040, 1456, 29, 23, "Print"], Cell[42729, 1071, 1456, 29, 23, "Print"], Cell[44188, 1102, 1421, 27, 23, "Print"], Cell[45612, 1131, 1457, 29, 23, "Print"], Cell[47072, 1162, 1456, 29, 23, "Print"], Cell[48531, 1193, 1414, 27, 23, "Print"], Cell[49948, 1222, 1104, 21, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51101, 1249, 2844, 81, 152, "Input"], Cell[53948, 1332, 3479, 103, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57464, 1440, 3644, 102, 372, "Input"], Cell[61111, 1544, 968, 20, 30, "Output"], Cell[62082, 1566, 1010, 21, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63129, 1592, 149, 4, 31, "Input"], Cell[63281, 1598, 905, 19, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64223, 1622, 2066, 62, 172, "Input"], Cell[66292, 1686, 553, 9, 30, "Output"], Cell[66848, 1697, 595, 10, 30, "Output"], Cell[67446, 1709, 616, 11, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68099, 1725, 1628, 27, 619, "Subsection"], Cell[CellGroupData[{ Cell[69752, 1756, 1179, 42, 84, "Input"], Cell[70934, 1800, 569, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71540, 1814, 12625, 375, 332, "Input"], Cell[84168, 2191, 1112, 19, 30, "Output"], Cell[85283, 2212, 1130, 19, 33, "Output"], Cell[86416, 2233, 1109, 19, 30, "Output"], Cell[87528, 2254, 1150, 20, 33, "Output"], Cell[88681, 2276, 1147, 23, 49, "Output"], Cell[89831, 2301, 1106, 19, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90974, 2325, 339, 6, 31, "Input"], Cell[91316, 2333, 466, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91819, 2347, 151, 3, 31, "Input"], Cell[91973, 2352, 465, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92475, 2366, 151, 3, 31, "Input"], Cell[92629, 2371, 502, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[93168, 2385, 1835, 61, 220, "Input"], Cell[95006, 2448, 578, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95621, 2463, 1588, 48, 132, "Input"], Cell[97212, 2513, 599, 11, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97848, 2529, 3823, 110, 152, "Input"], Cell[101674, 2641, 664, 15, 49, "Output"], Cell[102341, 2658, 1222, 36, 78, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103600, 2699, 1169, 35, 112, "Input"], Cell[104772, 2736, 525, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105334, 2750, 241, 7, 31, "Input"], Cell[105578, 2759, 549, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106164, 2773, 178, 5, 31, "Input"], Cell[106345, 2780, 556, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106938, 2794, 7401, 255, 252, "Input"], Cell[114342, 3051, 1513, 31, 393, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115892, 3087, 7213, 251, 252, "Input"], Cell[123108, 3340, 1706, 35, 393, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[124851, 3380, 3372, 96, 192, "Input"], Cell[128226, 3478, 1300, 24, 374, "Output"], Cell[129529, 3504, 2116, 41, 392, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131682, 3550, 4135, 113, 192, "Input"], Cell[135820, 3665, 9371, 266, 375, "Output"], Cell[145194, 3933, 1014, 15, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[146245, 3953, 4248, 116, 212, "Input"], Cell[150496, 4071, 3936, 83, 454, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[154469, 4159, 3578, 114, 238, "Input"], Cell[158050, 4275, 4089, 96, 165, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162176, 4376, 5359, 172, 292, "Input"], Cell[167538, 4550, 7763, 172, 362, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[175350, 4728, 326, 9, 104, "Subsection"], Cell[CellGroupData[{ Cell[175701, 4741, 196, 4, 31, "Input"], Cell[175900, 4747, 953, 24, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[176890, 4776, 2533, 67, 152, "Input"], Cell[179426, 4845, 1373, 22, 30, "Output"], Cell[180802, 4869, 1485, 25, 50, "Output"], Cell[182290, 4896, 2225, 39, 134, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[184552, 4940, 1974, 63, 112, "Input"], Cell[186529, 5005, 1447, 24, 30, "Output"], Cell[187979, 5031, 1508, 25, 50, "Output"], Cell[189490, 5058, 5573, 178, 107, "Output"], Cell[195066, 5238, 1975, 35, 112, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197078, 5278, 1780, 48, 112, "Input"], Cell[CellGroupData[{ Cell[198883, 5330, 1080, 19, 23, "Print"], Cell[199966, 5351, 1098, 20, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[201113, 5377, 1691, 48, 112, "Input"], Cell[CellGroupData[{ Cell[202829, 5429, 1048, 19, 23, "Print"], Cell[203880, 5450, 1061, 20, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[204990, 5476, 3746, 108, 152, "Input"], Cell[208739, 5586, 649, 14, 49, "Output"], Cell[209391, 5602, 666, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[210094, 5619, 5067, 170, 228, "Input"], Cell[215164, 5791, 1079, 24, 30, "Output"], Cell[216246, 5817, 664, 13, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[216947, 5835, 1586, 48, 112, "Input"], Cell[218536, 5885, 789, 15, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[219374, 5906, 455, 11, 69, "Subsection"], Cell[CellGroupData[{ Cell[219854, 5921, 188, 4, 31, "Input"], Cell[220045, 5927, 767, 18, 30, "Output"] }, Open ]], Cell[220827, 5948, 592, 10, 28, "Subsubsection"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)