(* 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[ 24039, 550] NotebookOptionsPosition[ 23706, 534] NotebookOutlinePosition[ 24049, 549] CellTagsIndexPosition[ 24006, 546] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{"showText", ",", RowBox[{"{", RowBox[{"showP", "=", "True"}], "}"}], ",", RowBox[{"{", "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ SubscriptBox["a", "3"], "=", RowBox[{ RowBox[{ SubscriptBox["b", "1"], " ", SubscriptBox["c", "2"]}], "-", RowBox[{ SubscriptBox["b", "2"], " ", SubscriptBox["c", "1"]}]}]}], ";", RowBox[{ SubscriptBox["b", "3"], "=", RowBox[{ RowBox[{ SubscriptBox["c", "1"], SubscriptBox["a", "2"]}], "-", RowBox[{ SubscriptBox["c", "2"], SubscriptBox["a", "1"]}]}]}], ";", RowBox[{ SubscriptBox["c", "3"], "=", RowBox[{ RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["b", "2"]}], "-", RowBox[{ SubscriptBox["a", "2"], SubscriptBox["b", "1"]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "1"], " ", "x"}], "+", RowBox[{ SubscriptBox["b", "1"], " ", "y"}], "+", RowBox[{ SubscriptBox["c", "1"], " ", "z"}], "+", SubscriptBox["d", "1"]}], " ", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"ContourStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", "0.4", "]"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ContourPlot3D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "2"], " ", "x"}], "+", RowBox[{ SubscriptBox["b", "2"], " ", "y"}], "+", RowBox[{ SubscriptBox["c", "2"], " ", "z"}], "+", SubscriptBox["d", "2"]}], " ", "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", "None"}], ",", RowBox[{"ContourStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Green", ",", RowBox[{"Opacity", "[", "0.4", "]"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"showP", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "\[Rule]", ".03"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ SubscriptBox["p", "1"], ",", SubscriptBox["p", "2"], ",", SubscriptBox["p", "3"]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"showText", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"StringForm", "[", RowBox[{"\"\\"", ",", SubscriptBox["p", "1"], ",", SubscriptBox["p", "2"], ",", SubscriptBox["p", "3"], ",", "16", ",", "Blue"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["p", "1"], "+", "1"}], ",", RowBox[{ SubscriptBox["p", "2"], "+", "1"}], ",", RowBox[{ SubscriptBox["p", "3"], "+", "1"}]}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "}"}]}], "]"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["p", "1"], "+", RowBox[{ SubscriptBox["a", RowBox[{"3", " "}]], "t"}]}], ",", RowBox[{ SubscriptBox["p", "2"], "+", RowBox[{ SubscriptBox["b", "3"], " ", "t"}]}], ",", RowBox[{ SubscriptBox["p", "3"], "+", RowBox[{ SubscriptBox["c", RowBox[{"3", " "}]], "t"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Pink", ",", "Thick"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(a\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", RowBox[{"-", "2"}], ",", "\"\<\!\(\*SubscriptBox[\(b\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(c\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "1"], ",", RowBox[{"-", "3"}], ",", "\"\<\!\(\*SubscriptBox[\(d\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "2", ",", "\"\<\!\(\*SubscriptBox[\(a\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", RowBox[{"-", "1"}], ",", "\"\<\!\(\*SubscriptBox[\(b\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "2"], ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(c\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "2"], ",", "5", ",", "\"\<\!\(\*SubscriptBox[\(d\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"showP", ",", "True", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"showText", ",", "True", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["p", "1"], ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(p\), \(1\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["p", "2"], ",", "2", ",", "\"\<\!\(\*SubscriptBox[\(p\), \(2\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["p", "3"], ",", "1", ",", "\"\<\!\(\*SubscriptBox[\(p\), \(3\)]\)\>\""}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "Small"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", " ", "True"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.434236213015625*^9, 3.43423622309375*^9}, { 3.4342362749375*^9, 3.434236325328125*^9}, {3.43423642734375*^9, 3.43423661928125*^9}, {3.43423666284375*^9, 3.434236764234375*^9}, { 3.434236848875*^9, 3.4342369048125*^9}, {3.4342374856875*^9, 3.4342375100625*^9}, {3.434237555421875*^9, 3.434237596703125*^9}, { 3.434237978046875*^9, 3.4342379911875*^9}, {3.434238076796875*^9, 3.434238150625*^9}, {3.4342382409375*^9, 3.434238305703125*^9}, { 3.43423837984375*^9, 3.434238495046875*^9}, {3.434238567515625*^9, 3.4342386043125*^9}, {3.434238650328125*^9, 3.434238693578125*^9}, { 3.434238740203125*^9, 3.434238771609375*^9}, {3.4342388579375*^9, 3.4342388990625*^9}, {3.434238935515625*^9, 3.434239025390625*^9}, { 3.434239060078125*^9, 3.43423909446875*^9}, {3.43423914821875*^9, 3.434239159203125*^9}, {3.434239244328125*^9, 3.43423926490625*^9}, { 3.434239322015625*^9, 3.4342393426875*^9}, {3.434239420078125*^9, 3.434239485203125*^9}, {3.43423955290625*^9, 3.434239701015625*^9}, { 3.4342399375*^9, 3.434239958203125*^9}, 3.434240043609375*^9, { 3.43424007671875*^9, 3.434240078234375*^9}, 3.43424017453125*^9, { 3.434240264640625*^9, 3.43424026696875*^9}, {3.43424032215625*^9, 3.434240349765625*^9}, 3.4342403825*^9, {3.43424041340625*^9, 3.434240449546875*^9}, {3.434240491828125*^9, 3.434240497984375*^9}, { 3.43424054971875*^9, 3.434240730484375*^9}, {3.434240914703125*^9, 3.434241067984375*^9}, {3.434241137125*^9, 3.4342412025625*^9}, { 3.434241512265625*^9, 3.434241532078125*^9}, {3.434241605921875*^9, 3.434241612015625*^9}, {3.434241924859375*^9, 3.434242013078125*^9}, { 3.434242106921875*^9, 3.434242183921875*^9}, {3.434242311640625*^9, 3.434242365703125*^9}, {3.434242507625*^9, 3.434242803890625*^9}, { 3.434242924265625*^9, 3.4342429525625*^9}, {3.434242996578125*^9, 3.434242999953125*^9}, {3.434243055109375*^9, 3.43424316396875*^9}, { 3.434243391*^9, 3.434243451578125*^9}, {3.434243495078125*^9, 3.434243549140625*^9}, {3.434243596515625*^9, 3.434243600328125*^9}, { 3.434253011046875*^9, 3.4342530320625*^9}, {3.43425453578125*^9, 3.434254536640625*^9}, {3.434327287359375*^9, 3.434327288828125*^9}, { 3.43432757540625*^9, 3.434327582984375*^9}, {3.434327616109375*^9, 3.43432765625*^9}, {3.43432769121875*^9, 3.43432772853125*^9}, { 3.43432794525*^9, 3.43432796234375*^9}, {3.434328046875*^9, 3.43432811453125*^9}, {3.434328532078125*^9, 3.434328593359375*^9}, { 3.4343286330625*^9, 3.43432866028125*^9}, {3.43432873090625*^9, 3.4343287395625*^9}, {3.4343290939375*^9, 3.434329180109375*^9}, { 3.434329241890625*^9, 3.434329267015625*^9}, {3.434329412875*^9, 3.434329540203125*^9}, {3.43432957884375*^9, 3.434329724796875*^9}, { 3.434329854734375*^9, 3.434329863921875*^9}, 3.43432994671875*^9, { 3.43433018584375*^9, 3.434330204734375*^9}, {3.434431333609375*^9, 3.434431342421875*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`showP$$ = True, $CellContext`showText$$ = True, $CellContext`$12$$ = 1, $CellContext`$13$$ = -2, $CellContext`$14$$ = 1, $CellContext`$15$$ = -3, $CellContext`$16$$ = 2, $CellContext`$17$$ = -1, $CellContext`$18$$ = 1, $CellContext`$19$$ = 5, $CellContext`$20$$ = -4, $CellContext`$21$$ = 3, $CellContext`$22$$ = -1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`$12$$], 1, "\!\(\*SubscriptBox[\(a\), \(1\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$13$$], -2, "\!\(\*SubscriptBox[\(b\), \(1\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$14$$], 1, "\!\(\*SubscriptBox[\(c\), \(1\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$15$$], -3, "\!\(\*SubscriptBox[\(d\), \(1\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$16$$], 2, "\!\(\*SubscriptBox[\(a\), \(2\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$17$$], -1, "\!\(\*SubscriptBox[\(b\), \(2\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$18$$], 1, "\!\(\*SubscriptBox[\(c\), \(2\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$19$$], 5, "\!\(\*SubscriptBox[\(d\), \(2\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`showP$$], True, "show P"}, {True, False}}, {{ Hold[$CellContext`showText$$], True, "show Text"}, {True, False}}, {{ Hold[$CellContext`$20$$], 1, "\!\(\*SubscriptBox[\(p\), \(1\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$21$$], 2, "\!\(\*SubscriptBox[\(p\), \(2\)]\)"}, -10, 10, 1}, {{ Hold[$CellContext`$22$$], 1, "\!\(\*SubscriptBox[\(p\), \(3\)]\)"}, -10, 10, 1}}, Typeset`size$$ = { 360., {200., 205.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`$12$1028$$ = 0, $CellContext`$13$1029$$ = 0, $CellContext`$14$1030$$ = 0, $CellContext`$15$1031$$ = 0, $CellContext`$16$1032$$ = 0, $CellContext`$17$1033$$ = 0, $CellContext`$18$1034$$ = 0, $CellContext`$19$1035$$ = 0, $CellContext`showP$1036$$ = False, $CellContext`showText$1037$$ = False, $CellContext`$20$1038$$ = 0, $CellContext`$21$1039$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`showP$$ = True, $CellContext`showText$$ = True, $CellContext`$12$$ = 1, $CellContext`$13$$ = -2, $CellContext`$14$$ = 1, $CellContext`$15$$ = -3, $CellContext`$16$$ = 2, $CellContext`$17$$ = -1, $CellContext`$18$$ = 1, $CellContext`$19$$ = 5, $CellContext`$20$$ = 1, $CellContext`$21$$ = 2, $CellContext`$22$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`$12$$, $CellContext`$12$1028$$, 0], Hold[$CellContext`$13$$, $CellContext`$13$1029$$, 0], Hold[$CellContext`$14$$, $CellContext`$14$1030$$, 0], Hold[$CellContext`$15$$, $CellContext`$15$1031$$, 0], Hold[$CellContext`$16$$, $CellContext`$16$1032$$, 0], Hold[$CellContext`$17$$, $CellContext`$17$1033$$, 0], Hold[$CellContext`$18$$, $CellContext`$18$1034$$, 0], Hold[$CellContext`$19$$, $CellContext`$19$1035$$, 0], Hold[$CellContext`showP$$, $CellContext`showP$1036$$, False], Hold[$CellContext`showText$$, $CellContext`showText$1037$$, False], Hold[$CellContext`$20$$, $CellContext`$20$1038$$, 0], Hold[$CellContext`$21$$, $CellContext`$21$1039$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`showText$$, {$CellContext`showP$$ = True}, {}]; Subscript[$CellContext`a, 3] = $CellContext`$13$$ $CellContext`$18$$ - $CellContext`$17$$ \ $CellContext`$14$$; Subscript[$CellContext`b, 3] = $CellContext`$14$$ $CellContext`$16$$ - $CellContext`$18$$ \ $CellContext`$12$$; Subscript[$CellContext`c, 3] = $CellContext`$12$$ $CellContext`$17$$ - $CellContext`$16$$ \ $CellContext`$13$$; Show[ ContourPlot3D[$CellContext`$12$$ $CellContext`x + $CellContext`$13$$ \ $CellContext`y + $CellContext`$14$$ $CellContext`z + $CellContext`$15$$ == 0, {$CellContext`x, -10, 10}, {$CellContext`y, -10, 10}, {$CellContext`z, -10, 10}, Axes -> True, AxesLabel -> {$CellContext`x, $CellContext`y, $CellContext`z}, Mesh -> None, ContourStyle -> Directive[Blue, Opacity[0.4]]], ContourPlot3D[$CellContext`$16$$ $CellContext`x + $CellContext`$17$$ \ $CellContext`y + $CellContext`$18$$ $CellContext`z + $CellContext`$19$$ == 0, {$CellContext`x, -10, 10}, {$CellContext`y, -10, 10}, {$CellContext`z, -10, 10}, Axes -> True, AxesLabel -> {$CellContext`x, $CellContext`y, $CellContext`z}, Mesh -> None, ContourStyle -> Directive[Green, Opacity[0.4]]], Graphics3D[ If[$CellContext`showP$$, {PointSize -> 0.03, Blue, Point[{$CellContext`$20$$, $CellContext`$21$$, \ $CellContext`$22$$}]}, {}]], Graphics3D[ If[$CellContext`showText$$, { Text[ Style[ StringForm[ "P( ``,``,`` )", $CellContext`$20$$, $CellContext`$21$$, \ $CellContext`$22$$, 16, Blue]], {$CellContext`$20$$ + 1, $CellContext`$21$$ + 1, $CellContext`$22$$ + 1}]}, {}]], ParametricPlot3D[{$CellContext`$20$$ + Subscript[$CellContext`a, 3] $CellContext`t, $CellContext`$21$$ + Subscript[$CellContext`b, 3] $CellContext`t, $CellContext`$22$$ + Subscript[$CellContext`c, 3] $CellContext`t}, {$CellContext`t, -3, 3}, PlotStyle -> Directive[Pink, Thick]]]), "Specifications" :> {{{$CellContext`$12$$, 1, "\!\(\*SubscriptBox[\(a\), \(1\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$13$$, -2, "\!\(\*SubscriptBox[\(b\), \(1\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$14$$, 1, "\!\(\*SubscriptBox[\(c\), \(1\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$15$$, -3, "\!\(\*SubscriptBox[\(d\), \(1\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, Delimiter, {{$CellContext`$16$$, 2, "\!\(\*SubscriptBox[\(a\), \(2\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$17$$, -1, "\!\(\*SubscriptBox[\(b\), \(2\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$18$$, 1, "\!\(\*SubscriptBox[\(c\), \(2\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$19$$, 5, "\!\(\*SubscriptBox[\(d\), \(2\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, Delimiter, {{$CellContext`showP$$, True, "show P"}, { True, False}}, {{$CellContext`showText$$, True, "show Text"}, { True, False}}, {{$CellContext`$20$$, 1, "\!\(\*SubscriptBox[\(p\), \(1\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$21$$, 2, "\!\(\*SubscriptBox[\(p\), \(2\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`$22$$, 1, "\!\(\*SubscriptBox[\(p\), \(3\)]\)"}, -10, 10, 1, Appearance -> "Labeled", ImageSize -> Small}}, "Options" :> {ControlPlacement -> Left}, "DefaultOptions" :> {}], ImageSizeCache->{611., {226., 231.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({ Attributes[Subscript] = {NHoldRest}, Subscript[$CellContext`a, 3] = -1, Subscript[$CellContext`b, 3] = 1, Subscript[$CellContext`c, 3] = 3}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.434329216359375*^9, {3.43432925021875*^9, 3.43432926896875*^9}, 3.43432973696875*^9, 3.43432986690625*^9, 3.43432998503125*^9, { 3.434330236625*^9, 3.4343302674375*^9}, {3.43433030784375*^9, 3.434330342390625*^9}, {3.43433049759375*^9, 3.434330533125*^9}, { 3.434330598140625*^9, 3.434330638875*^9}, {3.4343307300625*^9, 3.43433075846875*^9}, {3.43433097528125*^9, 3.434331003171875*^9}, { 3.43433104890625*^9, 3.434331057546875*^9}, 3.43433110340625*^9, { 3.43443133771875*^9, 3.4344313435*^9}}] }, Open ]] }, WindowSize->{1016, 666}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (February 7, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 13900, 334, 732, "Input"], Cell[14493, 359, 9197, 172, 474, "Output"] }, Open ]] } ] *) (* End of internal cache information *)