(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. 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[ 63934, 1336]*) (*NotebookOutlinePosition[ 65011, 1375]*) (* CellTagsIndexPosition[ 64938, 1369]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Example 1 - Data fitting", "Title", TextAlignment->Center, TextJustification->0], Cell["\<\ This program displays a set of points together with a polynomial best-fit \ curve. You can add and delete points using the mouse context menu, and the \ menus enable you to save/restore a session, and also select the order of the \ fit. The program could be useful as is, to illustrate the pitfalls of fitting \ data to a high-order polynomial, however it is mainly designed as a template \ for any number of programs in which the user can interactively modify a \ graph. Note that as written, the program starts with two points already \ present so that it does not start life as an empty graph! You can change this \ by just altering the initial setting for 'myData'. An earlier version of this program was available which did not use the \ Graphics\[Breve]Region construct, and therefore could not delete points in \ such a neat way. This example has been update to use the new facilities at \ 2.40, although the earlier example program will still work with version 2.40 \ of the SWP. Execute each cell in turn\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}]], "Input", CellLabel->"In[1]:="], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Suppress", " ", "a", " ", "few", " ", "spelling", " ", "warnings"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "ToExpression", "[", "\"\<{x\[Breve]min,x\[Breve]max,y\[Breve]min,y\[Breve]max,pp1,file}\ \>\"", "]"}], ";"}]}]], "Input", CellLabel->"In[2]:=", CellTags->"IGP_14"], Cell[BoxData[ RowBox[{" ", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "***********)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"(*", " ", "*)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"(*", " ", RowBox[{"Various", " ", "global", " ", "variables"}], " ", "*)"}], "\n", RowBox[{"(*", " ", "*)"}], "\n", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*******)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Two", " ", "arbitrary", " ", "points", " ", "just", " ", "to", " ", "avoid", " ", "an", " ", "initial", " ", "empty", " ", RowBox[{"screen", "!"}], " ", "Each", " ", "data", " ", "point", " ", "is", " ", "associated", " ", "with", " ", "a", " ", "unique", " ", "variable", " ", "which", " ", "is", " ", "used", " ", "as", " ", "a", " ", "handle", " ", "to", " ", "manipulate", " ", "it"}], " ", "*)"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ StyleBox["myData", FontColor->GrayLevel[0]], StyleBox["=", ShowContents->True], StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Unique", "[", "\"\\"", "]"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Unique", "[", "\"\\"", "]"}], ",", "4", ",", "4"}], "}"}]}], "}"}], FontColor->GrayLevel[0]]}], StyleBox[";", FontColor->GrayLevel[0]]}], StyleBox["\n", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ StyleBox["x", FontColor->GrayLevel[0]], "\[Breve]min"}]], "=", RowBox[{"-", "10"}]}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{ StyleBox["x", FontColor->GrayLevel[0]], "\[Breve]max"}]], "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y\[Breve]min", "=", RowBox[{"-", "20"}]}], ";"}], "\n", RowBox[{ RowBox[{"y\[Breve]max", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"poly\[Breve]order", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"location", "=", "\"\<\>\""}], ";"}], "\n", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "**********)"}], "\[IndentingNewLine]", RowBox[{ "(*", " \ ", "*)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"(*", " ", RowBox[{ RowBox[{ "Various", " ", "menu", " ", "functions", " ", "\[Dash]", " ", "most", " ", "adjust", " ", "a", " ", "variable", " ", "and", " ", "re"}], "-", RowBox[{"draw", " ", "the", " ", "plot"}]}], " ", "*)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"linear\[Breve]func", "[", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"poly\[Breve]order", "=", "1"}], ";", RowBox[{"myPlot", "[", "]"}]}], ")"}]}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ RowBox[{"quadratic\[Breve]func", "[", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"poly\[Breve]order", "=", "2"}], ";", RowBox[{"myPlot", "[", "]"}]}], ")"}]}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ RowBox[{ StyleBox[ RowBox[{ StyleBox["cubic", FontColor->GrayLevel[0]], "\[Breve]func"}]], "[", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"poly\[Breve]order", "=", "3"}], ";", RowBox[{"myPlot", "[", "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"quartic\[Breve]func", "[", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"poly\[Breve]order", "=", "4"}], ";", RowBox[{"myPlot", "[", "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"exit\[Breve]func", "[", "]"}], ":=", RowBox[{"Close\[Breve]Frame", "[", "fr1", "]"}]}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ RowBox[{"save\[Breve]func", "[", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"file", ",", "str"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"file", "=", RowBox[{ "File\[Breve]Save\[Breve]Dialog", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "file", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"file", "=!=", "Null"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"str", "=", RowBox[{"OpenWrite", "[", "file", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Write", "[", RowBox[{"str", ",", RowBox[{"{", RowBox[{ "x\[Breve]min", ",", "x\[Breve]max", ",", "y\[Breve]min", ",", "x\[Breve]max", ",", "poly\[Breve]order", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}], ",", "myData"}], "]"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Close", "[", "str", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ RowBox[{"open\[Breve]func", "[", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "file", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"file", "=", RowBox[{ "File\[Breve]Open\[Breve]Dialog", "[", "]"}]}], ";", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"If", "[", RowBox[{ RowBox[{"file", "=!=", "Null"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ "x\[Breve]min", ",", "x\[Breve]max", ",", "y\[Breve]min", ",", "x\[Breve]max", ",", "poly\[Breve]order", ",", "myData"}], "}"}], "=", RowBox[{"Get", "[", "file", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"myData", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Prepend", "[", RowBox[{"#", ",", RowBox[{ "Unique", "[", "\"\\"", "]"}]}], "]"}], "&"}], ",", "myData"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"myPlot", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox["aboutText", FontColor->GrayLevel[0]], StyleBox["=", FontColor->GrayLevel[0]], RowBox[{ "\"\<\>\"", "<>", "\[IndentingNewLine]", "\"\<

Simple interactive graph

\ \>\"", "<>", "\[IndentingNewLine]", "\"\<

An example program desigend to illustrate the Super \ Widget Package. You can add or delete points using the mouse, and the graph \ will update to show the best fit. Use the menu to select the order of \ polynomial to use for the fit.

\>\"", "<>", "\[IndentingNewLine]", "\"\<

Although this program is extremely simple, it can \ be used to demonstrate the pitfalls of fitting a high order polynomial to \ data.

\>\"", "<>", "\[IndentingNewLine]", "\"\<

http://www.\ dbaileyconsultancy.co.uk

\>\""}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aboutBox", "[", "]"}], ":=", RowBox[{"SuperGUIRunModal", "[", "\[IndentingNewLine]", RowBox[{"SuperWidgetFrame", "[", RowBox[{"fr2", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"SuperWidgetHTMLPanel", "[", RowBox[{ StyleBox["aboutText", FontColor->GrayLevel[0]], ",", RowBox[{"Background", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Title", "->", "\"\\""}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{"showResults", "[", "]"}], FontColor->GrayLevel[0]], StyleBox[":=", FontColor->GrayLevel[0]], RowBox[{ StyleBox["Module", FontColor->GrayLevel[0]], StyleBox["[", FontColor->GrayLevel[0]], RowBox[{ StyleBox[ RowBox[{"{", "}"}], FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox["SuperWidgetFrame", FontColor->GrayLevel[0]], StyleBox["[", FontColor->GrayLevel[0]], RowBox[{ StyleBox["Null", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["{", FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ SubscriptBox[ StyleBox["\[Paragraph]", FontColor->GrayLevel[0]], "10"], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SubscriptBox["\[Paragraph]", "10"], ",", RowBox[{"Image\[Breve]Expression", "[", RowBox[{ StyleBox["Fit", ShowContents->True], StyleBox["[", ShowContents->True], RowBox[{ StyleBox[ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}], ",", "myData"}], "]"}], ShowContents->True], StyleBox[",", ShowContents->True], RowBox[{ StyleBox["Table", ShowContents->True], StyleBox["[", ShowContents->True], RowBox[{ StyleBox[ RowBox[{"x", "^", "i"}], ShowContents->True], StyleBox[",", ShowContents->True], RowBox[{ StyleBox["{", ShowContents->True], RowBox[{ StyleBox["i", ShowContents->True], StyleBox[",", ShowContents->True], StyleBox["0", ShowContents->True], StyleBox[",", ShowContents->True], "poly\[Breve]order"}], "}"}]}], "]"}], ",", "x"}], "]"}], "]"}], ",", SubscriptBox["\[Paragraph]", "10"]}], "}"}], ",", "\[IndentingNewLine]", SubscriptBox["\[Paragraph]", "10"], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SubscriptBox["\[Paragraph]", "0"], ",", RowBox[{"SuperWidgetButton", "[", RowBox[{ "Null", ",", "\"\\"", ",", "1"}], "]"}], ",", SubscriptBox["\[Paragraph]", "0"]}], "}"}], ",", "\[IndentingNewLine]", SubscriptBox["\[Paragraph]", "10"]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{ "Title", "->", "\"\\""}]}], "]"}], "//", "SuperGUIRunModal"}]}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox["]", FontColor->GrayLevel[0]]}]}], StyleBox[";", FontColor->GrayLevel[0]]}], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{ RowBox[{"makePoint", "[", RowBox[{"{", RowBox[{"gr_", ",", "x_", ",", "y_"}], "}"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"r", "=", "0.3"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Point", "[", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", RowBox[{"Graphics\[Breve]Region", "[", RowBox[{"gr", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "k", "]"}]}]}], ",", RowBox[{"y", "+", RowBox[{"r", " ", RowBox[{"Sin", "[", "k", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "8"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ "Mouse\[Breve]Cursor", "->", "\"\\""}], ",", RowBox[{"Menu", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "deletePoint"}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "editPoint"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], FontColor->GrayLevel[0]]}], StyleBox[";", FontColor->GrayLevel[0]]}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox["SetAttributes", FontColor->GrayLevel[0]], StyleBox["[", FontColor->GrayLevel[0]], RowBox[{"motionFunc", ",", "HoldFirst"}], "]"}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{ RowBox[{ RowBox[{"motionFunc", "[", RowBox[{"v_", ",", "x_", ",", "y_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Active\[Breve]WidgetQ", "[", "v", "]"}], ",", "\[IndentingNewLine]", RowBox[{"location", "=", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "x", "]"}], "<>", "\"\<, Y: \>\"", "<>", RowBox[{"ToString", "[", "y", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"location", "=", "\"\<\>\""}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"UpdateWidgetValue", "[", "location", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ "(*", "**********************************************************************************************)"}\ ], FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{ "(*", " \ ", "*)"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", " ", RowBox[{ "This", " ", "function", " ", "is", " ", "called", " ", "whenever", " ", "a", " ", "new", " ", "plot", " ", "is", " ", RowBox[{"required", "."}]}], " ", "*)"}], FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "It", " ", "combines", " ", "a", " ", "ListPlot", " ", "of", " ", "the", " ", "data", " ", "points", " ", "with", " ", "a", " ", "Plot", " ", "of", " ", "the", " ", "best"}], "-", RowBox[{"fit", " ", "function"}]}], " ", "*)"}], FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"(*", " ", RowBox[{ "using", " ", "the", " ", "current", " ", "values", " ", "of", " ", "the", " ", "various", " ", "global", " ", RowBox[{"variables", "."}]}], " ", "*)"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"It", " ", "uses", " ", "DisplayFunction"}], "\[Rule]", RowBox[{ "Identity", " ", "to", " ", "prevent", " ", "a", " ", "plot", " ", "being", " ", "generated", " ", "in", " ", "the"}]}], " ", "*)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ StyleBox["(*", FontColor->GrayLevel[0]], StyleBox[" ", FontColor->GrayLevel[0]], RowBox[{ "notebook", " ", "itself", " ", "\[Dash]", " ", "simply", " ", "returning", " ", "its", " ", "result", " ", "as", " ", "a", " ", "Graphics", " ", RowBox[{"object", "."}]}], " ", "*)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"(*", " ", RowBox[{ "*", "Note", "*", " ", "The", " ", "plots", " ", "use", " ", "a", " ", "fixed", " ", "PlotRage", " ", "\[Dash]", " ", "this", " ", "is", " ", "important", " ", "because", " ", "successive"}], " ", "*)"}], "\n", StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "plots", " ", "will", " ", "be", " ", "written", " ", "over", " ", "the", " ", "same", " ", "canvas", " ", "and", " ", "we", " ", RowBox[{"don", "'"}], "t", " ", "want", " ", "to", " ", "re"}], "-", "calibrate"}], " ", "*)"}], FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"(*", " ", RowBox[{"every", " ", RowBox[{"time", "."}]}], " \ ", "*)"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ "(*", " \ ", "*)"}], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox[ RowBox[{ "(*", "**********************************************************************************************)"}\ ], FontColor->GrayLevel[0]], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox[ RowBox[{"myPlot", "[", "]"}], FontColor->GrayLevel[0]], StyleBox[":=", ShowContents->True], RowBox[{ StyleBox["Module", ShowContents->True], StyleBox["[", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox["{", FontColor->GrayLevel[0]], RowBox[{ StyleBox["m", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["c", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], RowBox[{ StyleBox["fitting", FontColor->GrayLevel[0]], StyleBox["=", ShowContents->True, FontColor->GrayLevel[0]], StyleBox["False", FontColor->GrayLevel[0]]}], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["tmp", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["p1", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["p2", FontColor->GrayLevel[0]], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["x", FontColor->GrayLevel[0]]}], StyleBox["}", FontColor->GrayLevel[0]]}], StyleBox[",", FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ StyleBox["fitting", FontColor->GrayLevel[0]], StyleBox["=", ShowContents->True, FontColor->GrayLevel[0]], StyleBox["True", FontColor->GrayLevel[0]]}], StyleBox[";", FontColor->GrayLevel[0]], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ StyleBox["tmp", FontColor->GrayLevel[0]], StyleBox["=", ShowContents->True], RowBox[{ StyleBox["Fit", ShowContents->True], StyleBox["[", ShowContents->True], RowBox[{ StyleBox[ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{"#", ",", "1"}], "]"}], "&"}], ",", "myData"}], "]"}], ShowContents->True], StyleBox[",", ShowContents->True], RowBox[{ StyleBox["Table", ShowContents->True], StyleBox["[", ShowContents->True], RowBox[{ StyleBox[ RowBox[{"x", "^", "i"}], ShowContents->True], StyleBox[",", ShowContents->True], RowBox[{ StyleBox["{", ShowContents->True], RowBox[{ StyleBox["i", ShowContents->True], StyleBox[",", ShowContents->True], StyleBox["0", ShowContents->True], StyleBox[",", ShowContents->True], "poly\[Breve]order"}], "}"}]}], "]"}], ",", "x"}], "]"}]}], ";", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"pp1", "=", RowBox[{"Plot", "[", RowBox[{"tmp", ",", RowBox[{"{", RowBox[{ "x", ",", "x\[Breve]min", ",", "x\[Breve]max"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x\[Breve]min", ",", "x\[Breve]max"}], "}"}], ",", RowBox[{"{", RowBox[{"y\[Breve]min", ",", "y\[Breve]max"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], "}"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Graphics\[Breve]Region", "[", RowBox[{"gr0", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "x\[Breve]min", ",", "y\[Breve]min"}], "}"}], ",", RowBox[{"{", RowBox[{ "x\[Breve]max", ",", "y\[Breve]min"}], "}"}], ",", RowBox[{"{", RowBox[{ "x\[Breve]max", ",", "y\[Breve]max"}], "}"}], ",", RowBox[{"{", RowBox[{ "x\[Breve]min", ",", "y\[Breve]max"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ "Action\[Breve]Function", "\[Rule]", "addPoint"}], ",", RowBox[{ "Mouse\[Breve]Cursor", "->", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.01", "]"}], ",", RowBox[{"Map", "[", RowBox[{"makePoint", ",", "myData"}], "]"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"600", ",", "600"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"UpdateWidgetValue", "[", "pp1", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*", RowBox[{"**", "**", "**", "**", "**", "**", "**", "**"}]}], "*************)"}], "\n", RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Function", " ", "to", " ", "respond", " ", "to", " ", "a", " ", "mouse", " ", RowBox[{"click", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "If", " ", "you", " ", "would", " ", "like", " ", "to", " ", "see", " ", "some", " ", "print"}], "-", RowBox[{ "out", " ", "in", " ", "the", " ", "notebook", " ", "when"}]}], " ", "*)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{"(*", " ", RowBox[{ RowBox[{"this", " ", "happens"}], ",", " ", RowBox[{ RowBox[{"just", " ", "un"}], "-", RowBox[{"comment", " ", "the", " ", "Print", " ", RowBox[{"statements", "."}]}]}]}], " ", "*)"}], "\n", RowBox[{"(*", " ", RowBox[{"Note", " ", "how", " ", "right", " ", RowBox[{"and", "/", "or"}], " ", "shifted", " ", "clicks", " ", "are", " ", "rejected"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "******************)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"addPoint", "[", RowBox[{"gr_", ",", "x_", ",", "y_"}], "]"}], StyleBox[":=", ShowContents->True], RowBox[{ StyleBox["Module", ShowContents->True], "[", RowBox[{ RowBox[{"{", "pt", "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ "Mouse\[Breve]Button\[Breve]Info", "[", "gr", "]"}], "===", RowBox[{"{", "Left\[Breve]Button", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"myData", StyleBox["=", ShowContents->True], RowBox[{"Append", "[", RowBox[{"myData", ",", RowBox[{"{", RowBox[{ RowBox[{"Unique", "[", "\"\\"", "]"}], ",", "x", ",", "y"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"myPlot", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*", RowBox[{"**", "**", "**", "**", "**", "**", "**", "**"}]}], "*************)"}], "\[IndentingNewLine]", RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Function", " ", "to", " ", "respond", " ", "to", " ", "the", " ", "\"\\"", " ", "context", " ", "menu"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "If", " ", "you", " ", "would", " ", "like", " ", "to", " ", "see", " ", "some", " ", "print"}], "-", RowBox[{ "out", " ", "in", " ", "the", " ", "notebook", " ", "when"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"this", " ", "happens"}], ",", " ", RowBox[{ RowBox[{"just", " ", "un"}], "-", RowBox[{"comment", " ", "the", " ", "Print", " ", RowBox[{"statements", "."}]}]}]}], " ", "*)"}], "\n", RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "**********************)"}], StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"deletePoint", "[", "x_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "pt", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pt", "=", RowBox[{"Cases", "[", RowBox[{"myData", ",", RowBox[{"{", RowBox[{"x", ",", "___"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"pt", "=!=", RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"pt", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"pt", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], "}"}]}], "]"}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"myData", "=", RowBox[{"DeleteCases", "[", RowBox[{"myData", ",", RowBox[{"{", RowBox[{"x", ",", "___"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"myPlot", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*", RowBox[{"**", "**", "**", "**", "**", "**", "**", "**"}]}], "*************)"}], "\[IndentingNewLine]", RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Function", " ", "to", " ", "respond", " ", "to", " ", "the", " ", "\"\\"", " ", "context", " ", "menu"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "(*", " \ ", "*)"}], "\n", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "**************************)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ RowBox[{"editPoint", "[", "v_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"s", ",", "x", ",", "y", ",", "ans"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "=", RowBox[{"Cases", "[", RowBox[{"myData", ",", RowBox[{"{", RowBox[{"v", ",", "___"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"s", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ans", "=", RowBox[{ RowBox[{"SuperWidgetFrame", "[", RowBox[{"Null", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Paragraph]", "10"], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SubscriptBox["\[Paragraph]", "10"], ",", "\"\\"", ",", RowBox[{ "SuperWidgetRealBox", "[", "x", "]"}], ",", SubscriptBox["\[Paragraph]", "10"]}], "}"}], ",", "\[IndentingNewLine]", SubscriptBox["\[Paragraph]", "10"], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SubscriptBox["\[Paragraph]", "10"], ",", "\"\\"", ",", RowBox[{ "SuperWidgetRealBox", "[", "y", "]"}], ",", SubscriptBox["\[Paragraph]", "10"]}], "}"}], ",", "\[IndentingNewLine]", SubscriptBox["\[Paragraph]", "10"], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ SubscriptBox["\[Paragraph]", "0"], ",", RowBox[{"SuperWidgetButton", "[", RowBox[{ "Null", ",", "\"\\"", ",", "1"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"SuperWidgetButton", "[", RowBox[{ "Null", ",", "\"\\"", ",", "2"}], "]"}], ",", SubscriptBox["\[Paragraph]", "0"]}], "}"}], ",", "\[IndentingNewLine]", SubscriptBox["\[Paragraph]", "10"]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Title", "->", "\"\\""}]}], "\[IndentingNewLine]", "]"}], "//", "SuperGUIRunModal"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"ans", "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"myData", "=", RowBox[{"myData", "/.", RowBox[{ RowBox[{"{", RowBox[{"v", ",", "___"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"v", ",", "x", ",", "y"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"myPlot", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*********)"}], "\[IndentingNewLine]", RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "This", " ", "defines", " ", "the", " ", "menu", " ", "as", " ", "a", " ", "series", " ", "of", " ", "images", " ", "of", " ", "expressions"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "and", " ", "the", " ", "corresponding", " ", "functions", " ", "to", " ", RowBox[{"call", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "(*", " \ ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"myMenu", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "open\[Breve]func"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "save\[Breve]func"}], "}"}], ",", "\[IndentingNewLine]", "Menu\[Breve]Separator", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "exit\[Breve]func"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Image\[Breve]Expression", "[", RowBox[{"f", "[", "x", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Image\[Breve]Expression", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", RowBox[{ RowBox[{"a", " ", "x"}], "+", "b"}]}], "]"}], "]"}], ",", "linear\[Breve]func"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Image\[Breve]Expression", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}]}], "]"}], "]"}], ",", "quadratic\[Breve]func"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Image\[Breve]Expression", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"c", " ", "x"}], "+", "d"}]}], "]"}], "]"}], ",", "cubic\[Breve]func"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Image\[Breve]Expression", "[", RowBox[{"HoldForm", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "4"]}], "+", RowBox[{"b", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"c", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"d", " ", "x"}], "+", "e"}]}], "]"}], "]"}], ",", "quartic\[Breve]func"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "showResults"}], "}"}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\\"", ",", "aboutBox"}], "}"}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ShowGraph", "[", "opt_", "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"myPlot", "[", "]"}], ";", "\[IndentingNewLine]", RowBox[{"SuperGUIRunModal", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"SuperWidgetFrame", "[", RowBox[{"fr1", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"SuperWidgetGraphicsPanel", "[", RowBox[{"pp1", ",", RowBox[{ "MouseMotionFunction", "\[Rule]", "motionFunc"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SuperWidgetStringBox", "[", RowBox[{"location", ",", RowBox[{ "Font\[Breve]Colour", "\[Rule]", "Blue"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{ "Title", "->", "\"\\""}], ",", RowBox[{"Menu", "\[Rule]", "myMenu"}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ConcealNotebooks", "\[Rule]", "opt"}]}], " ", "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ")"}]}], ";"}]}]}]], "Input", CellLabel->"In[3]:=", CellTags->"IGP_14"], Cell["\<\ This displays the graph. If you set the argument to True, the notebook will \ be concealed while the graph is on display \[Dash] thus avoiding any \ confusion if the Java window is obscured by the notebook.\ \>", "Text"], Cell[BoxData[ RowBox[{"ShowGraph", "[", "False", "]"}]], "Input", CellLabel->"In[29]:=", CellTags->"IGP_14"] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 1280}, {0, 967}}, AutoGeneratedPackage->Automatic, WindowToolbars->"EditBar", WindowSize->{1171, 929}, WindowMargins->{{-3, Automatic}, {Automatic, 2}}, Visible->True, ShowSelection->True, ShowCellLabel->False, Magnification->1, StyleDefinitions -> "HelpBrowser.nb" ] (******************************************************************* 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->{ "IGP_14"->{ Cell[3053, 82, 414, 12, 49, "Input", CellTags->"IGP_14"], Cell[3470, 96, 60096, 1226, 4417, "Input", CellTags->"IGP_14"], Cell[63802, 1330, 116, 3, 29, "Input", CellTags->"IGP_14"]} } *) (*CellTagsIndex CellTagsIndex->{ {"IGP_14", 64700, 1358} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 90, 2, 105, "Title"], Cell[1869, 57, 1038, 17, 151, "Text"], Cell[2910, 76, 140, 4, 29, "Input"], Cell[3053, 82, 414, 12, 49, "Input", CellTags->"IGP_14"], Cell[3470, 96, 60096, 1226, 4417, "Input", CellTags->"IGP_14"], Cell[63569, 1324, 230, 4, 25, "Text"], Cell[63802, 1330, 116, 3, 29, "Input", CellTags->"IGP_14"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)