X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=research%2FTCS%2Fcapacitance.nb;h=2cb88a359d9a5c7d0aeef70e901238b09cab60d7;hb=99ba9c4410dd508341c7069ce00bab5aac444f09;hp=831a7cf2046e2376319bff0e51992b1fdd8c619d;hpb=56bf4ee27e40b03bdba614df60e71d40d2cac502;p=matches%2Fhonours.git diff --git a/research/TCS/capacitance.nb b/research/TCS/capacitance.nb index 831a7cf2..2cb88a35 100644 --- a/research/TCS/capacitance.nb +++ b/research/TCS/capacitance.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] -NotebookDataLength[ 8831, 250] -NotebookOptionsPosition[ 8112, 221] -NotebookOutlinePosition[ 8450, 236] -CellTagsIndexPosition[ 8407, 233] +NotebookDataLength[ 14247, 401] +NotebookOptionsPosition[ 13118, 357] +NotebookOutlinePosition[ 13454, 372] +CellTagsIndexPosition[ 13411, 369] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -50,10 +50,12 @@ Cell[BoxData[ RowBox[{"\[Omega]_", ",", " ", "V0_"}], "]"}], " ", "=", " ", RowBox[{"FourierTransform", "[", RowBox[{ - RowBox[{"v", "[", "t", "]"}], ",", " ", "t", ",", " ", "\[Omega]"}], - "]"}]}]], "Input", + RowBox[{"v", "[", + RowBox[{"t", ",", " ", "V0"}], "]"}], ",", " ", "t", ",", " ", + "\[Omega]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5523546214071712`*^9, 3.5523547025559893`*^9}, { - 3.5523553152882023`*^9, 3.552355316326148*^9}}], + 3.5523553152882023`*^9, 3.552355316326148*^9}, {3.5523637265479307`*^9, + 3.55236372696416*^9}}], Cell[BoxData[ RowBox[{ @@ -68,35 +70,8 @@ Cell[BoxData[ FractionBox["\[Pi]", "2"]], " ", "V0", " ", RowBox[{"DiracDelta", "[", "\[Omega]", "]"}]}]}]], "Output", CellChangeTimes->{{3.552354637903281*^9, 3.5523546565521603`*^9}, { - 3.552354705534474*^9, 3.552354708319261*^9}, 3.552355316878035*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"amplitude", " ", "=", " ", - SuperscriptBox[ - RowBox[{"Abs", "[", - RowBox[{ - RowBox[{"V", "[", "\[Omega]", "]"}], " ", "/.", " ", - RowBox[{"V0", " ", "\[Rule]", " ", "1"}]}], "]"}], "2"]}]], "Input", - CellChangeTimes->{{3.5523547568263407`*^9, 3.5523547725826674`*^9}}], - -Cell[BoxData[ - SuperscriptBox[ - RowBox[{"Abs", "[", - RowBox[{ - RowBox[{"-", - FractionBox["\[ImaginaryI]", - RowBox[{ - SqrtBox[ - RowBox[{"2", " ", "\[Pi]"}]], " ", "\[Omega]"}]]}], "-", - RowBox[{ - SqrtBox[ - FractionBox["\[Pi]", "2"]], " ", - RowBox[{"DiracDelta", "[", "\[Omega]", "]"}]}]}], "]"}], "2"]], "Output",\ - - CellChangeTimes->{{3.552354765629209*^9, 3.552354773172522*^9}}] + 3.552354705534474*^9, 3.552354708319261*^9}, 3.552355316878035*^9, { + 3.55236372229109*^9, 3.5523637274639397`*^9}}] }, Open ]], Cell[BoxData[ @@ -116,16 +91,14 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"-", "\[ImaginaryI]"}], - RowBox[{"\[Omega]", " ", "c"}]], "+", " ", + RowBox[{"\[ImaginaryI]", " ", "\[Omega]", " ", "c"}], "+", " ", FractionBox["1", "Ra"]}], ")"}], RowBox[{"-", "1"}]], "+", "Rg"}]]}]], "Input", CellChangeTimes->{{3.5523548800075397`*^9, 3.552354915946725*^9}, { 3.552354948404332*^9, 3.5523549491684923`*^9}, {3.552355018225143*^9, 3.5523550262754383`*^9}, {3.5523552038190727`*^9, 3.552355222703746*^9}, { 3.552355279891653*^9, 3.552355285419094*^9}, {3.55235535015308*^9, - 3.552355350612905*^9}}], + 3.552355350612905*^9}, {3.552363701124979*^9, 3.552363703641261*^9}}], Cell[CellGroupData[{ @@ -161,8 +134,8 @@ Cell[BoxData[ Cell[BoxData[ TagBox[ StyleBox[ - DynamicModuleBox[{$CellContext`c$$ = 1.*^-10, $CellContext`Ra$$ = - 1, $CellContext`Rg$$ = 10000, $CellContext`V0$$ = -10, Typeset`show$$ = + DynamicModuleBox[{$CellContext`c$$ = 8.08*^-7, $CellContext`Ra$$ = + 1, $CellContext`Rg$$ = 10000., $CellContext`V0$$ = -10, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ @@ -171,17 +144,17 @@ Cell[BoxData[ Hold[$CellContext`c$$], 1.*^-10, 1.*^-6}, { Hold[$CellContext`V0$$], -10, 0}}, Typeset`size$$ = {360., {99., 103.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = - True, $CellContext`Rg$3664$$ = 0, $CellContext`Ra$3665$$ = - 0, $CellContext`c$3666$$ = 0, $CellContext`V0$3667$$ = 0}, + True, $CellContext`Rg$1179$$ = 0, $CellContext`Ra$1180$$ = + 0, $CellContext`c$1181$$ = 0, $CellContext`V0$1182$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`c$$ = 1.*^-10, $CellContext`Ra$$ = 1, $CellContext`Rg$$ = 10000, $CellContext`V0$$ = -10}, "ControllerVariables" :> { - Hold[$CellContext`Rg$$, $CellContext`Rg$3664$$, 0], - Hold[$CellContext`Ra$$, $CellContext`Ra$3665$$, 0], - Hold[$CellContext`c$$, $CellContext`c$3666$$, 0], - Hold[$CellContext`V0$$, $CellContext`V0$3667$$, 0]}, + Hold[$CellContext`Rg$$, $CellContext`Rg$1179$$, 0], + Hold[$CellContext`Ra$$, $CellContext`Ra$1180$$, 0], + Hold[$CellContext`c$$, $CellContext`c$1181$$, 0], + Hold[$CellContext`V0$$, $CellContext`V0$1182$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, @@ -194,7 +167,7 @@ $CellContext`Ra$$, $CellContext`c$$, $CellContext`Rg$$]]^2, {$CellContext`\ 100000000}, {$CellContext`Ra$$, 1, 100000000}, {$CellContext`c$$, 1.*^-10, 1.*^-6}, {$CellContext`V0$$, -10, 0}}, "Options" :> {}, "DefaultOptions" :> {}], - ImageSizeCache->{405., {181., 186.}}, + ImageSizeCache->{405., {204., 209.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, @@ -207,20 +180,183 @@ $CellContext`Ra$$, $CellContext`c$$, $CellContext`Rg$$]]^2, {$CellContext`\ CellChangeTimes->{{3.55235495848225*^9, 3.5523549840217457`*^9}, { 3.552355042834875*^9, 3.552355057810268*^9}, 3.552355132149538*^9, { 3.5523551849403133`*^9, 3.552355223898213*^9}, {3.552355265198854*^9, - 3.552355297304193*^9}, {3.552355341762637*^9, 3.552355361439733*^9}}] + 3.552355297304193*^9}, {3.552355341762637*^9, 3.552355361439733*^9}, + 3.552363706588172*^9}] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"InverseFourierTransform", "[", RowBox[{ - RowBox[{"current", "[", + FractionBox[ + RowBox[{"V", "[", + RowBox[{"\[Omega]", ",", " ", "V0"}], "]"}], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"\[ImaginaryI]", " ", "\[Omega]", " ", "c"}], "+", " ", + FractionBox["1", "Ra"]}], ")"}], + RowBox[{"-", "1"}]], "+", "Rg"}]], ",", " ", "\[Omega]", ",", " ", + "t"}], "]"}]], "Input", + CellChangeTimes->{{3.5523637982497053`*^9, 3.5523638062192183`*^9}}], + +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.5523640098356323`*^9, 3.5523646452999907`*^9}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"FullSimplify", "[", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"\[ImaginaryI]", " ", "\[Omega]", " ", "c"}], "+", " ", + FractionBox["1", "Ra"]}], ")"}], + RowBox[{"-", "1"}]], " ", "\[Equal]"}], " ", "]"}]], "Input", + CellChangeTimes->{{3.552364654471057*^9, 3.552364756301162*^9}}], + +Cell[BoxData["True"], "Output", + CellChangeTimes->{ + 3.552364656822824*^9, {3.552364728187964*^9, 3.552364752396307*^9}}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"FullSimplify", "[", + FractionBox[ + RowBox[{"V", "[", + RowBox[{"\[Omega]", ",", " ", "V0"}], "]"}], RowBox[{ - "\[Omega]", ",", " ", "V0", ",", " ", "Ra", ",", " ", "c", ",", " ", - "Rg"}], "]"}], ",", " ", "\[Omega]", ",", " ", "t"}], "]"}]], "Input", - CellChangeTimes->{{3.552355366383127*^9, 3.552355381350226*^9}}] + FractionBox["Ra", + RowBox[{"1", " ", "+", " ", + RowBox[{"\[ImaginaryI]", " ", "\[Omega]", " ", "c", " ", "Ra"}]}]], + " ", "+", " ", "Rg"}]], "]"}], " ", "/.", " ", + RowBox[{"Ra", "\[Rule]", "0"}]}]], "Input", + CellChangeTimes->{{3.552364758667733*^9, 3.552364769421089*^9}, { + 3.552364825262887*^9, 3.5523648524645557`*^9}, {3.5523649477202578`*^9, + 3.552364947904368*^9}, {3.552366305750093*^9, 3.552366307977755*^9}}], + +Cell[BoxData[ + FractionBox[ + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"\[ImaginaryI]", " ", "V0"}], + RowBox[{ + SqrtBox[ + RowBox[{"2", " ", "\[Pi]"}]], " ", "\[Omega]"}]]}], "-", + RowBox[{ + SqrtBox[ + FractionBox["\[Pi]", "2"]], " ", "V0", " ", + RowBox[{"DiracDelta", "[", "\[Omega]", "]"}]}]}], "Rg"]], "Output", + CellChangeTimes->{{3.55236476528161*^9, 3.552364795048193*^9}, + 3.5523648276341877`*^9, 3.552364948283778*^9, {3.5523663031716547`*^9, + 3.5523663083058147`*^9}}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"InverseFourierTransform", "[", + RowBox[{"%", ",", " ", "\[Omega]", ",", " ", "t"}], "]"}]], "Input", + CellChangeTimes->{{3.55236477078284*^9, 3.552364793658351*^9}}], + +Cell[BoxData[ + RowBox[{"-", + FractionBox[ + RowBox[{"V0", " ", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"Sign", "[", "t", "]"}]}], ")"}]}], + RowBox[{"2", " ", "Rg"}]]}]], "Output", + CellChangeTimes->{ + 3.552364775961145*^9, {3.552364821257627*^9, 3.552364830039164*^9}, { + 3.552366283736989*^9, 3.5523663108687963`*^9}}] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"V0", " ", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"Sign", "[", "t", "]"}]}], ")"}]}], + RowBox[{"2", " ", "Rg"}]]}], ",", " ", + RowBox[{"{", + RowBox[{"t", ",", " ", "0", ",", " ", "60"}], "}"}]}], "]"}], ",", " ", + + RowBox[{"{", + RowBox[{"V0", ",", " ", + RowBox[{"-", "10"}], ",", " ", "0"}], "}"}], ",", " ", + RowBox[{"{", + RowBox[{"c", ",", " ", "0", ",", " ", + SuperscriptBox["1", + RowBox[{"-", "6"}]]}], "}"}], ",", " ", + RowBox[{"{", + RowBox[{"Rg", ",", " ", "1", ",", " ", "1000000"}], "}"}]}], + "]"}]], "Input", + CellChangeTimes->{{3.552364832845214*^9, 3.552364924046647*^9}, { + 3.552366317981595*^9, 3.5523663245642023`*^9}}], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`c$$ = 0, $CellContext`Rg$$ = + 1, $CellContext`V0$$ = -10, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{ + Hold[$CellContext`V0$$], -10, 0}, { + Hold[$CellContext`c$$], 0, 1}, { + Hold[$CellContext`Rg$$], 1, 1000000}}, Typeset`size$$ = { + 360., {113., 117.}}, Typeset`update$$ = 0, Typeset`initDone$$, + Typeset`skipInitDone$$ = True, $CellContext`V0$1512095$$ = + 0, $CellContext`c$1512096$$ = 0, $CellContext`Rg$1512097$$ = 0}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`c$$ = 0, $CellContext`Rg$$ = + 1, $CellContext`V0$$ = -10}, "ControllerVariables" :> { + Hold[$CellContext`V0$$, $CellContext`V0$1512095$$, 0], + Hold[$CellContext`c$$, $CellContext`c$1512096$$, 0], + Hold[$CellContext`Rg$$, $CellContext`Rg$1512097$$, 0]}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$}, "Body" :> + Plot[-($CellContext`V0$$ (1 + Sign[$CellContext`t])/( + 2 $CellContext`Rg$$)), {$CellContext`t, 0, 60}], + "Specifications" :> {{$CellContext`V0$$, -10, 0}, {$CellContext`c$$, 0, + 1}, {$CellContext`Rg$$, 1, 1000000}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405., {182., 187.}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{{3.5523648997105494`*^9, 3.552364924935335*^9}, { + 3.552366312210638*^9, 3.552366325370653*^9}}] +}, Open ]] }, -WindowSize->{740, 605}, -WindowMargins->{{146, Automatic}, {Automatic, 28}}, +WindowSize->{1280, 725}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"8.0 for Linux x86 (64-bit) (November 14, 2010)", StyleDefinitions->"Default.nb" ] @@ -238,23 +374,37 @@ Notebook[{ Cell[557, 20, 152, 3, 30, "Input"], Cell[712, 25, 634, 17, 30, "Input"], Cell[CellGroupData[{ -Cell[1371, 46, 375, 9, 30, "Input"], -Cell[1749, 57, 465, 13, 58, "Output"] +Cell[1371, 46, 458, 11, 30, "Input"], +Cell[1832, 59, 516, 14, 58, "Output"] }, Open ]], +Cell[2363, 76, 130, 2, 30, "Input"], +Cell[2496, 80, 855, 20, 56, "Input"], Cell[CellGroupData[{ -Cell[2251, 75, 309, 7, 30, "Input"], -Cell[2563, 84, 429, 14, 57, "Output"] +Cell[3376, 104, 1130, 27, 55, "Input"], +Cell[4509, 133, 2650, 50, 430, "Output"] }, Open ]], -Cell[3007, 101, 130, 2, 30, "Input"], -Cell[3140, 105, 850, 22, 57, "Input"], Cell[CellGroupData[{ -Cell[4015, 131, 1130, 27, 73, "Input"], -Cell[5148, 160, 2622, 49, 384, "Output"] +Cell[7196, 188, 512, 14, 56, "Input"], +Cell[7711, 204, 103, 1, 30, "Output"] }, Open ]], -Cell[7785, 212, 323, 7, 30, "Input"] +Cell[CellGroupData[{ +Cell[7851, 210, 349, 9, 47, "Input"], +Cell[8203, 221, 122, 2, 30, "Output"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8362, 228, 606, 14, 55, "Input"], +Cell[8971, 244, 526, 15, 76, "Output"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9534, 264, 191, 3, 30, "Input"], +Cell[9728, 269, 345, 10, 50, "Output"] +}, Open ]], +Cell[CellGroupData[{ +Cell[10110, 284, 869, 26, 50, "Input"], +Cell[10982, 312, 2120, 42, 386, "Output"] +}, Open ]] } ] *) (* End of internal cache information *) -