57266241529579269 35726624562111339 35726624676617889

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: , 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202}], LineBox[{203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 256, 257}], LineBox[{258, 259, 260, 261, 262, 263, 264, 265, 266}]}, RowBox[{ FractionBox[ RowBox[{"x", "+", "y"}], RowBox[{"2", "+", SuperscriptBox["\[ExponentialE]", "x"], "+", RowBox[{"Cos", "[", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "]"}]}]], "\[Equal]", "2"}]], Annotation[#, ($CellContext`x + $CellContext`y)/(2 + E^$CellContext`x + Cos[$CellContext`x^2 + $CellContext`y^2]) == 2, "Tooltip"]& ]}], AspectRatio->1, Frame->True, ImageSize->{237., Automatic}, PlotRange->{{-5, 5}, {-5, 5}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.572705181106826*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"x", ",", "y"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5727051918722467`*^9, 3.572705199464138*^9}}], Cell[BoxData[ GraphicsBox[{}, AspectRatio->1, Frame->True, ImageSize->{236., Automatic}, PlotRange->{{-5, 5}, {-5, 5}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5727052002502127`*^9}] }, Open ]], Cell["\<\ Problem #2 \ \>", "Text", CellChangeTimes->{{3.5726606546270885`*^9, 3.5726606615284834`*^9}, { 3.572704756858144*^9, 3.57270476489787*^9}, 3.572707122765432*^9}], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=&quot...
View Full Document

Ask a homework question - tutors are online