+ 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 ]]