(* 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[ 42818, 1342] NotebookOptionsPosition[ 41420, 1293] NotebookOutlinePosition[ 41756, 1308] CellTagsIndexPosition[ 41713, 1305] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Bezier Curves", "Title"], Cell[CellGroupData[{ Cell["The setup", "Subsection"], Cell[TextData[StyleBox["Set the nodes:", FontSize->14]], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], ";"}]}], "Input"], Cell[TextData[StyleBox["Set the control points (the latter are related to \ guide points):", FontSize->14]], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"0.7", ",", "0.5"}], "}"}]}], ";"}]}], "Input"], Cell[TextData[StyleBox["Set the scale factor:", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"k", " ", "=", " ", "3"}], ";"}]], "Input"], Cell[TextData[StyleBox["Define the resulting parametric cubics:", FontSize->14]], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"x", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"x0", "-", "x1"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a0", "+", "a1"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a1", "+", RowBox[{"2", "*", "a0"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "a0", "*", "t"}], "+", "x0"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"y0", "-", "y1"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b0", "+", "b1"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"y1", "-", "y0"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b1", "+", RowBox[{"2", "*", "b0"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "b0", "*", "t"}], "+", "y0"}]}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["The graph", "Subsection"], Cell[TextData[StyleBox["The following command shows not only the Bezier \ curve, but also the lines to which the Bezier curve is to be tangent (at the \ nodes).", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "-", RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}]}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsolutePointSize", "[", "5", "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "-", RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}]}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.446398314030223*^9, 3.4463983144363213`*^9}}], Cell[TextData[StyleBox["To see just the nodes, guide points, and resulting \ curve:", FontSize->14]], "Text"], Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "-", RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}]}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsolutePointSize", "[", "5", "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.446398320792192*^9, 3.446398321175012*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["An example with 2 sets of nodes and control points", "Subsection"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1a", ",", "b1a"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.7"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1b", ",", "b1b"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"1.3", ",", RowBox[{"-", "2.5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"0.3", ",", "1"}], "}"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k", " ", "=", " ", "3"}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X1", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"x0", "-", "x1"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a0", "+", "a1a"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a1a", "+", RowBox[{"2", "*", "a0"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "a0", "*", "t"}], "+", "x0"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Y1", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"y0", "-", "y1"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b0", "+", "b1a"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"y1", "-", "y0"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b1a", "+", RowBox[{"2", "*", "b0"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "b0", "*", "t"}], "+", "y0"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"X2", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a1b", "+", "a2"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"x2", "-", "x1"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a2", "+", RowBox[{"2", "*", "a1b"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "a1b", "*", "t"}], "+", "x1"}]}], "\n", RowBox[{ RowBox[{"Y2", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b1b", "+", "b2"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"y2", "-", "y1"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b2", "+", RowBox[{"2", "*", "b1b"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "b1b", "*", "t"}], "+", "y1"}]}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X1", "[", "t", "]"}], ",", RowBox[{"Y1", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X2", "[", "t", "]"}], ",", RowBox[{"Y2", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "-", RowBox[{"{", RowBox[{"a1a", ",", "b1a"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1b", ",", "b1b"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "-", RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}]}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsolutePointSize", "[", "5", "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "-", RowBox[{"{", RowBox[{"a1a", ",", "b1a"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1b", ",", "b1b"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "-", RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}]}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.4463983292064734`*^9, 3.446398329622198*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ An example employing opposite guide points at the 1st node to make the curve \ be smooth there\ \>", "Subsection"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"0.2", ",", RowBox[{"-", "0.7"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"k", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"X1", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"x0", "-", "x1"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a0", "+", "a1"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a1", "+", RowBox[{"2", "*", "a0"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "a0", "*", "t"}], "+", "x0"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Y1", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"y0", "-", "y1"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b0", "+", "b1"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"y1", "-", "y0"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b1", "+", RowBox[{"2", "*", "b0"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "b0", "*", "t"}], "+", "y0"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X2", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"x1", "-", "x2"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a1", "+", "a2"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"x2", "-", "x1"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"a2", "+", RowBox[{"2", "*", "a1"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "a1", "*", "t"}], "+", "x1"}]}], "\n", RowBox[{ RowBox[{"Y2", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"y1", "-", "y2"}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b1", "+", "b2"}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{"y2", "-", "y1"}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{"b2", "+", RowBox[{"2", "*", "b1"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", "b1", "*", "t"}], "+", "y1"}]}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X1", "[", "t", "]"}], ",", RowBox[{"Y1", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X2", "[", "t", "]"}], ",", RowBox[{"Y2", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "-", RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "-", RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}]}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsolutePointSize", "[", "5", "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "-", RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1", ",", "b1"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "-", RowBox[{"{", RowBox[{"a2", ",", "b2"}], "}"}]}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.446398338518043*^9, 3.4463983388618193`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["An example drawing a script N", "Subsection", CellChangeTimes->{{3.446457047273301*^9, 3.446457052684125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"8", ",", "6"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"8", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"3.3", ",", "6.5"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1in", ",", "b1in"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2.8"}], ",", RowBox[{"-", "3.0"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a1out", ",", "b1out"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"2.5", ",", "2.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a2in", ",", "b2in"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "3.0"}], ",", RowBox[{"-", "5.8"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a2out", ",", "b2out"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "2.9"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a3in", ",", "b3in"}], "}"}], " ", "=", " ", RowBox[{"{", RowBox[{"2.5", ",", "2.2"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", " ", "=", " ", "3"}], ";"}]}], "Input", CellChangeTimes->{{3.44639851853226*^9, 3.446398550279193*^9}, { 3.4463986265692*^9, 3.446398640591062*^9}, {3.446398704451242*^9, 3.4463988227640467`*^9}, {3.44640049675062*^9, 3.446400513562558*^9}, 3.446400768644229*^9, {3.446400801960601*^9, 3.446400893204083*^9}, { 3.446400934210841*^9, 3.4464011206716413`*^9}, {3.446401163725066*^9, 3.446401245046112*^9}, {3.446401294288106*^9, 3.446401333273374*^9}, { 3.446401526404829*^9, 3.446401622621805*^9}, {3.4464016550109043`*^9, 3.44640182831289*^9}, {3.446413126152877*^9, 3.446413133352106*^9}, 3.446413516817504*^9, {3.446416336636209*^9, 3.446416350848022*^9}, { 3.446416399352769*^9, 3.446416411216036*^9}, 3.446416493099172*^9, { 3.446446119996518*^9, 3.44644612033502*^9}, {3.446446181981451*^9, 3.4464461858568296`*^9}, {3.4464462212043257`*^9, 3.446446260513729*^9}, { 3.446446318980994*^9, 3.446446319785501*^9}, {3.446446350129949*^9, 3.446446350337728*^9}, {3.446446380777947*^9, 3.446446381457788*^9}, { 3.446446417564843*^9, 3.4464464187883577`*^9}, {3.446446680847211*^9, 3.446446681611989*^9}, {3.446446748237129*^9, 3.4464467680281553`*^9}, { 3.446446800046874*^9, 3.44644680288449*^9}, {3.446446858464613*^9, 3.44644687545254*^9}, {3.446446906879208*^9, 3.446446933404202*^9}, { 3.446446979919116*^9, 3.4464469808282843`*^9}, {3.446447043567493*^9, 3.446447105631502*^9}, {3.446456713450335*^9, 3.4464567321202908`*^9}, 3.4464570415538177`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"X", "[", RowBox[{"t_", ",", "p1_", ",", "p2_", ",", "g1_", ",", "g2_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{ RowBox[{"g1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"g2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{ RowBox[{"p2", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{ RowBox[{"g2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"g1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", RowBox[{"g1", "[", RowBox[{"[", "1", "]"}], "]"}], "*", "t"}], "+", RowBox[{"p1", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "\n", RowBox[{ RowBox[{"Y", "[", RowBox[{"t_", ",", "p1_", ",", "p2_", ",", "g1_", ",", "g2_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{ RowBox[{"p1", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"p2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "+", RowBox[{"k", "*", RowBox[{"(", RowBox[{ RowBox[{"g1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"g2", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "3"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", RowBox[{"(", RowBox[{ RowBox[{"p2", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"p1", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "-", RowBox[{"k", "*", RowBox[{"(", RowBox[{ RowBox[{"g2", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"g1", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}]}], ")"}], "*", RowBox[{"t", "^", "2"}]}], "+", RowBox[{"k", "*", RowBox[{"g1", "[", RowBox[{"[", "2", "]"}], "]"}], "*", "t"}], "+", RowBox[{"p1", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], "Input"], Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}], ",", RowBox[{"{", RowBox[{"a1in", ",", "b1in"}], "}"}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}], ",", RowBox[{"{", RowBox[{"a1in", ",", "b1in"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"a1out", ",", "b1out"}], "}"}], ",", RowBox[{"{", RowBox[{"a2in", ",", "b2in"}], "}"}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"a1out", ",", "b1out"}], "}"}], ",", RowBox[{"{", RowBox[{"a2in", ",", "b2in"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], ",", RowBox[{"{", RowBox[{"a2out", ",", "b2out"}], "}"}], ",", RowBox[{"{", RowBox[{"a3in", ",", "b3in"}], "}"}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], ",", RowBox[{"{", RowBox[{"a2out", ",", "b2out"}], "}"}], ",", RowBox[{"{", RowBox[{"a3in", ",", "b3in"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"AbsolutePointSize", "[", "5", "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1in", ",", "b1in"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1out", ",", "b1out"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "+", RowBox[{"{", RowBox[{"a2in", ",", "b2in"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "+", RowBox[{"{", RowBox[{"a2out", ",", "b2out"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], "+", RowBox[{"{", RowBox[{"a3in", ",", "b3in"}], "}"}]}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Hue", "[", "1", "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "y0"}], "}"}], "+", RowBox[{"{", RowBox[{"a0", ",", "b0"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1in", ",", "b1in"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", "y1"}], "}"}], "+", RowBox[{"{", RowBox[{"a1out", ",", "b1out"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "+", RowBox[{"{", RowBox[{"a2in", ",", "b2in"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", "y2"}], "}"}], "+", RowBox[{"{", RowBox[{"a2out", ",", "b2out"}], "}"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{"x3", ",", "y3"}], "}"}], "+", RowBox[{"{", RowBox[{"a3in", ",", "b3in"}], "}"}]}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.446398338518043*^9, 3.4463983388618193`*^9}, { 3.446401919729753*^9, 3.4464020331777897`*^9}, {3.446413661547564*^9, 3.446413665554208*^9}, {3.446413701030457*^9, 3.446413849715064*^9}, { 3.446413932907642*^9, 3.446413957655107*^9}, {3.4464464393723783`*^9, 3.446446442722578*^9}, {3.44644647573664*^9, 3.446446479104056*^9}, { 3.446446568763637*^9, 3.446446615094018*^9}, {3.446446994240861*^9, 3.4464470064584084`*^9}, {3.4464471270036287`*^9, 3.446447159083391*^9}, { 3.4464560262077827`*^9, 3.446456198831224*^9}, {3.446456288856798*^9, 3.446456347487018*^9}, {3.446456388864627*^9, 3.446456481446014*^9}, { 3.446456534662538*^9, 3.4464565800457172`*^9}, {3.446456617369453*^9, 3.446456653214488*^9}, {3.446456811424561*^9, 3.44645683167312*^9}, { 3.446456877146833*^9, 3.446456889647377*^9}, {3.446456925834712*^9, 3.446456928939207*^9}}] }, Open ]] }, Open ]] }, WindowSize->{520, 673}, WindowMargins->{{67, Automatic}, {Automatic, 36}}, FrontEndVersion->"6.0 for Mac OS X x86 (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, 30, 0, 76, "Title"], Cell[CellGroupData[{ Cell[645, 27, 31, 0, 34, "Subsection"], Cell[679, 29, 65, 1, 28, "Text"], Cell[747, 32, 357, 12, 43, "Input"], Cell[1107, 46, 117, 2, 28, "Text"], Cell[1227, 50, 361, 12, 43, "Input"], Cell[1591, 64, 72, 1, 28, "Text"], Cell[1666, 67, 77, 2, 27, "Input"], Cell[1746, 71, 90, 1, 28, "Text"], Cell[1839, 74, 1467, 50, 73, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3343, 129, 31, 0, 34, "Subsection"], Cell[3377, 131, 187, 3, 45, "Text"], Cell[3567, 136, 2455, 70, 223, "Input"], Cell[6025, 208, 110, 2, 28, "Text"], Cell[6138, 212, 1256, 35, 118, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7431, 252, 72, 0, 34, "Subsection"], Cell[7506, 254, 4390, 154, 328, "Input"], Cell[11899, 410, 4387, 126, 358, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16323, 541, 124, 3, 49, "Subsection"], Cell[16450, 546, 4191, 147, 313, "Input"], Cell[20644, 695, 4379, 126, 358, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[25060, 826, 117, 1, 34, "Subsection"], Cell[25180, 829, 3507, 93, 208, "Input"], Cell[28690, 924, 2860, 94, 133, "Input"], Cell[31553, 1020, 9839, 269, 673, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)