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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3215,         92]
NotebookOptionsPosition[      2416,         70]
NotebookOutlinePosition[      2858,         88]
CellTagsIndexPosition[      2815,         85]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"\[Rho]", "*", 
    RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"\[Rho]", "*", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"xd\[Rho]", "=", 
  RowBox[{"D", "[", 
   RowBox[{"x", ",", "\[Rho]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"xd\[Theta]", "=", 
  RowBox[{"D", "[", 
   RowBox[{"x", ",", "\[Theta]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"yd\[Rho]", "=", 
  RowBox[{"D", "[", 
   RowBox[{"y", ",", "\[Rho]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"yd\[Theta]", "=", 
  RowBox[{"D", "[", 
   RowBox[{"y", ",", "\[Theta]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8784388567148933`*^9, 3.8784388596241016`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"44816f9e-8db0-49e1-bd0b-cd6a861e872e"],

Cell[BoxData[
 RowBox[{"Cos", "[", "\[Theta]", "]"}]], "Output",
 CellChangeTimes->{{3.8784388055773735`*^9, 3.8784388612688437`*^9}},
 CellLabel->"Out[9]=",ExpressionUUID->"2f6e9247-96e8-43a8-8493-5c4b9b4ac18a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "\[Rho]"}], " ", 
  RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "Output",
 CellChangeTimes->{{3.8784388055773735`*^9, 3.878438861273569*^9}},
 CellLabel->"Out[10]=",ExpressionUUID->"8e9c72b1-d2db-4e27-9532-bdf8d79f26f4"],

Cell[BoxData[
 RowBox[{"Sin", "[", "\[Theta]", "]"}]], "Output",
 CellChangeTimes->{{3.8784388055773735`*^9, 3.8784388612760763`*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"e43bf536-a443-4c11-bd7f-22433704e424"],

Cell[BoxData[
 RowBox[{"\[Rho]", " ", 
  RowBox[{"Cos", "[", "\[Theta]", "]"}]}]], "Output",
 CellChangeTimes->{{3.8784388055773735`*^9, 3.8784388612796526`*^9}},
 CellLabel->"Out[12]=",ExpressionUUID->"a5c3c7e6-4b08-42ab-80af-76f6c94b4f66"]
}, Open  ]]
},
WindowSize->{820, 843},
WindowMargins->{{85, Automatic}, {Automatic, 65}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (2020\:5e743\:670814\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"5abf63bb-30ad-4003-8eb9-2dfa1448bafc"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 885, 22, 336, "Input",ExpressionUUID->"44816f9e-8db0-49e1-bd0b-cd6a861e872e"],
Cell[1468, 46, 212, 3, 49, "Output",ExpressionUUID->"2f6e9247-96e8-43a8-8493-5c4b9b4ac18a"],
Cell[1683, 51, 257, 5, 49, "Output",ExpressionUUID->"8e9c72b1-d2db-4e27-9532-bdf8d79f26f4"],
Cell[1943, 58, 213, 3, 49, "Output",ExpressionUUID->"e43bf536-a443-4c11-bd7f-22433704e424"],
Cell[2159, 63, 241, 4, 65, "Output",ExpressionUUID->"a5c3c7e6-4b08-42ab-80af-76f6c94b4f66"]
}, Open  ]]
}
]
*)