(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 11.1' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 2974, 83] NotebookOptionsPosition[ 3424, 75] NotebookOutlinePosition[ 3980, 98] CellTagsIndexPosition[ 3937, 95] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`A$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`A$$], 0, "\!\(\*SuperscriptBox[\(D\), \(1/2\)]\)/a"}, 0, 5}}, Typeset`size$$ = {360., {116., 122.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`A$153885$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`A$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`A$$, $CellContext`A$153885$$, 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[1/Sqrt[Pi $CellContext`x] + $CellContext`A$$, {$CellContext`x, 0, 10}, PlotRange -> {0, 10}, AxesLabel -> { "t/s", "i/\!\(\*SuperscriptBox[\(nFD\), \ \(1/2\)]\)\!\(\*SuperscriptBox[\(c\), \(b\)]\)"}], "Specifications" :> {{{$CellContext`A$$, 0, "\!\(\*SuperscriptBox[\(D\), \(1/2\)]\)/a"}, 0, 5, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{411., {162., 169.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", \ "PluginEmbeddedContent",ExpressionUUID->"00000000-0000-0000-0000-\ 000000000000"] }, WindowSize->{439, 323}, WindowMargins->{{732, Automatic}, {Automatic, 319}}, Visible->True, AuthoredSize->{440, 343}, ScrollingOptions->{"HorizontalScrollRange"->Fit, "VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1464, 33, 1956, 40, 333, "Output"] } ] *) (* End of internal cache information *) (* NotebookSignature KvTFBu8ykWIY#B1oHGWZ7PZ9 *)