(* 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[ 13073, 351] NotebookOptionsPosition[ 12289, 321] NotebookOutlinePosition[ 12630, 336] CellTagsIndexPosition[ 12587, 333] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"<<", "\"\\""}], ";"}], "\n", "\"\< #39 \>\"", "\n", RowBox[{"Grad", "[", RowBox[{ RowBox[{"y", " ", RowBox[{"Log", "[", RowBox[{"x", "+", "y", "+", "z"}], "]"}]}], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}], "\n", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}]], RowBox[{"(", RowBox[{"y", " ", RowBox[{"Log", "[", RowBox[{"x", "+", "y", "+", "z"}], "]"}]}], ")"}]}], "\n", RowBox[{"%", "/.", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", "3"}]}], ",", RowBox[{"y", "\[Rule]", "4"}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "}"}]}]}], "Input"], Cell[BoxData["\<\" #39 \"\>"], "Output", CellChangeTimes->{3.437576561703125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["y", RowBox[{"x", "+", "y", "+", "z"}]], ",", RowBox[{ FractionBox["y", RowBox[{"x", "+", "y", "+", "z"}]], "+", RowBox[{"Log", "[", RowBox[{"x", "+", "y", "+", "z"}], "]"}]}], ",", FractionBox["y", RowBox[{"x", "+", "y", "+", "z"}]]}], "}"}]], "Output", CellChangeTimes->{3.43757656171875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["y", RowBox[{"x", "+", "y", "+", "z"}]], ",", RowBox[{ FractionBox["y", RowBox[{"x", "+", "y", "+", "z"}]], "+", RowBox[{"Log", "[", RowBox[{"x", "+", "y", "+", "z"}], "]"}]}], ",", FractionBox["y", RowBox[{"x", "+", "y", "+", "z"}]]}], "}"}]], "Output", CellChangeTimes->{3.43757656171875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.43757656171875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"\"\< #42 \>\"", "\n", RowBox[{ RowBox[{"<<", "\"\\""}], ";", RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{"2", " ", "x", " ", SuperscriptBox["y", "2"], " ", SuperscriptBox["z", "3"]}]}], ";"}], "\n", RowBox[{ RowBox[{"Curve", "=", RowBox[{"Plot", "[", RowBox[{ FractionBox[ SuperscriptBox["x", "2"], "2"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], "}"}]], FractionBox["y", SuperscriptBox["x", "2"]]}], "/.", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"-", "2"}]}], ",", RowBox[{"y", "\[Rule]", "2"}]}], "}"}]}]}], "\n", RowBox[{ RowBox[{"Gr", "=", RowBox[{"(", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";", RowBox[{"VectorFieldPlots`ListVectorFieldPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], "}"}], ",", RowBox[{"VectorHeads", "\[Rule]", "True"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], "&"}], ")"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ")"}]}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{"Curve", ",", "Gr", ",", RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], "]"}]}], "Input"], Cell[BoxData["\<\" #42 \"\>"], "Output", CellChangeTimes->{3.437576565765625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "4"]}], "}"}]], "Output", CellChangeTimes->{3.4375765658125*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw12Gc81n3YBnB7c+GmbrJJXGQlpeL8K0nukJKIrDsUJSGR2UUyMkIhRCSR PbL9LjN7j+yRcWW7lT2e6/l8nufV+fm+P44X5yFs+fiGFRUFBcVflBQU/3tl 4Mj84SGOaOcl3Xt4KIg93hYN2N7BEfW/6Qyt/xHEcgvkxdf/4IhP8xycfy0I YgoS2pazCzii5VrBvcEBQewMh99Q6wCOOB995nRrjiCG/Vxrjs3BEZO9T73b NxPEbrxq+3rKDEesKN2/HVYtgD3r8HtkU8VGTPgxPGQfyI/19jLPV1uwEo0e 2/Dd2eHF+ImPuc7wsRDZRfzV3fL+xors6mhxo0xE75kZH9mQI5j5a/nVQQIj 8a3GYHSwARe2FeEegICBGI6/+4+AOSeWwjbGEzNJR0xiuR5oY8KOxWvJO/YE 0hJ3NHL+sT9gwQgPLVwlr9IQiX5NZ5RKGDF36oxnjktURIUXQWa09+gwC58O sf4vlEQjnENGhSc19rZyJibeloL4mCk/4nCAAisbl2DJFDlAXJ7UEhIWeyDK jl3U/7CLFOVKwlX6NyEfH2A79XML4bJvPcebrMN4fZ6QktIGYs/ae9Xatwwz 0m8V0Ld1lNbbZnpSiwQcXulKMpRriN/DWYvAOQX+3yQa2TdXkeSq/2eG/UnY WU4zWl9cRWpLsa1xc5MwZfbZo+THKkokVLuQKiYhXy2l5mLuKmLhPXrp2P1J uEGboHPbbBXl7Q6XzxIn4ASPcBuF+wq6zhVrjN8aA2mlFenU9UXkkvZGPEl+ CKxlvL1LRxcR2zxhiYZpCBLFcd1t3xdR62pGxaupQeA8KvtsI24RIa1Ep7nI QdjctK++or6IPOR41HFbP6CmdPnWfNQCMqzVe0zRMACGKsteskrz6A1d//J9 1z6IOO3VdUloHnG1J1aE6vdBy0k2MUOmeVRplBTRLdcHqgIyTT5jv5B/5eXb hb96QfTw0V/d/r/QyjfhSxMmvbBMXEpzHiAhkScCqYOaPeCrvtRZ6jqHmKil Im6c6YIazUVdxX/nkHDBXFX70S6g0F5oz9aeQ8E7DmM2W53gcetXa4rIHLLQ /fVntbQTXKxnGkNaZxGO44m/qWon3A8YJVoIzaIeUqmxTmw7XGtty2VsnEbn Xa5Jj+43Q1Bnq6xf/jQq/7pwlrOhGRp7W7IP4qfRLE5M6kVoM1webcpcfzKN sHvmRBahZlBdrv8yemwarVygzx663ARy7FVJeY9/It1s1nd68d+BWz873Ojo FOJ4sx/z1bkO8sWDyy5TT6HsRbawu1fq4Pq2zbT8yiSqOOFDUuOtg6APwmeZ vk8ivguE+o/EWjggRY2XuUwi6jEaiSpcLcx6usvw9U8gOzqasAfF1WCv+yam UnIcaff0NHEbVcGX31qLbynHEYX1cggncxVMxdJg9oNjKLS48W/nykowmH42 JxA4hiC6gmAlWgngZqrkQxpFq5of0yh/lwN7ilTvxbQR9PKp6WnBL6WQv1GP axQbQt7raeYrxkUQmpFco7o9iLrVdR7QcxeBnan306K2QaRnH0J6214IYg1n h5NdBlHz1X6tI5cK4d3br589G3+gHJGID5/kC+C54huVUw8H0BWTfMKmWB4Y kB6tpmMD5D7N/naZyYVT8VopQtwDSHskf/Th51xYpKZhZKvqR9sVR/6qkMwF 0x6XXhKuHwVhHLyddtlw0dHE7kNBL9IflXRfbMwAAXFlAe6AXmQZlKlQZpgB u4PcXcEmvahhznzA+Vc6FKp1KLnR9iL/AlNSLms6iHNcpNK/3YMWQrMl1C3S gCn3RCzjbhfSvZUoMqD4CVKHZ0J++bUjKrWgzbvHEmDI40hiwql2NJ9a2cL7 Ih7YBK7k6k21odPGUvnOpDhwMf/SXQptaPNbUdFh+XvQmLE9GrTTguRO+Uc7 usQAaXklCe/QhBxVjzS0nI0CvnCh/DGBJpSQvlxpVBIJ1+X1aiPaGtFJK8pG P+VIKHHKn9nBNyK3tj7OfCwCArec8S0zDajB8pzvA8twwFPtFNgZ16E72ExC 9GwgmKbg6wWZ6tA50YneWzyBEKFu3N9TUot+ftaV09ENgB3/iq3zR2pRaPhr /aU6f2hh9lZh6apGOkueN2b6fYEiK0eH6F2NXPr5s5xFfUFRZ8LMWaYa/Wuu IK3qRID4cDXCSDARxRiURnvzvYAfeIZQo5Aq1B3jqekq5QnYowe51fOV6PMz +svKW+7wJae5W1KzEjHHPA+yb3kOboohR3eoKlBQAt/q6ZeuwKvK+fG9aym6 Va4rflbDGQg+TrVU/SUo/7OobZyGEyzU9M7YnipByT0TG47ajlBxJRp/fvkb UvzvyIKXvQPc1eMrHP63EGn5TXtw7T2AxfU/yk/rCtAXVlwq1cP74PGuA7Ed L0DHq7qGDUnWED9MaFGbzUNuUYJPVejugbSXid6wRh7SLcsYaEmzhHIhpQHn tFykRt+uWXPLAgpbuut1u7LRgXRZVnvWXehl9+8iRGSh6Lw3c1L6xrB+S3m0 6GYmeuAXq2r0lxEoTCT+Ptafjqq5zqmLjeiD3vGbFLrRX5B6d/d/1TM3wMGW joVgmEbuc1yVLIMe5Px+KEoa+oRsiJ7GmzL/QLuykOyx+BSkmSWfXMCgCcte Ped07iajj0oaouxcl4G1zl/jhcBH9NikfIxF7yIYcjp/uo8SkZWKSPpNb4Do +KHydrUENLwTytiOzkG/uFqPYt17pLpWMRbwrxJw5aXNv9eIQcFCmRJ+tgpw 8zwbFWXTWxTKUdrunX4SIuqdeWz+iUTjN+NPu6qfgE7dYbm2tnBEx0Dlv5Yq DAKFvuHWSa8Rp0mv90AcD8Q1XkcKqa9QY3B6Q5srB/w9yr98kE5A5qr01cH1 tCD1s0/53V13JGsUdPrQelNVnMUhWsbmCWoJOGU7sjSl6tMr0Xus9i66OtvC rJldriqNG7WlPakOm+9SlFmeBKr2rxES2bfuA437n9U49x7VVd0T/z12dAFl JiXDWc8VVfdIjWY7RR8Q4afT931AAQdebnGJsi+B15uhJJyVBXxsMx/24IPg nD7TZKcVN1AbjKvQi4dB3DVu5WE9AagVCnyVwB4BhlGc+U5WYuD3TsThTGgU KP/my3t+Hw8aLBWGXczRsDvVe40yVg7oCbfU7AJjocFvpIjWQhEaN5claenj wcMsNVLr9VkIehTAmej3AYSdZGc7eFXg81q4J9+LJBg0q+zXolMDGxu89beD ZGh9gddee60BmiLP7viqfALX/bXxwvdXQWK0Vue6RypEc/Nm/T10DeZv3D0z v50Giawa7hMbetDMmiFVfDYdzGnsSqkmb8LXxg1Bv2cZYHqVyPXn5y14qBrO IPAnE5iqdkW0FO+A9vbI3vypbChdmuzLfGECMoWSa8WOOZBit5U6PmcKW1GT ixJbucAtOdx+59ACSpnc+2qeFsDedNlTjq82kHSSuydHpBAs5Qg1VLcfgP/1 nM74jkIIW9PZDuGwA/13P1tcJL+Bdt+WmGO+PawKX6vBj5aAEMeVshI9JxhQ n0VHg0phN4TIwGPpDFU2PpU0Z8qgov7CtQa3pxCcVVgyFl4Ov6xU8unRMxBX 5s+JUK8C6gdmO8c/egCLSXGm91oV0FYury4teMK6l17Gww8Illp8RqhUvcF8 quaGqAcRlEIMmhj3fEBGYlN7v68auFQiVUiTvtBUYKaeF1gHV0R0BEZMguBC vXTtiYk6cEj5Wp12IRhy+7fVPijVAxshaJxH6DW8246E4J/1EHe7NWhtLQTu QeM5K5XvwKqQq1s8EQ6HzXLyPGtNoElpNdFB/xYcR/Zzwq40g0OWgP+vqLcw u9QsQ/ehGfQZeB70i76DVnYr6XWtFrjY3DEreSUa3hvEnmj71Ao9Xperi1Ni 4fQUpcALww7IztD7z77wA8iU3V6TS+8Ad6ohc+2biSAekVU3sd0BkWOyRTXr icD8MfN0knYn9HEk05fGJ8HedcORw+VOKHd4Vbe28BFGc3MkkXw3VLx91xSQ +wmG4u/8dfRONzBPa8jmsKRCfwDtvj2hG7x+j9J/fJAK7ebGnQI93TBoTOSY O/4Zqtjpn3k594CxukHAXho5dw6mdSrFvRDj0UCh3Z0B8SaM2W/He0F3aSoK f/4rxGgWRi/R9wFeaDau59NXCBdisksw7IObrUlUAc8zwaeziGN/uw+cVOcU nstmg4Ucq1nFhQHYUDfB1Yznguhq+fa5mkEYNf3GcbSiEDzaLvn9XhqECJ9R 32KqIujPaGHL5hmCut5Cp46rRRBkNSwq/GQI3nM5t1oNFsHq0I42vdAw0P+n aCl98A2q6pWTezxHYEOUKCBsWgp34oq1HiqPg8C9veEvz6qg0BX6jluNw5k+ SRrltipgM/huNh4+Di2u9BmYKIJq9gHnG6RxsLzdY/+tEwHXJXfd+H8mQKrU YDkhhgjuJe/dCDsTkB5WJHabpgaupgy26RhOQQvevyCGoR5WX2Zb1z+agjt4 0YtLyvUQc9/38LzvFPjkYNbudvVAOnlSXjJ7CsK09u3VO+ohoMQniprmJ+TX ehACYxugse2EcUnOT2CuicobP9sIV7aekoTpZ4BlRUKuIrkFLmtzUv8pmgNx 2icD7990QagF49p20xzollAK3Mjpgh9PKcYPRudgb3DWQaStC2w/LJcx0JGg /372eTbGbghdaXbkMyBBfKGCFSc5Bz/e+E5d2iDBExp2hjbXHrDt/10doTQP Ci/5Q5jd+iDMbMBHrngR+Jj9orLqBsF/8QLMti7C+aimxfyFQfByS96Pm1qE F/qnyvo4h8A+8tFzerYl8HzuVOhkMQQ636mdx+4tgaLJZ3EOimFgk5Wzec25 DMku/ZTdF0cg9CBAm/RoBVzpzSPtxsbguw4/63XONQi49prjUGkKloS5vbrf r8OiqypTKC0JnjpLWYQd2YDtiFe8eK9lGBhhv2HduAWMWpbuPvLrYO52YY7+ 2i7UmdXsUl7dhFqpM0G1tAcgTFjK7MDvgThjBemTJgU2a6r1KTKCAuOvsLtM G0CJtfaIhISdpsYodqjSHaeosJ0/ybN0WnTYpl6laf1xGizzhEJ0gykjNqxo duy4Hy1mH+/UKrbCgjncZucQGaHDzt6llY7VZ8d4oqYNafgZsOTIs31JUpxY tnFS2rorIyZ/GDFRr8GF3Vbx1mysZMJCsl5TtBgewfJMH4mc22PGrtsIyVi7 /Y1tMV2iLr3FitW+3NpSn+bFbnSdV+KPYcNsmHWGGTF+LFaEzyH0Dw67q1Sv KUT+z1mYaZRKyB4yf1XqRLbX+sLuJNn4uG/472Rb1pW/Or2Bw66ACZv9oiAm bW2cOEL288t1Q+VLglhV+vt2/BYOK7hKH3B7VRCbluM5+X0Hh3nLGymG/RHE DHgo11fJDjCozJ8iu5HyVwnvLg6zCQ6VV9oQxLK6S9TtyU4Wc5UbJdvF2dCE ew+HsXLfPyW1JYgxlkQH/7uPw8qXyrS/7whiHkneeiFks7GvdvPuCmLLATZH i8lWvBhhaE92t9GZFKYDHLbXx2/FvSeIxe/2l+WR7V+u5/vvviDGNl3lM0z2 c5MV5mKyfVo/a9Ae4rBLrDtRTAeCmFWCS7ch2bc+GHzJI/vHS9MYAtkJXl8U aA8FMS17DdNMskvsbSoNya4wkBHrJzvNPlIzk+z/20ew/99H/gdoHouj "]]}}, {Thickness[Small], Arrowheads[0.02], {RGBColor[0, 1, 0], ArrowBox[{{-2., 2.}, {-1.5, 2.25}}]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, DisplayFunction->Identity, PlotRange->{{-4, 4}, {0., 7.999999346938789}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.437576565859375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"\"\< #76 \>\"", ";"}], "\n", RowBox[{ RowBox[{"<<", "\"\\""}], ";"}], "\n", RowBox[{"Grad", "[", RowBox[{ SuperscriptBox[ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "n"], ",", RowBox[{"Cartesian", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"10240", " ", SuperscriptBox["x", "9"], " ", SuperscriptBox["y", "20"], " ", SuperscriptBox["z", "30"]}], ",", RowBox[{"20480", " ", SuperscriptBox["x", "10"], " ", SuperscriptBox["y", "19"], " ", SuperscriptBox["z", "30"]}], ",", RowBox[{"30720", " ", SuperscriptBox["x", "10"], " ", SuperscriptBox["y", "20"], " ", SuperscriptBox["z", "29"]}]}], "}"}]], "Output", CellChangeTimes->{3.4375765720625*^9}] }, Open ]], Cell[BoxData[ RowBox[{"D", "[", " ", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "*", RowBox[{"g", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], " ", ",", RowBox[{"{", " ", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], "}"}]}], " ", "]"}]], "Input"] }, WindowSize->{1050, 859}, WindowMargins->{{21, Automatic}, {Automatic, 14}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 827, 26, 112, "Input"], Cell[1420, 51, 82, 1, 30, "Output"], Cell[1505, 54, 389, 12, 45, "Output"], Cell[1897, 68, 389, 12, 45, "Output"], Cell[2289, 82, 124, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2450, 90, 2014, 62, 182, "Input"], Cell[4467, 154, 82, 1, 30, "Output"], Cell[4552, 157, 157, 5, 45, "Output"], Cell[4712, 164, 6316, 110, 250, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11065, 279, 354, 10, 72, "Input"], Cell[11422, 291, 509, 15, 33, "Output"] }, Open ]], Cell[11946, 309, 339, 10, 31, "Input"] } ] *) (* End of internal cache information *)