(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 37477, 816]*) (*NotebookOutlinePosition[ 38268, 846]*) (* CellTagsIndexPosition[ 38195, 840]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Parametric Model:\n ", FontFamily->"Arial", FontSize->24, FontWeight->"Bold"], Cell[BoxData[ FormBox[ StyleBox[\(Boeing\^TM\), FontFamily->"Arial", FontSize->24, FontWeight->"Bold"], TraditionalForm]]], StyleBox[" F/A-18E/F Super Hornet\n ", FontFamily->"Arial", FontSize->24, FontWeight->"Bold"], "\n", StyleBox["by David Altherr; ", FontFamily->"Arial", FontSize->12, FontWeight->"Bold"], StyleBox["altherda@email.uc.edu", FontFamily->"Arial", FontSize->12, FontSlant->"Italic"], StyleBox["\n", FontFamily->"Arial", FontSize->12], StyleBox["Copyright \[Copyright] 2001 David Altherr ; Permission granted to \ use under Open Source MIT public license.", FontFamily->"Arial", FontSize->12, FontSlant->"Italic"] }], "Title", FontColor->RGBColor[0, 0, 0.605478], Background->GrayLevel[0.900008]], Cell["\<\ Note: Only the source code is provided in this notebook, the images must be \ rendered via execution of the cells; this notebook, when fully rendered, may \ require upto 8 MB of hard drive space. The following models are intended \ only to be rough representations; this notebook is in no way associated the \ Boeing Corporation or any of its affiliates.\ \>", "Text", Background->GrayLevel[0.900008]], Cell[TextData[{ "The following ", StyleBox["Mathematica", FontSlant->"Italic"], " packages must be loaded prior to execution." }], "Text", Background->GrayLevel[0.900008]], Cell["<"S5.41.1"], Cell[CellGroupData[{ Cell["High Polygon Count Model", "Section"], Cell[BoxData[{ \(\(Off[General::"\", General::"\"];\)\[IndentingNewLine]\), \ "\[IndentingNewLine]", \(\(x2[u_, v_] := \ 1.1 Cos[u]*Cos[v];\)\), "\n", \(\(y2[u_, v_] := 1.1 Sin[u]*Cos[v] + .3 Sin[v];\)\), "\n", \(\(z2[u_, v_] := \ 6 Sin[v] - 1.5;\)\), "\n", \(\(noseconeA1\ = \ ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, \[Pi]}, {v, \(- .2\), \[Pi] + .2}, PlotPoints \[Rule] {12, 12}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := .75 Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := .8 Sin[u]*Sin[v] + .2 Cos[v] - .8;\)\), "\n", \(\(z2[u_, v_] := 4 Cos[v] - 3;\)\), "\n", \(\(cockpitA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, \(- .5\), \[Pi] + .5}, {v, \(-\[Pi]\ \)/2, 0}, PlotPoints \[Rule] {20, 8}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := .75 Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := .8 Sin[u]*Sin[v] - .8;\)\), "\n", \(\(z2[u_, v_] := \ \(-4\) Cos[v] - 3;\)\), "\n", \(\(cockpitB1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, \(- .5\), \[Pi] + .5}, {v, \(-\[Pi]\ \)/2, 0}, PlotPoints \[Rule] {20, 8}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := 1.21 Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := 1.21 Sin[u]*Sin[v] + .1 Cos[v] - .1;\)\), "\n", \(\(z2[u_, v_] := \ 13 Cos[v] - 8;\)\), "\n", \(\(fuselageA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/3, 2 \[Pi]/3 + 1}, PlotPoints \[Rule] {35, 35}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((8.3 - 4.5 \((\((2 \[Pi]/3 - .17)\) - v)\))\) Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := 17 Sin[u]*Sin[v] + .1 Cos[v] - 15.4;\)\), "\n", \(\(z2[u_, v_] := \ 20 Cos[v] - 14.1;\)\), "\n", \(\(ventralpanelA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, \[Pi]/3 + .3, 2 \[Pi]/3 - .3}, {v, \[Pi]/3 + .15, 2 \[Pi]/3 - .17}, PlotPoints \[Rule] {16, 16}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((4. - .5 v)\) Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := .55 Sin[u]*Sin[v] - .35 + .3 Cos[v]\^3;\)\), "\n", \(\(z2[u_, v_] := \ 10 Cos[v] - 12;\)\), "\n", \(\(dorsalpanelA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 2 \[Pi]/3 + .5}, PlotPoints \[Rule] {20, 20}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((3.2 - .4 v)\) Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := .7 Sin[u]*Sin[v] - .35 + .3 Cos[v]\^3;\)\), "\n", \(\(z2[u_, v_] := \ 13 Cos[v] - 14;\)\), "\n", \(\(dorsalpanelB1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 2 \[Pi]/3}, PlotPoints \[Rule] {30, 30}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\ + \(\(1.5\)\(\ \)\(u\)\(\ \)\)\), "\n", \(y2[u_, v_] := 1.5\), "\n", \(z2[u_, v_] := \ \(-12\) + 4 v + 1.5 \((1 - u\ v)\)\), "\n", \(\(inletrightA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {5, 5}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12.5\) + 5.5 v + 1.5 - u\ v\), "\n", \(\(inletrightB1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {5, 5}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 2.8\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12\) + 5 v\ - \ u\ v\), "\n", \(\(inletrightC1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {5, 5}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\ + \(\(1.5\)\(\ \)\(u\)\(\ \)\)\), "\n", \(y2[u_, v_] := 1.5\), "\n", \(z2[u_, v_] := \ \(-12\) + 4 v + 1.5 \((1 - u\ v)\)\), "\n", \(\(inletleftA1 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {5, 5}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12.5\) + 5.5 v + 1.5 - u\ v\), "\n", \(\(inletleftB1 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {5, 5}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 2.8\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12\) + 5 v\ - \ u\ v\), "\n", \(\(inletleftC1 = ParametricPlot3D[{\(-\ x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {5, 5}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 12 v\), "\n", \(y2[u_, v_] := \(( .4\/\(2 v + 1\) + .2\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((4.6 - 3 v)\) Sin[u] - 9.5 - 2.5 v\), "\n", \(\(wingrightA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 12 + .25 Cos[u]\), "\n", \(y2[u_, v_] := \(- .3\) + .2\ Sin[u]\), "\n", \(z2[u_, v_] := 3.8 v - 13.5\), "\n", \(\(wingendrightA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 12 v\), "\n", \(y2[u_, v_] := \(( .4\/\(2 v + 1\) + .2\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((4.6 - 3 v)\) Sin[u] - 9.5 - 2.5 v\), "\n", \(\(wingleftA1 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 12 + .25 Cos[u]\), "\n", \(y2[u_, v_] := \(- .3\) + .2\ Sin[u]\), "\n", \(z2[u_, v_] := 3.8 v - 13.5\), "\n", \(\(wingendleftA1 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((1.1 + .2 Sin[v])\) Cos[u]*Cos[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := \((1.1 + .2 Sin[v])\) Sin[u]*Cos[v];\)\), "\n", \(\(z2[u_, v_] := \ 5.5 Sin[v] - 19;\)\), "\n", \(\(exhaustrightA1\ = \ ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, \[Pi]}, {v, \(- .5\), \[Pi] + .5}, PlotPoints \[Rule] {20, 35}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((1.1 + .2 Sin[v])\) Cos[u]*Cos[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := \((1.1 + .2 Sin[v])\) Sin[u]*Cos[v];\)\), "\n", \(\(z2[u_, v_] := \ 5.5 Sin[v] - 19;\)\), "\n", \(\(exhaustleftA1\ = \ ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, \[Pi]}, {v, \(- .5\), \[Pi] + .5}, PlotPoints \[Rule] {20, 35}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := 1.15\ Cos[u]*Sin[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := 1.15 Sin[u]*Sin[v];\)\), "\n", \(\(z2[u_, v_] := 5 Cos[v] - 18.4;\)\), "\n", \(\(exhaustrightB1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/2 + .66, \[Pi]/2\ + .85}, PlotPoints \[Rule] {20, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := 1.15\ Cos[u]*Sin[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := 1.15 Sin[u]*Sin[v];\)\), "\n", \(\(z2[u_, v_] := 5 Cos[v] - 18.4;\)\), "\n", \(\(exhaustleftB1 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/2 + .66, \[Pi]/2\ + .85}, PlotPoints \[Rule] {20, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := .8\ Cos[u]*Sin[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := .8 Sin[u]*Sin[v];\)\), "\n", \(\(z2[u_, v_] := 5 Cos[v] - 17.0;\)\), "\n", \(\(enginerightA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/2, \[Pi]}, PlotPoints \[Rule] {20, 8}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := .8\ Cos[u]*Sin[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := .8 Sin[u]*Sin[v];\)\), "\n", \(\(z2[u_, v_] := 5 Cos[v] - 17.0;\)\), "\n", \(\(engineleftA1 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/2, \[Pi]}, PlotPoints \[Rule] {20, 8}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := If[1.0 + \((1.2 + .15 v)\) Cos[u] + 1.5 v > 2.8, 2.8, 1.0 + \((1.2 + .15 v)\) Cos[u] + 1.5 v]\), "\n", \(y2[u_, v_] := If[ .1 + \(( .8 + .15 v)\) Sin[u] + v > 1.5, 1.5, .1 + \(( .8 + .15 v)\) Sin[u] + v]\), "\n", \(z2[u_, v_] := 8.0 v - 18.2\), "\n", \(\(tunnelrightA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {35, 30}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := If[1.0 + \((1.15 + .15 v)\) Cos[u] + 1.5 v > 2.8, 2.8, 1.0 + \((1.2 + .15 v)\) Cos[u] + 1.5 v]\), "\n", \(y2[u_, v_] := If[ .1 + \(( .8 + .15 v)\) Sin[u] + v > 1.5, 1.5, .1 + \(( .8 + .15 v)\) Sin[u] + v]\), "\n", \(z2[u_, v_] := 8.0 v - 18.2\), "\n", \(\(tunnelleftA1 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {35, 30}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 7.5 v\), "\n", \(y2[u_, v_] := \( .3\/\(2 v + 1\)\) Cos[u] - .3\), "\n", \(z2[u_, v_] := If[\((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v < \(-23.4\), \(-23.4\), \((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v]\), "\n", \(\(tailrightA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, .285, 1}, PlotPoints \[Rule] {16, 8}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 7.5 v\), "\n", \(y2[u_, v_] := \( .3\/\(2 v + 1\)\) Cos[u] - .3\), "\n", \(z2[u_, v_] := If[\((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v < \(-23.4\), \(-23.4\), \((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v]\), "\n", \(\(tailleftA1 = ParametricPlot3D[{\(-\ x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, .285, 1}, PlotPoints \[Rule] {16, 8}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 5 v\), "\n", \(y2[u_, v_] := \(( .3\/\(2 v + 1\) + .1\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((3.0 - 1.8 v)\)\ Sin[u] - 15.5 - 1.8 v\), "\n", \(\(stabrightA1 = TranslateShape[ RotateShape[ ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {16, 8}, DisplayFunction \[Rule] Identity], \[Pi]/2 - .39, 0, 0], {1.7, 0, 0}];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 5 v\), "\n", \(y2[u_, v_] := \(( .3\/\(2 v + 1\) + .1\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((3.0 - 1.8 v)\)\ Sin[u] - 15.5 - 1.8 v\), "\n", \(\(stableftA1 = TranslateShape[ RotateShape[ ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {16, 8}, DisplayFunction \[Rule] Identity], \(-\[Pi]\)/2 + .39, 0, 0], {\(-1.7\), 0, 0}];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := \(-1\) + 2 v\), "\n", \(y2[u_, v_] := .85 Cos[u] - .125\), "\n", \(z2[u_, v_] := 1 Sin[u]\ - \ 20.3\), "\n", \(\(aftpanelA1 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, \[Pi], 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {16, 8}, PlotRange \[Rule] {{\(-20\), 20}, {\(-20\), 20}, {\(-20\), 20}}, DisplayFunction \[Rule] Identity];\)\)}], "Input"], Cell[BoxData[ \(<< Default3D`\)], "Input"], Cell[BoxData[ \(<< RealTime3D`\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", " ", RowBox[{\(Map[ RotateShape[#1, 0, \[Pi]/4, \[Pi]/4] &, {noseconeA1, cockpitA1, cockpitB1, fuselageA1, dorsalpanelA1, dorsalpanelB1, ventralpanelA1, inletrightA1, inletrightB1, inletrightC1, inletleftA1, inletleftB1, inletleftC1, wingrightA1, wingendrightA1, wingleftA1, wingendleftA1, exhaustrightA1\ , exhaustleftA1, exhaustrightB1, exhaustleftB1, tunnelrightA1\ , tunnelleftA1\ , tailrightA1, tailleftA1, stabrightA1, stableftA1, aftpanelA1, enginerightA1\ , engineleftA1\ }]\), ",", \(PlotRange \[Rule] {{\(-13\), 13}, {\(-8\), 4}, {\(-25\), 7}}\), ",", StyleBox[ RowBox[{"LightSources", " ", "->", " ", RowBox[{"{", RowBox[{\({{1, \ 0, \ .5}, \ RGBColor[1, \ 0, \ 0]}\), ",", "\n", " ", RowBox[{ StyleBox["{", "Input"], RowBox[{ StyleBox[\({0, \ \(-1\), \ .5}\), "Input"], StyleBox[",", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox["RGBColor", "Input"], StyleBox["[", "Input"], StyleBox[\(0, \ 1, \ 0\), "Input"], "]"}]}], StyleBox["}", "Input"]}], ",", "\n", " ", \({{\(-1\), \ \(-1\), \ .5}, \ RGBColor[0, \ 0, \ 1]}\)}], "}"}]}], "Input"], StyleBox[",", "Input"], \(DisplayFunction \[Rule] $DisplayFunction\)}], "]"}], ";"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Low Polygon Count Model", "Section"], Cell[BoxData[{ \(\(Off[General::"\", General::"\"];\)\[IndentingNewLine]\), \ "\[IndentingNewLine]", \(\(x2[u_, v_] := \ 1.1 Cos[u]*Cos[v];\)\), "\n", \(\(y2[u_, v_] := 1.1 Sin[u]*Cos[v] + .3 Sin[v];\)\), "\n", \(\(z2[u_, v_] := \ 6 Sin[v] - 1.5;\)\), "\n", \(\(noseconeA2\ = \ ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, \[Pi]}, {v, \(- .2\), \[Pi] + .2}, PlotPoints \[Rule] {8, 8}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := .75 Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := .8 Sin[u]*Sin[v] + .2 Cos[v] - .8;\)\), "\n", \(\(z2[u_, v_] := 4 Cos[v] - 3;\)\), "\n", \(\(cockpitA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, \(- .5\), \[Pi] + .5}, {v, \(-\[Pi]\ \)/2, 0}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := .75 Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := .8 Sin[u]*Sin[v] - .8;\)\), "\n", \(\(z2[u_, v_] := \ \(-4\) Cos[v] - 3;\)\), "\n", \(\(cockpitB2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, \(- .5\), \[Pi] + .5}, {v, \(-\[Pi]\ \)/2, 0}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := 1.21 Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := 1.21 Sin[u]*Sin[v] + .1 Cos[v] - .1;\)\), "\n", \(\(z2[u_, v_] := \ 13 Cos[v] - 8;\)\), "\n", \(\(fuselageA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/3, 2 \[Pi]/3 + 1}, PlotPoints \[Rule] {14, 14}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((4. - .5 v)\) Cos[u]*Sin[v];\)\), "\n", \(\(y2[u_, v_] := .55 Sin[u]*Sin[v] - .35 + .3 Cos[v]\^3;\)\), "\n", \(\(z2[u_, v_] := \ 10 Cos[v] - 12;\)\), "\n", \(\(dorsalpanelA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 2 \[Pi]/3 + .5}, PlotPoints \[Rule] {14, 14}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\ + \(\(1.5\)\(\ \)\(u\)\(\ \)\)\), "\n", \(y2[u_, v_] := 1.5\), "\n", \(z2[u_, v_] := \ \(-12\) + 4 v + 1.5 \((1 - u\ v)\)\), "\n", \(\(inletrightA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {2, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12.5\) + 5.5 v + 1.5 - u\ v\), "\n", \(\(inletrightB2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {2, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 2.8\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12\) + 5 v\ - \ u\ v\), "\n", \(\(inletrightC2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {2, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\ + \(\(1.5\)\(\ \)\(u\)\(\ \)\)\), "\n", \(y2[u_, v_] := 1.5\), "\n", \(z2[u_, v_] := \ \(-12\) + 4 v + 1.5 \((1 - u\ v)\)\), "\n", \(\(inletleftA2 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {2, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 1.3\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12.5\) + 5.5 v + 1.5 - u\ v\), "\n", \(\(inletleftB2 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {2, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 2.8\), "\n", \(y2[u_, v_] := 1.5\ u\), "\n", \(z2[u_, v_] := \ \(-12\) + 5 v\ - \ u\ v\), "\n", \(\(inletleftC2 = ParametricPlot3D[{\(-\ x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 1}, {v, 0, 1}, PlotPoints \[Rule] {2, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 12 v\), "\n", \(y2[u_, v_] := \(( .4\/\(2 v + 1\) + .2\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((4.6 - 3 v)\) Sin[u] - 9.5 - 2.5 v\), "\n", \(\(wingrightA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {12, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(x2[u_, v_] := 12 + .25 Cos[u]\), "\n", \(y2[u_, v_] := \(- .3\) + .2\ Sin[u]\), "\n", \(z2[u_, v_] := 3.8 v - 13.5\), "\n", \(\(wingendrightA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {4, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 12 v\), "\n", \(y2[u_, v_] := \(( .4\/\(2 v + 1\) + .2\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((4.6 - 3 v)\) Sin[u] - 9.5 - 2.5 v\), "\n", \(\(wingleftA2 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {12, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 12 + .25 Cos[u]\), "\n", \(y2[u_, v_] := \(- .3\) + .2\ Sin[u]\), "\n", \(z2[u_, v_] := 3.8 v - 13.5\), "\n", \(\(wingendleftA2 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {4, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((1.1 + .2 Sin[v])\) Cos[u]*Cos[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := \((1.1 + .2 Sin[v])\) Sin[u]*Cos[v];\)\), "\n", \(\(z2[u_, v_] := \ 5.5 Sin[v] - 19;\)\), "\n", \(\(exhaustrightA2\ = \ ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, \[Pi]}, {v, \(- .5\), \[Pi] + .5}, PlotPoints \[Rule] {6, 12}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := \((1.1 + .2 Sin[v])\) Cos[u]*Cos[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := \((1.1 + .2 Sin[v])\) Sin[u]*Cos[v];\)\), "\n", \(\(z2[u_, v_] := \ 5.5 Sin[v] - 19;\)\), "\n", \(\(exhaustleftA2\ = \ ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, \[Pi]}, {v, \(- .5\), \[Pi] + .5}, PlotPoints \[Rule] {6, 12}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := 1.15\ Cos[u]*Sin[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := 1.15 Sin[u]*Sin[v];\)\), "\n", \(\(z2[u_, v_] := 5 Cos[v] - 18.4;\)\), "\n", \(\(exhaustrightB2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/2 + .66, \[Pi]/2\ + .85}, PlotPoints \[Rule] {12, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(\(x2[u_, v_] := 1.15\ Cos[u]*Sin[v] + 1.1;\)\), "\n", \(\(y2[u_, v_] := 1.15 Sin[u]*Sin[v];\)\), "\n", \(\(z2[u_, v_] := 5 Cos[v] - 18.4;\)\), "\n", \(\(exhaustleftB2 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, \[Pi]/2 + .66, \[Pi]/2\ + .85}, PlotPoints \[Rule] {12, 2}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := If[1.0 + \((1.2 + .15 v)\) Cos[u] + 1.5 v > 2.8, 2.8, 1.0 + \((1.2 + .15 v)\) Cos[u] + 1.5 v]\), "\n", \(y2[u_, v_] := If[ .1 + \(( .8 + .15 v)\) Sin[u] + v > 1.5, 1.5, .1 + \(( .8 + .15 v)\) Sin[u] + v]\), "\n", \(z2[u_, v_] := 8.0 v - 18.2\), "\n", \(\(tunnelrightA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {10, 10}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := If[1.0 + \((1.15 + .15 v)\) Cos[u] + 1.5 v > 2.8, 2.8, 1.0 + \((1.2 + .15 v)\) Cos[u] + 1.5 v]\), "\n", \(y2[u_, v_] := If[ .1 + \(( .8 + .15 v)\) Sin[u] + v > 1.5, 1.5, .1 + \(( .8 + .15 v)\) Sin[u] + v]\), "\n", \(z2[u_, v_] := 8.0 v - 18.2\), "\n", \(\(tunnelleftA2 = ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {10, 10}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 7.5 v\), "\n", \(y2[u_, v_] := \( .3\/\(2 v + 1\)\) Cos[u] - .3\), "\n", \(z2[u_, v_] := If[\((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v < \(-23.4\), \(-23.4\), \((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v]\), "\n", \(\(tailrightA2 = ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, .285, 1}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 7.5 v\), "\n", \(y2[u_, v_] := \( .3\/\(2 v + 1\)\) Cos[u] - .3\), "\n", \(z2[u_, v_] := If[\((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v < \(-23.4\), \(-23.4\), \((3.5 - 2.3 v)\)\ Sin[u] - 17.5 - 5.2 v]\), "\n", \(\(tailleftA2 = ParametricPlot3D[{\(-\ x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, .285, 1}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 5 v\), "\n", \(y2[u_, v_] := \(( .3\/\(2 v + 1\) + .1\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((3.0 - 1.8 v)\)\ Sin[u] - 15.5 - 1.8 v\), "\n", \(\(stabrightA2 = TranslateShape[ RotateShape[ ParametricPlot3D[{\ x2[u, v], y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity], \[Pi]/2 - .39, 0, 0], {1.7, 0, 0}];\)\[IndentingNewLine]\), "\n", \(x2[u_, v_] := 5 v\), "\n", \(y2[u_, v_] := \(( .3\/\(2 v + 1\) + .1\ Sin[u])\) Cos[u] - .3\), "\n", \(z2[u_, v_] := \((3.0 - 1.8 v)\)\ Sin[u] - 15.5 - 1.8 v\), "\n", \(\(stableftA2 = TranslateShape[ RotateShape[ ParametricPlot3D[{\ \(-x2[u, v]\), y2[u, v], z2[u, v], {EdgeForm[]}}, {u, 0, 2 \[Pi]}, {v, 0, 1}, PlotPoints \[Rule] {10, 4}, DisplayFunction \[Rule] Identity], \(-\[Pi]\)/2 + .39, 0, 0], {\(-1.7\), 0, 0}];\)\)}], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{\(Map[ RotateShape[#1, 0, \[Pi]/2, \[Pi]/2] &, {noseconeA2, cockpitA2, cockpitB2, fuselageA2, dorsalpanelA2, inletrightA2, inletrightB2, inletrightC2, inletleftA2, inletleftB2, inletleftC2, wingrightA2, wingendrightA2, wingleftA2, wingendleftA2, exhaustrightA2\ , exhaustleftA2, exhaustrightB2, exhaustleftB2, tunnelrightA2\ , tunnelleftA2\ , tailrightA2, tailleftA2, stabrightA2, stableftA2}]\), ",", \(PlotRange \[Rule] {{\(-13\), 13}, {\(-8\), 4}, {\(-25\), 7}}\), ",", StyleBox[ RowBox[{"LightSources", " ", "->", " ", RowBox[{"{", RowBox[{\({{1, \ 0, \ .5}, \ RGBColor[1, \ 0, \ 0]}\), ",", "\n", " ", RowBox[{ StyleBox["{", "Input"], RowBox[{ StyleBox[\({0, \ \(-1\), \ .5}\), "Input"], StyleBox[",", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox["RGBColor", "Input"], StyleBox["[", "Input"], StyleBox[\(0, \ 1, \ 0\), "Input"], "]"}]}], StyleBox["}", "Input"]}], ",", "\n", " ", \({{\(-1\), \ \(-1\), \ .5}, \ RGBColor[0, \ 0, \ 1]}\)}], "}"}]}], "Input"], ",", \(DisplayFunction \[Rule] $DisplayFunction\)}], "]"}], ";"}]], "Input"], Cell[BoxData[ \(\(planelevel = Map[AffineShape[ RotateShape[TranslateShape[#1, {0, 0, 10}], 0, \[Pi]/2, \[Pi]/2], { .6, .6, .6}] &, {noseconeA2, cockpitA2, cockpitB2, fuselageA2, dorsalpanelA2, inletrightA2, inletrightB2, inletrightC2, inletleftA2, inletleftB2, inletleftC2, wingrightA2, wingendrightA2, wingleftA2, wingendleftA2, exhaustrightA2\ , exhaustleftA2, exhaustrightB2, exhaustleftB2, tunnelrightA2\ , tunnelleftA2\ , tailrightA2, tailleftA2, stabrightA2, stableftA2}];\)\)], "Input"], Cell[BoxData[ \(\(Show[planelevel, DisplayFunction \[Rule] $DisplayFunction];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Advanced Rotation Functions", "Section"], Cell[BoxData[{ RowBox[{ RowBox[{"Rx", ":=", RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", \(Cos[#]\), \(-Sin[#]\)}, {"0", \(Sin[#]\), \(Cos[#]\)} }], ")"}], "&"}]}], ";"}], "\n", RowBox[{ RowBox[{"Ry", ":=", RowBox[{ RowBox[{"(", GridBox[{ {\(Cos[#]\), "0", \(Sin[#]\)}, {"0", "1", "0"}, {\(-Sin[#]\), "0", \(Cos[#]\)} }], ")"}], "&"}]}], ";"}], "\n", RowBox[{ RowBox[{"Rz", ":=", RowBox[{ RowBox[{"(", GridBox[{ {\(Cos[#]\), \(-Sin[#]\), "0"}, {\(Sin[#]\), \(Cos[#]\), "0"}, {"0", "0", "1"} }], ")"}], "&"}]}], ";"}]}], "Input"], Cell[BoxData[ \(\(VehicleRotationMatrix[\[Alpha]_, \[Beta]_, \[Gamma]_] := Rz[\[Alpha]] . Ry[\(-\[Beta]\)] . Rx[\(-\[Gamma]\)];\)\)], "Input"], Cell[BoxData[ \(VehicleRotate[shape_, phi_, theta_, psi_] := Block[{rotmat = VehicleRotationMatrix[N[phi], N[theta], N[psi]]}, shape /. \[InvisibleSpace]{Graphics`Shapes`Private`poly : Polygon[_] \[RuleDelayed] Map[rotmat . #1 &, Graphics`Shapes`Private`poly, {2}], Graphics`Shapes`Private`line : Line[_] \[RuleDelayed] Map[rotmat . #1 &, Graphics`Shapes`Private`line, {2}], Graphics`Shapes`Private`point : Point[_] \[RuleDelayed] Map[rotmat . #1 &, Graphics`Shapes`Private`point, {1}]}]\)], "Input"], Cell[BoxData[ \(VehicleTransRotate[shape_, x_, y_, z_, phi_, theta_, psi_] := TranslateShape[ VehicleRotate[shape, phi, theta, psi], {x, y, z}]\)], "Input"], Cell[BoxData[ \(\(Show[ VehicleTransRotate[planelevel, 0, 0, 0, \(- .2\), .5, \(- .2\)], DisplayFunction \[Rule] $DisplayFunction];\)\)], "Input"], Cell[BoxData[ \(<< RealTime3D`\)], "Input"], Cell[BoxData[ \(<< Default3D`\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["The Open Source MIT License", "Section"], Cell[TextData[{ StyleBox["Copyright \[Copyright] 2001 David Altherr\n", FontFamily->"Arial", FontWeight->"Bold", FontSlant->"Italic"], StyleBox["\nPermission is hereby granted, free of charge, to any person \ obtaining a copy of this software and associated documentation files (the \ \"Software\"), to deal in the Software without restriction, including without \ limitation the rights to use, copy, modify, merge, publish, distribute, \ sublicense, and/or sell copies of the Software, and to permit persons to whom \ the Software is furnished to do so, subject to the following conditions:\nThe \ above copyright notice and this permission notice shall be included in all \ copies or substantial portions of the Software.\n\nTHE SOFTWARE IS PROVIDED \ \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT \ NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR \ PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT \ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN \ ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION \ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.", FontFamily->"Arial", FontWeight->"Bold"], StyleBox["\n", FontFamily->"Arial"] }], "Text"] }, Closed]] }, Open ]] }, FrontEndVersion->"4.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 723}}, WindowSize->{816, 510}, WindowMargins->{{60, Automatic}, {Automatic, 62}}, Magnification->1.25 ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "S5.41.1"->{ Cell[3303, 104, 58, 1, 34, "Input", CellTags->"S5.41.1"]} } *) (*CellTagsIndex CellTagsIndex->{ {"S5.41.1", 38101, 833} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 958, 34, 245, "Title"], Cell[2700, 87, 414, 7, 100, "Text"], Cell[3117, 96, 183, 6, 58, "Text"], Cell[3303, 104, 58, 1, 34, "Input", CellTags->"S5.41.1"], Cell[CellGroupData[{ Cell[3386, 109, 43, 0, 66, "Section"], Cell[3432, 111, 13969, 265, 5278, "Input"], Cell[17404, 378, 46, 1, 35, "Input"], Cell[17453, 381, 47, 1, 35, "Input"], Cell[17503, 384, 2010, 44, 287, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[19550, 433, 42, 0, 40, "Section"], Cell[19595, 435, 11700, 225, 3744, "Input"], Cell[31298, 662, 1874, 41, 245, "Input"], Cell[33175, 705, 618, 10, 182, "Input"], Cell[33796, 717, 105, 2, 35, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[33938, 724, 46, 0, 66, "Section"], Cell[33987, 726, 819, 24, 187, "Input"], Cell[34809, 752, 155, 2, 35, "Input"], Cell[34967, 756, 625, 10, 182, "Input"], Cell[35595, 768, 175, 3, 56, "Input"], Cell[35773, 773, 168, 3, 56, "Input"], Cell[35944, 778, 47, 1, 35, "Input"], Cell[35994, 781, 46, 1, 35, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[36077, 787, 46, 0, 66, "Section"], Cell[36126, 789, 1323, 23, 323, "Text"] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)