(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 26796, 608] NotebookOptionsPosition[ 25664, 566] NotebookOutlinePosition[ 26003, 581] CellTagsIndexPosition[ 25960, 578] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"i", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"8", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "300"}], " ", "t"}], "]"}]}], " ", "-", " ", RowBox[{"8", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1200"}], " ", "t"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"i", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", RowBox[{"8", " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.457737758*^9, 3.457737823203125*^9}, { 3.45773785490625*^9, 3.457737888109375*^9}, {3.457737946390625*^9, 3.457737953796875*^9}, {3.457738783828125*^9, 3.45773881734375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k0lVsbAHCzwznvMauQZMgUzjVkzLMzR0Kc45xjnocoIVSISK6uElHK JTQYSsksxVUUUVG3VKIQrsiQJKJvf3+967fe9ay9197PsPZW34P7Arg4ODjk ODk4/v/14u5Q9IsY38nB0bbS2VhjCl5aVV65j0w5tMuiO6jZUCcR0qud+8qU I/vIti18JTA3x+shkztmmvRvyRbp79WQ6flKUSR30RTZp1ICX/4D7rn30sm5 PIC6AoWHsvrgIe12MylXHEgaly+JCH0CRWvxqTuGEiDcvKnS6ewnSPM4sok1 JAFtvy4VSwqNgE2GeVy58gZAoqudNGIUno2+0bNt3gRPqHZn73B/hoE8jurT w7LwwqCOV/vdJMSulznz5yrCxtdDl8c3zIH8q2lDm6+KoMiQ1TlMn4Oecprc n9ZKIF54wak9G/+nN04LriiBhfI2vnzKPPRUPj5J9VKG2nL+Q6Zr8yDPGm+Q UFUDOSmFvvz+b/CsRkFG8b4WzJFPnSEcfkDLI51kbTINPkpyyL5J/QHZt+mL /fo0eFE4OBPQ/ANMTua/EztHgwL1SKlXisuQTdt6I9f8D+DoatJaXlqGnado KL9MG8RNDvGfzlqBHF2HyCuRepCavHWBdmkNsixN+uwK9CAi5MW5/zrW4C+G Ku1Hhx4ExzlB9PwapMVxf7XftAMG61xYHDbrENfSELLaugNIO9/m/1hYB08L OR8GYQCpFwINd8lxIDWXeQdKmRG8ezwTd8KDEykHDFU19BkBQ2O8rySCEynG PCX8Vo0glKEaXpXCiTZfvPa0aa8xSNqHVZ0q50TCgyzroO/G0J5B0bVY5ERL fu2m7WY7YXuU48i3k1zon6gcjbgPAFdFVj8VXeJGdhLC21S5EcTVVy4tVnCj +giGXt4GBHv9SVSDe9zoL+VR5wiEoP72s8T099zIIPdXlmI2gj2//X45S/Og rAgtcqbeLrgrdHqk+AIPQsq5vz3izSDY/ff60RReVHniPfVplhk+T9RUeY4X SQ5tlTW4ZgbdZG7tniJeNH2+ykT0mRmkmvbkDN7jRRe5nhzp3GIOUytnTpl8 40VzH1a+aT40B4N8tXQeLz505bz35G8BSwjKMLlDqPOjCjM7dRU5S7A6pLyH acCPaub0DjjusIQ922il5yz5Uece8uIVX0tAzO7WF178aJqn/veue5bwVKPC /UQOPzI4TN6QGmYFYxvpNm0/+NELer0l6bk1NK60JBC1JPSOuzid9tkawnIy d+xpJaHR6tNPmavWEFCYE3+sm4SWCB+ncmUbOBoRPFH5kYRkOsketkk2UCvX 10CnCKDgHT7Rf/2xGzhuRku/9RZAnBsopcLnbeHPlPNBq+sCSJY56PagzBYs mixQB78gMsm/KR523xZYKwUiKcKCKEbaPu3xuC1Y/3u3891WQTS15UxIoqEd HL/WnLNqLoheqQjTpofsYGaAP5ScJohuGInff6xqD9Yan9ZvcJLRo2Njhw+b 2sOrzJw5bgEyGmmp1VRwtofLaa+F6MJkJAP0K4nx9vBv1P3V17JklGWel6L3 3B7yiu3S2cZkdHTPRtvS6L0Q9U3bNTiSjOw9Zd4ktjrApd6i2MEBMiItZD2c +NcB1gR3bzo0jNc7yXvHcdoBfpnqOqx8JqNCRqzFOYoj1GxVKZlaICOJRO/N foaOMG26LGhBoSCeXu3nfDmOUJ36aX3EhIJGJMMtjQsd4XN3yZMOMwpq875x 72C5I8iv8/f8bUNB8YvSZQOtjvCRPHlDw4WCvknzJldMO8LkXtunvaE4PvSN 9l4rJyA+xHttzMPxtSLlJ5ycIGqFN8j5MgUVrtttaXB3gpwTIpapVyiInd1G lotygv2iTyoeV1BQX1P52HyRE/DQLiu9foDjSfF5uT+dwOkSD5/UZwr6+7rc yuDNfSAtSzNLUCPQwlszuQ8N+yARie6M1CSQFRFg9aF9HzRxtKV4ahPoa1R5 9oeBfeBc90V8sxGBTHdpqw/xOENFDklFZzeBPr43dx92dwaOx8X83QEE0hUK PDEc5AyBO40T9UMIlG6WXjYc6Qxf0/a1FoQRiFbeszic7gylzPbWvVEESo6h Z36sdQY+zYazTkkEkhcJevCJ4gK+s3f4314kUIzFn2OfNrjAx56w2s7LBOqO rRQckXeBh5mTpTcLCRQ5NMsYMXAB025GsM9VAj2sjJsd8XeBEG3jfQdvE8jf KkNurMUFZCd7ZuUfEajxyE2rsccuwHEtQeViJ4Eot56FjfW7gHm/iCRfF4Hq xMSaxiZdILqmUL2nl0B8ny47fRanw7YYWU6uNwS6cezWifEwOpyvyNotNUmg k3HtfqqxdBgMscxe/Y9AfoffWIQl04Gtb/nx9RcCbTnIyb+QS4dMt5TiY7ME uuBLP732gA7BgYX2iUsEOuwVGoa66CCTF06nLRPI2f24fcpLOph1vP5r8CeB hBjlQgKTdNCOdixSWCPQqd1rOeIiDFjq+zoaxk1FAVaih12lGRC7v/HnHA8V mZsrMy4pMeCdX0DwQT4q+m3itFHOiAHnnv/j7yZARbG0awXqfgxI+ykcNEel oqAN9tfM6hjAOJM2L7qJiizFfdNOtjJgLqJp1lSKihREYoOedDGgcHNoXoA0 FQ0LFqvuHWKApt3VuZLNVOS6vniLxe8K7g4WXkNbqUhvVeBsgYgrqObYqHyU pyKxZdmIYWlXMElRbhtUoKLn8zbaATRX0O10P9ipREXWnwvqI1iuIJik6uCu SkVKI9UXavxcIXu8WFRPjYq4hzvjlsJdwXLZr5ukTkWtA3NG8Sdcga2rr1q8 nYr0eyxaT1W6gk3JAcU8LSqS6GJd6a7D8RElgtY0KvrWcSCZaHMFxUvXBb5h 3269aJ7zyhUenN3ib6JNRco1048L11wh7waZlKtLRS5vX5q1kpgwpctdoqZH RSd+N98fFmOC+KEDJc3Yg3Z/1sipMaEonXOmawcVCUZGaO7SY4K05V6z3fp4 Pxddy30QExKOMsUfYmePKRWVMJgQzHXP4roB3r8gIfXQhwnfwkSrhAypaJq2 eH40jAny6UoVUdhSru+FeOKYIEULNu3Htk5oz1BMYYL25d0R6kZUFF1azmt5 hgkPPHQtj2OXdGUlBeQzYTT8THsv9i8Jr5jrt5kQ7SDSwzamIlUTq/nOZiYE bpz1zcdm+GqETXQwIU3pekM/dmq6+AR/HxP6z5x8zmdCRdVVqz4qg0xoHntz Ww976NXIoM0EE17rjHp4YVNWu1xDFphwhfTfUAq24dbq/j/XmKAYtc2gFDvQ +qJ9BYkFbYKvDtzHzgk//qRbjAUt80rp/dhtOYHmX2RZwP/W7s8R7K9N9g/I aiwY4D4UO4Mt/VHXcLseC5h2La7fsG34ZGr3IBaYyDtqLWLHbOfWCrdjQdhF W+457NJ9U+WZDBYUeHYMjGO/iOtTrPJhwWTXv7UD2GuFjUXPwlgQ9Oavgg5s tY4iqdlYFjzS+nH+FjbzS1quUAq22ubSLOyTIgeEaWdYMNLP1XMA+64+/bRj PgteTd4Qt8H+6GHCd+gqCwQn+E/IYBOpCsnnbrPAnFdq0zQ+T6MKwV/VzSzg MukbqscOejEf09/Bgo02MgPx2OeXBuYXXrBAsuqzgCl2u0xbmNggC57fFzuy gu9v1uzGhM4EC3py09XuYsuEnPF1WWDBg23yCgHYtmcPf4heY8HijuYgMeyr 781f1omxYUnTYNIH50sfp/re17Js0P/aosGFva4s2rWkyoaYkYT+v3H+saI/ PtBHbLCYerTnMc7PtEuPDZl2bIgQ7FKnY9e2VdXGMdiQdZw3YQjnN5VIqGgK Y8PRiaX0UZz/xjr+Su9i2XD5lIC9F3Ywy+7Kygk2LH4QynuN6+fhtU15xvls GPud1tWgQ0VxpvXJ9zvYQNqwXd/yDyrS0sxqkHvBhvF3K5NluB7HN4fOpLxj w82BgX4StsvaZpbtLBts7WI97mtS0R8tJ2lvNrrBo5mM2p+4/icrvQKNFNxg n5JeJmBfuWxY8LeGG1DWyfeScb+gHpvh9zdzgwGhC4qrKlQ0ZUgfntvvBvwh 49ntuN8Uq2pJuMS4Aa20N+6LIr7/TQJ2DUlu0Cdj9UIYu3O5pT4h1w1s9Cc+ OeL+VdKgeEaw1Q38eHTnr8tSkZveoomiqDu0Kmj8c0uSikSVnkWeknGHB0Ur HkUSVNQtXlY2tc0dbjYLlGaKU5HBopt4tbE77DthqOMtSkXiNQ+/7Axwh6tP fZ98IKioh5ZzybXRHe68tS3eifu36Xbt5QxPDzgwcdX7+lcChfEufmgK9oCq 0cx8oxkC5Q/VPZyM9ID2hsS1p3i+LGYZnrU65QFSg0+dxvE8qviOtnHd8YAp r5GjP0cIJNHq4HKE0xPiXNRNC14TaNop/E7QVU8YbVDPGr9HICl1rby8Kk8Y P6+foNRMIGue+WMdjZ4wKP/wi08jgUrqo60Vej1B6skl15e1BHKVjh8a+u4J 4He1+uItArWPZVAY1l4wDualt/E8zo8tC7aY8oLluQd1W44TSPKoyaTjdy/I cAhYH48n0G7TyRpNDm8IzmytqTxKoE4Ur2NM9ob6geAIjRgCtVpe1XbZ6g2e 7NkU0XAC3XVYpKXZe0PBjvjCADaen37nNaauecPTIt9ocx0C+Z5+te0uwwdu F7Z6RQ9RkA6lKjb/ii9o73Y4c3I7BU3X93Dp8vmDhNYC+xidjA5mTWZYBARA zAvS8L1IQaRx2ePQzZuBYBN0qF8lTwC9fL4h+7FQMAi7WXFqF5NQrZ66iJFb CBhGPPHe1cyPEjpSur3aQyEz5+Vx0zY+JJz6NmlVPgyWszKKVHt50VBUeu7X /eGw0CSutj7Dg3Iz48fOvzgAHiWUXRqcPMh8esymixoBKvXaJffxw0VOVVCW +24EbJp1Nghz50LzK05Zkn6HIGigbnNjKifyDuisppMiYUfX9wr7dg700N8j 4sC9SIiYqE5M//obTq9Gapjtj4K+Qx5qpw+uw5xaXf4uoWgQ2lC30W7jGtjO biqV+ica1P8zN1WqWYVdeyrdtgQdBvZBGKqOWoG/0T3RYYEYkLEqKne2/gkz XTOBcc0xIOgqMecutAzvv+wJ3ekVC8wjjJf8P5fgfskzwUGROLBq2nT3/sB3 MFmIZ19vjIMBUkpGy5tFkHtbXqbufgT2GWZadI9/g2WXnzkZxFEI2n9X1WFm AQ6EHNaUqDkKjW15IZpCCzAgKh54JPAYGDlJZleozsMN5z8KLkrGA2tCu1HL eQ7ENI4ljzbHw43ayd5OlVmIujzBTQpPgGOnyOPuhTNwqCRJjymWCDXJ+XdP wjS8QhcD/OoTod7jrbDKjylQj+7Xtgk6Dj3toufOlf4HwlcKXLfzJcFblVHj q4cn4aSjj3+xVxIsZa7mzeycgPStvJI3sfmKcsy7sDMWyh7XY78R85+7ip11 fk6tBztcucrWHfvSwPH5JWz5mXHOpyYTcMe7MHGPdxIIl00dLTOegMGI9xd/ YKemG1zwM5yA4V3Hbbl8koAaPmgL2COiCr8o2A0VjetS2BO1oV7y2BtpUkH9 BhOwsPxTyR67hZVstAublLyxpgRbfmj4i6z+BJD3tfjfwu7dLlC6smMCqAre ko3Yts9D2a+xxTpuHOnF9qS+6crElhXQR8vYf+93rvylNwFy797Nc/kmQZwD +A9gK1QmlhLYx1L9Ntdiq9h38ilgl3x0ydqPrS4b2qiBLc0vb2uNrTlLhBpg ByQo8yhg09qqpc2xdcwDHqzrToDOOXqvPbYi833cO+z/AQNJujU= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->NCache[{{0, Rational[1, 125]}, {0., 3.7797626205758927`}}, {{0, 0.008}, {0., 3.7797626205758927`}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.45773782753125*^9, 3.4577379560625*^9, 3.457738819828125*^9, 3.457739736265625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "Voltage", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", "t_", "]"}], " ", "=", " ", RowBox[{"4", " ", SuperscriptBox["10", RowBox[{"-", "3"}]], RowBox[{ RowBox[{"i", "'"}], "[", "t", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "[", "0", "]"}], "//", "N"}], "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"v", "[", "t", "]"}], " ", ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4577379620625*^9, 3.45773805825*^9}, { 3.457738164421875*^9, 3.457738396390625*^9}, {3.45773843971875*^9, 3.4577384573125*^9}, {3.457738505265625*^9, 3.457738506890625*^9}, { 3.457738578359375*^9, 3.4577386225625*^9}, {3.4577388574375*^9, 3.457738882296875*^9}, 3.45773898978125*^9}], Cell[BoxData["28.8`"], "Output", CellChangeTimes->{{3.457738182796875*^9, 3.45773819784375*^9}, 3.4577382396875*^9, 3.45773827634375*^9, {3.457738321609375*^9, 3.457738397671875*^9}, 3.457738460765625*^9, 3.45773850809375*^9, 3.45773862640625*^9, 3.457738821453125*^9, {3.457738861875*^9, 3.45773887834375*^9}, 3.457738991125*^9, 3.457739736375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"t", "\[Rule]", "0.0015403270679109895`"}], "}"}]], "Output", CellChangeTimes->{{3.457738182796875*^9, 3.45773819784375*^9}, 3.4577382396875*^9, 3.45773827634375*^9, {3.457738321609375*^9, 3.457738397671875*^9}, 3.457738460765625*^9, 3.45773850809375*^9, 3.45773862640625*^9, 3.457738821453125*^9, {3.457738861875*^9, 3.45773887834375*^9}, 3.457738991125*^9, 3.457739736390625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "power", " ", "delivered", " ", "to", " ", "the", " ", "inductor"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"v", "[", "t", "]"}], " ", "*", " ", RowBox[{"i", "[", "t", "]"}]}], " ", "//", "Expand"}], " ", "//", "N"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"p", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", RowBox[{"8", " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", " ", "All"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.45773864303125*^9, 3.4577387201875*^9}, 3.457738770265625*^9, {3.457738828875*^9, 3.45773884415625*^9}, { 3.457738900828125*^9, 3.457738903015625*^9}, {3.45773901771875*^9, 3.45773902759375*^9}, {3.4577391049375*^9, 3.4577391400625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "307.2`"}], " ", SuperscriptBox["2.718281828459045`", RowBox[{ RowBox[{"-", "2400.`"}], " ", "t"}]]}], "+", RowBox[{"384.`", " ", SuperscriptBox["2.718281828459045`", RowBox[{ RowBox[{"-", "1500.`"}], " ", "t"}]]}], "-", RowBox[{"76.8`", " ", SuperscriptBox["2.718281828459045`", RowBox[{ RowBox[{"-", "600.`"}], " ", "t"}]]}]}]], "Output", CellChangeTimes->{{3.457738679859375*^9, 3.4577387216875*^9}, 3.457738774421875*^9, {3.457738823921875*^9, 3.457738830859375*^9}, { 3.45773889703125*^9, 3.457738904125*^9}, {3.457738996625*^9, 3.45773902853125*^9}, {3.4577391284375*^9, 3.457739140875*^9}, 3.4577397364375*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nc81d8bAHDjq4zI3uNeO6Ps7T7HVkhZ2esOZKRStJCItKRIpZIiEhkZ IfdEqYikSVYhUkZCkvH7/P66r/frOa/P+Xye8zzPueTgPS50NhYWlvOsLCz/ /w1gf6ZIjf5mzsKSuDbKZAUI2FIWkPWUwmLLQdPTHoJqkbAOnax3FJZXan5m kjMwM8PhJ501QmE5M/u0rmcNzvq/UxTImqOw1FSJmKlsRL5ZDWk8Wf8BYk+9 ubNDBsk2p4z5DHBA4mH3ELtjcujLlLPtfZX1MFRSGi95iYQY9iPsTvVcMPTs rXyGoTza+29DwrlBPkg8FyKnGqSEWrQe1HNmCUPe7TVdFyt1pGgnPFFuLAKB dhe6febV0Um/QxJeAyKAnAU6NhdoIPt0q7hiFTFIdLrPa7WqiTqHP+pvq5eA xMIYi50OWuhTNkvF6UFZiCt/8oazUgeZlNKHdJPlgL9895WgJR3UGTS6PkqY BHFvX9U9sdBFW+K2GYo+IsGMy5BiXocumr0jnM1gk4e03uezvL16KHa1yHV9 liKgXUNt1OcGSP7dT2P7KUVIC6vxm+EwRK+KtUin7JSAMxI7HbMyRPLudT+5 l5TgBR9Ov9VAxEuep/AFqADno9kg1zwjFHucJ8K5TgVwG8+4/EcjJL/L2SVD QBVCGwW+/sdrjGLZPsoKPlUFkp3SBOdBYyTv9a1WZJMa1Kn4MpzMTVDHZrUb HklqEJqi2vozwgTF/ReVfPmzGti//Jz74BoRfzC/Q+KcOtRVT3y5u0DE13FM SP/WAM/S7O3X8k1RZ5WCtOLjLWD0svOX9Tsz1PhU97gOjxaQavPPcv0xQ5kP 3Oe6DbXg0+hSIb+EOTJLudIrdEEL+M8ZZkx6m6NMLfLdLCttSKuxVxb+YI5C pawkDaK14YU3qpD9bY7M19HPfsjVhqJdvj2HNlLQ+Oei/WIL2hAdmdOpaktB 5qla6EqRDgT2vNqcU0JBgvtcqozf60Dcm+ZcjxZivW+Mci+rLtTFvfqxr5eC MnXqNkj56EIob2pG+zpAoTK9CQ2puhB4dHwjjzQgc87lWZ+HujDu1tZSpgVo vB96cnn1ICch/6+qJ6CmF0GO5iZ6wNkneoYtHNDFqhPMfoYefJIWirE9Bohy 6nmBLNYDo+QOK6E8Iq7nvC9vnz5waiboTgwAyrAxe+OQqw95fn6/d/wEdMZj k9afZ/qgWlrnAn8BnYxjn3KSMABHxvvmz5wIJZ2acfxraQBuyOv1LT6EEq72 l9yJMICirfy/NIURimusDfvHNIDxldrSq7IIHei486LwuwFoXesOPqqA0L6B CyouQoaQOx0bpKyKUDhLxGgRwxDStAxo77UQChXwsnbLMAStVsXDn/UQosnb 3l57ZAj8vxxXSowQ8rcmBXnwGsE78xZqGSDk486LWQ2NQDK+fccXS4Q8GUuy pYFGoMGR0jRkg5Bb7Ngxz3Qj2KDisqXUHqGdae/62B8aQRf9qqKdA0Lbrzwx fdBvBHryr2QfOCG07V7ZVe/1xlC/1f/6qDNCdg3X/nJoG8NB1m7ZHzsRsn6V 5lnhbQxd2x+SsCtCFv0Han2TjWGx8aYc3R0hylSwKGeZMQizUC73eiBksuZ8 oOqjMfhmbWUjeyJkyG/+zp/VBBYDz/caeSGkR1bT5VY3AZatMzny3ghp6Yhl VruZQE1HcPUAYU2r/34FxpvA0ZtzhZE+CKm5/XLeUGQC37RfDb8mrEIfKKt9 YwK7HdW+cPgipHiwnZf6zwRccsKF+AmTUusi+JRMYbsG99QUsV4mp6D90XZT 8BW5OZxPWLI4U40eZwqU/mG6BmHR+oRT/PmmkMb3cPQ0sb9Qe8R4Q7sptFbz vX1CvC9/n5ddyDzhIbHrncT38E7aFgrKmYGglGRl5S6EuFd1OZrszWBkLDUh ivj+dRvJtLB9ZrBsvLKXjcgPO4mvRTjXDGrG0XwUkT8W7X9k/MwMxBVsYx4S +V22GE8MnzYDgyFNr7dE/heozZRmS3NwMRb9e4M4r98xD65HRpiDasK2ZMet CM2k5C6LZ5sDDm8XeW+L0Pe7B+v3fDeH3P88huMsEPpWR5WQEqLA0fUm3y9R EPr6ckdcqxkFoqXlT501Rajvh5qBTAYF7pioy4vqI/RpWSzrxSMK+Kv/HSjU Rug9L8fc/mFifbHKY5HNCHVuGaxoMwCIMK3yPa+M0JP9FzXj+gE2pAfELYsg 5CDCr7yJHcGOKRbKTQGEaqI99LPFEGiVSloq8iJ0RmXYNRohiIt66/mBHSGj rOUMxUwE948VtDwfBHR7xjLvQiEC1YBbSVbvAfE5nnqwWo9A+sSZ72ltgEbY RDs/DSOIdn2gsf8h0b/RW3jO6ltAhPSnig8pgP61H5Bc2moBl9yffi0/BIih 0rgpxN8CFD2nsr0iAZkN2NtbpFrAp5Jvg+JuxDxxCE6Z/2QBjScrhALkiIZS yVrzO2oJMd49KLWUgkqSPvO1Z1jCXEjVwbM3KEh0gCxrVGAJnBKL68PPU9DP S2Vmgp2W8PRsumNZNAXlsL041CpnBSzrJi9QtSlopn/p9+YWK1Cs93H/U2KO 8i4Fjq9x2QB/bkY+2ykzdM/SQV2VZAOK0eJMFGOGqmb0o3YY2MDMqrR9YIAZ anXkmcsLtoGimyGFNvpm6Od/NWsWDTZgVvIpqXbQFBkd4BFLjrCF8lLB+Ntb TFGXe40N52s7UK7+zd3cZIxYxTbc5r+0Deo5XRJ5yw2Qk7/0x3imMywr3ZBp 69BC1wtJS333XaCSd78g3yUlNNtjSeqvdQEz2zq53BAlZMtLt+1vdgFcKKNh ZaqEpvYXZ/Z/cgFfLpuavq+KiGKhoz7wnysoZz7MQ7qKaOizle+gryvkaz9p /fpJHskLhDR92eAGNdVGBVpGJHT3SGnStwh3aDpkLrAtSxSlxDVTN8W6A2V9 5o0tzqKIeuCjdcRxd/Aubqq14xJFcntY189mucPqi4IHG+NF0OVg99MrTe6w RNE8uxYmjFK3rlwUFvCAZkrUXpqDIAoRcyqwrPYAPBT6rzp0A1Kp+vn8xsou yDkrI3v98BK49by1ZHISFwcv2eX88b+QtFb/eFDIE7pMXnyIOLUIfQ6nqkhq njCktvHX+LUFyBxRupnv4Qk7svRZB9tnYVkk4GDhA09IlLHRFXvwDbri3iiW BXkBzotfANJz5sqNupudEV6Q6HY9J4y1k6n27KbkdKwXdNkejMeR3cwUgSh+ rXNesKNojcXSvIdpco97uaLeC8ofkWy4vYaZdz5bva0W8gZF0+YYPvMZZhyl 5vjjZ94gHBGTvPXRMnPL5oxaUpc39KkYrxOPXGF+k9k9eaLXGx4ueayqk1aZ bisyXtumvcFxarZcKXmNqd2YovVR3AfujLWMPSSz4glj98GZcB9YkJ9se/Ka Hfvoz5kpCvpCs7RDnMU4JxZU6tyXKu0L3jGvPT4ZcOE24aKiCWVfmN1m3CCW woWN5nyEK0x9oaxl+GMGiRsLV7X8MKf7Qv1cUPVeVx78Suvi1V11vtAWyLMo XsyLKRo6i+n+fuAhmNxzn1sAR3DM9T8K9YMuU41cDg0BfGWgumV8nx88/H7W 1dBJAM9lGJ+3TfWD4e1+LMrnBfC9eaTMVu4H36j+szoCgliE6ex2iNUf9BXb 7Uh8QvjnzsjykDv+YF0U8vXXD2Esqb4lO7vMH9SeGs9d5hTBdv/9OvKszh/u j4izSCqJ4PyaGDuFDn+IduEPqfQTwbukjg4MzBPrm3ZIGHaI4OaR9A0edgEg ybdiV1Agiq/EFoVaTwRAX7uFZZOZOBY9bDa+Yz4A7C9wRsnvEsdbKeNVm1kC 4QjrheaAveK4FR3VNeUJhH17YwMZBeKYaXNHx40cCOOZti8KeSRwpfOc1kmn QPhombzI90YCX6Ze0pwoIOKi90Z3ICn8geYfGV1CPC/i4noRDykszFAtXSgP hMp5skRNuBTOCG3UYG8MhGbP18fPZ0vh9MgRdenuQBhTvF2QPyGFj8bqqW1f DQQWBYM/1DPSOPj0O+VKjyCov8KVJlsrg+m/xJ72+ASBy4XZ6jPPZXDoLp8g 1qAgcBWxPzH4UQbvUfh6bUd4EPT1cXjqLsrgow3T/NMJQdBJdd6dbSiLs39w /1MvDgJ/MWtR/wpZfGXn9hzXsiAwiPs5TsKyOLf2gv6RqiDg5m179rJTFt8+ IR7d9jgIChMP/en4IYvLpZRHQ7uDQGWqoThfUQ63OVi8LvhHxBu88jIuyOGO iuSIDpZg2NH8Ma7phhzuEnvBNc8RDLIeqo1vS+Twx+Ht1tb8wWCavdDz8Jkc Hjni++irYjCM8XztdF2Uw6slsbfltgfDCfbMB6c1SFh3Q1nslbxg4C2wir6T TMIDJ3u/bCkMBq6YisN66SScxrresbUkGN5uV8mrPU/EFwJIv2uI/Z3e7bl8 lYTTvwi8dOwIBiMPifSmByT8teaAJMtSMDS2HHtd/ZGEz2rnJ2evBYNtVG/q sT4SNrrfOaXBQYWZcQdl4y8kfO6WSosXPxXux0rYnZkgYeMzPeFVylSYlXbd d3uZhDOCzB8zXKmwuJSimCdLxqZ9YSornlSoU3i8ViJPxt88si9c9KfCqcci yfeVydjMcZqOw6hQnP6u9vRmMh4zuMUnmUiFW2l0safmZEzZwBHYcZ8K6CX8 U/Ym4+8ntduolVToky6bTPIj40us/npLtVQYumxi/S6QjCcWajhVWqggVOni sCuEjLO+hFYk9lBBpdRsbXA/Gf+secWmt44G0Qv73nCcJmMX5Unrch4aSJkc Ki0/S8Z1WbypGgI0ePzEbnlnBhknx2znUZKmweDwSam4LDKW1ukSEtWhQdr0 ZILrTTJOujXjnmlIg7MLbQJVt8h4nF8gh8+cBgs5FqFcd8j44fRO6fX2NHDY vev01SIydip9q7joR4NPalwtzhVEXHqOEUOlwZH+tkxGFRlLnhEungmlQdxx mdiYaiJfu901v++nQbf26J0Dj8g4XvWjfu8pGlT27LnL94SMy2732jZW0+Dz 3ELL7U4yFhb6l2bUQAPzmLIIrS4yPpwk1f4Q0+CeCu3pwzdkbBvk61zaToPD lYzCO+/IeEB2YNeNLzRYizliIt9LxtbnVq9IjtGAtJ87KPIzGd9bke3L/kmD gzIix8v7yPhgX0Dg+T80YD/v2i07SMZ8V7+EJvLSQXRqoC53mIxjuNhKlgXp kJU7dq9ohIx74+Qn48TpMB4pO3h/lIwLd1H37lWgg0rsuPaNMTLe8PxE1aQq Hd4vugSfHifjfQZ35sM206FX/+pi9Hfi/EVGDwUb06HzidxhpR9kfCeZo3GA Qge20eWDc4S555RWva3p4Ld3brnhJxl/6GYkuTrTIUBT4bneFFFflqlPX7vR 4fPGJ9LfCOdX3F3n6E2HY622shnTZLwnYzzdmk68r0O6XecMGV+lJakF76bD 2S7bx56/yPipkXRbwh46WLnenekjLPnFmavhEB1Y/f6WdM+SsU3196JP8XS4 5lZuYf2bjKNPnbBfOEEHtS3Z5Q8It2rXpmqfo8M5bqQfM0fGvzh2qjhfpAPj 5U3PDsLSvROtETl0sP9BjybNk7FdWTIj/TodWne5nogkvC9Jdl1RPh12tink PCR83aOu4NldOoS/O1s9T/iFmovN8H06VAxaftVaIOPfqz9GWCrpMLdlWpFB WPZtSrJsLbHfqHFyFuGtd+UUzRrpcGv16Tom4Zgjj1q8ntBh1Fuz6ivhm86u 1NhWOig2cmew/CHjNoVJtqx2Oui+nL4tTnj+z8n8yi46sPDvnlcjTHpFsux6 T4cb69lOGxJ2yKv/MtlLh8uCpuEUwgdj3I7zDNFhJfFiLhC+ZT9F2jRKh4eZ yUqmhF9Jp2HbCTpcPJS0QZvwnxlyIG2aDkU+y7vIhOWfNawdn6NDqLsv3wbC Tlfcb978S4dfR9Yb/CLeNy5ymvJ4lQ7Gg37vuwjftjg10MvOAOqZ+tl7hDtF FOIXORkwfH7/pQTCf783yojyMeDTnx68nbBik8djXSEGWH4wjhcn7Jw547tT nAGuVr3dfUR+DzPSl6NkGFAcsPL0GuECE8XcM/KEPYa83Ql38TWZ3lNhwIPA hqtchJVrfx0e1WZAygBZO5g4352nT0uyGzKI/9ccl9YRPhqgVE8yY8DdxfOP Coj66F7v9dfHlgF8uqL0d0Q9rXyezTnkwIAoCcs/VMKq5WeMLu9gAMYHaVNE /cV74thubwbUdyqN/ybqtVjDW2wmgAEvuoq59xB+xzJXw0tnwI7XW0mjRH2r Fass2O9hwNNnDWbNRP1/+HsuhnmCAf8oEUOI6BfWTlXh/jQGxNxfsLhE9JNG fnPV0lkGmDn0Pfs6Qcy3bQuz+jkMEF1acdhL9KPmNb+99+8zIHxi/2+3b2TM kjzUb1TJgIsTl5b2EP3dHUHd9qyWAY02cgkpRP/HUcIUBpoZMJvqK5P3lYyb v8S839jDAIv81NhLA8T8bvtjkTvAAGmnLbrJ/WQcUnW4THWEAUukfQVRxLzZ kJKYajHNgBU8/lKXmE8eqmeM93OEwImPQh8S3hP5EdhYuMYdAtJ+pty2xDz7 9/eC4Bn+EPAfztFY/5aM89ov/7gjFQIVao67DhPz8EfU7esftEOAb+tFNqV2 Mk6srmc18Q8BxTf0MxeYxH1wwzyqlRoCEs6Udq4mMlZKxb0uYSEwdP5z8LFG oh88W6vCY0Ig3F23xoOYxyLLb+jX00OAS6Uyr7uSmJeW31+y1IbA1PltG+aJ +f/2tVjm842h4K4UbrvxJBnvlhH2nRcOBZ74WxzyyWTMFs6vrCAZCvpmo4Ha SWSss46rPl4xFAZszVZt4sk4w2zpi75xKHRadLvbHSRjx+I+7TvBodA04xJX RifmU9KtN4nVoSD5Xq9S05K4T/TVBUx8wmAwOwH1zZLw78v8RR8CwyDYyPDq 2jQJ6yzNU/YzwqDzmrEuaZKEy5twxP29YfD9z5S+1xgJl9p5vJBNC4P6/CaW ks8kXOh1PIG9OgzEpqwr3rSQcM6xj5Ov+HYDX9jmim2ZJHzs2Ym2gObdIC79 7tt7VRLmT+5J/CcfAd9jdXKdzsnigf1pWVPhkWAzLJsx1iGNs84eHbnUFQV4 q9Tzy58lsdXPEfuXfNGgG6XRs8ItgUmbuGXZK6MhYeytg7+jGP61tDNDlLoX Vv7NpVPiRHAgvbXCnXMfZF2uc/n+QQi30Pyioxr2gZD8E9JrNUF8+t8+Tcvw /dBVNaxWkMePZ9Sqr1hsjIHVqDMxby7w4W3TErcln8RAXV32X6c+HmzhWOIj F3IAvFVTrGuTufB11CA4yHUQDLwPW6jT1uPJl5OMuPqDcO5Sd3GSFQf+/MNx t3lALMzX+f8XHs2OH+d3cvcJxEFvybVJqTxWbDZ71LuwLg7qKc1s+4VYMKmn uEjd9xA8GJuePea3wlx0+3sxnfcw7KG9vbH36hIzKuzAZpGqw3DypNxcPFpk fhIUZhxiHAFFyrmfFlPzzLuu2rk5okchVn5gqbnvN1NI88jx4fqjUF2tqzcl Ocvcf22MnTPyGDzjND+qHjDD3JufqO8pFA8s0fNGnh2TzHcoh06tiQfmhOXv 7+o/mOox3Tr2IQlQelVw4MTFcSZ/Xu4ujXWJoBblz+UU+I2ZsiOIdisgEUbf H3ORNhhhppE5RO8TFoke8+nXH2GmzxY9ryHclyjEuEE449KM2ivCrCuVR0mE r35K+LVAOEluY5Wi3gizPPBGvGNgIljymFhr6oww+6I/5/whPBi9bZGyeYQ5 aJGwjS0oEQ5FrEqwEP4qqLC8gbB9VozZE80R5tjD3QHyhCPod09YEZ5d/Kvk RPgkU1nKXmOEyXlcvCqf8JJXetROtREmj0sjrZSwlmhgriBhPoVA0TrCq71/ 2t5uGmEKPbt7qIPwpgORah6EZbkM0SLhqyXRs96qI0xSb+8vtuBE2BHhoSxN WKEk/jYvYTuFVe9+lRGmqlPrOgXCb3ZfbA0grC67u06TcPdC4gqJ8OZp3t1G hL/v0dL/qjzC1MIVUlaEe9/eirxNWPeCe4fT/59Hel9II/w/Zid5vQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.457738679859375*^9, 3.4577387216875*^9}, 3.457738774421875*^9, {3.457738823921875*^9, 3.457738830859375*^9}, { 3.45773889703125*^9, 3.457738904125*^9}, {3.457738996625*^9, 3.45773902853125*^9}, {3.4577391284375*^9, 3.457739140875*^9}, 3.457739736453125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"When", " ", "is", " ", "the", " ", "power", " ", "a", " ", RowBox[{"maximum", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tmax", " ", "=", " ", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4577390514375*^9, 3.457739099609375*^9}, { 3.457739153375*^9, 3.457739171796875*^9}, {3.457739274203125*^9, 3.4577393390625*^9}, {3.457739369125*^9, 3.457739398859375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"t", "\[Rule]", "0.0004110514049349855`"}], "}"}]], "Output", CellChangeTimes->{ 3.4577390681875*^9, {3.457739203671875*^9, 3.457739222015625*^9}, 3.45773927934375*^9, {3.457739311671875*^9, 3.4577393463125*^9}, { 3.45773937690625*^9, 3.457739384453125*^9}, 3.457739736484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Maximum", " ", "power", " ", "at", " ", "t_max"}], "*)"}], "\[IndentingNewLine]", RowBox[{"pmax", " ", "=", " ", RowBox[{"p", "[", RowBox[{"tmax", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4577391783125*^9, 3.457739246421875*^9}, 3.457739292421875*^9, {3.45773938765625*^9, 3.457739393703125*^9}, 3.45773972515625*^9}], Cell[BoxData["32.7192875161351`"], "Output", CellChangeTimes->{{3.45773920565625*^9, 3.45773924834375*^9}, { 3.4577393066875*^9, 3.457739315*^9}, 3.457739395125*^9, 3.4577397365*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Maximum", " ", "energy", " ", "stored", " ", "in", " ", "the", " ", RowBox[{"inductor", ":", " ", RowBox[{ "from", " ", "0", " ", "to", " ", "t", " ", "such", " ", "that", " ", RowBox[{"p", "[", "t", "]"}]}]}]}], " ", "=", " ", "0"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t0", " ", "=", " ", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"p", "[", "t", "]"}], " ", "\[Equal]", " ", "0"}], " ", ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"2", " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"w1", " ", "=", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"p", "[", "t", "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", RowBox[{"t0", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"can", " ", "also", " ", RowBox[{"do", ":", " ", "w"}]}], " ", "=", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", "L", " ", RowBox[{"i", "^", "2."}], " ", "So", " ", "w", " ", "is", " ", "max", " ", "when", " ", RowBox[{"i", "[", "t", "]"}], " ", "is", " ", "max"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"t1", " ", "=", " ", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"i", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", "0"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", RowBox[{"2", " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"i1", " ", "=", " ", RowBox[{ RowBox[{"i", "[", "t", "]"}], "/.", RowBox[{"t", "\[Rule]", " ", RowBox[{"t1", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{"w1", " ", "=", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", "4", " ", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", SuperscriptBox["i1", "2"]}]}]}]}]], "Input", CellChangeTimes->{{3.457739423359375*^9, 3.457739530640625*^9}, { 3.4577395733125*^9, 3.457739714859375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"t", "\[Rule]", "0.0015403270679109897`"}], "}"}]], "Output", CellChangeTimes->{ 3.457739496328125*^9, 3.457739532640625*^9, {3.457739643015625*^9, 3.457739668421875*^9}, 3.4577397018125*^9, 3.45773973653125*^9}], Cell[BoxData["0.028573218935427566`"], "Output", CellChangeTimes->{ 3.457739496328125*^9, 3.457739532640625*^9, {3.457739643015625*^9, 3.457739668421875*^9}, 3.4577397018125*^9, 3.457739736609375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"t", "\[Rule]", "0.001540327067910792`"}], "}"}]], "Output", CellChangeTimes->{ 3.457739496328125*^9, 3.457739532640625*^9, {3.457739643015625*^9, 3.457739668421875*^9}, 3.4577397018125*^9, 3.457739736625*^9}], Cell[BoxData["3.7797631496846193`"], "Output", CellChangeTimes->{ 3.457739496328125*^9, 3.457739532640625*^9, {3.457739643015625*^9, 3.457739668421875*^9}, 3.4577397018125*^9, 3.457739736640625*^9}], Cell[BoxData["0.028573218935427587`"], "Output", CellChangeTimes->{ 3.457739496328125*^9, 3.457739532640625*^9, {3.457739643015625*^9, 3.457739668421875*^9}, 3.4577397018125*^9, 3.457739736640625*^9}] }, Open ]] }, WindowSize->{615, 557}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 826, 24, 54, "Input"], Cell[1419, 49, 6440, 112, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7896, 166, 930, 24, 92, "Input"], Cell[8829, 192, 366, 5, 30, "Output"], Cell[9198, 199, 437, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9672, 211, 1052, 27, 74, "Input"], Cell[10727, 240, 732, 19, 30, "Output"], Cell[11462, 261, 8831, 149, 231, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20330, 415, 666, 16, 52, "Input"], Cell[20999, 433, 329, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21365, 444, 470, 12, 52, "Input"], Cell[21838, 458, 186, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22061, 465, 2440, 69, 178, "Input"], Cell[24504, 536, 258, 5, 30, "Output"], Cell[24765, 543, 207, 3, 30, "Output"], Cell[24975, 548, 255, 5, 30, "Output"], Cell[25233, 555, 205, 3, 30, "Output"], Cell[25441, 560, 207, 3, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)