(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     51993,       1134]
NotebookOptionsPosition[     50929,       1095]
NotebookOutlinePosition[     51283,       1111]
CellTagsIndexPosition[     51240,       1108]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["Lab 09 - Vector Line Integrals", "Chapter"],
 "\n[Names]"
}], "Section",
 CellChangeTimes->{{3.656971013739675*^9, 3.656971032431258*^9}}],

Cell[TextData[{
 "Writing a force field as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    OverscriptBox["F", "\[RightVector]"], "=", 
    RowBox[{
     RowBox[{"P", " ", 
      OverscriptBox["i", "^"]}], "+", 
     RowBox[{"Q", 
      OverscriptBox["j", "^"]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", the vector line integral over some path ",
 Cell[BoxData[
  FormBox["C", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " can be written in at least two ways:"
}], "Text",
 CellChangeTimes->{{3.6569711578243437`*^9, 3.6569711578328667`*^9}, {
  3.656971315194512*^9, 3.656971481827832*^9}, {3.656971746919779*^9, 
  3.656971759431365*^9}, {3.65697200288282*^9, 3.656972036351327*^9}, {
  3.65697307772272*^9, 3.656973088824274*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[GridBox[{
    {
     RowBox[{
      RowBox[{
       SubscriptBox["\[Integral]", "C"], 
       RowBox[{
        OverscriptBox["F", "\[RightVector]"], "\[CenterDot]", 
        RowBox[{"\[DifferentialD]", 
         OverscriptBox["r", "\[RightVector]"]}]}]}], "=", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Integral]", "C"], 
        RowBox[{"P", 
         RowBox[{"\[DifferentialD]", "x"}]}]}], "+", 
       RowBox[{
        SubscriptBox["\[Integral]", "C"], 
        RowBox[{"Q", 
         RowBox[{"\[DifferentialD]", "y"}]}]}]}]}]}
   },
   GridBoxItemSize->{"Columns" -> {{
        Scaled[0.96]}}}], TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.656971177789153*^9, 3.656971189526705*^9}, {
  3.6569712501048822`*^9, 3.65697128780503*^9}, {3.656971504692675*^9, 
  3.6569716120906057`*^9}, {3.656971642369378*^9, 3.656971691173855*^9}, {
  3.656971721865453*^9, 3.656971735872039*^9}, {3.656972044293046*^9, 
  3.65697206512099*^9}, {3.656973064643086*^9, 3.6569730677709913`*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[GridBox[{
    {GridBox[{
       {GridBox[{
          {
           RowBox[{
            RowBox[{
             SubscriptBox["\[Integral]", "C"], 
             RowBox[{
              OverscriptBox["F", "\[RightVector]"], "\[CenterDot]", 
              RowBox[{"\[DifferentialD]", 
               OverscriptBox["r", "\[RightVector]"]}]}]}], "=", 
            RowBox[{
             SubscriptBox["\[Integral]", "C"], 
             RowBox[{
              RowBox[{
               RowBox[{
                OverscriptBox["F", "\[RightVector]"], "(", 
                RowBox[{
                 RowBox[{"x", "(", "t", ")"}], ",", 
                 RowBox[{"y", "(", "t", ")"}]}], ")"}], "\[CenterDot]", 
               RowBox[{
                OverscriptBox["r", "\[RightVector]"], "'"}]}], 
              RowBox[{"\[DifferentialD]", "t"}]}]}]}]}
         },
         GridBoxItemSize->{"Columns" -> {{
              Scaled[0.96]}}}]}
      },
      GridBoxAlignment->{"Columns" -> {{"Center"}}}]}
   },
   GridBoxItemSize->{"Columns" -> {{
        Scaled[0.96]}}}], TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.656973027765505*^9, 3.65697304724399*^9}}],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     OverscriptBox["r", "\[RightVector]"], "'"}], "=", 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{
      FractionBox[
       RowBox[{"\[PartialD]", "x"}], 
       RowBox[{"\[PartialD]", "t"}]], ",", 
      FractionBox[
       RowBox[{"\[PartialD]", "y"}], 
       RowBox[{"\[PartialD]", "t"}]]}], "\[RightAngleBracket]"}]}], 
   TraditionalForm]]],
 ".  Use whichever of these expressions is most useful in evaluating the \
following line integrals. \[LineSeparator]\[LineSeparator]\[LineSeparator]\
\[LineSeparator]\[LineSeparator]\[LineSeparator]Write down the answers you \
get here in your ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook, but attach paper showing your work (and labelled according to \
question number) to a printout of the notebook.   "
}], "Text",
 CellChangeTimes->{{3.656972076088266*^9, 3.656972162994021*^9}, {
  3.656972197406622*^9, 3.6569722351643133`*^9}, {3.656973173609763*^9, 
  3.6569732897889633`*^9}, {3.656977044703743*^9, 3.656977152119116*^9}}],

Cell[TextData[{
 StyleBox["1.)",
  FontColor->RGBColor[1, 0, 0]],
 " Consider the force field ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     OverscriptBox["F", "\[RightVector]"], "1"], "=", 
    RowBox[{
     RowBox[{
      OverscriptBox["r", "\[RightVector]"], "-", 
      RowBox[{"2", 
       OverscriptBox["i", "^"]}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"x", 
        OverscriptBox["i", "^"]}], "+", 
       RowBox[{"y", 
        OverscriptBox["j", "^"]}], "-", 
       RowBox[{"2", 
        OverscriptBox["i", "^"]}]}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "2"}], ")"}], 
        OverscriptBox["i", "^"]}], "+", 
       RowBox[{"y", 
        OverscriptBox["j", "^"]}]}]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Evaluate the vector line integral of this force field along the path ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ": the straight line from (-1,0) to (0,1). \n\n[",
 StyleBox["Hint: ",
  FontWeight->"Bold"],
 "It\[CloseCurlyQuote]s probably easiest to do this using the first relation \
above.] "
}], "Text",
 CellChangeTimes->{{3.656972306468255*^9, 3.656972318856328*^9}, {
   3.656972363926916*^9, 3.65697240425766*^9}, {3.656972525544425*^9, 
   3.656972607964374*^9}, {3.656972640455731*^9, 3.656972675925728*^9}, {
   3.656972761893015*^9, 3.6569728618913193`*^9}, {3.656972981734935*^9, 
   3.656973001243932*^9}, {3.65697310425597*^9, 3.656973129854751*^9}, {
   3.656973163442672*^9, 3.6569731686903563`*^9}, 3.656973326652924*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"C1", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"x", "+", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxVjH881Hccx09KKDQzF0Zu0a/ViCkrPd6YqSUeToqWLb9qbj386OFHbGp+
lvxYFqemZh4ciZJMJpl3fsyvcHaHu9A557of7txXQ0lk2vb9Y+/H4/P4vJ+P
9+v1pAWGe51cQaFQ3Jff2//fmUJyM3+qwY5fJJaZ2nnR6GNwqtcpeDW/zAuG
y+wCSVEmDtOzJHvDSvmuWImC5GDQ4oROdfMITHj9lqNAnzUs/OkuySlgeeC3
JtsTBPr/w7nA7ZpfElapsM/rMGXqOQtiH21nmuiqMGHO9o6r2V1wMeRlXQyb
RKH7/h9bMmogv1RHPbRJidaPr0ivzjwAyS0b9ugGJfZVfXNBTQ3hoXSc2h2h
QIOAiEK2QzPUpeq0ylsn0FzeSfgqW6Eiz7I912ICvUsY47dD22GLqNP1QYwc
/c/yxcaWXXC90M/0dL8Mc89lpR+u7AY7/NrHw06G29UDitq2seHY+iWdijQp
erDVxLdUfRApTjFhSiVovPtFx4A1B6iKvJI5ewlytnJqdH/ggohOy8nKeoYO
fr8/EYv7ofjDfN7dSTHWlz32LLQYBBX8cs3NUYwWCU29Id/zwKr9SlVUwTgW
nRkqMGzhw3ya/mdUQoRrVUPRf9KGQFmuvU/hLMIt5ROpW78dhn54nnGoaAx9
E0xlpx6OgKtesM/mGSFGje2m36MKoJL+R9xluhBZftFrx/xG4TvZviV68Cg2
rwmg8NyFcKdIa2WstgDLP3q92DIvhG7n6tq69hHMF5SyNt4Ygzc+kYFKxjCq
ebf1armJ4PwOy4Ek/SF0YoQyG1+IQCH7ddaWw8f0NZtWSfLG4bTRcT1+DA8P
RnrN5biIgW81OphnM4gGIdm5NRIx5Gh4n6yb6cfahSM9xanPINBrTNl9nYvs
o5cvGdlIwDTF7YOFYxz8a9+QSo0rAcW2Xk+zxT5Mn7jGi0iUwqHw41/UhrFx
hwWD4WUhA3+thcJZohvLFh9dXdEqg/ysnifGe7sw/0bm55+ckcOdp75h0TXt
yOxgsET6EyClvjd7/2UratTXJ+k3T0Ajp1qrYX8zerrlLK4LU8BItcGMKgOR
xThHS9JVwqVcywc736/HcPfhjrgGJch0yu1GNe/jp40HjcRfTUJS2vMeql4V
TvU6aZi+mYS+SjumvVcJvltyO2akXAWUOcH8jvN56Ki5NVv3EAHm8dPOdhZ5
uCFYdkTgQYAjRTPDoYuJb/CmSSWdgATNnSZuhkxsOLvpprsPARSj5L0hlTlo
L93YmBm4zHs2xxcJstG6zUypHUf857+A5ikGB1aXkr5UXBrl6vDKSF8qCvbm
cEsrSF8y3ph+54TrPdKXgOuD9GJSG0hfDK5z1mapc8l+NBI/dzK4A2Q/Entf
pVkV88l+BGbeW/3QWUD2T6EmbRUnUU7mg1Aa33qVriTz/tjGT/6SRpD5o5iS
vUL+aIa8e2KQsqky+yV5d0XnA4lR/vMk70Iay3GP9eIy/2+m4G/cqYaH
     "]]}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{-1., 0.}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.656972932995717*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["2.)",
  FontColor->RGBColor[1, 0, 0]],
 " Evaluate the vector line integral of the same force field, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     OverscriptBox["F", "\[RightVector]"], "1"], ","}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " but this time along the path ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ": the portion of a radius one circle, traversed in counterclockwise \
direction from (-1,0) to (0,1). \n\n[",
 StyleBox["Hint: ",
  FontWeight->"Bold"],
 "It\[CloseCurlyQuote]s probably easiest to do this one using the ",
 StyleBox["second",
  FontSlant->"Italic"],
 " relation above, and using the parameter \[Theta] instead of ",
 Cell[BoxData[
  FormBox["t", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". You can use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to evaluate any trig-function-containing integrals you come up with.] "
}], "Text",
 CellChangeTimes->{{3.656972306468255*^9, 3.656972318856328*^9}, {
   3.656972363926916*^9, 3.65697240425766*^9}, {3.656972525544425*^9, 
   3.656972607964374*^9}, {3.656972640455731*^9, 3.656972675925728*^9}, {
   3.656972761893015*^9, 3.6569728618913193`*^9}, {3.656972981734935*^9, 
   3.656973001243932*^9}, {3.65697310425597*^9, 3.656973129854751*^9}, {
   3.656973163442672*^9, 3.6569731686903563`*^9}, 3.656973326652924*^9, {
   3.656973546778804*^9, 3.6569737083758717`*^9}, {3.6569769267503443`*^9, 
   3.656976974480692*^9}, {3.656977342601871*^9, 3.656977362731275*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"C2", "=", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", 
       RowBox[{"-", "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"+", "\[Pi]"}], "/", "2"}]}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.656956090312714*^9, 3.656956271244739*^9}, {
  3.6569563347751007`*^9, 3.656956348911059*^9}, {3.65697226326414*^9, 
  3.6569722676749477`*^9}, {3.656972910779861*^9, 3.656972927464664*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwtmnc4lm/Yx9UvbRVlpTRltUnSOIlSSWRWktIgpYgGyWpYESrZZO+9sk57
[encoded data, 14762 characters]
/A/bXfgf
     "]]}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{-1., 0.9999997913989683}, {-0.9999997487903937, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.656956178115161*^9, 3.65695627180857*^9, {3.656956336206358*^9, 
   3.656956349743877*^9}, 3.656972920150062*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["\[LineSeparator]3.)",
  FontColor->RGBColor[1, 0, 0]],
 " Plot the vector field ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["F", "\[RightVector]"], "1"], TraditionalForm]]],
 " (use red arrows, see Lab 08) together with the integration paths ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "1"], TraditionalForm]]],
 "and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "2"], TraditionalForm]]],
 ".  Do the *signs* of your vector line integrals match your visual \
estimation of their signs?"
}], "Text",
 CellChangeTimes->{{3.656974023963484*^9, 3.6569741931006393`*^9}, {
   3.656974379577422*^9, 3.656974386969709*^9}, 3.656974675628058*^9}],

Cell[TextData[{
 StyleBox["\[LineSeparator]4.)",
  FontColor->RGBColor[1, 0, 0]],
 " Could ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["F", "\[RightVector]"], "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "be the gradient of some potential function ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "1"], "(", 
    RowBox[{"x", ",", "y"}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "?  Carry out the curl test to decide. (Show the results of your test).  \
Investigate how to use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "\[CloseCurlyQuote]s ",
 StyleBox["Curl[....]",
  FontFamily->"Courier New"],
 " function to confirm. Would you have guessed this result (well, whether it\
\[CloseCurlyQuote]s positive, zero or negative) by looking at the graph of \
the vector field arrows? \[LineSeparator]\[LineSeparator]If the field is \
\[OpenCurlyDoubleQuote]irrotational\[CloseCurlyDoubleQuote], find a potential \
function ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "such that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     OverscriptBox["F", "\[RightVector]"], "1"], "=", 
    RowBox[{
     OverscriptBox["\[Del]", "\[RightVector]"], 
     SubscriptBox["f", "1"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and make a plot which includes the integration paths, the vector field of \
arrows *and* a ",
 StyleBox["ContourPlot[...]",
  FontFamily->"Courier New"],
 " of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "-- all together in the same figure."
}], "Text",
 CellChangeTimes->{{3.656973806279407*^9, 3.6569738076132708`*^9}, {
  3.656973848331924*^9, 3.656973951898099*^9}, {3.656974226426752*^9, 
  3.6569743728102827`*^9}, {3.6569745393270493`*^9, 3.65697467281264*^9}, {
  3.656976213537038*^9, 3.656976241734091*^9}, {3.656976290142057*^9, 
  3.6569763078195047`*^9}, {3.656976382374201*^9, 3.65697641189095*^9}, {
  3.656976599214428*^9, 3.656976599622601*^9}, {3.656977199202482*^9, 
  3.656977235297171*^9}}],

Cell[TextData[{
 StyleBox["\[LineSeparator]5.)",
  FontColor->RGBColor[1, 0, 0]],
 " If the potential function exists, calculate the surface height difference ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["f", "1"], "(", 
     RowBox[{"0", ",", "1"}], ")"}], "-"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "1"], "(", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0"}], ")"}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.6569744341118107`*^9, 3.656974505921797*^9}, 
   3.656974668860033*^9, {3.656976602589921*^9, 3.656976603045815*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"c1", ",", "c2"}], "]"}]], "Input",
 CellChangeTimes->{{3.6569562864141417`*^9, 3.656956289518857*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwtmnc4lm/Yx9UvbRVlpTRltUnSOIlSSWRWktIgpYgGyWpYESrZZO+9sk57
[encoded data, 14762 characters]
/A/bXfgf
      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxVjH881Hccx09KKDQzF0Zu0a/ViCkrPd6YqSUeToqWLb9qbj386OFHbGp+
lvxYFqemZh4ciZJMJpl3fsyvcHaHu9A557of7txXQ0lk2vb9Y+/H4/P4vJ+P
9+v1pAWGe51cQaFQ3Jff2//fmUJyM3+qwY5fJJaZ2nnR6GNwqtcpeDW/zAuG
y+wCSVEmDtOzJHvDSvmuWImC5GDQ4oROdfMITHj9lqNAnzUs/OkuySlgeeC3
JtsTBPr/w7nA7ZpfElapsM/rMGXqOQtiH21nmuiqMGHO9o6r2V1wMeRlXQyb
RKH7/h9bMmogv1RHPbRJidaPr0ivzjwAyS0b9ugGJfZVfXNBTQ3hoXSc2h2h
QIOAiEK2QzPUpeq0ylsn0FzeSfgqW6Eiz7I912ICvUsY47dD22GLqNP1QYwc
/c/yxcaWXXC90M/0dL8Mc89lpR+u7AY7/NrHw06G29UDitq2seHY+iWdijQp
erDVxLdUfRApTjFhSiVovPtFx4A1B6iKvJI5ewlytnJqdH/ggohOy8nKeoYO
fr8/EYv7ofjDfN7dSTHWlz32LLQYBBX8cs3NUYwWCU29Id/zwKr9SlVUwTgW
nRkqMGzhw3ya/mdUQoRrVUPRf9KGQFmuvU/hLMIt5ROpW78dhn54nnGoaAx9
E0xlpx6OgKtesM/mGSFGje2m36MKoJL+R9xluhBZftFrx/xG4TvZviV68Cg2
rwmg8NyFcKdIa2WstgDLP3q92DIvhG7n6tq69hHMF5SyNt4Ygzc+kYFKxjCq
ebf1armJ4PwOy4Ek/SF0YoQyG1+IQCH7ddaWw8f0NZtWSfLG4bTRcT1+DA8P
RnrN5biIgW81OphnM4gGIdm5NRIx5Gh4n6yb6cfahSM9xanPINBrTNl9nYvs
o5cvGdlIwDTF7YOFYxz8a9+QSo0rAcW2Xk+zxT5Mn7jGi0iUwqHw41/UhrFx
hwWD4WUhA3+thcJZohvLFh9dXdEqg/ysnifGe7sw/0bm55+ckcOdp75h0TXt
yOxgsET6EyClvjd7/2UratTXJ+k3T0Ajp1qrYX8zerrlLK4LU8BItcGMKgOR
xThHS9JVwqVcywc736/HcPfhjrgGJch0yu1GNe/jp40HjcRfTUJS2vMeql4V
TvU6aZi+mYS+SjumvVcJvltyO2akXAWUOcH8jvN56Ki5NVv3EAHm8dPOdhZ5
uCFYdkTgQYAjRTPDoYuJb/CmSSWdgATNnSZuhkxsOLvpprsPARSj5L0hlTlo
L93YmBm4zHs2xxcJstG6zUypHUf857+A5ikGB1aXkr5UXBrl6vDKSF8qCvbm
cEsrSF8y3ph+54TrPdKXgOuD9GJSG0hfDK5z1mapc8l+NBI/dzK4A2Q/Entf
pVkV88l+BGbeW/3QWUD2T6EmbRUnUU7mg1Aa33qVriTz/tjGT/6SRpD5o5iS
vUL+aIa8e2KQsqky+yV5d0XnA4lR/vMk70Iay3GP9eIy/2+m4G/cqYaH
      "]]}}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{-1., 0.9999997913989683}, {-0.9999997487903937, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.656956289945361*^9, 3.656956354976851*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["6-10.)",
  FontColor->RGBColor[1, 0, 0]],
 " Repeat the sections 1-5.) with the same curves ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "1"], TraditionalForm]]],
 "and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "2"], TraditionalForm]]],
 ", but this time with the vector field ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     OverscriptBox["F", "\[RightVector]"], "2"], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "y"}], "-", 
        FractionBox["1", "2"]}], ")"}], 
      OverscriptBox["i", "^"]}], "+", 
     RowBox[{
      SuperscriptBox["x", "3"], 
      OverscriptBox["j", "^"]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".  (And try to find a potential called ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " if possible.)"
}], "Text",
 CellChangeTimes->{{3.656976563729374*^9, 3.656976617869164*^9}, {
  3.6569767029722557`*^9, 3.6569768881185102`*^9}, {3.656977252032057*^9, 
  3.65697728510292*^9}}],

Cell[TextData[{
 StyleBox["11.)",
  FontColor->RGBColor[1, 0, 0]],
 " Back to the first vector field, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["F", "\[RightVector]"], "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ":  Carry out a vector line integration of this vector field from the origin \
to a point with coordinates ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["x", "0"], ",", 
     SubscriptBox["y", "0"]}], ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " along a path with two segments:  \n\nFirst go along the ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " axis from (0,0) to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["x", "0"], ",", "0"}], ")"}], TraditionalForm]]],
 ".  \n\nNext go from (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 ",0) to ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["x", "0"], ",", 
     SubscriptBox["y", "0"]}], ")"}], TraditionalForm]]],
 ".  This second path is parallel to the ",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " axis. \n\nNow, replace ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "0"], "\[ShortRightArrow]", "x"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["y", "0"], "\[ShortRightArrow]", "y"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".  Comment on the result."
}], "Text",
 CellChangeTimes->{{3.656977544117826*^9, 3.6569778417632723`*^9}, {
  3.65697788763245*^9, 3.656977922502276*^9}, {3.656977955893592*^9, 
  3.656977992307682*^9}}]
}, Open  ]]
},
WindowSize->{808, 871},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 165, 4, 106, "Section"],
Cell[748, 28, 760, 21, 54, "Text"],
Cell[1511, 51, 1037, 26, 40, "Text"],
Cell[2551, 79, 1184, 32, 42, "Text"],
Cell[3738, 113, 1085, 27, 79, "Text"],
Cell[4826, 142, 1626, 46, 94, "Text"],
Cell[CellGroupData[{
Cell[6477, 192, 276, 9, 28, "Input"],
Cell[6756, 203, 2265, 47, 375, "Output"]
}, Open  ]],
Cell[9036, 253, 1590, 38, 114, "Text"],
Cell[CellGroupData[{
Cell[10651, 295, 659, 17, 46, "Input"],
Cell[11313, 314, 15705, 268, 375, "Output"]
}, Open  ]],
Cell[27033, 585, 696, 20, 74, "Text"],
Cell[27732, 607, 2159, 59, 179, "Text"],
Cell[29894, 668, 650, 20, 51, "Text"],
Cell[CellGroupData[{
Cell[30569, 692, 150, 3, 28, "Input"],
Cell[30722, 697, 17319, 294, 375, "Output"]
}, Open  ]],
Cell[48056, 994, 1091, 37, 62, "Text"],
Cell[49150, 1033, 1763, 59, 176, "Text"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
