(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 25466, 625] NotebookOptionsPosition[ 24462, 599] NotebookOutlinePosition[ 24801, 614] CellTagsIndexPosition[ 24758, 611] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Taken", " ", RowBox[{"from", ":", "\[IndentingNewLine]", RowBox[{"Rachael", " ", RowBox[{"L", ".", "Baumann"}], "\n", "\"\\"", "\n", "http"}], ":"}]}], "//", RowBox[{ RowBox[{ RowBox[{ RowBox[{"demonstrations", ".", "wolfram", ".", "com"}], "/", "DiffusionAndReactionInACatalystPellet"}], "/", "Wolfram"}], " ", "Demonstrations", " ", "Project", "\n", RowBox[{"Published", ":", RowBox[{"October", " ", "31", " ", "2017"}]}]}]}], "\[IndentingNewLine]", "*)"}]], "Input", CellOpen->False, CellChangeTimes->{{3.7727202842262383`*^9, 3.772720284382304*^9}, { 3.772720315394463*^9, 3.7727203217672157`*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"f2920c52-931c-4ac0-bf62-85c9b6b91481"], Cell[BoxData[ RowBox[{ RowBox[{"particle", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "@", "Thick"}], ",", RowBox[{"FaceForm", "@", RowBox[{"GrayLevel", "@", "0.9"}]}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PointSize", "@", "0.065"}], ",", RowBox[{"Point", "@", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"Point", "[", RowBox[{"0.1", "*", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"45", "\[Degree]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"45", "\[Degree]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Arrowheads", "@", "0.15"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"0.1", "*", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"45", "\[Degree]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"45", "\[Degree]"}], "]"}]}], "}"}]}]}], "}"}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.06", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "17", ",", "Italic"}], "]"}], ",", RowBox[{"0.05", "*", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"45", "\[Degree]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"45", "\[Degree]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "0.5"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "17", ",", "Italic"}], "]"}], ",", RowBox[{"{", RowBox[{"0.06", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Subscript", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\\""}], "]"}], ",", "17"}], "]"}], ",", RowBox[{"0.1", "*", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"45", "\[Degree]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"45", "\[Degree]"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "125"}], ",", RowBox[{"Background", "\[Rule]", "White"}]}], "]"}]}], ";"}]], "Input", CellOpen->False, InitializationCell->True, CellLabel->"In[59]:=",ExpressionUUID->"b9b78d1a-c1a5-4d1c-8193-8eefb4db18b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Phi]", ",", "\[Sigma]", ",", "\[Tau]", ",", "De", ",", "CAs", ",", "\[CapitalPhi]", ",", "CA", ",", "M", ",", "\[Eta]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "=", "0.4"}], ";", RowBox[{"\[Sigma]", "=", "0.8"}], ";", RowBox[{"\[Tau]", "=", "3"}], ";", RowBox[{"De", "=", RowBox[{"D0", "*", "\[Phi]", "*", RowBox[{"\[Sigma]", "/", "\[Tau]"}]}]}], ";", RowBox[{"CAs", "=", "0.04"}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalPhi]", "=", RowBox[{"R", "*", SqrtBox[ RowBox[{"k", "/", "De"}]]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"CA", "[", "r_", "]"}], ":=", RowBox[{"CAs", "*", FractionBox["R", "r"], "*", FractionBox[ RowBox[{"Sinh", "[", RowBox[{"\[CapitalPhi]", "*", RowBox[{"r", "/", "R"}]}], "]"}], RowBox[{"Sinh", "[", "\[CapitalPhi]", "]"}]]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{"4", "*", "\[Pi]", "*", "R", "*", "De", "*", "CAs", "*", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalPhi]", "*", RowBox[{"Coth", "[", "\[CapitalPhi]", "]"}]}], "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Eta]", "=", RowBox[{ FractionBox["3", SuperscriptBox["\[CapitalPhi]", "2"]], "*", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalPhi]", "*", RowBox[{"Coth", "[", "\[CapitalPhi]", "]"}]}], "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"CA", "[", "r", "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "R"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"CAs", "+", "0.008"}]}], "}"}]}], ",", RowBox[{"PlotRangePadding", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{"None", ",", RowBox[{"Scaled", "@", "0.1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameTicks", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Row", "@", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Superscript", "[", RowBox[{"\"\\"", ",", "3"}], "]"}], ",", "\"\<)\>\""}], "}"}]}]}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"17", ",", "Black"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"600", ",", "400"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Full"}], ",", RowBox[{"ImagePadding", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"60", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "5"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "CAs"}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "CAs"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "@", RowBox[{"{", RowBox[{ RowBox[{"Subscript", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\\""}], "]"}], ",", "\"\< = \>\"", ",", "CAs", ",", "\"\< mmol/\>\"", ",", RowBox[{"Superscript", "[", RowBox[{"\"\\"", ",", "3"}], "]"}]}], "}"}]}], ",", "17"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "CAs"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2", ",", RowBox[{"-", "1.1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"-", "0.003"}]}], "}"}], ",", RowBox[{"{", RowBox[{"#", ",", RowBox[{"-", "0.006"}]}], "}"}]}], "}"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"0", ",", "R"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "@", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", "0"}], "}"}]}], ",", "17"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.006"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "@", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}]}], ",", "17"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", RowBox[{"-", "0.006"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "@", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"NumberForm", "[", RowBox[{"M", ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], "]"}], ",", "\"\< mmol/s\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Row", "@", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"NumberForm", "[", RowBox[{"\[CapitalPhi]", ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Row", "@", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"NumberForm", "[", RowBox[{"\[Eta]", ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Alignment", "\[Rule]", "\"\<=\>\""}]}], "]"}], ",", "17"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0.25", "*", "R"}], ",", RowBox[{"CAs", "+", "0.006"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{"particle", ",", RowBox[{"Scaled", "@", RowBox[{"{", RowBox[{"0.85", ",", "0.2"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "1", ",", "\"\\""}], "}"}], ",", "0.1", ",", "1", ",", "0.1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], "]"}], ",", "SpanFromLeft", ",", "\[IndentingNewLine]", RowBox[{"Control", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"D0", ",", "10", ",", RowBox[{"Row", "@", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Superscript", "[", RowBox[{"\"\\"", ",", "2"}], "]"}], ",", "\"\\""}], "}"}]}]}], "}"}], ",", "1", ",", "100", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Control", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "15", ",", "\"\\""}], "}"}], ",", "5", ",", "45", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], "]"}], ",", "SpanFromLeft"}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input", CellOpen->False, InitializationCell->True, CellLabel->"In[60]:=",ExpressionUUID->"e91599c3-c14e-4f58-a605-d2145840fbce"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`D0$$ = 10, $CellContext`k$$ = 7, $CellContext`R$$ = 0.4, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`R$$], 1, "pellet radius (cm)"}, 0.1, 1, 0.1}, {{ Hold[$CellContext`D0$$], 10, Row[{"diffusivity (", Superscript["cm", 2], "/s)"}]}, 1, 100, 1}, {{ Hold[$CellContext`k$$], 15, "rate constant (1/s)"}, 5, 45, 1}, { Hold[ Grid[{{ Manipulate`Place[1], SpanFromLeft, Manipulate`Place[2]}, { Manipulate`Place[3], SpanFromLeft}}, Alignment -> Left]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 600., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`R$11425$$ = 0, $CellContext`D0$11426$$ = 0, $CellContext`k$11427$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 2, StandardForm, "Variables" :> {$CellContext`D0$$ = 10, $CellContext`k$$ = 15, $CellContext`R$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`R$$, $CellContext`R$11425$$, 0], Hold[$CellContext`D0$$, $CellContext`D0$11426$$, 0], Hold[$CellContext`k$$, $CellContext`k$11427$$, 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" :> Module[{$CellContext`\[Phi]$, $CellContext`\[Sigma]$, $CellContext`\ \[Tau]$, $CellContext`De$, $CellContext`CAs$, $CellContext`\[CapitalPhi]$, \ $CellContext`CA$, $CellContext`M$, $CellContext`\[Eta]$}, \ $CellContext`\[Phi]$ = 0.4; $CellContext`\[Sigma]$ = 0.8; $CellContext`\[Tau]$ = 3; $CellContext`De$ = ($CellContext`D0$$ $CellContext`\[Phi]$) \ ($CellContext`\[Sigma]$/$CellContext`\[Tau]$); $CellContext`CAs$ = 0.04; $CellContext`\[CapitalPhi]$ = $CellContext`R$$ Sqrt[$CellContext`k$$/$CellContext`De$]; $CellContext`CA$[ Pattern[$CellContext`r$, Blank[]]] := ($CellContext`CAs$ \ ($CellContext`R$$/$CellContext`r$)) ( Sinh[$CellContext`\[CapitalPhi]$ \ ($CellContext`r$/$CellContext`R$$)]/ Sinh[$CellContext`\[CapitalPhi]$]); $CellContext`M$ = ((((4 Pi) $CellContext`R$$) $CellContext`De$) $CellContext`CAs$) \ ($CellContext`\[CapitalPhi]$ Coth[$CellContext`\[CapitalPhi]$] - 1); $CellContext`\[Eta]$ = ( 3/$CellContext`\[CapitalPhi]$^2) ($CellContext`\[CapitalPhi]$ Coth[$CellContext`\[CapitalPhi]$] - 1); Plot[ $CellContext`CA$[$CellContext`r], {$CellContext`r, 0, $CellContext`R$$}, PlotStyle -> {Thick, Black}, PlotRange -> {0, $CellContext`CAs$ + 0.008}, PlotRangePadding -> {None, {None, Scaled[0.1]}}, PlotRangeClipping -> False, Frame -> True, FrameTicks -> True, FrameLabel -> {"catalyst pellet radius (cm)", Row[{"concentration (mmol/", Superscript["cm", 3], ")"}]}, LabelStyle -> {17, Black}, ImageSize -> {600, 400}, AspectRatio -> Full, ImagePadding -> {{60, 25}, {60, 5}}, Epilog -> {{Thick, Dashed, Line[{{0, $CellContext`CAs$}, {$CellContext`R$$, \ $CellContext`CAs$}}]}, Text[ Style[ Row[{ Subscript[ Style["C", Italic], "A, s"], " = ", $CellContext`CAs$, " mmol/", Superscript["cm", 3]}], 17], {$CellContext`R$$, $CellContext`CAs$}, {1.2, -1.1}], Map[Line[{{#, -0.003}, {#, -0.006}}]& , {0, $CellContext`R$$}], Text[ Style[ Row[{ Style["r", Italic], " = ", 0}], 17], {0, -0.006}, {0, 1}], Text[ Style[ Row[{ Style["r", Italic], " = ", Style["R", Italic]}], 17], {$CellContext`R$$, -0.006}, {0, 1}], Text[ Style[ Column[{ Row[{"overall rate = ", NumberForm[$CellContext`M$, {5, 2}], " mmol/s"}], Row[{"Thiele modulus = ", NumberForm[$CellContext`\[CapitalPhi]$, {4, 2}]}], Row[{"effectiveness factor = ", NumberForm[$CellContext`\[Eta]$, {2, 2}]}]}, Alignment -> "="], 17], {0.25 $CellContext`R$$, $CellContext`CAs$ + 0.006}], Inset[$CellContext`particle, Scaled[{0.85, 0.2}]]}]], "Specifications" :> {{{$CellContext`R$$, 1, "pellet radius (cm)"}, 0.1, 1, 0.1, Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 1}, {{$CellContext`D0$$, 10, Row[{"diffusivity (", Superscript["cm", 2], "/s)"}]}, 1, 100, 1, Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 2}, {{$CellContext`k$$, 15, "rate constant (1/s)"}, 5, 45, 1, Appearance -> "Labeled", ControlPlacement -> 3}, Grid[{{ Manipulate`Place[1], SpanFromLeft, Manipulate`Place[2]}, { Manipulate`Place[3], SpanFromLeft}}, Alignment -> Left]}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{645., {255., 261.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({ Attributes[PlotRange] = {ReadProtected}, Attributes[Superscript] = {NHoldRest, ReadProtected}, Attributes[Subscript] = {NHoldRest}, $CellContext`particle = Graphics[{ Thickness[Large], { EdgeForm[ Thickness[Large]], FaceForm[ GrayLevel[0.9]], Disk[{0, 0}, 0.1]}, PointSize[0.065], Point[{0, 0}], Point[{0.07071067811865475, 0.07071067811865475}], Arrowheads[0.15], Arrow[{{0, 0}, {0.07071067811865475, 0.07071067811865475}}], Arrow[{{0, 0}, {0.06, 0}}], Text[ Style["R", 17, Italic], {0.035355339059327376`, 0.035355339059327376`}, {2, -0.5}], Text[ Style["r", 17, Italic], {0.06, 0}, {-1.5, 0}], Text[ Style[ Subscript[ Style["C", Italic], "A, s"], 17], {0.07071067811865475, 0.07071067811865475}, {-1.5, 0}]}, ImageSize -> 125, Background -> GrayLevel[1]]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.775572238013139*^9}, CellLabel->"Out[60]=",ExpressionUUID->"98d0ae25-8823-4955-806f-ef66070771a9"] }, Open ]], Cell[BoxData[""], "Text", "Input", CellChangeTimes->{{3.775572209178937*^9, 3.775572227078211*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"92655694-a10f-4a1d-a179-fa3fb47ffb5a"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.775572193180732*^9, 3.775572196084916*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"8f63348b-d317-41cc-b48c-907da4892b16"], Cell["\<\ Just Evaluate Notebook! The plot produced is surface concentration vs catalyst pellet radius. What do \ you notice happen to the surface concentration as pellet radius decreases? What does \ that mean for the concentration at the center of the pellet? Further, what happens to the overall reaction rate \ if you decrease the rate constant? \ \>", "Text", CellChangeTimes->{{3.775572229377287*^9, 3.77557223477183*^9}, { 3.7789420966253147`*^9, 3.778942222649144*^9}, {3.778942263557487*^9, 3.778942313860713*^9}, {3.778942344993539*^9, 3.7789423490985622`*^9}},ExpressionUUID->"31ece13c-8e25-4c37-a16e-\ 518ae7f437ea"] }, WindowSize->{1270, 855}, WindowMargins->{{Automatic, -377}, {Automatic, 0}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 860, 21, 19, "Input",ExpressionUUID->"f2920c52-931c-4ac0-bf62-85c9b6b91481", CellOpen->False], Cell[1421, 43, 3642, 100, 19, "Input",ExpressionUUID->"b9b78d1a-c1a5-4d1c-8193-8eefb4db18b4", CellOpen->False, InitializationCell->True], Cell[CellGroupData[{ Cell[5088, 147, 11117, 271, 19, "Input",ExpressionUUID->"e91599c3-c14e-4f58-a605-d2145840fbce", CellOpen->False, InitializationCell->True], Cell[16208, 420, 7240, 152, 535, "Output",ExpressionUUID->"98d0ae25-8823-4955-806f-ef66070771a9"] }, Open ]], Cell[23463, 575, 179, 2, 30, "Text",ExpressionUUID->"92655694-a10f-4a1d-a179-fa3fb47ffb5a"], Cell[23645, 579, 171, 2, 30, "Input",ExpressionUUID->"8f63348b-d317-41cc-b48c-907da4892b16"], Cell[23819, 583, 639, 14, 127, "Text",ExpressionUUID->"31ece13c-8e25-4c37-a16e-518ae7f437ea"] } ] *)