(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 100924, 2193] NotebookOptionsPosition[ 89228, 1982] NotebookOutlinePosition[ 91289, 2041] CellTagsIndexPosition[ 91246, 2038] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ " ", StyleBox["Interpretation of the wave function", FontVariations->{"Underline"->True}], "\n\n", StyleBox["Proyecto de Innovaci\[OAcute]n Docente ID2022/163", FontSize->18], "\n\n", StyleBox["Dpto. Qu\[IAcute]mica-F\[IAcute]sica\nFacultad de Ciencias Qu\ \[IAcute]micas\nUniversidad de Salamanca", FontSize->24], StyleBox["\n\n", FontSize->20], StyleBox["Lola Gonz\[AAcute]lez (lgonsan@usal.es)\nJes\[UAcute]s Aldegunde \ (jalde@usal.es)\nSandra G\[OAcute]mez Rodriguez (sandra.gomez@usal.es)\n\ Anzhela Veselinova (anzheves@usal.es)\nAlberto Mart\[IAcute]n Santa Dar\ \[IAcute]a (albertoms@usal.es)\n\n", FontSize->18] }], "Title", CellChangeTimes->{{3.670042609313528*^9, 3.670042624425091*^9}, { 3.6768093250751133`*^9, 3.676809334338749*^9}, 3.6768111197668047`*^9, { 3.809004725006909*^9, 3.809004726538352*^9}, {3.8406836874130893`*^9, 3.8406836913831425`*^9}, {3.872318379147655*^9, 3.872318399490642*^9}, { 3.886760205645589*^9, 3.88676026235557*^9}, {3.88676077887289*^9, 3.8867607863476877`*^9}, {3.889002112045912*^9, 3.88900213596268*^9}, { 3.8914908338020277`*^9, 3.891490847938149*^9}, {3.891491157750749*^9, 3.89149116437753*^9}}, FontColor->RGBColor[1, 0, 0], Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"aafcbb54-7c1d-433e-a5cb-2fed5fc46e96"], Cell[TextData[StyleBox["", FontSize->12]], "Author", CellChangeTimes->{{3.670042656337132*^9, 3.67004267589707*^9}, { 3.670042816208117*^9, 3.6700428433038263`*^9}, {3.676809371170705*^9, 3.676809384978731*^9}, {3.740898175743805*^9, 3.740898180399941*^9}, { 3.74089823374548*^9, 3.740898241833589*^9}, {3.8090047076120377`*^9, 3.809004721386116*^9}, {3.809005179841969*^9, 3.809005185636071*^9}, { 3.872686195317162*^9, 3.872686208551055*^9}, 3.886760281283718*^9}, TextAlignment->Left,ExpressionUUID->"5ab44cd9-b3cd-4f62-b46c-9cea6b5187c8"], Cell[CellGroupData[{ Cell["Initialize", "Chapter", CellChangeTimes->{ 3.67005096132012*^9, {3.67680944544219*^9, 3.676809452514029*^9}, { 3.886760855499655*^9, 3.8867608569559717`*^9}}, FontFamily->"Utopia", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"c68e5ac3-e236-4fe4-9be5-fd956529a700"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "\"\\"", "]"}], ";"}], "\n", RowBox[{ RowBox[{"(*", " ", RowBox[{ "To", " ", "delete", " ", "all", " ", "the", " ", "assignments", " ", "that", " ", "we", " ", "have", " ", "previously", " ", "made", " ", "in", " ", "Mathematica"}], " ", "*)"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{{3.676810091606042*^9, 3.676810144813642*^9}, { 3.676961495600052*^9, 3.676961508703586*^9}, {3.840727215482172*^9, 3.840727222484945*^9}, {3.8867608801652603`*^9, 3.886760885260543*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", Background->None,ExpressionUUID->"84a2d7a1-fcaf-4d52-9481-70befbac85bb"] }, Open ]], Cell[CellGroupData[{ Cell["Particle without spin in 1 dimension ", "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.8867609221571093`*^9, 3.88676093593979*^9}, 3.886826652441187*^9, {3.8889951485923758`*^9, 3.8889951517682457`*^9}}, FontFamily->"Utopia", FontWeight->"Bold", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"57246b1f-86e3-4719-9023-f9e12d49f621"], Cell[CellGroupData[{ Cell[TextData[{ "\t\nAs an example of wave function of one particle without spin coordinate \ in 1 dimension, we can consider the particle in a box of width ", StyleBox["L", FontWeight->"Bold"], ":" }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.676955771046322*^9, 3.676955771086336*^9}, {3.8090048428000183`*^9, 3.8090048510086308`*^9}, { 3.840727255254231*^9, 3.8407272670630093`*^9}, {3.886767222458722*^9, 3.8867672293499193`*^9}, {3.886767500111557*^9, 3.886767502886262*^9}, { 3.888995159736805*^9, 3.888995205632266*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"77a50b91-4480-424e-8be0-f53ba893acd5"], Cell[BoxData[ RowBox[{ RowBox[{"psi", "[", "x_", "]"}], "=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "L"}], "]"}], RowBox[{"Sin", "[", " ", RowBox[{"Pi", " ", RowBox[{"x", " ", "/", " ", "L"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, 3.676960355183559*^9}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[5]:=",ExpressionUUID->"92974c64-6277-416e-817a-177fcd995e7d"], Cell[TextData[{ "where x is the coordinate that determines the position of the particle in \ the domain of the function (x \[Epsilon] [0,L]). \n\nThe dimension of the \ wave function is ", Cell[BoxData[ FormBox[ SuperscriptBox["L", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]], TraditionalForm]], FontWeight->"Plain",ExpressionUUID->"2af59b08-8c64-4135-bb45-c86af292987f"], ". \n\nIf the wave function is normalized, the integral in the entire domain \ of the product between the function and its complex conjugate is equal to the \ unity." }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.676809772263883*^9}, {3.676809888511066*^9, 3.676809964822692*^9}, 3.6768102437808647`*^9, {3.676810941223905*^9, 3.676810978431877*^9}, { 3.676955875149653*^9, 3.676955884725638*^9}, 3.809005776453453*^9, { 3.810104974799324*^9, 3.8101049766135283`*^9}, {3.840727279638935*^9, 3.840727358710204*^9}, {3.8407274212359962`*^9, 3.8407274305346413`*^9}, { 3.8868230803881073`*^9, 3.886823101197506*^9}, {3.88682356546276*^9, 3.886823570917549*^9}, {3.8868281061112633`*^9, 3.886828122479*^9}, 3.8889952242004843`*^9, {3.8889952661523123`*^9, 3.8889952736724157`*^9}, { 3.888995305112722*^9, 3.8889953141844683`*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"f0199b93-866a-4237-affb-c15e57258ca9"], Cell[TextData[{ "The square of the wave function, ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"psi", "(", "x", ")"}], SuperscriptBox["|", "2"]}], TraditionalForm]], FontFamily->"Utopia", FontSize->28,ExpressionUUID->"b8bb14d7-94f9-4d1f-a7d2-5f6c4cd4a0b6"], ", is interpreted as the PROBABILITY DENSITY (probability per unit length in \ this case) of finding the particle at position x.\n\nThe product ", Cell[BoxData[ FormBox[ RowBox[{"P", "=", RowBox[{"|", RowBox[{"psi", "(", "x", ")"}], SuperscriptBox["|", "2"], "dx"}]}], TraditionalForm]], FontFamily->"Utopia", FontSize->28,ExpressionUUID->"51398e3a-01a2-454d-8ebf-c7ef66af96e5"], " is interpreted as the PROBABILITY of finding the particle in an element of \ length dx around the position x.\n\nThe PROBABILITY of finding the particle \ in a region of space ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["x", "1"], "\[LessEqual]", "x", "\[LessEqual]", SubscriptBox["x", "2"]}], TraditionalForm]], FontFamily->"Utopia", FontSize->28,ExpressionUUID->"4bd42054-68bb-4e79-9ecc-6feb9464161d"], " can be calculated using the integral ", Cell[BoxData[ FormBox[ RowBox[{"P", "=", RowBox[{ SubsuperscriptBox["\[Integral]", "x1", "x2"], RowBox[{"|", RowBox[{"psi", "(", "x", ")"}], SuperscriptBox["|", "2"], RowBox[{"\[DifferentialD]", "x"}]}]}]}], TraditionalForm]], FontFamily->"Utopia", FontSize->28,ExpressionUUID->"20356c11-bb5f-4dbc-aaa0-29eb9af24f5d"], ".\n\nThe fact that the wave function is normalized indicates that the \ probability of finding the particle in all space must be necessarily 1." }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.670133785992278*^9, 3.6701338825997343`*^9}, {3.6701346598903217`*^9, 3.6701346846101837`*^9}, {3.6769555012103643`*^9, 3.676955564040004*^9}, { 3.676956635376556*^9, 3.676957007839962*^9}, {3.676958328494635*^9, 3.676958336646555*^9}, {3.682055780859206*^9, 3.682055785739183*^9}, { 3.746247959375373*^9, 3.746247959575439*^9}, {3.8407273900238714`*^9, 3.840727418981038*^9}, {3.840727629063409*^9, 3.8407276608205914`*^9}, { 3.8868237008072453`*^9, 3.8868237152992907`*^9}, {3.886823760124476*^9, 3.886823777830068*^9}, {3.886824849238563*^9, 3.886824930787592*^9}, 3.886828132223493*^9, {3.888995402936612*^9, 3.8889954055465117`*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"c5364e10-9482-4504-b30e-ba11aadb43df"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 1:", FontWeight->"Bold"], "\nJustify why the dimension of the wave function is ", Cell[BoxData[ FormBox[ SuperscriptBox["L", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]], TraditionalForm]],ExpressionUUID-> "b1c26780-0fd1-43b7-a506-c5afec9180b2"], "." }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.872825148344923*^9, 3.872825160593449*^9}, { 3.8728252270968657`*^9, 3.8728252300729723`*^9}, 3.8867603166758337`*^9, { 3.8868249970757504`*^9, 3.886825015635952*^9}, {3.88899542438461*^9, 3.88899543027234*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"f8c56c82-3681-43b5-89a0-01faf2445f9f"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676959040111865*^9, {3.746172571692531*^9, 3.746172638240055*^9}, 3.8407292462624645`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"5e720e8d-a8b4-4ad8-b85a-f0398097eb1a"] }, Open ]], Cell[TextData[{ StyleBox["Exercise 2:", FontWeight->"Bold"], "\nCheck if the wave function defined in the previous exercise is normalized." }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.810102856086751*^9, 3.810102866111376*^9}, { 3.810102965379092*^9, 3.810102976102666*^9}, {3.810103022166477*^9, 3.810103037852023*^9}, {3.810103273498309*^9, 3.8101032743582*^9}, 3.886760331171541*^9, 3.88682501853476*^9, 3.886825130130218*^9, { 3.886825170859683*^9, 3.886825171145701*^9}, {3.886828169991054*^9, 3.88682817029506*^9}, {3.8889954451142473`*^9, 3.88899544789605*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"fe9b44d8-b401-4888-95ab-1b9070a976e5"] }, Open ]], Cell[BoxData[""], "Input", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676959040111865*^9, {3.746172571692531*^9, 3.746172638240055*^9}, 3.8407292462624645`*^9, {3.8407293591222277`*^9, 3.840729359124222*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"1328ec99-98f8-4089-86b1-fb92ea415985"], Cell["Particle without spin in 3 dimensions ", "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.676955668646998*^9, 3.676955671966981*^9}, { 3.676961719709772*^9, 3.676961725357692*^9}, {3.886825186355384*^9, 3.886825197018203*^9}, 3.886826647105091*^9, {3.8889954561064663`*^9, 3.8889954592562428`*^9}}, FontFamily->"Utopia", FontWeight->"Bold", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"9aefb523-bdb5-4921-981a-961abf050c10"], Cell["\<\ \t As an example of wave function of one particle without spin in 3 dimensions, \ we can consider the particle in a box of dimensions Lx, Ly, Lz:\ \>", "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.809004872001053*^9, 3.809004907067531*^9}, { 3.840727827507922*^9, 3.8407278300688524`*^9}, 3.8867675467011433`*^9, { 3.8867675782533207`*^9, 3.8867675880782223`*^9}, {3.888995467626458*^9, 3.8889954753159018`*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"b8dd021e-1b0e-4ed7-a6cb-09f156fe7649"], Cell[BoxData[ RowBox[{ RowBox[{"psi3d", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Lx"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x", " ", "/", "Lx"}]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Ly"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"y", " ", "/", "Ly"}]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Lz"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"z", " ", "/", "Lz"}]}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, {3.676958355880044*^9, 3.676958532804282*^9}, { 3.676958572467681*^9, 3.676958654315342*^9}, {3.676960370223544*^9, 3.6769603753035173`*^9}, {3.676964342396165*^9, 3.676964372355834*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[7]:=",ExpressionUUID->"b6bf7158-6055-40aa-b4b5-42e3025e2580"], Cell[TextData[{ "where x,y,z are the coordinates that determine the position of the particle \ in the three-dimensional space defined by a potential box of dimensions Lx, \ Ly and Lz.\n \nThe dimension of the wave function is ", Cell[BoxData[ FormBox[ SuperscriptBox["L", RowBox[{ RowBox[{"-", "3"}], "/", "2"}]], TraditionalForm]],ExpressionUUID-> "cb6540ea-a862-4d9e-b941-084c27f7d233"], ". \n\nIf the wave function is normalized, then the integral in all the \ space of the product between the function and its complex conjugate must be \ equal to the unit.\n" }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.676809772263883*^9}, {3.676809888511066*^9, 3.676809964822692*^9}, 3.6768102437808647`*^9, {3.676810941223905*^9, 3.676810978431877*^9}, { 3.6769558530619097`*^9, 3.676955913254261*^9}, 3.809005784180176*^9, { 3.8407278498441076`*^9, 3.840727875700021*^9}, {3.88682527861803*^9, 3.8868253079002657`*^9}, 3.8868253772924137`*^9, {3.888995521361732*^9, 3.888995603424209*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"5d0ea130-bbb4-4e6d-86bb-ce57836f68b8"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 3:", FontWeight->"Bold"], "\nJustify why the dimension of the wave function is ", Cell[BoxData[ FormBox[ SuperscriptBox["L", RowBox[{ RowBox[{"-", "3"}], "/", "2"}]], TraditionalForm]],ExpressionUUID-> "3a9f37fb-0979-4154-bc58-b3d1796179d4"], "." }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.872825167633465*^9, 3.8728251703213253`*^9}, {3.872825218736904*^9, 3.872825221091819*^9}, 3.886760346659664*^9, 3.8868250227259207`*^9, 3.8868253948396797`*^9, {3.888995611488511*^9, 3.8889956212244473`*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"d6b0054d-4ba7-4453-9b0c-7108b44abcfa"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676965753284638*^9, {3.746172651432111*^9, 3.746172668401713*^9}, 3.8407292780203314`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"a17a4621-8b4e-4880-87e9-c71c11e333ef"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 4:", FontWeight->"Bold"], "\nCheck if the psi3d wavefunction is normalized." }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.676955955117208*^9, 3.67695596970907*^9}, 3.8867603488354797`*^9, 3.886825024959474*^9, 3.8868254197139387`*^9, { 3.8889956252645597`*^9, 3.888995625776237*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"835dd5c7-ffa7-4186-9043-00990171a591"], Cell[BoxData["\[LineSeparator]"], "Input", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676959040111865*^9, {3.746172571692531*^9, 3.746172638240055*^9}, 3.8407292462624645`*^9, {3.8407292957194843`*^9, 3.840729345867428*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"85cb252c-1c9f-4464-9517-b2b9269ad808"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 5:", FontWeight->"Bold"], "\nHow is the square of the wave function interpreted in three dimensions?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, 3.88676035655542*^9, 3.8868250265830812`*^9, 3.886825437248444*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"ee69c19a-b068-4c99-b5db-cef590668532"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.746172677480929*^9, 3.746172681560974*^9}, {3.7461727127699757`*^9, 3.7461727402029057`*^9}, 3.840729372260437*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"d52f49e5-e49b-40da-986f-18e1f5c96845"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 6:", FontWeight->"Bold"], "\nHow the product ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"psi3d", "(", RowBox[{"x", ",", "y", ",", "z"}], ")"}], SuperscriptBox["|", "2"], RowBox[{"dx", " ", "dy", " ", "dz"}]}], TraditionalForm]],ExpressionUUID-> "ec2cd4c2-663e-46a3-8bd9-80f084e28284"], " is interpreted?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957158237638*^9}, {3.8407279016420603`*^9, 3.8407279022306776`*^9}, 3.8867603619639587`*^9, 3.8868250281068907`*^9, { 3.8868254590947447`*^9, 3.8868254653780117`*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"6bf5afaf-d4cb-454f-8e2b-c4dcf905685e"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957166141247*^9, {3.746172743426804*^9, 3.7461727675477457`*^9}, 3.8407293742924967`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"9d4a1b8a-041c-462c-a42e-26b765b0e1e7"] }, Open ]], Cell[TextData[{ StyleBox["Exercise 7:", FontWeight->"Bold"], "\nCalculate the probability of finding the particle in the region of space \ defined by 0{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.676955955117208*^9, 3.67695596970907*^9}, { 3.676957211396801*^9, 3.676957245100466*^9}, {3.676957848501285*^9, 3.676957920568081*^9}, {3.676958061095333*^9, 3.676958066278768*^9}, 3.886760368059526*^9, 3.886825029694208*^9, {3.886825545865744*^9, 3.886825558210114*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"e4cae812-9451-4553-9b22-befc01fd1bbd"], Cell[BoxData[""], "Input", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676959040111865*^9, {3.746172571692531*^9, 3.746172638240055*^9}, 3.8407292462624645`*^9, {3.8407293940579867`*^9, 3.840729394060177*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"797f6b34-a7a4-493e-bae7-703dd593eefd"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Integration only over some coordinates", FontFamily->"Nimbus Sans L", FontWeight->"Bold"]], "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.676955668646998*^9, 3.676955671966981*^9}, { 3.676958188918007*^9, 3.676958206613676*^9}, {3.8101032945927153`*^9, 3.810103298558496*^9}, 3.88682559621772*^9}, FontFamily->"Utopia", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"959131bc-a93c-4969-b2b5-f53d2c21f9ab"], Cell[TextData[{ "\n", StyleBox["If we integrate only over some of the coordinates, both the \ physical dimensions and the interpretation will change", FontWeight->"Bold"], StyleBox[".", FontFamily->"Utopia", FontWeight->"Bold"], StyleBox[" \n\n", FontFamily->"Utopia", FontWeight->"Bold"], "\nFor example, the following function could be defined, in which ", StyleBox["we are not integrating over the z coordinate", FontWeight->"Bold"], ":" }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.6769581180147257`*^9, 3.676958146390492*^9}, { 3.676958220781864*^9, 3.676958309349255*^9}, {3.67695993795405*^9, 3.676959949090213*^9}, {3.6769600093936377`*^9, 3.6769600122207203`*^9}, 3.676960071465054*^9, {3.67696579149785*^9, 3.6769657983860073`*^9}, { 3.684137461239037*^9, 3.684137461423911*^9}, {3.746247830119707*^9, 3.7462478313938923`*^9}, 3.809005033897677*^9, 3.8101033048173943`*^9, 3.810106930209247*^9, {3.8407279181036425`*^9, 3.8407279360052147`*^9}, { 3.886767653867209*^9, 3.886767655182362*^9}, 3.8868256202950087`*^9}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"796cafff-1283-4d2b-95cc-b245f4d27c02"], Cell[BoxData[ RowBox[{ RowBox[{"Dd", "[", "z_", "]"}], "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "Ly"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "Lx"], RowBox[{ SuperscriptBox[ RowBox[{"psi3d", "[", RowBox[{"x", ",", "y", ",", "z"}], "]"}], "2"], RowBox[{"\[DifferentialD]", "x"}], RowBox[{"\[DifferentialD]", "y"}]}]}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, 3.6769585593906717`*^9, {3.676958670428957*^9, 3.676958713003016*^9}, {3.676959718011785*^9, 3.676959763267933*^9}, { 3.676959795475739*^9, 3.6769598013877153`*^9}, {3.676959925764827*^9, 3.6769599641061897`*^9}, {3.676960075089032*^9, 3.676960186160686*^9}, 3.676960392527904*^9, 3.810106151568321*^9}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[10]:=",ExpressionUUID->"3706f4f4-2e20-4f52-b8ef-aa26eee219cb"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 8:", FontWeight->"Bold"], "\nHow is the Dd(z) integral interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958846289453*^9}, 3.8867603796674757`*^9, 3.886825033117303*^9, { 3.886825825480411*^9, 3.886825841834035*^9}, {3.8889956835604067`*^9, 3.888995698104278*^9}, {3.8889957283444033`*^9, 3.888995729048212*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"73838af9-7afb-4d78-9e26-474a6873b4b7"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.746172813204672*^9, 3.746172885567999*^9}, 3.8407294017994785`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"975caa85-4800-4c0e-a7b5-91955991eccd"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 9:", FontWeight->"Bold"], "\nHow is the Dd(z) dz product interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958871233197*^9}, 3.8867603850835247`*^9, 3.886825034838636*^9, { 3.8868258562001867`*^9, 3.8868258726418123`*^9}, {3.8889957157212276`*^9, 3.888995734240234*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"149f2161-58c7-4b73-ae18-78256af249cf"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.746172892855034*^9, 3.7461729183941507`*^9}, 3.840729405236457*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"3166df56-0c3b-4abc-a009-fa1e867fa395"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Spherical coordinates", FontFamily->"Nimbus Sans L", FontWeight->"Bold"]], "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.676955668646998*^9, 3.676955671966981*^9}, { 3.676958188918007*^9, 3.676958206613676*^9}, {3.676959831642857*^9, 3.676959842898405*^9}, {3.809004920307506*^9, 3.809004921084272*^9}, { 3.8868259040077*^9, 3.886825907105727*^9}}, FontFamily->"Utopia", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"ab5526be-c794-436d-8855-c9b804da8199"], Cell[TextData[{ "\n", StyleBox["Neither the interpretation nor the dimensions depend on the \ coordinates that are used", FontWeight->"Bold"], StyleBox[".\n", FontFamily->"Utopia", FontWeight->"Bold"], "\nFor example, we define this function for a particle in all the 3D space, \ in spherical coordinates:" }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.6769581180147257`*^9, 3.676958146390492*^9}, { 3.676958220781864*^9, 3.676958309349255*^9}, {3.676959850458499*^9, 3.676959904666212*^9}, {3.676960197584167*^9, 3.6769602204480963`*^9}, { 3.676960295759448*^9, 3.6769603116955853`*^9}, {3.676960612997425*^9, 3.676960614013419*^9}, {3.6769606521331472`*^9, 3.676960652797783*^9}, { 3.8090049355257673`*^9, 3.809004937321762*^9}, 3.8090050320120497`*^9, 3.8867678876372747`*^9, 3.886825936581587*^9, 3.888995768032679*^9}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"7500e58c-f036-4521-86e8-542fa1ff4c89"], Cell[BoxData[ RowBox[{ RowBox[{"psiesf", "[", RowBox[{"r_", ",", "t_", ",", "p_"}], "]"}], "=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"Pi", " ", RowBox[{"a", "^", "3"}]}], ")"}]}], "]"}], " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "r"}], "/", "a"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, 3.6769585593906717`*^9, {3.676958670428957*^9, 3.676958713003016*^9}, {3.676959718011785*^9, 3.676959763267933*^9}, { 3.676959795475739*^9, 3.6769598013877153`*^9}, {3.676960318087796*^9, 3.6769603454956083`*^9}, {3.676960425990458*^9, 3.676960460902749*^9}, 3.676960499182576*^9, {3.676961120522581*^9, 3.6769611922814302`*^9}, { 3.67696127245033*^9, 3.676961273153316*^9}, {3.746172983969788*^9, 3.746172985426053*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[11]:=",ExpressionUUID->"57b3dac7-9e8d-444c-b3e0-87669d79bd61"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 10:", FontWeight->"Bold"], "\nWhich dimension should have ", StyleBox["\[CloseCurlyDoubleQuote]a\[CloseCurlyDoubleQuote]", FontWeight->"Bold"], " if the dimension of the wave function is ", Cell[BoxData[ FormBox[ SuperscriptBox["L", RowBox[{ RowBox[{"-", "3"}], "/", "2"}]], TraditionalForm]],ExpressionUUID-> "f1c902cc-b346-4b3c-a285-48c6ebca31da"], "?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676960683940983*^9, 3.67696069592492*^9}, {3.676960769212555*^9, 3.6769607957963057`*^9}, {3.6769615703109627`*^9, 3.6769615742868967`*^9}, {3.809004943952739*^9, 3.8090049494778547`*^9}, { 3.840729489910406*^9, 3.840729490791546*^9}, 3.886760396139687*^9, 3.886825038427176*^9, {3.886826217941607*^9, 3.886826237381425*^9}, { 3.888995794008279*^9, 3.888995860264574*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"6ef44881-7f53-4648-b952-f9e5fa64144f"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676960700244432*^9, 3.746172934576426*^9, 3.840729408980357*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"d4d539a4-cbf0-4016-9474-9adde3dd1336"] }, Open ]], Cell[TextData[{ StyleBox["Exercise 11:", FontWeight->"Bold"], "\nCheck if the psiesf wave function is normalized." }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.676955955117208*^9, 3.67695596970907*^9}, { 3.6769608227079144`*^9, 3.6769608313719177`*^9}, 3.809005238508382*^9, 3.886760401931684*^9, 3.886825039951186*^9, {3.886826305858905*^9, 3.886826343113182*^9}, {3.888995869552561*^9, 3.8889958702004013`*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"43275bda-6456-4405-9370-5c4ca8ff461c"], Cell[BoxData[""], "Input", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676959040111865*^9, {3.746172571692531*^9, 3.746172638240055*^9}, 3.8407292462624645`*^9, {3.840729420518811*^9, 3.840729420520831*^9}, {3.8407294576405334`*^9, 3.840729458903435*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"f35eff34-4202-4995-a996-f3c5b53aa739"], Cell["\<\ If we integrate over all directions in space except for the radial distance \ to the origin, we get this probability function:\ \>", "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.6769581180147257`*^9, 3.676958146390492*^9}, { 3.676958220781864*^9, 3.676958309349255*^9}, {3.67695993795405*^9, 3.676959949090213*^9}, {3.6769600093936377`*^9, 3.6769600122207203`*^9}, 3.676960071465054*^9, {3.676960893907426*^9, 3.676960962914913*^9}, 3.8867679278109083`*^9, {3.888995883240367*^9, 3.8889958884002934`*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"8e5f0f79-3521-4a89-abbd-4106e9248260"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Pp", "[", "r_", "]"}], "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", "Pi"}]], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "Pi"], RowBox[{ SuperscriptBox[ RowBox[{"psiesf", "[", RowBox[{"r", ",", "t", ",", "p"}], "]"}], "2"], SuperscriptBox["r", "2"], RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"\[DifferentialD]", "t"}], RowBox[{"\[DifferentialD]", "p"}]}]}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, 3.6769585593906717`*^9, {3.676958670428957*^9, 3.676958713003016*^9}, {3.676959718011785*^9, 3.676959763267933*^9}, { 3.676959795475739*^9, 3.6769598013877153`*^9}, {3.676959925764827*^9, 3.6769599641061897`*^9}, {3.676960075089032*^9, 3.676960186160686*^9}, 3.676960392527904*^9, {3.676960966627509*^9, 3.676961025587039*^9}, { 3.810107125143263*^9, 3.810107135303337*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[13]:=",ExpressionUUID->"a7a6fa9d-e2e7-464a-ade6-86b3e401a310"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 12:", FontWeight->"Bold"], "\nHow is the Pp(r) integral interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958846289453*^9}, {3.676961603614575*^9, 3.67696161890252*^9}, 3.886760409414941*^9, 3.8868250419102182`*^9, {3.8868263732981777`*^9, 3.886826389977606*^9}, {3.8889959017923613`*^9, 3.888995914696291*^9}, { 3.888995979576469*^9, 3.888995981624352*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"d8b34f68-e7ca-4f0b-af19-865715ab806e"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.7461731628709087`*^9, 3.7461732007848682`*^9}, 3.840729510437687*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"d7c87334-321a-45f0-b46f-5feda42b3433"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 13:", FontWeight->"Bold"], "\nHow is the Pp(r) dr product interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958871233197*^9}, {3.676961585222795*^9, 3.67696162591846*^9}, 3.886760413971613*^9, 3.886825043840826*^9, {3.886826439460479*^9, 3.886826451668331*^9}, 3.888996004602043*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"96b3f4c5-5c24-4006-a38f-4f0c8b4bc19c"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.746173207944188*^9, 3.746173242113226*^9}, 3.840729512980792*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"6dc576ce-db78-4a64-94ad-ecbaa111d6ef"] }, Open ]], Cell[CellGroupData[{ Cell["N particles without spin in 1D space ", "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.676955668646998*^9, 3.676955671966981*^9}, { 3.676961697965971*^9, 3.676961712989915*^9}, 3.676966675020267*^9, { 3.676967082192932*^9, 3.676967110528965*^9}, {3.809005124741119*^9, 3.8090051280289907`*^9}, {3.886826525373376*^9, 3.886826587114221*^9}, 3.886826639967952*^9, {3.8889960095688057`*^9, 3.888996017048431*^9}}, FontFamily->"Utopia", FontWeight->"Bold", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"bebbb07c-fe25-4084-b878-b4064b59f0f3"], Cell["\<\ \t If for example now we consider 4 particles in a one-dimensional box of width \ L:\ \>", "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.676962447880862*^9, 3.676962482328856*^9}, { 3.676962524663815*^9, 3.67696255125594*^9}, {3.676964177532915*^9, 3.67696418273279*^9}, {3.676966190671413*^9, 3.676966190799055*^9}, { 3.676966667283704*^9, 3.676966670059886*^9}, {3.6769680130905027`*^9, 3.676968032066537*^9}, {3.809005001487813*^9, 3.809005004059317*^9}, 3.886767958893671*^9}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"6c2648ec-4f90-412f-aa12-ea676b772a9b"], Cell[BoxData[ RowBox[{ RowBox[{"psiN", "[", RowBox[{"x1_", ",", "x2_", ",", "x3_", ",", "x4_"}], "]"}], "=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "L"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x1", " ", "/", "L"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "L"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x2", " ", "/", "L"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "L"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x3", " ", "/", "L"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "L"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x4", " ", "/", "L"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, {3.676958355880044*^9, 3.676958532804282*^9}, { 3.676958572467681*^9, 3.676958654315342*^9}, {3.676960370223544*^9, 3.6769603753035173`*^9}, {3.676962486568869*^9, 3.676962520088728*^9}, { 3.6769625615924997`*^9, 3.676962568656328*^9}, {3.676962783886595*^9, 3.676962790590272*^9}, {3.676964187389399*^9, 3.6769642067329607`*^9}, 3.676964308348688*^9, {3.6769643862842617`*^9, 3.676964451219738*^9}, { 3.676966193970174*^9, 3.676966236103238*^9}, 3.6769666128131027`*^9}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[14]:=",ExpressionUUID->"ce03d79c-02d8-482b-813b-91f31b6e6d3e"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 14:", FontWeight->"Bold"], "\nCheck if the psiN wave function is normalized." }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.676955955117208*^9, 3.67695596970907*^9}, { 3.676964791160557*^9, 3.676964795448679*^9}, {3.676968052850483*^9, 3.676968053226557*^9}, 3.886760423819518*^9, 3.88682504713463*^9, { 3.886826701057048*^9, 3.8868267114330053`*^9}, {3.888996028933751*^9, 3.888996029560378*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"27ab2d3e-f25f-4cb7-bd0e-a84d8adfeb8b"], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.676810903275679*^9, {3.6768111790224247`*^9, 3.6768112109984093`*^9}, { 3.676811273110507*^9, 3.676811282005427*^9}, {3.676811330813836*^9, 3.676811332949668*^9}, {3.676811378491499*^9, 3.676811420381036*^9}, { 3.6769559739093037`*^9, 3.67695603579681*^9}, {3.6769565594260187`*^9, 3.6769565595457087`*^9}, 3.6769603823115883`*^9, 3.676964799505025*^9, { 3.74617324853852*^9, 3.74617328457863*^9}, 3.840729523867261*^9, { 3.840729695976607*^9, 3.8407296971596313`*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"c1bafc64-998a-44f0-916a-f0718296f3cf"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 15:", FontWeight->"Bold"], "\nHow is the square of the wave function of 4 particles interpreted? Which \ is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676964965391416*^9, 3.676964983063591*^9}, {3.676965049230897*^9, 3.6769650570228662`*^9}, { 3.676968094202332*^9, 3.676968094650429*^9}, 3.886760424925663*^9, 3.886825049320545*^9, {3.886826762870982*^9, 3.886826767312628*^9}, { 3.888996035408456*^9, 3.888996047027649*^9}, {3.88899607936062*^9, 3.888996080272337*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"a8fbcb7a-b1ca-4cfe-a916-ce39765a9b08"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.746173304338833*^9, 3.746173405062954*^9}, 3.8407297070305624`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"21ab0d06-4935-4087-933d-b9daa683407b"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 16:", FontWeight->"Bold"], "\nHow is the", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"psiN", "(", RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4"}], ")"}], SuperscriptBox["|", "2"], RowBox[{"dx1dx2dx3dx4", " ", "propuct", " ", "interpreted"}]}], TraditionalForm]],ExpressionUUID->"33e3a788-ea53-43b9-bf2e-7c7ec87f77da"], "?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957158237638*^9}, {3.676964966807378*^9, 3.676965022583913*^9}, {3.6769650595907784`*^9, 3.6769650648309107`*^9}, { 3.676968087699183*^9, 3.6769681158190203`*^9}, 3.886760426099863*^9, 3.886825050563039*^9, {3.886826856504713*^9, 3.886826868995747*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"89028cac-613f-4c6e-80b1-7481d0edd820"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957166141247*^9, {3.746173408782174*^9, 3.746173495768753*^9}, 3.840729710884527*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"ffc80260-f424-4348-b366-b73030147c33"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 17:", FontWeight->"Bold"], "\nCalculate the probability of finding ", StyleBox["all particles", FontWeight->"Bold"], " in the region of space defined by 0{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.676955955117208*^9, 3.67695596970907*^9}, { 3.676957211396801*^9, 3.676957245100466*^9}, {3.676957848501285*^9, 3.676957920568081*^9}, {3.676958061095333*^9, 3.676958066278768*^9}, { 3.676965317949031*^9, 3.676965349637204*^9}, {3.6769681294819736`*^9, 3.6769681437299*^9}, 3.8867604280918703`*^9, 3.886825052114005*^9, 3.8868269439928017`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"fa2fe79a-548c-4a0c-ad10-18a14638db84"], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.676810903275679*^9, {3.6768111790224247`*^9, 3.6768112109984093`*^9}, { 3.676811273110507*^9, 3.676811282005427*^9}, {3.676811330813836*^9, 3.676811332949668*^9}, {3.676811378491499*^9, 3.676811420381036*^9}, { 3.6769559739093037`*^9, 3.67695603579681*^9}, {3.6769565594260187`*^9, 3.6769565595457087`*^9}, {3.676957924232429*^9, 3.676957935328238*^9}, 3.676960388399753*^9, 3.6769653584209967`*^9, {3.746173508412346*^9, 3.746173521345667*^9}, 3.8407297257994366`*^9}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"48ac85f5-4a5b-43e2-9123-c5695a250a63"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["N particles without spin in 1D space. Integration \ only over some particles coordinates.", FontFamily->"Nimbus Sans L", FontWeight->"Bold"]], "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.676955668646998*^9, 3.676955671966981*^9}, { 3.676958188918007*^9, 3.676958206613676*^9}, {3.676965246725637*^9, 3.676965256965432*^9}, {3.809005016650689*^9, 3.809005023082279*^9}, { 3.809005131437302*^9, 3.8090051346749077`*^9}, {3.8407285879142976`*^9, 3.8407286066473556`*^9}, {3.886826974930924*^9, 3.886826981656581*^9}, 3.886827020017158*^9, {3.888996100960924*^9, 3.888996120184429*^9}}, FontFamily->"Utopia", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"1b459bba-207c-4e36-bc81-747732f0d6cd"], Cell[TextData[{ "\n", StyleBox["Again, if we integrate over only some of the coordinates, both the \ physical dimensions and the interpretation will change.", FontWeight->"Bold"], StyleBox[" \n", FontFamily->"Utopia", FontWeight->"Bold"], "\nFor example, integrating only over the coordinates of the particle 1, the \ following function is defined, which is a function of the coordinates of the \ other three particles:" }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.6769581180147257`*^9, 3.676958146390492*^9}, { 3.676958220781864*^9, 3.676958309349255*^9}, {3.67695993795405*^9, 3.676959949090213*^9}, {3.6769600093936377`*^9, 3.6769600122207203`*^9}, 3.676960071465054*^9, {3.676968189953536*^9, 3.6769682069136133`*^9}, { 3.67696828656868*^9, 3.676968302840694*^9}, {3.676968339200573*^9, 3.6769683542167187`*^9}, 3.809005028196287*^9, {3.810141113734461*^9, 3.810141114409898*^9}, {3.840728374792692*^9, 3.840728383991503*^9}, { 3.886769017231069*^9, 3.88676901913242*^9}, {3.886827042637822*^9, 3.886827049232512*^9}, {3.888996172544722*^9, 3.888996202016472*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"377c2711-6ee2-4dfb-9508-8a8923257c8d"], Cell[BoxData[ RowBox[{ RowBox[{"Dn", "[", RowBox[{"x2_", ",", "x3_", ",", "x4_"}], "]"}], "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "L"], RowBox[{ SuperscriptBox[ RowBox[{"psiN", "[", RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4"}], "]"}], "2"], RowBox[{"\[DifferentialD]", "x1"}]}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, 3.6769585593906717`*^9, {3.676958670428957*^9, 3.676958713003016*^9}, {3.676959718011785*^9, 3.676959763267933*^9}, { 3.676959795475739*^9, 3.6769598013877153`*^9}, {3.676959925764827*^9, 3.6769599641061897`*^9}, {3.676960075089032*^9, 3.676960186160686*^9}, 3.676960392527904*^9, {3.676965169966518*^9, 3.676965221694295*^9}, { 3.676965373917404*^9, 3.676965385293212*^9}, {3.676968175946271*^9, 3.676968252385764*^9}, {3.676968314985148*^9, 3.676968330624935*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[17]:=",ExpressionUUID->"62a3c2c0-7d2a-4224-ad40-cdc3982ea274"], Cell["\<\ Integrating over all the coordinates except those of the particle 1, the \ following function is defined, which is a function only of the coordinates of \ particle 1:\ \>", "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.6769581180147257`*^9, 3.676958146390492*^9}, { 3.676958220781864*^9, 3.676958309349255*^9}, {3.67695993795405*^9, 3.676959949090213*^9}, {3.6769600093936377`*^9, 3.6769600122207203`*^9}, 3.676960071465054*^9, {3.676968189953536*^9, 3.6769682069136133`*^9}, { 3.67696828656868*^9, 3.676968302840694*^9}, {3.676968339200573*^9, 3.676968416200149*^9}, 3.676968532135601*^9, 3.8407284881822786`*^9, 3.886769060361974*^9, {3.8889961648246193`*^9, 3.8889961957522182`*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"14db3e95-469d-406a-988e-9c7100439319"], Cell[BoxData[ RowBox[{ RowBox[{"Dnn", "[", "x1_", "]"}], "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "L"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "L"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "L"], RowBox[{ SuperscriptBox[ RowBox[{"psiN", "[", RowBox[{"x1", ",", "x2", ",", "x3", ",", "x4"}], "]"}], "2"], RowBox[{"\[DifferentialD]", "x2"}], RowBox[{"\[DifferentialD]", "x3"}], RowBox[{"\[DifferentialD]", "x4"}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, 3.6769585593906717`*^9, {3.676958670428957*^9, 3.676958713003016*^9}, {3.676959718011785*^9, 3.676959763267933*^9}, { 3.676959795475739*^9, 3.6769598013877153`*^9}, {3.676959925764827*^9, 3.6769599641061897`*^9}, {3.676960075089032*^9, 3.676960186160686*^9}, 3.676960392527904*^9, {3.676965169966518*^9, 3.676965221694295*^9}, { 3.676965373917404*^9, 3.676965385293212*^9}, {3.676968175946271*^9, 3.676968252385764*^9}, 3.676968428840467*^9}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[18]:=",ExpressionUUID->"bfed2db2-ba5b-411b-bf1b-dc69e3290dd2"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 18:", FontWeight->"Bold"], "\nHow is the Dn(x2,x3,x4) integral interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958846289453*^9}, {3.676961603614575*^9, 3.67696161890252*^9}, { 3.676965421196587*^9, 3.676965437052307*^9}, {3.676968436583983*^9, 3.676968484255889*^9}, 3.88676044626746*^9, 3.886825054990666*^9, { 3.886827100293902*^9, 3.8868271242194138`*^9}, 3.888996218813115*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"a691b678-b8d2-43ed-927c-cd94b5d9e2e8"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.676968596198633*^9, 3.676968671270348*^9}, 3.6841375439366198`*^9, 3.740898193431842*^9, 3.840729733862562*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"6c3226c8-2905-4d95-b2e8-bdbbfec993c6"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 19:", FontWeight->"Bold"], "\nHow is the Dnn(x1) integral interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958846289453*^9}, {3.676961603614575*^9, 3.67696161890252*^9}, { 3.676965421196587*^9, 3.676965437052307*^9}, {3.676968436583983*^9, 3.676968459512436*^9}, 3.8867604473955507`*^9, 3.886825056993849*^9, { 3.88682713262444*^9, 3.886827141080079*^9}, 3.888996224547844*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"543d6204-0826-4816-824a-ca6ec15a62ce"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.676968676119523*^9, 3.676968700230051*^9}, 3.684137545664222*^9, 3.740898194943931*^9, 3.840729735892513*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"0372e353-ea7d-4ac2-aefb-e1bec42883da"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 20:", FontWeight->"Bold"], "\nHow is the Dnn(x1) dx1 product interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958871233197*^9}, {3.676961585222795*^9, 3.67696162591846*^9}, { 3.676965423764402*^9, 3.676965480212182*^9}, {3.676968494503538*^9, 3.6769685070634336`*^9}, {3.6769685440232563`*^9, 3.6769685518793488`*^9}, {3.676968824541354*^9, 3.6769688539171343`*^9}, 3.886760448821636*^9, 3.886825058418229*^9, {3.886827157242847*^9, 3.886827172000022*^9}, 3.888996226435903*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"cc2b3368-bd40-44d5-996d-6021794453f8"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.676968720319796*^9, 3.676968772837513*^9}, {3.6769688573651047`*^9, 3.676968897484581*^9}, 3.684137547400399*^9, 3.740898196735922*^9, 3.8407297384364996`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"1aa50dd4-ec28-4f44-9949-3ec50400fce8"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 21:\n", FontWeight->"Bold"], "How is the", StyleBox[" ", FontWeight->"Bold"], "Dn(x2,x3,x4) dx2dx3dx4 product interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958871233197*^9}, {3.676961585222795*^9, 3.67696162591846*^9}, { 3.676965423764402*^9, 3.676965480212182*^9}, {3.676968494503538*^9, 3.6769685070634336`*^9}, {3.6769685440232563`*^9, 3.6769685518793488`*^9}, {3.67696882731723*^9, 3.676968842868826*^9}, 3.886760450891473*^9, 3.8868250606651087`*^9, {3.886827182579165*^9, 3.886827197033498*^9}, 3.8889962290100393`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"a1396cba-bce6-4e5e-bff6-afdd8a1751ca"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.676968720319796*^9, 3.676968772837513*^9}, 3.684137550140234*^9, 3.740898199375925*^9, 3.8407297408205357`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"dee24b2c-fe5a-42a9-94a4-8deafb931ddd"] }, Open ]] }, Open ]], Cell[TextData[StyleBox["Several particles in three-dimensional space", FontFamily->"Nimbus Sans L", FontWeight->"Bold"]], "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.676955668646998*^9, 3.676955671966981*^9}, { 3.676958188918007*^9, 3.676958206613676*^9}, {3.676965246725637*^9, 3.676965256965432*^9}, {3.6769689375495787`*^9, 3.676968941948298*^9}, { 3.8407286512870593`*^9, 3.8407286643753443`*^9}, {3.886827301360876*^9, 3.886827303831601*^9}}, FontFamily->"Utopia", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"fa621eb9-d435-4cc9-b933-ceacc8cb5cec"], Cell["\<\ \t If we now consider 2 particles in a three-dimensional box of dimensions Lx, \ Ly, Lz, we define the following wave function for the system:\ \>", "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.676962447880862*^9, 3.676962482328856*^9}, { 3.676962524663815*^9, 3.67696255125594*^9}, {3.676964177532915*^9, 3.67696418273279*^9}, 3.676966177100336*^9, {3.6769689469643908`*^9, 3.676968974380178*^9}, {3.8090050537548523`*^9, 3.809005067066805*^9}, { 3.840728536869105*^9, 3.840728538133258*^9}, 3.886769100283532*^9, 3.8889962599681597`*^9}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"dbc7c0a2-b1ce-4c27-9b27-e40b277b1d23"], Cell[BoxData[ RowBox[{ RowBox[{"psiN3d", "[", RowBox[{ "x1_", ",", "y1_", ",", "z1_", ",", "x2_", ",", "y2_", ",", "z2_"}], "]"}], "=", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Lx"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x1", " ", "/", "Lx"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Ly"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"y1", " ", "/", "Ly"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Lz"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"z1", " ", "/", "Lz"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Lx"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"x2", " ", "/", "Lx"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Ly"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"y2", " ", "/", "Ly"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "/", "Lz"}], "]"}], RowBox[{"Sin", "[", RowBox[{"Pi", " ", RowBox[{"z2", " ", "/", "Lz"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, {3.676958355880044*^9, 3.676958532804282*^9}, { 3.676958572467681*^9, 3.676958654315342*^9}, {3.676960370223544*^9, 3.6769603753035173`*^9}, {3.676962486568869*^9, 3.676962520088728*^9}, { 3.6769625615924997`*^9, 3.676962568656328*^9}, {3.676962783886595*^9, 3.676962790590272*^9}, {3.676964187389399*^9, 3.6769642067329607`*^9}, 3.676964308348688*^9, {3.6769643862842617`*^9, 3.676964451219738*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[19]:=",ExpressionUUID->"9015e912-67dc-40c7-997a-61a1dce7ea65"], Cell[TextData[{ "where x1,y1,z1 are the coordinates that determine the position of the \ particle 1 in the 3-dimensional box, while x2,y2,z2 are the coordinates that \ determine the position of the particle 2 in the same box. \n\nThe dimension \ of the wave function is ", Cell[BoxData[ FormBox[ SuperscriptBox["L", RowBox[{ RowBox[{"-", "3"}], RowBox[{"N", "/", "2"}]}]], TraditionalForm]],ExpressionUUID-> "267c5ef9-edf1-4d9c-a905-bbcdd0a2a905"], " (N=2). \n\nIf the wave function is normalized, then the value of the \ integral over all the space of the product between the function and its \ complex conjugate must be equal to unit." }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.676809772263883*^9}, {3.676809888511066*^9, 3.676809964822692*^9}, 3.6768102437808647`*^9, {3.676810941223905*^9, 3.676810978431877*^9}, { 3.6769558530619097`*^9, 3.676955913254261*^9}, {3.67696460195395*^9, 3.676964688346731*^9}, {3.676968979980497*^9, 3.676968980884354*^9}, 3.80900580600253*^9, {3.8407286917363043`*^9, 3.840728772231069*^9}, 3.8868273961233387`*^9, 3.886827443491976*^9, 3.88682749661129*^9, { 3.8889962785445623`*^9, 3.888996349856387*^9}}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"4a269e4b-0703-445d-b66d-b477d6057ae0"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 22:", FontWeight->"Bold"], "\nCheck if the psiN3d wavefunction is normalized." }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.676955955117208*^9, 3.67695596970907*^9}, { 3.676964791160557*^9, 3.676964795448679*^9}, {3.676968995547965*^9, 3.676968995755789*^9}, 3.88676047233173*^9, 3.886825064022092*^9, { 3.886827524031495*^9, 3.886827528111608*^9}, {3.888996361696862*^9, 3.8889963624125957`*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"9c351e36-a4b9-4eb3-8539-6a1277b8df73"], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.676810903275679*^9, {3.6768111790224247`*^9, 3.6768112109984093`*^9}, { 3.676811273110507*^9, 3.676811282005427*^9}, {3.676811330813836*^9, 3.676811332949668*^9}, {3.676811378491499*^9, 3.676811420381036*^9}, { 3.6769559739093037`*^9, 3.67695603579681*^9}, {3.6769565594260187`*^9, 3.6769565595457087`*^9}, 3.6769603823115883`*^9, 3.676964799505025*^9, { 3.7461735404345903`*^9, 3.746173613532156*^9}, 3.8407297551437016`*^9}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"21560f3a-8b69-453e-a463-eb16fca0dde6"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 23:", FontWeight->"Bold"], "\nHow is the square of the wave function for N particles interpreted? Which \ is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676964965391416*^9, 3.676964983063591*^9}, {3.676965049230897*^9, 3.6769650570228662`*^9}, { 3.676968998308052*^9, 3.6769689984280663`*^9}, 3.886760475451531*^9, 3.8868250653912992`*^9, {3.8868276744908047`*^9, 3.88682769344753*^9}, { 3.888996368376479*^9, 3.8889963687138977`*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"25e70301-7082-491a-99d3-a6cf126e519b"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.746173685445754*^9, 3.7461737564019203`*^9}, 3.84072975757245*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"1712c469-4991-4a4d-b102-88241e0710bf"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 24:", FontWeight->"Bold"], "\nHow is the ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"psiN3d", "(", RowBox[{"x1", ",", "y1", ",", "z1", ",", "x2", ",", "y2", ",", "z2"}], ")"}], SuperscriptBox["|", "2"], "dx1dy1dz1dx2dy2dz2"}], TraditionalForm]], ExpressionUUID->"b656b10d-51c9-4cd9-8292-c2f755ece99f"], " product interpreted?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957158237638*^9}, {3.676964966807378*^9, 3.676965022583913*^9}, {3.6769650595907784`*^9, 3.6769650648309107`*^9}, { 3.67696900034795*^9, 3.676969000779895*^9}, 3.886760476403881*^9, 3.886825067554041*^9, {3.8868277508394003`*^9, 3.8868277587512283`*^9}}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"a44e6928-382d-46da-a472-1a006e029826"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957166141247*^9, {3.7461737614404173`*^9, 3.7461738229861097`*^9}, 3.840729760500526*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"15ec6ccb-c9dc-448e-aafc-3406b30c3baf"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 25:", FontWeight->"Bold"], "\nCalculate the probability of finding ", StyleBox["both particles", FontWeight->"Bold"], " in the region of space defined by 0{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810563562531*^9, 3.676810573458583*^9}, {3.676955955117208*^9, 3.67695596970907*^9}, { 3.676957211396801*^9, 3.676957245100466*^9}, {3.676957848501285*^9, 3.676957920568081*^9}, {3.676958061095333*^9, 3.676958066278768*^9}, { 3.676965317949031*^9, 3.676965349637204*^9}, {3.6769690027801037`*^9, 3.676969003228043*^9}, 3.8867604782289*^9, 3.886825069204412*^9, 3.886827875726221*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"768e2099-55f6-4ff5-bfc5-ef76dc6a0491"], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.676810903275679*^9, {3.6768111790224247`*^9, 3.6768112109984093`*^9}, { 3.676811273110507*^9, 3.676811282005427*^9}, {3.676811330813836*^9, 3.676811332949668*^9}, {3.676811378491499*^9, 3.676811420381036*^9}, { 3.6769559739093037`*^9, 3.67695603579681*^9}, {3.6769565594260187`*^9, 3.6769565595457087`*^9}, {3.676957924232429*^9, 3.676957935328238*^9}, 3.676960388399753*^9, 3.6769653584209967`*^9, {3.7461738323107224`*^9, 3.746173854699567*^9}, 3.840729770683412*^9}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"d2a98c70-d6b6-4bfd-94c8-93ef7f5691e9"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Several particles in three-dimensional space. \ Integration only over some particles coordinates.", FontFamily->"Nimbus Sans L", FontWeight->"Bold"]], "Chapter", CellChangeTimes->{{3.670046999427387*^9, 3.670047007651354*^9}, { 3.6701305819899187`*^9, 3.670130586469894*^9}, {3.676809457641975*^9, 3.6768094661621437`*^9}, {3.676955668646998*^9, 3.676955671966981*^9}, { 3.676958188918007*^9, 3.676958206613676*^9}, {3.676965246725637*^9, 3.676965256965432*^9}, {3.8090050751759157`*^9, 3.809005078044245*^9}, { 3.809005141252845*^9, 3.809005144655719*^9}, {3.8407288148726187`*^9, 3.8407288390531654`*^9}, {3.88682793024927*^9, 3.8868279548793507`*^9}, { 3.888996392280467*^9, 3.888996413640312*^9}}, FontFamily->"Utopia", Background->RGBColor[ 1, 0.85, 0.85],ExpressionUUID->"eabf7e5b-7c10-46ab-a9df-5b8185d0d786"], Cell[TextData[{ "\n", StyleBox["Once again, both the physical dimensions and the interpretation \ will change.", FontWeight->"Bold"], StyleBox[" ", FontFamily->"Utopia", FontWeight->"Bold"], StyleBox["\n", FontFamily->"Utopia", FontWeight->"Bold"], "\nFor example, we could define the following function:" }], "Text", CellChangeTimes->{{3.6701335039622*^9, 3.670133641113617*^9}, { 3.6701337392889643`*^9, 3.670133748656454*^9}, {3.676809652864962*^9, 3.6768097339921*^9}, {3.6768097878398647`*^9, 3.6768098353117933`*^9}, { 3.676810632042202*^9, 3.676810638682146*^9}, {3.6769557484785223`*^9, 3.676955766998458*^9}, {3.6769581180147257`*^9, 3.676958146390492*^9}, { 3.676958220781864*^9, 3.676958309349255*^9}, {3.67695993795405*^9, 3.676959949090213*^9}, {3.6769600093936377`*^9, 3.6769600122207203`*^9}, 3.676960071465054*^9, 3.809005810569365*^9, {3.8407288463923674`*^9, 3.8407288529664125`*^9}, 3.8407289141974964`*^9, 3.8868279871248093`*^9, 3.886828030104747*^9}, FontFamily->"Utopia", FontSize->28,ExpressionUUID->"65488f02-8400-47eb-aa75-a6626ce2bed4"], Cell[BoxData[ RowBox[{ RowBox[{"Dn3d", "[", RowBox[{"x2_", ",", "y2_", ",", "z2_"}], "]"}], "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "Lz"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "Ly"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "Lx"], RowBox[{ SuperscriptBox[ RowBox[{"psiN3d", "[", RowBox[{"x1", ",", "y1", ",", "z1", ",", "x2", ",", "y2", ",", "z2"}], "]"}], "2"], RowBox[{"\[DifferentialD]", "x1"}], RowBox[{"\[DifferentialD]", "y1"}], RowBox[{"\[DifferentialD]", "z1"}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.676809712112557*^9, 3.676809718448592*^9}, { 3.676809837711961*^9, 3.6768098752475243`*^9}, {3.676810027214674*^9, 3.676810045182563*^9}, {3.676810173717664*^9, 3.676810212653569*^9}, { 3.67681117142342*^9, 3.676811171566456*^9}, {3.676955774950441*^9, 3.676955846653838*^9}, 3.6769585593906717`*^9, {3.676958670428957*^9, 3.676958713003016*^9}, {3.676959718011785*^9, 3.676959763267933*^9}, { 3.676959795475739*^9, 3.6769598013877153`*^9}, {3.676959925764827*^9, 3.6769599641061897`*^9}, {3.676960075089032*^9, 3.676960186160686*^9}, 3.676960392527904*^9, {3.676965169966518*^9, 3.676965221694295*^9}, { 3.676965373917404*^9, 3.676965385293212*^9}, {3.676969033020228*^9, 3.676969038500016*^9}}, FontFamily->"Utopia", FontSize->28, FontWeight->"Plain", CellLabel->"In[22]:=",ExpressionUUID->"8027451c-e72b-4271-9489-48c1bb84e6a4"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 26:", FontWeight->"Bold"], "\nHow is the Dn3d(x2,y2,z2) integral interpreted? Which is its dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958846289453*^9}, {3.676961603614575*^9, 3.67696161890252*^9}, { 3.676965421196587*^9, 3.676965437052307*^9}, {3.67696901394797*^9, 3.676969043563442*^9}, 3.886760491611417*^9, 3.886825074239118*^9, { 3.886828035999152*^9, 3.886828058953874*^9}, 3.888996433602168*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"41af078c-5045-42b1-9b15-4c0338705b0a"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.74617388199587*^9, 3.746173899700396*^9}, {3.746173937429611*^9, 3.7461739986154213`*^9}, { 3.746174088497909*^9, 3.74617409829112*^9}, 3.8407297755727096`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"28a666e9-5b61-481c-99c8-7dfad74e0999"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Exercise 27:", FontWeight->"Bold"], "\nHow is the Dn3d(x2,y2,z2) dx2dy2dz2 product interpreted? Which is its \ dimension?" }], "Exercise", CellChangeTimes->{{3.670741876843429*^9, 3.670741877363332*^9}, { 3.670742357984179*^9, 3.6707423606080847`*^9}, {3.670743276977798*^9, 3.670743285079891*^9}, {3.676810274340526*^9, 3.676810274444358*^9}, { 3.676810316444146*^9, 3.67681032266397*^9}, 3.676810396251699*^9, { 3.676810526778625*^9, 3.676810532349327*^9}, {3.676810868552647*^9, 3.676810873480751*^9}, {3.676955951293147*^9, 3.6769559612381163`*^9}, { 3.676957055637714*^9, 3.676957106349407*^9}, {3.676958772353936*^9, 3.676958871233197*^9}, {3.676961585222795*^9, 3.67696162591846*^9}, { 3.676965423764402*^9, 3.676965480212182*^9}, {3.676969016867805*^9, 3.676969055675572*^9}, {3.7461740577290077`*^9, 3.746174060297311*^9}, 3.886760493406001*^9, 3.886825076022908*^9, {3.8868280641669188`*^9, 3.886828072416431*^9}, 3.8889964430099363`*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 1, 0.9, 0.8],ExpressionUUID->"28375d1d-173e-48f1-915a-4b11d9481bec"], Cell["", "Text", CellFrame->{{0, 0}, {0, 2}}, CellChangeTimes->{{3.670741857708091*^9, 3.67074188680472*^9}, { 3.670742009651628*^9, 3.670742244241395*^9}, {3.670743300987064*^9, 3.670743320729836*^9}, {3.676810278756482*^9, 3.676810326956047*^9}, 3.676810413267449*^9, {3.676810465227339*^9, 3.676810487794973*^9}, { 3.676810892760034*^9, 3.676810898352233*^9}, {3.676811217821843*^9, 3.676811264509701*^9}, 3.676957162940921*^9, {3.746174007106345*^9, 3.7461740203199387`*^9}, {3.7461740646892233`*^9, 3.746174103410389*^9}, 3.840729777701621*^9}, FontFamily->"Utopia", FontSize->28, Background->RGBColor[ 0.88, 1, 0.88],ExpressionUUID->"305566c4-35be-43bd-a3e3-73345eb22be3"] }, Open ]] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, WindowToolbars->"EditBar", CellGrouping->Manual, WindowSize->{1853, 1025}, WindowMargins->{{0, Automatic}, {0, Automatic}}, PrintingStartingPageNumber->1, PageHeaders->{{ Cell[ TextData[{"Qu\[IAcute]mica", " ", "F\[IAcute]sica", " ", "I"}], "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], Cell[ TextData[{"Grado", " ", "en", " ", "Qu\[IAcute]mica"}], "Header"], Cell[ TextData[{"Universidad", " ", "de", " ", "Salamanca"}], "Header", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}, { Cell[ TextData[{"Qu\[IAcute]mica", " ", "F\[IAcute]sica", " ", "I"}], "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], Cell[ TextData[{"Grado", " ", "en", " ", "Qu\[IAcute]mica"}], "Header"], Cell[ TextData[{"Universidad", " ", "de", " ", "Salamanca"}], "Header", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, PageFooters->{{None, Cell[ TextData[ CounterBox["Page", CounterFunction :> Identity]], "Footer"], None}, { None, Cell[ TextData[ CounterBox["Page", CounterFunction :> Identity]], "Footer"], None}}, PageHeaderLines->{True, True}, PageFooterLines->{False, False}, PrintingOptions->{"FacingPages"->True, "FirstPageFace"->Right, "FirstPageFooter"->True, "FirstPageHeader"->False}, TaggingRules->{ "PresenterSettings" -> { "SlideBreakStyles" -> {}, "ShowSlideBreaks" -> False, "WindowSize" -> {1920, 1080}, "WindowMargins" -> {{0, 0}, {0, 24}}, "Dialogs" -> {"PresenterControlsPalette" -> 0}, "UserModifications" -> {{"Chapter", FontWeight -> "Bold"}}}, "TryRealOnly" -> False}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->FrontEnd`FileName[{"PresenterTools"}, "Garnet.nb", CharacterEncoding -> "UTF-8"], ExpressionUUID->"d4aa22fd-e793-49ad-ba17-14f2aeab45da" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1331, 29, 550, "Title",ExpressionUUID->"aafcbb54-7c1d-433e-a5cb-2fed5fc46e96"], Cell[1892, 51, 562, 8, 24, "Author",ExpressionUUID->"5ab44cd9-b3cd-4f62-b46c-9cea6b5187c8"], Cell[CellGroupData[{ Cell[2479, 63, 289, 6, 86, "Chapter",ExpressionUUID->"c68e5ac3-e236-4fe4-9be5-fd956529a700"], Cell[2771, 71, 712, 16, 86, "Input",ExpressionUUID->"84a2d7a1-fcaf-4d52-9481-70befbac85bb", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[3520, 92, 489, 8, 87, "Chapter",ExpressionUUID->"57246b1f-86e3-4719-9023-f9e12d49f621"], Cell[CellGroupData[{ Cell[4034, 104, 865, 16, 82, "Text",ExpressionUUID->"77a50b91-4480-424e-8be0-f53ba893acd5"], Cell[4902, 122, 681, 16, 45, "Input",ExpressionUUID->"92974c64-6277-416e-817a-177fcd995e7d"], Cell[5586, 140, 1447, 26, 221, "Text",ExpressionUUID->"f0199b93-866a-4237-affb-c15e57258ca9"], Cell[7036, 168, 2571, 56, 312, "Text",ExpressionUUID->"c5364e10-9482-4504-b30e-ba11aadb43df"] }, Open ]], Cell[CellGroupData[{ Cell[9644, 229, 1061, 24, 90, "Exercise",ExpressionUUID->"f8c56c82-3681-43b5-89a0-01faf2445f9f"], Cell[10708, 255, 659, 12, 64, "Text",ExpressionUUID->"5e720e8d-a8b4-4ad8-b85a-f0398097eb1a"] }, Open ]], Cell[11382, 270, 1081, 19, 90, "Exercise",ExpressionUUID->"fe9b44d8-b401-4888-95ab-1b9070a976e5"] }, Open ]], Cell[12478, 292, 721, 13, 64, "Input",ExpressionUUID->"1328ec99-98f8-4089-86b1-fb92ea415985"], Cell[13202, 307, 589, 10, 87, "Chapter",ExpressionUUID->"9aefb523-bdb5-4921-981a-961abf050c10"], Cell[13794, 319, 806, 14, 113, "Text",ExpressionUUID->"b8dd021e-1b0e-4ed7-a6cb-09f156fe7649"], Cell[14603, 335, 1398, 36, 45, "Input",ExpressionUUID->"b6bf7158-6055-40aa-b4b5-42e3025e2580"], Cell[16004, 373, 1225, 23, 291, "Text",ExpressionUUID->"5d0ea130-bbb4-4e6d-86bb-ce57836f68b8"], Cell[CellGroupData[{ Cell[17254, 400, 1109, 24, 90, "Exercise",ExpressionUUID->"d6b0054d-4ba7-4453-9b0c-7108b44abcfa"], Cell[18366, 426, 659, 12, 64, "Text",ExpressionUUID->"a17a4621-8b4e-4880-87e9-c71c11e333ef"] }, Open ]], Cell[CellGroupData[{ Cell[19062, 443, 819, 16, 90, "Exercise",ExpressionUUID->"835dd5c7-ffa7-4186-9043-00990171a591"], Cell[19884, 461, 737, 13, 107, "Input",ExpressionUUID->"85cb252c-1c9f-4464-9517-b2b9269ad808"] }, Open ]], Cell[CellGroupData[{ Cell[20658, 479, 842, 16, 90, "Exercise",ExpressionUUID->"ee69c19a-b068-4c99-b5db-cef590668532"], Cell[21503, 497, 711, 13, 64, "Text",ExpressionUUID->"d52f49e5-e49b-40da-986f-18e1f5c96845"] }, Open ]], Cell[CellGroupData[{ Cell[22251, 515, 1164, 26, 94, "Exercise",ExpressionUUID->"6bf5afaf-d4cb-454f-8e2b-c4dcf905685e"], Cell[23418, 543, 661, 12, 64, "Text",ExpressionUUID->"9d4a1b8a-041c-462c-a42e-26b765b0e1e7"] }, Open ]], Cell[24094, 558, 1007, 19, 90, "Exercise",ExpressionUUID->"e4cae812-9451-4553-9b22-befc01fd1bbd"], Cell[25104, 579, 721, 13, 64, "Input",ExpressionUUID->"797f6b34-a7a4-493e-bae7-703dd593eefd"], Cell[CellGroupData[{ Cell[25850, 596, 586, 10, 91, "Chapter",ExpressionUUID->"959131bc-a93c-4969-b2b5-f53d2c21f9ab"], Cell[26439, 608, 1448, 29, 189, "Text",ExpressionUUID->"796cafff-1283-4d2b-95cc-b245f4d27c02"], Cell[27890, 639, 1173, 25, 87, "Input",ExpressionUUID->"3706f4f4-2e20-4f52-b8ef-aa26eee219cb"], Cell[CellGroupData[{ Cell[29088, 668, 1008, 18, 90, "Exercise",ExpressionUUID->"73838af9-7afb-4d78-9e26-474a6873b4b7"], Cell[30099, 688, 659, 12, 64, "Text",ExpressionUUID->"975caa85-4800-4c0e-a7b5-91955991eccd"] }, Open ]], Cell[CellGroupData[{ Cell[30795, 705, 966, 18, 90, "Exercise",ExpressionUUID->"149f2161-58c7-4b73-ae18-78256af249cf"], Cell[31764, 725, 659, 12, 64, "Text",ExpressionUUID->"3166df56-0c3b-4abc-a009-fa1e867fa395"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32472, 743, 635, 11, 91, "Chapter",ExpressionUUID->"ab5526be-c794-436d-8855-c9b804da8199"], Cell[33110, 756, 1231, 23, 152, "Text",ExpressionUUID->"7500e58c-f036-4521-86e8-542fa1ff4c89"], Cell[34344, 781, 1258, 27, 45, "Input",ExpressionUUID->"57b3dac7-9e8d-444c-b3e0-87669d79bd61"], Cell[CellGroupData[{ Cell[35627, 812, 1395, 30, 91, "Exercise",ExpressionUUID->"6ef44881-7f53-4648-b952-f9e5fa64144f"], Cell[37025, 844, 633, 12, 64, "Text",ExpressionUUID->"d4d539a4-cbf0-4016-9474-9adde3dd1336"] }, Open ]], Cell[37673, 859, 918, 17, 90, "Exercise",ExpressionUUID->"43275bda-6456-4405-9370-5c4ca8ff461c"], Cell[38594, 878, 767, 13, 64, "Input",ExpressionUUID->"f35eff34-4202-4995-a996-f3c5b53aa739"], Cell[39364, 893, 905, 15, 81, "Text",ExpressionUUID->"8e5f0f79-3521-4a89-abbd-4106e9248260"] }, Open ]], Cell[40284, 911, 1343, 29, 88, "Input",ExpressionUUID->"a7a6fa9d-e2e7-464a-ade6-86b3e401a310"], Cell[CellGroupData[{ Cell[41652, 944, 1058, 19, 90, "Exercise",ExpressionUUID->"d8b34f68-e7ca-4f0b-af19-865715ab806e"], Cell[42713, 965, 661, 12, 64, "Text",ExpressionUUID->"d7c87334-321a-45f0-b46f-5feda42b3433"] }, Open ]], Cell[CellGroupData[{ Cell[43411, 982, 980, 18, 90, "Exercise",ExpressionUUID->"96b3f4c5-5c24-4006-a38f-4f0c8b4bc19c"], Cell[44394, 1002, 657, 12, 64, "Text",ExpressionUUID->"6dc576ce-db78-4a64-94ad-ecbaa111d6ef"] }, Open ]], Cell[CellGroupData[{ Cell[45088, 1019, 706, 11, 87, "Chapter",ExpressionUUID->"bebbb07c-fe25-4084-b878-b4064b59f0f3"], Cell[45797, 1032, 881, 16, 81, "Text",ExpressionUUID->"6c2648ec-4f90-412f-aa12-ea676b772a9b"], Cell[46681, 1050, 1718, 39, 45, "Input",ExpressionUUID->"ce03d79c-02d8-482b-813b-91f31b6e6d3e"], Cell[CellGroupData[{ Cell[48424, 1093, 939, 18, 90, "Exercise",ExpressionUUID->"27ab2d3e-f25f-4cb7-bd0e-a84d8adfeb8b"], Cell[49366, 1113, 696, 13, 61, "Input",ExpressionUUID->"c1bafc64-998a-44f0-916a-f0718296f3cf"] }, Open ]], Cell[CellGroupData[{ Cell[50099, 1131, 1134, 21, 90, "Exercise",ExpressionUUID->"a8fbcb7a-b1ca-4cfe-a916-ce39765a9b08"], Cell[51236, 1154, 659, 12, 64, "Text",ExpressionUUID->"21ab0d06-4935-4087-933d-b9daa683407b"] }, Open ]], Cell[CellGroupData[{ Cell[51932, 1171, 1272, 27, 94, "Exercise",ExpressionUUID->"89028cac-613f-4c6e-80b1-7481d0edd820"], Cell[53207, 1200, 657, 12, 64, "Text",ExpressionUUID->"ffc80260-f424-4348-b366-b73030147c33"] }, Open ]], Cell[CellGroupData[{ Cell[53901, 1217, 1105, 22, 91, "Exercise",ExpressionUUID->"fa2fe79a-548c-4a0c-ad10-18a14638db84"], Cell[55009, 1241, 698, 13, 61, "Input",ExpressionUUID->"48ac85f5-4a5b-43e2-9123-c5695a250a63"] }, Open ]], Cell[CellGroupData[{ Cell[55744, 1259, 884, 14, 91, "Chapter",ExpressionUUID->"1b459bba-207c-4e36-bc81-747732f0d6cd"], Cell[56631, 1275, 1487, 26, 187, "Text",ExpressionUUID->"377c2711-6ee2-4dfb-9508-8a8923257c8d"], Cell[58121, 1303, 1285, 25, 87, "Input",ExpressionUUID->"62a3c2c0-7d2a-4224-ad40-cdc3982ea274"], Cell[59409, 1330, 1092, 18, 116, "Text",ExpressionUUID->"14db3e95-469d-406a-988e-9c7100439319"], Cell[60504, 1350, 1448, 30, 87, "Input",ExpressionUUID->"bfed2db2-ba5b-411b-bf1b-dc69e3290dd2"], Cell[CellGroupData[{ Cell[61977, 1384, 1082, 19, 90, "Exercise",ExpressionUUID->"a691b678-b8d2-43ed-927c-cd94b5d9e2e8"], Cell[63062, 1405, 707, 13, 64, "Text",ExpressionUUID->"6c3226c8-2905-4d95-b2e8-bdbbfec993c6"] }, Open ]], Cell[CellGroupData[{ Cell[63806, 1423, 1077, 19, 90, "Exercise",ExpressionUUID->"543d6204-0826-4816-824a-ca6ec15a62ce"], Cell[64886, 1444, 705, 13, 64, "Text",ExpressionUUID->"0372e353-ea7d-4ac2-aefb-e1bec42883da"] }, Open ]], Cell[CellGroupData[{ Cell[65628, 1462, 1187, 21, 90, "Exercise",ExpressionUUID->"cc2b3368-bd40-44d5-996d-6021794453f8"], Cell[66818, 1485, 755, 13, 64, "Text",ExpressionUUID->"1aa50dd4-ec28-4f44-9949-3ec50400fce8"] }, Open ]], Cell[CellGroupData[{ Cell[67610, 1503, 1241, 24, 91, "Exercise",ExpressionUUID->"a1396cba-bce6-4e5e-bff6-afdd8a1751ca"], Cell[68854, 1529, 707, 13, 64, "Text",ExpressionUUID->"dee24b2c-fe5a-42a9-94a4-8deafb931ddd"] }, Open ]] }, Open ]], Cell[69588, 1546, 715, 12, 91, "Chapter",ExpressionUUID->"fa621eb9-d435-4cc9-b933-ceacc8cb5cec"], Cell[70306, 1560, 941, 16, 78, "Text",ExpressionUUID->"dbc7c0a2-b1ce-4c27-9b27-e40b277b1d23"], Cell[71250, 1578, 2001, 50, 86, "Input",ExpressionUUID->"9015e912-67dc-40c7-997a-61a1dce7ea65"], Cell[73254, 1630, 1397, 26, 256, "Text",ExpressionUUID->"4a269e4b-0703-445d-b66d-b477d6057ae0"], Cell[CellGroupData[{ Cell[74676, 1660, 940, 18, 90, "Exercise",ExpressionUUID->"9c351e36-a4b9-4eb3-8539-6a1277b8df73"], Cell[75619, 1680, 650, 12, 61, "Input",ExpressionUUID->"21560f3a-8b69-453e-a463-eb16fca0dde6"] }, Open ]], Cell[CellGroupData[{ Cell[76306, 1697, 1093, 20, 90, "Exercise",ExpressionUUID->"25e70301-7082-491a-99d3-a6cf126e519b"], Cell[77402, 1719, 658, 12, 64, "Text",ExpressionUUID->"1712c469-4991-4a4d-b102-88241e0710bf"] }, Open ]], Cell[CellGroupData[{ Cell[78097, 1736, 1278, 27, 94, "Exercise",ExpressionUUID->"a44e6928-382d-46da-a472-1a006e029826"], Cell[79378, 1765, 661, 12, 64, "Text",ExpressionUUID->"15ec6ccb-c9dc-448e-aafc-3406b30c3baf"] }, Open ]], Cell[CellGroupData[{ Cell[80076, 1782, 1123, 22, 91, "Exercise",ExpressionUUID->"768e2099-55f6-4ff5-bfc5-ef76dc6a0491"], Cell[81202, 1806, 698, 13, 61, "Input",ExpressionUUID->"d2a98c70-d6b6-4bfd-94c8-93ef7f5691e9"] }, Open ]], Cell[CellGroupData[{ Cell[81937, 1824, 864, 14, 91, "Chapter",ExpressionUUID->"eabf7e5b-7c10-46ab-a9df-5b8185d0d786"], Cell[82804, 1840, 1114, 24, 152, "Text",ExpressionUUID->"65488f02-8400-47eb-aa75-a6626ce2bed4"], Cell[83921, 1866, 1501, 32, 87, "Input",ExpressionUUID->"8027451c-e72b-4271-9489-48c1bb84e6a4"], Cell[CellGroupData[{ Cell[85447, 1902, 1082, 19, 90, "Exercise",ExpressionUUID->"41af078c-5045-42b1-9b15-4c0338705b0a"], Cell[86532, 1923, 755, 13, 64, "Text",ExpressionUUID->"28a666e9-5b61-481c-99c8-7dfad74e0999"] }, Open ]], Cell[CellGroupData[{ Cell[87324, 1941, 1150, 21, 90, "Exercise",ExpressionUUID->"28375d1d-173e-48f1-915a-4b11d9481bec"], Cell[88477, 1964, 711, 13, 64, "Text",ExpressionUUID->"305566c4-35be-43bd-a3e3-73345eb22be3"] }, Open ]] }, Open ]] }, Open ]] } ] *)