(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 82132, 1910] NotebookOptionsPosition[ 77719, 1750] NotebookOutlinePosition[ 78173, 1768] CellTagsIndexPosition[ 78130, 1765] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["0.1 g/s NH3 + 1.0 g/s air", "Item"]], "Subtitle", CellChangeTimes->{{3.523109683997991*^9, 3.523109702378024*^9}, 3.523110614507856*^9, 3.523122712287876*^9, {3.523317330735532*^9, 3.523317332564687*^9}}], Cell[BoxData[ StyleBox[ RowBox[{"Molar", " ", "flow", " ", "rates"}], "Section"]], "Input", CellChangeTimes->{{3.5233173394244757`*^9, 3.5233173438388357`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FNH30", "=", "0.0059"}]], "Input", CellChangeTimes->{{3.523108580455222*^9, 3.523108588625061*^9}, { 3.5231096253255177`*^9, 3.5231096466909323`*^9}, 3.523110614508*^9}], Cell[BoxData["0.0059`"], "Output", CellChangeTimes->{3.523108591536791*^9, 3.523108929468439*^9, 3.523109649008109*^9, 3.5231106145081053`*^9, 3.5231231197854223`*^9, 3.5231231710560904`*^9, 3.52331240943661*^9, 3.523312745965385*^9, 3.523315477059374*^9, 3.523316503647336*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FO20", "=", "0.0069"}]], "Input", CellChangeTimes->{{3.5231085947202787`*^9, 3.523108603272901*^9}, 3.523110614508217*^9}], Cell[BoxData["0.0069`"], "Output", CellChangeTimes->{3.5231086040926123`*^9, 3.523110614508308*^9, 3.5231231198868847`*^9, 3.523123171189518*^9, 3.523312409551543*^9, 3.523312746050572*^9, 3.523315477125648*^9, 3.523316503713644*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FN20", "=", "0.028"}]], "Input", CellChangeTimes->{{3.523108608685227*^9, 3.5231086168294973`*^9}, { 3.523108935556992*^9, 3.523108936285954*^9}, 3.5231106145084057`*^9, { 3.5231231104879417`*^9, 3.523123110697651*^9}, {3.5231231569808702`*^9, 3.5231231572385817`*^9}, {3.523312733196465*^9, 3.523312733767849*^9}, { 3.523315455548449*^9, 3.523315457896676*^9}}], Cell[BoxData["0.028`"], "Output", CellChangeTimes->{{3.5231231578563423`*^9, 3.523123171256291*^9}, 3.523312409614551*^9, {3.523312742483098*^9, 3.523312746085896*^9}, { 3.5233154585962*^9, 3.523315477184639*^9}, 3.523316503769535*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FO2", " ", "=", " ", RowBox[{"FO20", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.523108635695285*^9, 3.523108641117436*^9}, { 3.523108769032292*^9, 3.5231087970444098`*^9}, {3.523108872814495*^9, 3.52310887341017*^9}, 3.523110614508626*^9}], Cell[BoxData[ RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}]], "Output", CellChangeTimes->{3.523108797859079*^9, 3.523108874262311*^9, 3.523110614508737*^9, 3.523123119993281*^9, 3.5231231713387547`*^9, 3.523312409661463*^9, 3.523312746119742*^9, 3.5233154772275476`*^9, 3.52331650381593*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FNH3", "=", RowBox[{"FNH30", "-", RowBox[{ RowBox[{"(", RowBox[{"4", "/", "5"}], ")"}], " ", "X", " ", "FO20"}]}]}]], "Input", CellChangeTimes->{{3.523108880741735*^9, 3.523108907767229*^9}, 3.5231106145088778`*^9}], Cell[BoxData[ RowBox[{"0.0059`", "\[VeryThinSpace]", "-", RowBox[{"0.005520000000000001`", " ", "X"}]}]], "Output", CellChangeTimes->{{3.523108909557767*^9, 3.523108932325417*^9}, 3.523110614509*^9, 3.5231231200567503`*^9, 3.5231231714221582`*^9, 3.523312409711191*^9, 3.52331274617304*^9, 3.523315477285193*^9, 3.523316503867014*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FNO", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"4", "/", "5"}], ")"}], " ", "X", " ", "FO20"}]}]], "Input", CellChangeTimes->{{3.5231089488773108`*^9, 3.523108958391432*^9}, 3.5231106145091343`*^9}], Cell[BoxData[ RowBox[{"0.005520000000000001`", " ", "X"}]], "Output", CellChangeTimes->{3.523108959285918*^9, 3.523110614509245*^9, 3.523123120140973*^9, 3.523123171506193*^9, 3.523312409761154*^9, 3.523312746223242*^9, 3.523315477329281*^9, 3.523316503920474*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FH2O", "=", RowBox[{ RowBox[{"(", RowBox[{"6", "/", "5"}], ")"}], " ", "X", " ", "FO20"}]}]], "Input", CellChangeTimes->{{3.523108969707512*^9, 3.523108984751485*^9}, 3.523110614509383*^9}], Cell[BoxData[ RowBox[{"0.00828`", " ", "X"}]], "Output", CellChangeTimes->{3.523108985259869*^9, 3.523110614509494*^9, 3.523123120224251*^9, 3.523123171572578*^9, 3.523312409815629*^9, 3.523312746268812*^9, 3.5233154773845453`*^9, 3.52331650396605*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FN2", " ", "=", "FN20"}]], "Input", CellChangeTimes->{{3.5231089917398987`*^9, 3.5231089992530737`*^9}, 3.523110614509609*^9}], Cell[BoxData["0.028`"], "Output", CellChangeTimes->{3.5231090009114323`*^9, 3.523110614509716*^9, 3.523123120308505*^9, 3.523123171655745*^9, 3.523312409878192*^9, 3.5233127463252296`*^9, 3.523315477430019*^9, 3.523316504021514*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.523109240261319*^9, 3.52310929416073*^9}, 3.52311061450985*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Flow", " ", "rate", " ", RowBox[{"vs", ".", " ", "conversion"}]}], "Section"]], "Input", CellChangeTimes->{{3.5231226663446913`*^9, 3.523122676323262*^9}, { 3.523122738186241*^9, 3.523122750562194*^9}}], Cell[BoxData[ RowBox[{"Flow", " ", "rate", " ", RowBox[{"vs", ".", "conversion"}]}]], "Output", CellChangeTimes->{3.523123120449848*^9, 3.523123171791175*^9, 3.523312410371235*^9, 3.523312746399806*^9, 3.523315477509021*^9, 3.5233165040969687`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ "FO2", ",", "FNH3", ",", " ", "FN2", ",", " ", "FNO", ",", " ", "FH2O"}], "}"}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotLegend", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"LegendPosition", "\[Rule]", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.3"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5231088265544863`*^9, 3.5231088426300373`*^9}, { 3.523109025838728*^9, 3.5231090810749598`*^9}, {3.523109153559271*^9, 3.523109184867972*^9}, {3.523110375901637*^9, 3.523110402516794*^9}, { 3.5231104747894793`*^9, 3.523110565114731*^9}, 3.523110614510339*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVz3k4lAkAx/FxbGkVBls7rDSOtnRQYaW8P2t6InS4kkKIyn0nTGksVg1R 6ynlDClZJjk2UYmp1I6kIdQMNSYxjDcrrA6z7R/f5/P3l+4X7hwgT6FQdn7r f+0DRrpaRt0IqmlH3loGE4oMrYhBmilS7NvOfLRmYlNRbn4tbRtmfBrjmwkm HDp6bxXQXCHIvOruaMmEu//s3fM0f1x/f0IjZAMTQuPfGZm0GFjlrWdX6jJR /MPutDO0FATLZycYfUkES6n259O0HLQ9d/ZYVZ+IfR5XOB8my2BCcZJt0E6E sozlabucg89jwefC2QkwdJoYaWPX4dLrEJWk+XjEPduM3I+NmPQajs4PiMey OuqAnNx9XM9nPpS+PI4GEYPXubUVP4axZY5bj6M1qEDbY5wLT8Ypg5NlcZhe aaVaFfoY893nzIaWxkF+rlJN2/Ap9s9pG+89cQzmMp8Gl2oeNF+1an6VxoKX YvrskVEnSu7tfhfrGwvd7LG5ionnGDVzK/zSHoOx2cGBHpMXyAqMY/xlGYMy SdNTlbN8kMbqXUnF0VDRuUaKxd3Q+3R+h9aiaGQE1h8uNniJ2lMm1SOJUZix rhQfTeqF7NL2z1xRJGI2cuuWtvWhIjzetMclEoPVXHYX/RUW9xnsnbodgc9B 3XmrE16Dsa3Bb2hFBNb8unD+cJMANf3tDSorw2FbQj9Ss2wAe/YsjY/6JxRx Ogf13noOogoFGgQ/BGvH3ZR7d74Bx/zDb1WNwdBQ/aDE/fQGhi6mDy3Sg6B4 P4+jn/8W+0ZqBtYEByLYtKl/kYMIlNIVTyzNj6Jyh1/xvRkRHAMOnJYuOILp MS214QtDcCvupCuNB6DexVYhZ5sYfIoZm2j0R5JdalHdsBgqr/g8weVDoAvt +0pT34G8Q4iXJ/vB8peUHNrGYTAeXOYxnXzhubxzTo4/jL3WJpk2Zj6Yfpop imC9x50noVZ28t7IVfSOcTYYgbXihNrr1gPQGKgvkeeOQGPXguz6sx747gTL dXPkKHgiSs1jI3dQKrw5InUJFALDkitIV0Rd5mSqt0qwwvLedGuKM+6uSVei ho0hTatc08BwD6j2UWuTVcbB75NrrxA4QLDuOT++eRxH1Jk3ElRtcbMQBmJv KabXC6SSP2zgxTGn6sxLsbq7T63HaytOpV5hCW5MgHosueNW90ZUjejkqTiS aGkiLxYK9ZFekOozsIsEteiw3qqz+vB3lhpWO5HYniz8s4bQx0/NzTd3upPg 2P39gFukhzNZBx5l+JFo6ikfk/jScdT80uT38STMBptOhvF0oJeiabewnIS+ bW5HkVAD8xbMJb3XSWQsSRPdIjTQLx16UV5Jwrg7evZhkTqy3Wu9tteQsPTd TR/3pUJm5Byd2kxi08xiSQRvCQRdWYUKfBJ071GLEqECbqfNHuL3kJiWcP3a i+SRs+Xg6tI+Eu1xxRkTvnJwuLq+zmbg258+pyWW95W4c7zjCWuUhBWbrXpN OEVcWGeW5TROQlxmc2jKd5KIFOW70kkS/SenQpN4UmKVY8hgy0cSFu87m28K hwhFue6y7FkSymbM9vM8IfGmfkuQzycS5Xn7lnGFfKI5qNTY5CsJlmIQTyJs Iy7qKk/LZCSK/93QkL5/yOo/skViQg== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVj2s01AkAxWc8lmUNYrczFa2oEMa2bRmP7iCxTZ5DlEmTvBpvpoy0h9k1 raJMe5xWpFQSKY/QyiMWtbuSR4S2aUjyGI8/1ZAoO/vhnnvul9+91yAw2itY gUQiucr1v+8JHu9umvDZWWBHMrloyoeS45qYQeo25Lh/qHpqzMf3V7IvVVJ3 IfPwLOOrzXwwn/TfzaN644RwyC/ZkA/foIWG36hB8HjSlBa8jo+XtF8dz1J5 WGILxr+j8JH/tfupM9RUeJ1UKGqbS4BAtXLzaWoWSHVKm5drEuC3/2rZ7FwB DHW7SrrsEqC+ImA765dhUXFvbUfbcWz0nBlvSa+CZD7Zk3LgOBI66Mh+fx/p D09ENw4ew+oqbQmZ3Aip6abVOZHHcG/Ysb3TthlaEdlOo3M8NHPz1u6fasXu 8ubleD4Psk12mnci/4JFep7dFhUeFBZLtNZubIPEHsreGfHYvsK5xyptByPz /L5CajzaU7d1PDLtxN3BXEvr4jisF00uFs90QaoeeR60OEwuDEqeWT5FX8dM UlRDLAqkdW2Ucz04HbljmuIQC4reTWJkpBdMTaux2b9jkHG0OiTfqA+NzhPc Zd8YzDNKRsKS+7HwR7P0bW00eFtbq75pGUCvhq4Ooy8Kg6Wt6d0G/8J+7TuX GEkklri9uSYnXqDdwkFkOBmBLfYqn0PqxKiLfis1UY2A8zWD0IrVEliHWbJ0 VoUjQe/QhlfsQeif6+xwN+PCbMpHvd91COtrJf6azKPQ0ZxVbf04hPK8pPmK fWFQaswtM7z0CoWliQU340IRvq3u+ZfMYZglKHNSkkJQ8mNg/oP5YXQ6kc3F acGQTa7RGr3wGv32ARrphUGoZjkrZu0aQbTMZWldxREkuwivVI2OILwva5nc HgiDl3sGrgvfQNjgocmdPAzrHalZ1K2joLFzaNULHLD1OxfJPaPYaex0hKXL gazt7HCMYAw1vksuxTYByFYK4HkZjaPpvsVbz2g2dCTV1xRax0EydnhAun0A yj8JvOmxE+Aox9441uwHUnFA2fAqKTLsAitFi/sQl1N2dlWzFAMjUeJYNR80 bElT1Y6aBDvb33i/EQvae+LMfqZM4XahWu5ogCfE5l09ifVTsHK55ckbdUP5 ZRiNBEyj6ENLbagHEwfLtmvrfZ5G2p95R0PbnZEivCoQ35pBTVip27slR9wZ 18ul7CUQ89BR8DiCgbQ8IUfiRiAlw19xjM1AkNf0xlJPAmmseKGCKwPr6uvL XX0J5L+6dppuzsCZTP9HGYHyvKRo5P4CCNt+cU4tkQAnIsVJ5eVObEjVdVEp JEByS0xLGLLFZ6uTGv1FBLTERRmlTbZ4Pv36aWEJAUvugOhNvi1EvpUHd1fI 95zacZF12BYrpl7xwnoCXQ9kxbRhG4i7My8r9hAQ0eIej722Rs2phSM9zwiU N1zt1G+1RpbNIZPrAwSamN09PgXWYN6wqHKQEJgNtRS3BFmjlv/kH8EEAY/8 makrb+i4YP5DpueUvM9Cf67vIR2xw5e8DQg5v95VplFIh/HeiMGm93LewO1P SSF0KJF7C0QL8j0hYnLlbjqGqm24nI9y/nv1L6Sb6KjnXqdZfpL//cVGzUCF jt/Xq8tWVgh8qx1O8Ruzwn/2Y1Ni "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2lS/VDDnWzLFfIOrf1iXZYg/jN3Js Vu+UnALnR0QuXP/h4xI4n/t/Y4y73Ho4XzXw3YvD3Vvg/PJzlvYzvuyE88W3 CN5jZNwP52975HzmvM0hOP9Q1lzpyDdH4Pyvarb8a3OPw/lMP1cLSKuegvPN /idsC153Bs4/02Jy7pjWeThffsLrnyvfXYDzX3+/f++qwSU4f8mr3af4+i7D +Xyyy98/eXIFzu/J3Jq2QOUanP/NYfWTjPrrcH6J0ZEtYodvwPn31x3pvqh4 C87/nXVltmbVbThf25H9X9ruO3C++yLF9I3i9xDhJRuv9DDmPpyv8yaU+7rv AzhfmP8Dx5FfCD7L/tnrlec8hPOzTXbf5PR+BOev9kxasO8bgv/1tZTAs2mP 4fytwe7MU1yewPn1Hq3ztzxD8BXvet1Y3PoUzrcyb5kiafQMzo+RO/+T8TKC //VU76OCxudw/gyWuJIglRcI99/buojpCILPWtsYYln4Es5nWBm3/pHQKzi/ aNb6XqFDCP5e7Q4OwbzXcL6gV5FOE98bOP+O7oXLlXsQ/A3z7FWexL2F82PX mwnK/kPwG1oXNt5Z9Q7OX/tCdjafz3s4X6lFxIN9GYI/XZ776///CD4AQCF+ mw== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0vk71AkAx/FxFEtN6ViNnFFylbuUfMpoFakwsjbjCuO++7Z6XFMIIfVQ hAhlS+5RrLGsbLV2UlKoNO4jTN9UkmPNtj+8n9c/8FbxCLbzEqVQKDbf+18r r4nOlvcOZg48d9UDc/x94nS5kH6aIW4Zj57ksrhmBgXZebU0CwySHoExLJ6Z 9dOemnwaA3E8FcKV1Wfm6DnXdIXmied72AvHWNNm73ZeoKfRIjA3U2V6iLVk VrjxWGIKLR4Xnz5hWrBWgS1Zq55MywSjkRFkzpLHz043Kz/OlMDApDl/bY4O pIVsZ0vFSpgWKLNKl4yw1fbDxMOLHHwOGfxcLrkPZzpMkP2lAevpclIdJ8wh y5Hhi4g0Q35TM+/b+EHcH6Lznpm2YpSq43Ttr8No9cvf7DTdBiPBmwKNyzaY 3bZvTXngYyxKneM9SDsO0fmytZu3tmOP7mL5hkg7GAvd7ttX8FCzUO3zD50B XrxhxyPNZxDUJ1GiVpyAUsbU/J0PzyElaRHtLXDE1Fw//5XuCzCXTLvucpxQ MtnYTk3vQgZbjqpRdBJUhVJyZOQlkhZkt91MZCLVt867UK0b9ZvsZcOtXPF1 f9mIT2wPhk81ELjuhgj9Ns6PD3uxkupz9FOMO/or2i52qrxBDiV5UyvhgUW/ l7kaZ9+CKjDppPqdgtYBiWXvxj4o3UsmJG08YVmkwqqW5aOw1pqqRPfCGQXX LYPO/eCm3bsytN0b2tMO0j02A2h0z1+hKsXC+jUfJdsWBqAZQ/GPW2ZBvDm3 UjVvEIaBok0pQz7wN2x8/YP1ECpKCJGa174oO+xR+MfXIUh3nzU8wfPD7JTc 2rGrwxB7o8AorfBHnb2lWKbFCPy3GXhvLAlA7KGEAs7YCIIPjnvqJgdC5Z1V b3HCKBxctOye+AZhz674TJr+GMqaB/WimcFwVnw2L9I1ho7IzbHByiGYbU8b CmGPQ7grll+RG4JscZcIO7UJRLvqc9qooVjPrysSbZuA4LyOSE5sKFZEsxkm oe+RxXN/vDgfCsodl8qhdZNIiRkVMwoIQ9j1yrR1rZN4wChqWBoPQ5NWkqRM 0BS61UvHzrmHQ8YqTPscdRrmnovJ/S/C0afzvCuSO42xtqTb7TYRqLoBtREX AXrTvUxSWyLArDSWUVgWgOuQQl+ldxpxCTfZfXc/oHv/xCO5stMon1DIpR4h gaysFqE8gaT8BDf+URLMPLvjS4oEPO0EWytsSUQVrxn4pkxAnsutsnEk0VCd LJxRI5By6eSjVA8SBh3RZiPaBHyMc2akIkmoS3hzn5gS2BK/4ZDEbRKrI43r LzsTWN4dtbrnNxLacZ8t010IvBYMv7hdRsLqQlVPihuBDMda5k/VJBKzNOfO exIQatqFJ3BJUGoUjYkAAn2dl26IdZH4MrmS80sUgfrEuVNdr0is+/SQ7hhD IHOvq0ZxLwm9+bgu+zgC1rd2cMz5JIIkFj8diSfw+69P/2a/JzGhSuohlcBV HaNLttMkVmrd+3NvOoHQoTyGCklCTd/XdncGge1HAvpbvpBw3z8copdJQFzk ZUnGHIk4y0LKjqsEBur2+rktkLhxlJmhmU2A61e8U/dfEk0Ocsrq1wlcU5Ke FQpJvHXu+f4tgf8AsKJR2A== "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0fk/1HkAx3GKVEoINVqhSCmRSmtr5q1l0mISSZSQKynlCh2az3gYXawO IXdUkkVkemwohWyJxChqGddgMHx1DGFj64fX4/kHvLQ9Tth7z5KSkmL96KdW 3qLGZwN7GQznix8DTPvpMubqAR20TZgSDVnUs14wNmYkpT6kWUC0cX5TOusd w7q+pTiN5gA355tJ51m9jH1e40+u0bygLu6cOsOSMNoNz5vH0kIQzosyCGXJ IlPVNvoSLQp6yY47glmq4Mx9qHeRFo9zMRVNgSxdODnfKhz9dBu9frahdcYm kJ/huFguL8SxMKfYiAgz6NqNiKoul4CnMhAaWcNE2BtTJH19jBQvvUWbI62x pERJIC1dARX7uJuT/rvxqNu8rmFbJfRfd0VucNiDSr+0Zc7iavRvEG7pWOcI ySr6onz/fxCmWFV8vdkJsybyFJfp1sLx5TeZDN4BmMy4P9pTUId53+ZrFHm7 oi5q05sa/QYUXfKR0ohyh+aVoYnckbeYM+dL+4LPhzA03iF4Z9QE5hP/5cTS E7cHy2oV/uRjbdf12vTHXlDQyKGEwmb0Tl1t+6bjg5gjPJ9Mnfe4YH/O7n3Y YYyZ5Ql92S3gq6oZu/X7IsS4ukStqhVyqqknjzL80FFQfblR+yOEpF5nZfFR TPk1p6w5/S+u97w3VdP0x9rtctM+ZW0wiHxTFBN8HJZZ2oeLlghwPDbwRoHw BMI03FZ0uXTAxk96JDc9AOvEe+VbWJ2wnmdikWwZiMWLRudWT3Yi3dVsd+d0 IGQqUgpXpnahr/H5QlFuEI5uKvswz7obnKmlHKZnMPL+8Mh8OtaN81ouOWY/ PkuG1BX7EnrA8VRjf68MAW+P5ex4CyEaXO4uUDxzEuyd3IySPiGUQ/KthatC od1u1ZrN7cXT6Ey6Y0MoftsSFU8z7kOF7ZFejegwuCxvmJDm96HEJJeRYxQO SW1sdwCnH//xn7KiB8KRJOMaYq8jwtY4awW9hFNYLOBlzaoWoZtZzfHGachG cBxMAwfQXqycNzF2GlK5roXdyoOop7dybbPOICi5MFa5chBK7GC1qQNn8WTt hblKx4dQUTbpbKEcASWroHWRCmIcUpvYZVsegTaDt/xT5WI46dVPFIacw4N0 6Ahdh2HuuNSxSYuNg4UmShrTw0gktt7XXrFBuLc4bfdHkGm0XtXBjCBfpJGi YENhxDDgbcUNggtpXHfBLgpMCX0bPZHAy35Yt8COQmqp/L3SJIJfyssfsPZR sGLmsHkpBJfiDtTEeFC4s1+wPu8Wga/JzU/zT1Fw4drEJuQTrIhS2Sl3l8Kr j6ut/F8QTP96dmHLPQpamWO8wRqCD8M9TXfzKIR6V2v7viS4su/hwR1FFHRG 3SY8XhPM6NsHc8spsGUT7zk1ErQ1xqXP5lMwMZKVs2gn+Dt63JP/jkKspCno uYAgfqvbmuxWCsLSTAGjk8D6zvqS3wUUrjK3PTLtISgNr3/FGaAwvD/Y23CA IMFgc5ydmIKF1vbGvwYJArtTHbQpCsm9CnR9McFqm2Mdz75S2BlwX0WXIpCR br59ZZxCxuZwkjVK0Mnb6uc+SWFskinW/ExQ7pdtaPSdAuvZYqe0LwSJmvKS mRkK2dyuKnUJwf+PRF2c "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Conversion\"", TraditionalForm], FormBox["\"flow rate (mol/s)\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction:>$DisplayFunction, FormatType->TraditionalForm, PlotRange->{{0, 1}, {0., 0.028}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {-1, -0.6180339887498948}, { Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{ {GrayLevel[0], RectangleBox[{1.1500000000000001`, -0.35}, {1.598, 0.45}]}, {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], GraphicsGroupBox[{RectangleBox[{1.1, -0.3}, {1.548, 0.5}], InsetBox[ GraphicsBox[{{{InsetBox[ GraphicsBox[ {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, { Left, Bottom}, {1, 1}], InsetBox["\<\"H2O\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.37820393249936846`, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NO\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 2.4}, { Left, Bottom}, {1, 1}], InsetBox["\<\"N2\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 3.56}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NH3\"\>", \ {1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}, { InsetBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 4.72}, { Left, Bottom}, {1, 1}], InsetBox["\<\"O2\"\>", {1.2100000000000002`, 5.22}, {-1, 0}, Automatic, {1, 0}]}}, {}}, AspectRatio->1.7857142857142856`, FormatType->TraditionalForm, PlotRange->{{-0.1, 3.26}, {-0.1, 5.8999999999999995`}}], {1.1, -0.3}, { Left, Bottom}, {0.44800000000000006`, 0.8}]}]}}]}, AspectRatio->Automatic, Background->None, ColorOutput->Automatic, ImageSize->Automatic, PlotRange->All]], "Output", CellChangeTimes->{ 3.523108843527115*^9, {3.523109042939707*^9, 3.5231090817753897`*^9}, 3.523109187093204*^9, 3.52310922431219*^9, 3.523109307667778*^9, 3.523110408123089*^9, {3.523110497586185*^9, 3.523110571298108*^9}, 3.523110614525515*^9, 3.523123124101933*^9, 3.523123175670862*^9, 3.523312414594305*^9, 3.523312750076877*^9, 3.523315481463402*^9, 3.523316508196041*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"FO2", ",", "FNH3", ",", " ", "FNO", ",", " ", "FH2O"}], "}"}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotLegend", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"LegendPosition", "\[Rule]", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.3"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5233123925576773`*^9, 3.5233123981171083`*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVz3k4lAkAx/FxbGkVBls7rDSOtnRQYaW8P2t6InS4kkKIyn0nTGksVg1R 6ynlDClZJjk2UYmp1I6kIdQMNSYxjDcrrA6z7R/f5/P3l+4X7hwgT6FQdn7r f+0DRrpaRt0IqmlH3loGE4oMrYhBmilS7NvOfLRmYlNRbn4tbRtmfBrjmwkm HDp6bxXQXCHIvOruaMmEu//s3fM0f1x/f0IjZAMTQuPfGZm0GFjlrWdX6jJR /MPutDO0FATLZycYfUkES6n259O0HLQ9d/ZYVZ+IfR5XOB8my2BCcZJt0E6E sozlabucg89jwefC2QkwdJoYaWPX4dLrEJWk+XjEPduM3I+NmPQajs4PiMey OuqAnNx9XM9nPpS+PI4GEYPXubUVP4axZY5bj6M1qEDbY5wLT8Ypg5NlcZhe aaVaFfoY893nzIaWxkF+rlJN2/Ap9s9pG+89cQzmMp8Gl2oeNF+1an6VxoKX YvrskVEnSu7tfhfrGwvd7LG5ionnGDVzK/zSHoOx2cGBHpMXyAqMY/xlGYMy SdNTlbN8kMbqXUnF0VDRuUaKxd3Q+3R+h9aiaGQE1h8uNniJ2lMm1SOJUZix rhQfTeqF7NL2z1xRJGI2cuuWtvWhIjzetMclEoPVXHYX/RUW9xnsnbodgc9B 3XmrE16Dsa3Bb2hFBNb8unD+cJMANf3tDSorw2FbQj9Ss2wAe/YsjY/6JxRx Ogf13noOogoFGgQ/BGvH3ZR7d74Bx/zDb1WNwdBQ/aDE/fQGhi6mDy3Sg6B4 P4+jn/8W+0ZqBtYEByLYtKl/kYMIlNIVTyzNj6Jyh1/xvRkRHAMOnJYuOILp MS214QtDcCvupCuNB6DexVYhZ5sYfIoZm2j0R5JdalHdsBgqr/g8weVDoAvt +0pT34G8Q4iXJ/vB8peUHNrGYTAeXOYxnXzhubxzTo4/jL3WJpk2Zj6Yfpop imC9x50noVZ28t7IVfSOcTYYgbXihNrr1gPQGKgvkeeOQGPXguz6sx747gTL dXPkKHgiSs1jI3dQKrw5InUJFALDkitIV0Rd5mSqt0qwwvLedGuKM+6uSVei ho0hTatc08BwD6j2UWuTVcbB75NrrxA4QLDuOT++eRxH1Jk3ElRtcbMQBmJv KabXC6SSP2zgxTGn6sxLsbq7T63HaytOpV5hCW5MgHosueNW90ZUjejkqTiS aGkiLxYK9ZFekOozsIsEteiw3qqz+vB3lhpWO5HYniz8s4bQx0/NzTd3upPg 2P39gFukhzNZBx5l+JFo6ikfk/jScdT80uT38STMBptOhvF0oJeiabewnIS+ bW5HkVAD8xbMJb3XSWQsSRPdIjTQLx16UV5Jwrg7evZhkTqy3Wu9tteQsPTd TR/3pUJm5Byd2kxi08xiSQRvCQRdWYUKfBJ071GLEqECbqfNHuL3kJiWcP3a i+SRs+Xg6tI+Eu1xxRkTvnJwuLq+zmbg258+pyWW95W4c7zjCWuUhBWbrXpN OEVcWGeW5TROQlxmc2jKd5KIFOW70kkS/SenQpN4UmKVY8hgy0cSFu87m28K hwhFue6y7FkSymbM9vM8IfGmfkuQzycS5Xn7lnGFfKI5qNTY5CsJlmIQTyJs Iy7qKk/LZCSK/93QkL5/yOo/skViQg== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVj2s01AkAxWc8lmUNYrczFa2oEMa2bRmP7iCxTZ5DlEmTvBpvpoy0h9k1 raJMe5xWpFQSKY/QyiMWtbuSR4S2aUjyGI8/1ZAoO/vhnnvul9+91yAw2itY gUQiucr1v+8JHu9umvDZWWBHMrloyoeS45qYQeo25Lh/qHpqzMf3V7IvVVJ3 IfPwLOOrzXwwn/TfzaN644RwyC/ZkA/foIWG36hB8HjSlBa8jo+XtF8dz1J5 WGILxr+j8JH/tfupM9RUeJ1UKGqbS4BAtXLzaWoWSHVKm5drEuC3/2rZ7FwB DHW7SrrsEqC+ImA765dhUXFvbUfbcWz0nBlvSa+CZD7Zk3LgOBI66Mh+fx/p D09ENw4ew+oqbQmZ3Aip6abVOZHHcG/Ysb3TthlaEdlOo3M8NHPz1u6fasXu 8ubleD4Psk12mnci/4JFep7dFhUeFBZLtNZubIPEHsreGfHYvsK5xyptByPz /L5CajzaU7d1PDLtxN3BXEvr4jisF00uFs90QaoeeR60OEwuDEqeWT5FX8dM UlRDLAqkdW2Ucz04HbljmuIQC4reTWJkpBdMTaux2b9jkHG0OiTfqA+NzhPc Zd8YzDNKRsKS+7HwR7P0bW00eFtbq75pGUCvhq4Ooy8Kg6Wt6d0G/8J+7TuX GEkklri9uSYnXqDdwkFkOBmBLfYqn0PqxKiLfis1UY2A8zWD0IrVEliHWbJ0 VoUjQe/QhlfsQeif6+xwN+PCbMpHvd91COtrJf6azKPQ0ZxVbf04hPK8pPmK fWFQaswtM7z0CoWliQU340IRvq3u+ZfMYZglKHNSkkJQ8mNg/oP5YXQ6kc3F acGQTa7RGr3wGv32ARrphUGoZjkrZu0aQbTMZWldxREkuwivVI2OILwva5nc HgiDl3sGrgvfQNjgocmdPAzrHalZ1K2joLFzaNULHLD1OxfJPaPYaex0hKXL gazt7HCMYAw1vksuxTYByFYK4HkZjaPpvsVbz2g2dCTV1xRax0EydnhAun0A yj8JvOmxE+Aox9441uwHUnFA2fAqKTLsAitFi/sQl1N2dlWzFAMjUeJYNR80 bElT1Y6aBDvb33i/EQvae+LMfqZM4XahWu5ogCfE5l09ifVTsHK55ckbdUP5 ZRiNBEyj6ENLbagHEwfLtmvrfZ5G2p95R0PbnZEivCoQ35pBTVip27slR9wZ 18ul7CUQ89BR8DiCgbQ8IUfiRiAlw19xjM1AkNf0xlJPAmmseKGCKwPr6uvL XX0J5L+6dppuzsCZTP9HGYHyvKRo5P4CCNt+cU4tkQAnIsVJ5eVObEjVdVEp JEByS0xLGLLFZ6uTGv1FBLTERRmlTbZ4Pv36aWEJAUvugOhNvi1EvpUHd1fI 95zacZF12BYrpl7xwnoCXQ9kxbRhG4i7My8r9hAQ0eIej722Rs2phSM9zwiU N1zt1G+1RpbNIZPrAwSamN09PgXWYN6wqHKQEJgNtRS3BFmjlv/kH8EEAY/8 makrb+i4YP5DpueUvM9Cf67vIR2xw5e8DQg5v95VplFIh/HeiMGm93LewO1P SSF0KJF7C0QL8j0hYnLlbjqGqm24nI9y/nv1L6Sb6KjnXqdZfpL//cVGzUCF jt/Xq8tWVgh8qx1O8Ruzwn/2Y1Ni "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0vk71AkAx/FxFEtN6ViNnFFylbuUfMpoFakwsjbjCuO++7Z6XFMIIfVQ hAhlS+5RrLGsbLV2UlKoNO4jTN9UkmPNtj+8n9c/8FbxCLbzEqVQKDbf+18r r4nOlvcOZg48d9UDc/x94nS5kH6aIW4Zj57ksrhmBgXZebU0CwySHoExLJ6Z 9dOemnwaA3E8FcKV1Wfm6DnXdIXmied72AvHWNNm73ZeoKfRIjA3U2V6iLVk VrjxWGIKLR4Xnz5hWrBWgS1Zq55MywSjkRFkzpLHz043Kz/OlMDApDl/bY4O pIVsZ0vFSpgWKLNKl4yw1fbDxMOLHHwOGfxcLrkPZzpMkP2lAevpclIdJ8wh y5Hhi4g0Q35TM+/b+EHcH6Lznpm2YpSq43Ttr8No9cvf7DTdBiPBmwKNyzaY 3bZvTXngYyxKneM9SDsO0fmytZu3tmOP7mL5hkg7GAvd7ttX8FCzUO3zD50B XrxhxyPNZxDUJ1GiVpyAUsbU/J0PzyElaRHtLXDE1Fw//5XuCzCXTLvucpxQ MtnYTk3vQgZbjqpRdBJUhVJyZOQlkhZkt91MZCLVt867UK0b9ZvsZcOtXPF1 f9mIT2wPhk81ELjuhgj9Ns6PD3uxkupz9FOMO/or2i52qrxBDiV5UyvhgUW/ l7kaZ9+CKjDppPqdgtYBiWXvxj4o3UsmJG08YVmkwqqW5aOw1pqqRPfCGQXX LYPO/eCm3bsytN0b2tMO0j02A2h0z1+hKsXC+jUfJdsWBqAZQ/GPW2ZBvDm3 UjVvEIaBok0pQz7wN2x8/YP1ECpKCJGa174oO+xR+MfXIUh3nzU8wfPD7JTc 2rGrwxB7o8AorfBHnb2lWKbFCPy3GXhvLAlA7KGEAs7YCIIPjnvqJgdC5Z1V b3HCKBxctOye+AZhz674TJr+GMqaB/WimcFwVnw2L9I1ho7IzbHByiGYbU8b CmGPQ7grll+RG4JscZcIO7UJRLvqc9qooVjPrysSbZuA4LyOSE5sKFZEsxkm oe+RxXN/vDgfCsodl8qhdZNIiRkVMwoIQ9j1yrR1rZN4wChqWBoPQ5NWkqRM 0BS61UvHzrmHQ8YqTPscdRrmnovJ/S/C0afzvCuSO42xtqTb7TYRqLoBtREX AXrTvUxSWyLArDSWUVgWgOuQQl+ldxpxCTfZfXc/oHv/xCO5stMon1DIpR4h gaysFqE8gaT8BDf+URLMPLvjS4oEPO0EWytsSUQVrxn4pkxAnsutsnEk0VCd LJxRI5By6eSjVA8SBh3RZiPaBHyMc2akIkmoS3hzn5gS2BK/4ZDEbRKrI43r LzsTWN4dtbrnNxLacZ8t010IvBYMv7hdRsLqQlVPihuBDMda5k/VJBKzNOfO exIQatqFJ3BJUGoUjYkAAn2dl26IdZH4MrmS80sUgfrEuVNdr0is+/SQ7hhD IHOvq0ZxLwm9+bgu+zgC1rd2cMz5JIIkFj8diSfw+69P/2a/JzGhSuohlcBV HaNLttMkVmrd+3NvOoHQoTyGCklCTd/XdncGge1HAvpbvpBw3z8copdJQFzk ZUnGHIk4y0LKjqsEBur2+rktkLhxlJmhmU2A61e8U/dfEk0Ocsrq1wlcU5Ke FQpJvHXu+f4tgf8AsKJR2A== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0fk/1HkAx3GKVEoINVqhSCmRSmtr5q1l0mISSZSQKynlCh2az3gYXawO IXdUkkVkemwohWyJxChqGddgMHx1DGFj64fX4/kHvLQ9Tth7z5KSkmL96KdW 3qLGZwN7GQznix8DTPvpMubqAR20TZgSDVnUs14wNmYkpT6kWUC0cX5TOusd w7q+pTiN5gA355tJ51m9jH1e40+u0bygLu6cOsOSMNoNz5vH0kIQzosyCGXJ IlPVNvoSLQp6yY47glmq4Mx9qHeRFo9zMRVNgSxdODnfKhz9dBu9frahdcYm kJ/huFguL8SxMKfYiAgz6NqNiKoul4CnMhAaWcNE2BtTJH19jBQvvUWbI62x pERJIC1dARX7uJuT/rvxqNu8rmFbJfRfd0VucNiDSr+0Zc7iavRvEG7pWOcI ySr6onz/fxCmWFV8vdkJsybyFJfp1sLx5TeZDN4BmMy4P9pTUId53+ZrFHm7 oi5q05sa/QYUXfKR0ohyh+aVoYnckbeYM+dL+4LPhzA03iF4Z9QE5hP/5cTS E7cHy2oV/uRjbdf12vTHXlDQyKGEwmb0Tl1t+6bjg5gjPJ9Mnfe4YH/O7n3Y YYyZ5Ql92S3gq6oZu/X7IsS4ukStqhVyqqknjzL80FFQfblR+yOEpF5nZfFR TPk1p6w5/S+u97w3VdP0x9rtctM+ZW0wiHxTFBN8HJZZ2oeLlghwPDbwRoHw BMI03FZ0uXTAxk96JDc9AOvEe+VbWJ2wnmdikWwZiMWLRudWT3Yi3dVsd+d0 IGQqUgpXpnahr/H5QlFuEI5uKvswz7obnKmlHKZnMPL+8Mh8OtaN81ouOWY/ PkuG1BX7EnrA8VRjf68MAW+P5ex4CyEaXO4uUDxzEuyd3IySPiGUQ/KthatC od1u1ZrN7cXT6Ey6Y0MoftsSFU8z7kOF7ZFejegwuCxvmJDm96HEJJeRYxQO SW1sdwCnH//xn7KiB8KRJOMaYq8jwtY4awW9hFNYLOBlzaoWoZtZzfHGachG cBxMAwfQXqycNzF2GlK5roXdyoOop7dybbPOICi5MFa5chBK7GC1qQNn8WTt hblKx4dQUTbpbKEcASWroHWRCmIcUpvYZVsegTaDt/xT5WI46dVPFIacw4N0 6Ahdh2HuuNSxSYuNg4UmShrTw0gktt7XXrFBuLc4bfdHkGm0XtXBjCBfpJGi YENhxDDgbcUNggtpXHfBLgpMCX0bPZHAy35Yt8COQmqp/L3SJIJfyssfsPZR sGLmsHkpBJfiDtTEeFC4s1+wPu8Wga/JzU/zT1Fw4drEJuQTrIhS2Sl3l8Kr j6ut/F8QTP96dmHLPQpamWO8wRqCD8M9TXfzKIR6V2v7viS4su/hwR1FFHRG 3SY8XhPM6NsHc8spsGUT7zk1ErQ1xqXP5lMwMZKVs2gn+Dt63JP/jkKspCno uYAgfqvbmuxWCsLSTAGjk8D6zvqS3wUUrjK3PTLtISgNr3/FGaAwvD/Y23CA IMFgc5ydmIKF1vbGvwYJArtTHbQpCsm9CnR9McFqm2Mdz75S2BlwX0WXIpCR br59ZZxCxuZwkjVK0Mnb6uc+SWFskinW/ExQ7pdtaPSdAuvZYqe0LwSJmvKS mRkK2dyuKnUJwf+PRF2c "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Conversion\"", TraditionalForm], FormBox["\"flow rate (mol/s)\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction:>$DisplayFunction, FormatType->TraditionalForm, PlotRange->{{0, 1}, {0., 0.008279999831020407}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {-1, -0.6180339887498948}, { Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{ {GrayLevel[0], RectangleBox[{1.1500000000000001`, -0.35}, \ {1.7053719008264465`, 0.44999999999999996`}]}, {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], GraphicsGroupBox[{ RectangleBox[{1.1, -0.3}, \ {1.6553719008264465`, 0.49999999999999994`}], InsetBox[ GraphicsBox[{{{InsetBox[ GraphicsBox[ {Hue[0.37820393249936846`, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, { Left, Bottom}, {1, 1}], InsetBox["\<\"H2O\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NO\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 2.4}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NH3\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 3.56}, { Left, Bottom}, {1, 1}], InsetBox["\<\"O2\"\>", \ {1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}}, {}}, AspectRatio->1.44047619047619, FormatType->TraditionalForm, PlotRange->{{-0.1, 3.26}, {-0.1, 4.739999999999999}}], {1.1, -0.3}, { Left, Bottom}, {0.5553719008264464, 0.7999999999999999}]}]}}]}, AspectRatio->Automatic, Background->None, ColorOutput->Automatic, ImageSize->Automatic, PlotRange->All]], "Output", CellChangeTimes->{{3.523312404815483*^9, 3.523312418281897*^9}, 3.523312753577023*^9, 3.5233154852728167`*^9, 3.5233165119574957`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pressure", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ "FO2", " ", "+", " ", "FNH3", " ", "+", " ", "FN2", " ", "+", " ", "FNO", " ", "+", " ", "FH2O"}], ")"}], " ", "*", " ", RowBox[{"(", RowBox[{"R", " ", RowBox[{"T", " ", "/", "V"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.5231189371493*^9, 3.523118983069162*^9}}], Cell[BoxData[ RowBox[{"55.2533`", " ", RowBox[{"(", RowBox[{"0.0339`", "\[VeryThinSpace]", "+", RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], "+", RowBox[{"0.00828`", " ", "X"}]}], ")"}]}]], "Output", CellChangeTimes->{3.5231189872466593`*^9, 3.5231231242287083`*^9, 3.5231231757430487`*^9, 3.523312418362689*^9, 3.523312753655209*^9, 3.5233154853642693`*^9, 3.5233165120553017`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"R", " ", "=", " ", "0.0821"}], ";", " ", RowBox[{"T", " ", "=", " ", "673"}], ";", " ", RowBox[{"V", " ", "=", " ", "1"}]}]], "Input", CellChangeTimes->{{3.523118989599769*^9, 3.523119014196439*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.523119020670353*^9, 3.523123124265688*^9, 3.523123175780016*^9, 3.523312418412489*^9, 3.5233127536920147`*^9, 3.523315485455112*^9, 3.523316512095216*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"Pressure", ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5231190245616627`*^9, 3.5231190396105833`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0Xs41GkUB3BOehpsamyzGnbcljZRhHShzptLcusyZSdbIUuJbqy2bO1q dmdadGGtSg25TTaJGevSxVitLKVULiWlGQ1JGX5UslLp3T/Oc57PP9/nPN9j EbabHwFaWloBdP7fvhF9zddeBC4T3qw+3cUCouNhvEfFdcZ6XkKnhtopOyOz jOuJU2OJ2Ri1X1P7X1nc9Xja+LqUrQtEED5ancYNR3n0DZk79RP73zyOceNQ ObX1Xyl1Dmf14WSuCF35fcORekCErLKvk7jpOPLI0HdYH8iGoFzZ0LAU9faH jHtMA6I/IdzkbSrDFuGQf7AhEOu1g33Xj5Tja8FF3e0cIPvuLMaMN1ew9EpI Q8VMIEblbKW2dg1aJwqsG02AVKo9bt91q0UX9QqRuRmQ2qgskyBNHeawtqza ZglkZNbSacU7G7BGUnN5rzUQGCuabmLdiAeucqzqZwNxmQitXFdyG/u95PZK WyC3Rc536ufcxfKsvQW984CYpfaPFQ7eQxOho+l8RyD9oyrlfYcWXNjs5OKx AIj0ZVWjwfFWfHXRbvWpRUAMeH8yPT1tqBO4pvWxK5Cj2yu25lg9wMbtl0ef LwPylhT1RCa0o4PeTJ6LO5A4x7ryL64/RB8jhdrPC4iqpO5Is8UjBLmgMH8l kPGoNonNj4+RzTF93O8HxHb5lI9bqzrxQe/s4vFVQLzzLLaVGilxsaftoQA+ 7YsXYvl0kwrXGMS+3hoIxE4TqN8e0IU10u7mPRuAfD5tiFX3rgub6v1LFRvp /2sksq8yn2JK4DuHe8FAop2rOnT91Mjszi61DgNS5BOW8/dbNZ7/ZndWdATt s994eu/Jbpxx4Veb+EggFeu8J6V79qB5UkrljWggCSvF2eW9PdjVpupW7QJi 8cT3Yb74Gf6n+fbg8xggSxaK0rmOvViS2sSZvxfIJtO7Y9qtvcjNFa1230/z G4+p9wifo+VSp+QTB4Bk6ATH8a36UOU1K0L+M71fWZEHdX04YuxZVCUEMvkn 4frFMS+w8EDQK5YYiFZhsExt+BLZPmUdvEQgsWdkxwxrX+LMPJ3auCNAqm0T Wexd/biv4RBHcRwI2zfW7hcDDSYHLde99TuQzrn3WuMVGnTbN/bB5AQQ+Vm0 6gkewDztt2nOGUA2y1zYvI8DGLqB98dSCZBD4lxh54VBrF7ilp54FkhxH09i 4M/gnaTsBZJcIIlZ4lDlKgYPM5zB89Th/AHrkrUMLgs8WlBJ/aVCIQ8QMCg3 jzdqoU5O2Vh/NIzBtEv8MVYekEiX08N68QwKnk2u/oHaUjRj5ZQCBlVkhyc/ H8jHRQentp9nMKNA/T6EumOgu6WgiME1nwVV7KROFZRtXlHK4D/tXrOSqCfm 8L8XKxiU7jJjXaPubE45O6mVwcjMlltzpUAuHx79rvU+g+bgI3KlTncNscl/ yGDHtho3H2q/c/PK3ZUM+jhdLA6nvrq/6abwBYO2jeIUCfXJuQtS1moYfGb/ 3ruQOkadud6CYTDrRKzWJerZ/jtU194waLAlJKaFWke7TZo6ymBD/X2bLuqu Cteo0HcMJtj5qweoFVH59g4fGFyYVntmnPqUmf7IxASDQ6OL1umeA/IJzSYx 9A== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 2.254}, PlotRange->{{0, 1}, {2.2543346415561136`, 2.3305841924438866`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.523119040580432*^9, 3.523123124321321*^9, 3.5231231758379183`*^9, 3.523312418471715*^9, 3.523312753747733*^9, 3.523315485557363*^9, 3.5233165121459513`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ftot0", "=", RowBox[{"FNH30", "+", "FO20", "+", "FN20"}]}]], "Input", CellChangeTimes->{{3.523121415263012*^9, 3.5231214335184107`*^9}}], Cell[BoxData["0.0408`"], "Output", CellChangeTimes->{3.523121435793707*^9, 3.5231231243711643`*^9, 3.52312317590359*^9, 3.523312418517651*^9, 3.523312753790258*^9, 3.523315485655116*^9, 3.523316512195735*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ftot", " ", "=", " ", RowBox[{ "FO2", " ", "+", " ", "FNH3", " ", "+", " ", "FN2", " ", "+", " ", "FNO", " ", "+", " ", "FH2O"}]}]], "Input", CellChangeTimes->{{3.52312233573411*^9, 3.523122359644251*^9}}], Cell[BoxData[ RowBox[{"0.0339`", "\[VeryThinSpace]", "+", RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], "+", RowBox[{"0.00828`", " ", "X"}]}]], "Output", CellChangeTimes->{3.523122361208815*^9, 3.523123124421236*^9, 3.52312317594703*^9, 3.5233124185641003`*^9, 3.523312753829399*^9, 3.5233154856878366`*^9, 3.5233165122456284`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yO2", "=", RowBox[{"FO2", "/", "Ftot"}]}]], "Input", CellChangeTimes->{{3.523122368724585*^9, 3.523122380109044*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], RowBox[{"0.0339`", "\[VeryThinSpace]", "+", RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], "+", RowBox[{"0.00828`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.523122385361783*^9, 3.523123124466613*^9, 3.5231231760030003`*^9, 3.5233124186181726`*^9, 3.5233127538747673`*^9, 3.523315485742238*^9, 3.523316512299019*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yNH3", "=", RowBox[{"FNH3", "/", "Ftot"}]}]], "Input", CellChangeTimes->{{3.523122399676263*^9, 3.523122405151181*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.0059`", "\[VeryThinSpace]", "-", RowBox[{"0.005520000000000001`", " ", "X"}]}], RowBox[{"0.0339`", "\[VeryThinSpace]", "+", RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], "+", RowBox[{"0.00828`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.5231224061256*^9, 3.523123124521586*^9, 3.523123176048773*^9, 3.5233124186637907`*^9, 3.523312753928956*^9, 3.523315485811893*^9, 3.523316512362317*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yN2", "=", RowBox[{"FN2", "/", "Ftot"}]}]], "Input", CellChangeTimes->{{3.523122409097835*^9, 3.523122416288912*^9}}], Cell[BoxData[ FractionBox["0.028`", RowBox[{"0.0339`", "\[VeryThinSpace]", "+", RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], "+", RowBox[{"0.00828`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.523122417116544*^9, 3.5231231245673733`*^9, 3.5231231761009483`*^9, 3.523312418719391*^9, 3.5233127539798183`*^9, 3.523315485874998*^9, 3.523316512412228*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yNO", "=", RowBox[{"FNO", "/", "Ftot"}]}]], "Input", CellChangeTimes->{{3.523122420573683*^9, 3.523122426503845*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.005520000000000001`", " ", "X"}], RowBox[{"0.0339`", "\[VeryThinSpace]", "+", RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], "+", RowBox[{"0.00828`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.523122427071566*^9, 3.523123124621203*^9, 3.523123176152607*^9, 3.523312418763627*^9, 3.523312754026722*^9, 3.523315485930216*^9, 3.523316512462598*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yH2O", "=", RowBox[{"FH2O", "/", "Ftot"}]}]], "Input", CellChangeTimes->{{3.5231224285905933`*^9, 3.523122435639296*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.00828`", " ", "X"}], RowBox[{"0.0339`", "\[VeryThinSpace]", "+", RowBox[{"0.0069`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], "+", RowBox[{"0.00828`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.523122436142541*^9, 3.523123124668152*^9, 3.523123176199823*^9, 3.523312418800952*^9, 3.5233127540806417`*^9, 3.523315485992834*^9, 3.523316512512388*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Mole", " ", RowBox[{"fraction", "/", "partial"}], " ", "pressure", " ", RowBox[{"vs", ".", " ", "conversion"}], " ", "in", " ", "constant", " ", "pressure", " ", "reactor"}], "Section"]], "Input", CellChangeTimes->{{3.523122771644644*^9, 3.5231227849185457`*^9}, { 3.523122832419118*^9, 3.5231228357480803`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"constant", " ", "fraction", " ", "in", " ", "Mole", " ", SuperscriptBox["pressure", "2"], " ", "reactor", " ", RowBox[{"vs", ".", "conversion"}]}], "partial"]], "Output", CellChangeTimes->{3.523123124721559*^9, 3.52312317625284*^9, 3.5233124188465633`*^9, 3.523312754126182*^9, 3.523315486045212*^9, 3.523316512561645*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ "yO2", ",", "yNH3", ",", " ", "yN2", ",", " ", "yNO", ",", " ", "yH2O"}], "}"}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotLegend", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"LegendPosition", "\[Rule]", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.3"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.523122450460381*^9, 3.523122474262501*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVzGk41AkAx/ExVDpcOWpo3LrQIWyzjt+2hBy16JKrlYioEW1hV2Yf2qaS 2hVyh6gdGjKuRo45apOcFW0ajEnuP54Qim1ffJ/Pu6+O31m3k2QSieTyrf91 PDnYVj90yDpb7kvmvXtCyNio03sopug11G7uzxNiV3ZqRhnFFkF9hSTdXCGc XnY+yqQchGSxLyQrS4gj/rNP/qT4Qzqa5JeSIsT77X/YJFAi0GAqrmUyhchR PXD5KiUOH1LUbOihQjBkyzYxKUkIvG0SYWsmxFGPu+yJyXwsLu+MSuMKsHqJ 4WWvyUbyrbH+zY4CGLiOD/KvcUAXjwjV3vFxoZmG1E/V0F1Q7RX48bGOoySS kqrDm6dbNHKneKgQ2zS1WPKQFk2dt4vkgRecqeExKsBCmG+fC5mH6Y1WCsWh z+DMaomJ+qsB5DmWooZBIxhKlv0XNBpgvnS8wv1hE077Dxsns+rRFGfa/HRr C2Jzm3rXWNdD6+bI3IPxVoisGkIf36jDyGyP6PWOdvie96q7WlqL/GFuo/yN DsjLO3zcwHsCeWohIZG8gud1p4/+nTW4HlQekKP/BhxbN5XGL1zM/MCSnLrU CX3vX5ZLK3IRYSLgqPG7oFcUU35g12P0PBRca9P5F3IJt/JibKuxEPwqfUvU O+iFpKd7HquC4Z4ViwHcbhhVz07RYithn6sTWLpOhBOby7zWJFXgAtVXt8+r B5VpOvw3leUwGj20utOlF3tdn4da9nKgrDAhK5jvBad8Z0ThTBlk6tLZehl9 2L5yD//zhjKcNuW+XekkxsVmTq73zkdg7fPLqZ0Rw/2UHdvPsRTTI+qKA8n9 YB5VlLIML0G5u710kq0ECuosfoQKG5cc4rM5AxLAVVKwwq8YOu8du/LiP6BI TqRUUcXC99/FJVFMBpDoRmK2jjyAl2bLnFTHANaPBwX6WN/HdGOCmM74CDJr k2lEaAFSZXwi3PQHwRyLXj/CzYeyqDyXLBiE01fzjjPKeVj2G+MgLWwIkT2V tAz7uyA98GGL1w5DbGDkoWiejXNp7IS1vGEsH7BdFZ6cjieGV2SVzoyg6sqB 2+SVqVByPGf0u/woFOvrRv+pTkK3cWtHZM0onOerjvno30JJFvQlPmPQjlF2 k0u7Bm+2uRJ1cQyBL/LGNynEIzb+LqP773EIJ/V8GyeiUTxITZd3JpDiUZRC Ph+KK5nxx0X7CXBVh2mUpRD4u40ZPHQlMB/QxtzBDMGGmpoSlyMEihqTTX7O PI2riZ5Pr/sRIOW2FzYKg3DK/M7kqkgCM1O1WrVqAdCNU3FYUUAgyr37/P5z 3ljc/atc530C4VRCs/CyF96O9bcXsAjQadO6UumeuHmkzNuulIBLaItFNd8D S1vdwuNrCHyeCyyhqR5Gd1tilnQHgZ9a1fbO0l1QdXn2RMdrAsFnuqY67jgh ycJ3S14XgbBJ7cNlvH1wureN86OIgLB6m1WUih0eX3z5nDFE4BDbkOJKt0Ky sVmi6yiBiw7NL8x4NISJMw7qEASSFjSHtFTMsdk5pKf+E4GJ+2bPZOnGkJF6 lX9zloCplhfjq/JG9JZbBB+fJ+C9e1F7/iwVNcF523d8JZDTqd5OpcshRWv1 9NLSt7/F/mWexUbW/wHxul5c "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0v8/0wkAx3EbXeSRQp0b4chUqFQu51Jvlx6t86WayOp8y9eOSymd01Xa ZoyQ7pzUMEwK5dt8i/m2lEtfMLQljdZOvn/0KMRVrn54PZ7/wMvE/7hbEFlF RcX1c190Chruah7x2LFH6H2WxRJDzVH/xADFBravg7opTDG28DMyhZRdWPEH w6o8Rgznx9KKLIo7SMIPrwbOiuEZONvwJyUQ9jMOodujxHixMd4xmRIJhm+V 5H2YGDkr98UlUmJxMGSzboSHGEx14ZoEShok7Xn0kLViMA7llk69ycezqZqw vvst0FxgetGMSkG9e0yiDGsBlT45fPdiJQQlRc5PdVoQ9cQOGe/uwK94N827 ohl6ldpyEqkJsRrZqyMZzahWOD7qsBeDrqM+5jLZBHFolsGh8VaUPFc8YW9s wrT59mW3j7VhIolx+OG5RpDnipcbUNshJE9EMRoasHXBr/pAySMYrMvgTGo0 4FGszZP7Fh1I8BkMoB0WwTh1bK5wshNb3NM13vHqMTY7IO+1luC3v720eaN1 yB+tb9dK6QbdgZ+ca1EHLcMbhFLZA6H/rCI8/A6SfqkKzjF7iqgW/Ydrmmox 41CsPBojxZRePncvqRaRm1srv74rQ9+VWtqh/TUYKGm92GXShwjb7KgXqdX4 L7SHt+7Mc2SPn99h2lsFyx8Xfwqu74d2jbWrvXkVaHkmIeV6cgReTteTH61E lKGv6UuvARiY+glca4WwGvfQlLoOotxFWRuuKYTusin11vlBOEoCgqn7K6DW xCtdnfkSbR7RAl5uOcJs6p9pOCuw6nRIf4WyDMU/+ec0zigQly5NibEsw/SY /vKh9Fc4VyNpnP9YgqoDNNW0XUpctk4IcufeRsweDr9ySIldxzs5JKtbMHnh JBNw/gV1/5TOh6dF+ME2No2yeQhH4nf0HQ8qhJdRxxypewiCN/d2Giy9ien2 ZMUJ5mvoJ7x0OJhRgAw1n0g3s2G8XZS1qc7+OnTlVXnk1mEUXPNo8x0WYNE5 prtdxMjnz9aolEXlQaXQp1ShM4qktSujl36bi5PXSpN1xKOYsTmV48ngo8GS q64dPgbpa/l785hMaDudtGJpjcPL7KtImfQq+td3dkeLxnHjdP6xne/TUZYN M6XPBDpj0kQRTmnwLt2qbfhpAnxDd8p80WVc4OQy+4smcV3XzniwIBm3hw15 Wi4ETO3Oq48e5oKbxfGT7yUgVxn2ojlyEeg2QS2hEzh5wKQn35KLVSJRmasn gZogkqXfh3gkXvr5fpI/gdO94WdkWfE4uvXqmyXRBBS8en7HYBxMY1fsWVxA wLWVTJYFc/Dp+7NLpTcJBM79U2q3j4NnE68kBcUEbI08LvBsOUj1FHrvLidQ r9qY4KvOwYKF2ymOiICV7MH2kcJY9HddylbtJjAdHWehOsFGbdxsQHcvgTu3 4tVCetlI2+a7TiAjICM7kR42sOF8fUPlTjkB/6HlAX+lsFH3++MHzBECJHN+ G9WajfT1312ijxM4vyy3JvEbNiIUme4mBIG06iPthAoba11+HWh+RyBniRGj rosFNVJPfuosgQ1GlG7jOhYGq7aF+s0TSBF1neDksSAKFWy0/kjgbQZt01gi C1eMNacXFgjcCz6zgn6Khf8BvK1jow== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0Xs01GkYB3CkNUmEblPhKLpqlVCx69udQkXKVkJINe1sjabC0cruSOV6 HNnWLZJaKROGbMZqNdtFbkU7cpnRNK+mcfmpXCqH2Xf/eM5zPn883/Oc57EM OuF9WEdLS8uT1v99+2HVi4fv97icaRcNDw8T6G6ae1LOtofT0D29d9Srr13N KmNvRt7+v9lt1O4N0tJstg/KDSxcHlD7hoxWp7JDcEy7Me5n6i7buE2JbD6e s76a61Hnztx54TJbgHruJb85QwQxrLLFl9hpsI6NmuH8keCHfXnCwQ83kLSw bOeqAYKpmhg/V3MhDFaWBnPVBNZeA6pH8SLo5O/Jq+4hONu4DleH/kTO/QVu NQqC2SJjmbZ2DcLPm0R8IyeoUGyqb/quFg7x67w17QS1nOx5+/okCJX9wzGQ Egwv+t7oLvcJhHN51f4tBDpfiqbPs65DQsvI5OAmAkdNYMXu4npcV90PuPOc oF5g3/h4WRMiJ2bcmvKUwCKl90vhQDOy91+xZUsIekflslcrX6LQwS6K+5Dg hrqqzjCpBRauza58MYGh2S1GqWxF9pRjs5IrCRKOlYfmWv2LXZUF+wdEBCPr i5RHo6VI55lytEoI+HYS0axHbTjuYfBk710CebEk/oVlO9RFFTaBhQRjnNbM pZEd6JLY8c8VECzfoDcRWtWJxNTVVbI8AtfrlkdKZstgopu391M2vZdZwII3 fnIUVJY9c88gsOnbM1Xq2Q27JdLG++kEpkaDLMnXbvi4tfGkqfT/NZnChVlv YMJ3y3NKJjhuX/V6irsCj7iDt73iCYq2BeX+NaLA53HBgag4es/eudN70t/i s7m2h/pXgvLdrpPSNisxZwnrkMF5gmi32GuiHiVyn3Qk8aIILLu2t+XHEhwa C56pDidwWiNIY9v1YFnKZdbs0wR+5k1ftFt6YBZRWXeBR/PrEhUnY95BLK+x L+ISXNX153tbqXBSrtpqwqH7y8qv60hUyI9MSU0IJZh8LsZnHe89/M9VN1QF EWgV+gsVJmoMGhUdWRFAEJYhTDSpVePBtUk2PgcIqpdfZBn/1IvQrrUuSb4E xtvDbH4x7MOJaEGIvg9B54rmlghxHzo2SMaddxHcy4GV0r8fpVafBEIPgoNC R2OziX74rSqe5riN4HxsXkzn7QGccazYGbaF4K7KLNPQg4HMsHTN4AaCi9mx gbIdDFjixSnd1CHe/dbFXgxSz4pUzdTzxeJ7nr4MNHNMM0qoLycfeJwQxECo UY6HUR91/P2DfgSDJtuOZ8PrCRYIZrjp3WRQU2F0agwEE2ujpkn/YBDZENrY S/26/+3Lm0UMnPpal3ZSp/iWHdxaQvPXj3SLqTXLvE/FihnobvTc9TN154vk nEktDOJOe6zWpq68MBrc8oqBeMg05YMLQZpzwNL8NgZPwz/2vaF2L/hWtFHG IDNp6GYt9YPwhmcx7xlk9RrMF1Cnr3BI9upjMBafEMGn5imyfCwZBjm2C6Uh 1Es8fpQ/HGLQFn0ldQu1rnbrjZRRBvo2vEEH6u5yZ07gVwZl7cE7FlGLOfm2 K8fpfDz3zizq3yymDms0DDJckvT1qP8DS/x+aQ== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVznk41HkAx3FKaCtD92DMoxBytHK1qU9t2opUrsomxaKyWZTN0cFY0yXl qYmpDHJmxGDGEYNvwsZDznLEyDTkGP2qJY/2WXb3j/fz+vet6xPk4rdAQUHB 6b/+18FvtJ2MuW8XG2bzKss2bFfapRk8SLeEjaOQJD1fhM2p3GQh3R5d1drX PJ6vgmNLdzGP7garDq+tes/1ccR3puou3Rcl+YG2A8QKA+bXdsXTQ2GwlqHg TXYjbdXBqzfpsVDW+f2PkBp3sFSFG27QOZCX99kmVfnhqMdjwafPmcga7tC9 knEBS+ZZnnt0BPDMLw53fhUNfeePoy/iRNg3GJ4WY3oVYa+2gDv1DD0RZ1ps 5uOwRqQhUVSsQW79Pc/mkgSUSnc1t9rVYqOZSKaedQ+1ATwtD3kdhoeu/MVh J2LaYBstP/BPJIVwTXM3P8CC2Tx1Lf0m9JkHjnE1k2E9f7LUtaAZ/aHyh9at KWiOtXzVYNyKw5NFopyKNDATJmZzP7ZBfeVckLJxOiZmBiWvN3WASjXefjQ6 A5njlU1qtzsx0SB5M/wlE2qMHEom68I5a2MrI69s3DpT4p+m9wb02UN2lwpz 8HVHnux0VDd4cypOlE4uQi3qRKtf9MAwcuJxdCgfgwV1ce26fajZJ+VqjeTh 74CuR0aRb8Ha3Hsm/FA+Nu5UmfOv7EeRj88ELb0Ae9J1TxWtkSDvyW5xk0oh whgn1g15DmJhs4eORXEhTOTuS7qd3sFyx7YpVY8irKB9Uq379g71Fy8ENS4r hlLNI8H65CGYKFhusSstxq+Wlb2LHaWoZhvw488KkbfPJ636qxTHAx1qHZgi TE9oqo8kvkeLmx/9Zb0IJa57FnLsZZjLULu9OrIEUXvZqaIRGT7Ea3ubrCuF 7oBDTwZ7GB0vEzXFDaX4wSaWQ7cYgTCtvY0WUQZPndZZxc4RrCnd6W7LLMd0 U7w0mPUBqUbcpZqd5eAqeYW66I1ijCfJ6Y58hhWSkvQFdaMw8ZD2rGRWYNFl ltuWkDFkn39rNtdWAYVcL4F0+TgOTLk2tF2oxLmHgvjlteNoTLr40t5YjKqN 11U1fpuAtDGPb9knhobDOZMYNTl82gdOaV2pQr9pW2eEWA5aeoxHonk1ClOg J/OahHDcgk57XY3jAmsNxtwkKM6xVI2wGkSzH7P6+R/x1UxW57SCIH+U8Uht P4WUp67ma/0IrvPYJyUHKDz0tDdk+xP4ukzqFzhTqIvRYn45RaAtFhc6HaFg YX9ZuTmA4OadYw23fCh4MmjiqGCC09YPPn8XQaHYJrh25CLButiVe1WyKSyN 3msnvEswZ3tpWfcTCmWf1b8wOQS9k+87svMofAgkWbfuEyQcER7/qYiCN7dL 2Z9LMG/scp4tpuBr0yFYm0LQ334nZWEnhW98A97lXILyqzO/dL6mIP7k/f04 n4Cz9YRRRg8F7bjYF4efEjhmmYl+lPz32xY1ZC4gqAhvaWSNUfiZcVBJKiJI NLW64yynkHSj/tqBUoIQabKbLkUhLGj94soyAsP9ZwfJFIX0ivuLOBUESopd mQkzFEyN+NEKYoJ3JVsDTn6jMLA+e/ZsFYE4IMN80z8UnAU3gnurCZKYS6bn 5ymYtLkN7yYE/wLG4WuD "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk01AkAB/BxlaMwKd44G0wnMYou9e1aRO6sDsesrVbTpbZVeu0r3lCU NW/fLCZHYmpYZdybe2JiRpKrpqShaZow9GMfiZbZ3T8+70ONOhd0XJNEIvn+ 5/+9jw93C0dCdt7Oda/ukNB3au81jxmkbEL05aQueqAxNt7NzK6g7INNWghN K3AlfJ5Ly3MoB8G3uuHwNsAZocdmGn6nHIPnnqDR+wG78M7pxt5UykVY9KwQ egUEIG+Ff1IKhQXWqwzbP/wZiNetWJ1M4aBUn8ek+8Xg0OF7golJHrY5RHBz 567DQB0f5mktgK72EtcrrsmgBX4ebrlViVj+ka/UfDYudW5F5lQNfrAw6j+p 5sCskizT0GjC1cJ3KeXGXFTL93a8cG8GvjMM5V7KQTMzx+LwmAjMtXernRR5 mF61w+jRmTbQQ1zkjcp8aM4WG1vQ2iH/QBb8bXIfbmpGdXBJB3ih9KloCz46 WJs6W9e9AEmhn/bNrAg2bNVs0ecumFrP8/VQDNXMoOylcw8+Eghn7XoE3mhd u+FvvYhc59d86LQAhlZ8QqHoQ1/h4Kfc1lLcPll1Is/+Fbpr3R3DRWX4sqtY EX1NiqmFp3EbpeW46CKqNG15jZysmDiGtAKDJaJb3dR++P1VVM4Zq8Q3Zl/W 2itvkaeM8j/yTxXW7168cKJuANrtyRO3ZqvhmU/9qcxMBvXVaPNSg8e4ZBVp +z5sEFrlSY4+BjVwGAsxkPoOwXfo6NlUnVqYGE3oiuaGwK+hry5ZXgftpiyB XfZ77CZ1hhwh1+PUpro3ej5yZIu3XuuzbUDx/qi8xi9y6PPO2U1saMS0ytxY mf4BG9Vmqx6uaUJVsKcWZ58C83Mpo2wLIa55Jd6tVCpwhvnS6x5XCOo779cF iR+RYzppsnTFE2zbzOJQXJRI3JIz8OzOE4RZv5jV6FWC7TUJplkzpttT5THx n+BmcyE5OLcZmdoRF4Psh3Hmi7KBatkCE1lVvqZoGEPNRfn+GS3Q+TX+4Nbz I6hLty9otBSBVBQhkC8bxbaZRo4lV4QLdwSpy5pH8aosLL3C5ika1t/UJZ9V IVpKus4veAqy9wWHBMMx6IUrUznWrRhw7OqNqx9Dyiy1pbSgFaW5sFdEjEPH WRn0zKYN4QI3stXCOCoErM2+3DZcT7wXP/DnZ5zz+J4/ZSnGo2GrLMMDBFQJ 8x68DDFu5iQyZH4ElCkn6tu4YhwLGqeVBBKg7SvaoMoSw7K+vtQ3lIC3sk7P JU+MlLSjrbejCOg9NL3TVChGtBt3Uj+OQHJwoV1/jRi2rOVeix8QMBKe7l8y IMbClqtLpYUE2EyKykkmxpvxDz0Pigm84eV9DRoSgx1aEe5RRiBNsVOfqxBD vS7o58R6AsuD6xbTxsUY6E7L1eolEEuqPeW+IMbjpJkfe18SMB9Z5h1JkoCz PXJtwWsChV0etARNCXzub6jcIyOw/zF62hZJUHv5uSR+hIDOw9hFwUYSpDu6 pgWOEWD4FT77hSzBeXn2QSpBgL66KjXTRII1B04PCqcITGYwdGVmEmhr9PHY MwSe7FALSeYSDFVtZzLmCLS7xsXaWUpQzyxwcp4nMJvUucbDWoIMG4NptZoA tqil0Ssl+BcmfWI9 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Conversion\"", TraditionalForm], FormBox["\"Mole fraction\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction:>$DisplayFunction, FormatType->TraditionalForm, PlotRange->{{0, 1}, {0., 0.6862745093302027}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {-1, -0.6180339887498948}, { Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{ {GrayLevel[0], RectangleBox[{1.1500000000000001`, -0.35}, {1.598, 0.45}]}, {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], GraphicsGroupBox[{RectangleBox[{1.1, -0.3}, {1.548, 0.5}], InsetBox[ GraphicsBox[{{{InsetBox[ GraphicsBox[ {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, { Left, Bottom}, {1, 1}], InsetBox["\<\"H2O\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.37820393249936846`, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NO\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 2.4}, { Left, Bottom}, {1, 1}], InsetBox["\<\"N2\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 3.56}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NH3\"\>", \ {1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}, { InsetBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 4.72}, { Left, Bottom}, {1, 1}], InsetBox["\<\"O2\"\>", {1.2100000000000002`, 5.22}, {-1, 0}, Automatic, {1, 0}]}}, {}}, AspectRatio->1.7857142857142856`, FormatType->TraditionalForm, PlotRange->{{-0.1, 3.26}, {-0.1, 5.8999999999999995`}}], {1.1, -0.3}, { Left, Bottom}, {0.44800000000000006`, 0.8}]}]}}]}, AspectRatio->Automatic, Background->None, ColorOutput->Automatic, ImageSize->Automatic, PlotRange->All]], "Output", CellChangeTimes->{3.5231224810680237`*^9, 3.523123128565255*^9, 3.523123180364147*^9, 3.523312422894597*^9, 3.52331275782521*^9, 3.523315490149835*^9, 3.523316516654011*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"yO2", ",", "yNH3", ",", " ", "yNO", ",", " ", "yH2O"}], "}"}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotLegend", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"LegendPosition", "\[Rule]", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.3"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5233125606895657`*^9, 3.52331256617754*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVzGk41AkAx/ExVDpcOWpo3LrQIWyzjt+2hBy16JKrlYioEW1hV2Yf2qaS 2hVyh6gdGjKuRo45apOcFW0ajEnuP54Qim1ffJ/Pu6+O31m3k2QSieTyrf91 PDnYVj90yDpb7kvmvXtCyNio03sopug11G7uzxNiV3ZqRhnFFkF9hSTdXCGc XnY+yqQchGSxLyQrS4gj/rNP/qT4Qzqa5JeSIsT77X/YJFAi0GAqrmUyhchR PXD5KiUOH1LUbOihQjBkyzYxKUkIvG0SYWsmxFGPu+yJyXwsLu+MSuMKsHqJ 4WWvyUbyrbH+zY4CGLiOD/KvcUAXjwjV3vFxoZmG1E/V0F1Q7RX48bGOoySS kqrDm6dbNHKneKgQ2zS1WPKQFk2dt4vkgRecqeExKsBCmG+fC5mH6Y1WCsWh z+DMaomJ+qsB5DmWooZBIxhKlv0XNBpgvnS8wv1hE077Dxsns+rRFGfa/HRr C2Jzm3rXWNdD6+bI3IPxVoisGkIf36jDyGyP6PWOdvie96q7WlqL/GFuo/yN DsjLO3zcwHsCeWohIZG8gud1p4/+nTW4HlQekKP/BhxbN5XGL1zM/MCSnLrU CX3vX5ZLK3IRYSLgqPG7oFcUU35g12P0PBRca9P5F3IJt/JibKuxEPwqfUvU O+iFpKd7HquC4Z4ViwHcbhhVz07RYithn6sTWLpOhBOby7zWJFXgAtVXt8+r B5VpOvw3leUwGj20utOlF3tdn4da9nKgrDAhK5jvBad8Z0ThTBlk6tLZehl9 2L5yD//zhjKcNuW+XekkxsVmTq73zkdg7fPLqZ0Rw/2UHdvPsRTTI+qKA8n9 YB5VlLIML0G5u710kq0ECuosfoQKG5cc4rM5AxLAVVKwwq8YOu8du/LiP6BI TqRUUcXC99/FJVFMBpDoRmK2jjyAl2bLnFTHANaPBwX6WN/HdGOCmM74CDJr k2lEaAFSZXwi3PQHwRyLXj/CzYeyqDyXLBiE01fzjjPKeVj2G+MgLWwIkT2V tAz7uyA98GGL1w5DbGDkoWiejXNp7IS1vGEsH7BdFZ6cjieGV2SVzoyg6sqB 2+SVqVByPGf0u/woFOvrRv+pTkK3cWtHZM0onOerjvno30JJFvQlPmPQjlF2 k0u7Bm+2uRJ1cQyBL/LGNynEIzb+LqP773EIJ/V8GyeiUTxITZd3JpDiUZRC Ph+KK5nxx0X7CXBVh2mUpRD4u40ZPHQlMB/QxtzBDMGGmpoSlyMEihqTTX7O PI2riZ5Pr/sRIOW2FzYKg3DK/M7kqkgCM1O1WrVqAdCNU3FYUUAgyr37/P5z 3ljc/atc530C4VRCs/CyF96O9bcXsAjQadO6UumeuHmkzNuulIBLaItFNd8D S1vdwuNrCHyeCyyhqR5Gd1tilnQHgZ9a1fbO0l1QdXn2RMdrAsFnuqY67jgh ycJ3S14XgbBJ7cNlvH1wureN86OIgLB6m1WUih0eX3z5nDFE4BDbkOJKt0Ky sVmi6yiBiw7NL8x4NISJMw7qEASSFjSHtFTMsdk5pKf+E4GJ+2bPZOnGkJF6 lX9zloCplhfjq/JG9JZbBB+fJ+C9e1F7/iwVNcF523d8JZDTqd5OpcshRWv1 9NLSt7/F/mWexUbW/wHxul5c "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0v8/0wkAx3EbXeSRQp0b4chUqFQu51Jvlx6t86WayOp8y9eOSymd01Xa ZoyQ7pzUMEwK5dt8i/m2lEtfMLQljdZOvn/0KMRVrn54PZ7/wMvE/7hbEFlF RcX1c190Chruah7x2LFH6H2WxRJDzVH/xADFBravg7opTDG28DMyhZRdWPEH w6o8Rgznx9KKLIo7SMIPrwbOiuEZONvwJyUQ9jMOodujxHixMd4xmRIJhm+V 5H2YGDkr98UlUmJxMGSzboSHGEx14ZoEShok7Xn0kLViMA7llk69ycezqZqw vvst0FxgetGMSkG9e0yiDGsBlT45fPdiJQQlRc5PdVoQ9cQOGe/uwK94N827 ohl6ldpyEqkJsRrZqyMZzahWOD7qsBeDrqM+5jLZBHFolsGh8VaUPFc8YW9s wrT59mW3j7VhIolx+OG5RpDnipcbUNshJE9EMRoasHXBr/pAySMYrMvgTGo0 4FGszZP7Fh1I8BkMoB0WwTh1bK5wshNb3NM13vHqMTY7IO+1luC3v720eaN1 yB+tb9dK6QbdgZ+ca1EHLcMbhFLZA6H/rCI8/A6SfqkKzjF7iqgW/Ydrmmox 41CsPBojxZRePncvqRaRm1srv74rQ9+VWtqh/TUYKGm92GXShwjb7KgXqdX4 L7SHt+7Mc2SPn99h2lsFyx8Xfwqu74d2jbWrvXkVaHkmIeV6cgReTteTH61E lKGv6UuvARiY+glca4WwGvfQlLoOotxFWRuuKYTusin11vlBOEoCgqn7K6DW xCtdnfkSbR7RAl5uOcJs6p9pOCuw6nRIf4WyDMU/+ec0zigQly5NibEsw/SY /vKh9Fc4VyNpnP9YgqoDNNW0XUpctk4IcufeRsweDr9ySIldxzs5JKtbMHnh JBNw/gV1/5TOh6dF+ME2No2yeQhH4nf0HQ8qhJdRxxypewiCN/d2Giy9ien2 ZMUJ5mvoJ7x0OJhRgAw1n0g3s2G8XZS1qc7+OnTlVXnk1mEUXPNo8x0WYNE5 prtdxMjnz9aolEXlQaXQp1ShM4qktSujl36bi5PXSpN1xKOYsTmV48ngo8GS q64dPgbpa/l785hMaDudtGJpjcPL7KtImfQq+td3dkeLxnHjdP6xne/TUZYN M6XPBDpj0kQRTmnwLt2qbfhpAnxDd8p80WVc4OQy+4smcV3XzniwIBm3hw15 Wi4ETO3Oq48e5oKbxfGT7yUgVxn2ojlyEeg2QS2hEzh5wKQn35KLVSJRmasn gZogkqXfh3gkXvr5fpI/gdO94WdkWfE4uvXqmyXRBBS8en7HYBxMY1fsWVxA wLWVTJYFc/Dp+7NLpTcJBM79U2q3j4NnE68kBcUEbI08LvBsOUj1FHrvLidQ r9qY4KvOwYKF2ymOiICV7MH2kcJY9HddylbtJjAdHWehOsFGbdxsQHcvgTu3 4tVCetlI2+a7TiAjICM7kR42sOF8fUPlTjkB/6HlAX+lsFH3++MHzBECJHN+ G9WajfT1312ijxM4vyy3JvEbNiIUme4mBIG06iPthAoba11+HWh+RyBniRGj rosFNVJPfuosgQ1GlG7jOhYGq7aF+s0TSBF1neDksSAKFWy0/kjgbQZt01gi C1eMNacXFgjcCz6zgn6Khf8BvK1jow== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVznk41HkAx3FKaCtD92DMoxBytHK1qU9t2opUrsomxaKyWZTN0cFY0yXl qYmpDHJmxGDGEYNvwsZDznLEyDTkGP2qJY/2WXb3j/fz+vet6xPk4rdAQUHB 6b/+18FvtJ2MuW8XG2bzKss2bFfapRk8SLeEjaOQJD1fhM2p3GQh3R5d1drX PJ6vgmNLdzGP7garDq+tes/1ccR3puou3Rcl+YG2A8QKA+bXdsXTQ2GwlqHg TXYjbdXBqzfpsVDW+f2PkBp3sFSFG27QOZCX99kmVfnhqMdjwafPmcga7tC9 knEBS+ZZnnt0BPDMLw53fhUNfeePoy/iRNg3GJ4WY3oVYa+2gDv1DD0RZ1ps 5uOwRqQhUVSsQW79Pc/mkgSUSnc1t9rVYqOZSKaedQ+1ATwtD3kdhoeu/MVh J2LaYBstP/BPJIVwTXM3P8CC2Tx1Lf0m9JkHjnE1k2E9f7LUtaAZ/aHyh9at KWiOtXzVYNyKw5NFopyKNDATJmZzP7ZBfeVckLJxOiZmBiWvN3WASjXefjQ6 A5njlU1qtzsx0SB5M/wlE2qMHEom68I5a2MrI69s3DpT4p+m9wb02UN2lwpz 8HVHnux0VDd4cypOlE4uQi3qRKtf9MAwcuJxdCgfgwV1ce26fajZJ+VqjeTh 74CuR0aRb8Ha3Hsm/FA+Nu5UmfOv7EeRj88ELb0Ae9J1TxWtkSDvyW5xk0oh whgn1g15DmJhs4eORXEhTOTuS7qd3sFyx7YpVY8irKB9Uq379g71Fy8ENS4r hlLNI8H65CGYKFhusSstxq+Wlb2LHaWoZhvw488KkbfPJ636qxTHAx1qHZgi TE9oqo8kvkeLmx/9Zb0IJa57FnLsZZjLULu9OrIEUXvZqaIRGT7Ea3ubrCuF 7oBDTwZ7GB0vEzXFDaX4wSaWQ7cYgTCtvY0WUQZPndZZxc4RrCnd6W7LLMd0 U7w0mPUBqUbcpZqd5eAqeYW66I1ijCfJ6Y58hhWSkvQFdaMw8ZD2rGRWYNFl ltuWkDFkn39rNtdWAYVcL4F0+TgOTLk2tF2oxLmHgvjlteNoTLr40t5YjKqN 11U1fpuAtDGPb9knhobDOZMYNTl82gdOaV2pQr9pW2eEWA5aeoxHonk1ClOg J/OahHDcgk57XY3jAmsNxtwkKM6xVI2wGkSzH7P6+R/x1UxW57SCIH+U8Uht P4WUp67ma/0IrvPYJyUHKDz0tDdk+xP4ukzqFzhTqIvRYn45RaAtFhc6HaFg YX9ZuTmA4OadYw23fCh4MmjiqGCC09YPPn8XQaHYJrh25CLButiVe1WyKSyN 3msnvEswZ3tpWfcTCmWf1b8wOQS9k+87svMofAgkWbfuEyQcER7/qYiCN7dL 2Z9LMG/scp4tpuBr0yFYm0LQ334nZWEnhW98A97lXILyqzO/dL6mIP7k/f04 n4Cz9YRRRg8F7bjYF4efEjhmmYl+lPz32xY1ZC4gqAhvaWSNUfiZcVBJKiJI NLW64yynkHSj/tqBUoIQabKbLkUhLGj94soyAsP9ZwfJFIX0ivuLOBUESopd mQkzFEyN+NEKYoJ3JVsDTn6jMLA+e/ZsFYE4IMN80z8UnAU3gnurCZKYS6bn 5ymYtLkN7yYE/wLG4WuD "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk01AkAB/BxlaMwKd44G0wnMYou9e1aRO6sDsesrVbTpbZVeu0r3lCU NW/fLCZHYmpYZdybe2JiRpKrpqShaZow9GMfiZbZ3T8+70ONOhd0XJNEIvn+ 5/+9jw93C0dCdt7Oda/ukNB3au81jxmkbEL05aQueqAxNt7NzK6g7INNWghN K3AlfJ5Ly3MoB8G3uuHwNsAZocdmGn6nHIPnnqDR+wG78M7pxt5UykVY9KwQ egUEIG+Ff1IKhQXWqwzbP/wZiNetWJ1M4aBUn8ek+8Xg0OF7golJHrY5RHBz 567DQB0f5mktgK72EtcrrsmgBX4ebrlViVj+ka/UfDYudW5F5lQNfrAw6j+p 5sCskizT0GjC1cJ3KeXGXFTL93a8cG8GvjMM5V7KQTMzx+LwmAjMtXernRR5 mF61w+jRmTbQQ1zkjcp8aM4WG1vQ2iH/QBb8bXIfbmpGdXBJB3ih9KloCz46 WJs6W9e9AEmhn/bNrAg2bNVs0ecumFrP8/VQDNXMoOylcw8+Eghn7XoE3mhd u+FvvYhc59d86LQAhlZ8QqHoQ1/h4Kfc1lLcPll1Is/+Fbpr3R3DRWX4sqtY EX1NiqmFp3EbpeW46CKqNG15jZysmDiGtAKDJaJb3dR++P1VVM4Zq8Q3Zl/W 2itvkaeM8j/yTxXW7168cKJuANrtyRO3ZqvhmU/9qcxMBvXVaPNSg8e4ZBVp +z5sEFrlSY4+BjVwGAsxkPoOwXfo6NlUnVqYGE3oiuaGwK+hry5ZXgftpiyB XfZ77CZ1hhwh1+PUpro3ej5yZIu3XuuzbUDx/qi8xi9y6PPO2U1saMS0ytxY mf4BG9Vmqx6uaUJVsKcWZ58C83Mpo2wLIa55Jd6tVCpwhvnS6x5XCOo779cF iR+RYzppsnTFE2zbzOJQXJRI3JIz8OzOE4RZv5jV6FWC7TUJplkzpttT5THx n+BmcyE5OLcZmdoRF4Psh3Hmi7KBatkCE1lVvqZoGEPNRfn+GS3Q+TX+4Nbz I6hLty9otBSBVBQhkC8bxbaZRo4lV4QLdwSpy5pH8aosLL3C5ika1t/UJZ9V IVpKus4veAqy9wWHBMMx6IUrUznWrRhw7OqNqx9Dyiy1pbSgFaW5sFdEjEPH WRn0zKYN4QI3stXCOCoErM2+3DZcT7wXP/DnZ5zz+J4/ZSnGo2GrLMMDBFQJ 8x68DDFu5iQyZH4ElCkn6tu4YhwLGqeVBBKg7SvaoMoSw7K+vtQ3lIC3sk7P JU+MlLSjrbejCOg9NL3TVChGtBt3Uj+OQHJwoV1/jRi2rOVeix8QMBKe7l8y IMbClqtLpYUE2EyKykkmxpvxDz0Pigm84eV9DRoSgx1aEe5RRiBNsVOfqxBD vS7o58R6AsuD6xbTxsUY6E7L1eolEEuqPeW+IMbjpJkfe18SMB9Z5h1JkoCz PXJtwWsChV0etARNCXzub6jcIyOw/zF62hZJUHv5uSR+hIDOw9hFwUYSpDu6 pgWOEWD4FT77hSzBeXn2QSpBgL66KjXTRII1B04PCqcITGYwdGVmEmhr9PHY MwSe7FALSeYSDFVtZzLmCLS7xsXaWUpQzyxwcp4nMJvUucbDWoIMG4NptZoA tqil0Ssl+BcmfWI9 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Conversion\"", TraditionalForm], FormBox["\"Mole fraction\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction:>$DisplayFunction, FormatType->TraditionalForm, PlotRange->{{0, 1}, {0., 0.196301560847532}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {-1, -0.6180339887498948}, { Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{ {GrayLevel[0], RectangleBox[{1.1500000000000001`, -0.35}, \ {1.7053719008264465`, 0.44999999999999996`}]}, {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], GraphicsGroupBox[{ RectangleBox[{1.1, -0.3}, \ {1.6553719008264465`, 0.49999999999999994`}], InsetBox[ GraphicsBox[{{{InsetBox[ GraphicsBox[ {Hue[0.37820393249936846`, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, { Left, Bottom}, {1, 1}], InsetBox["\<\"H2O\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NO\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 2.4}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NH3\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 3.56}, { Left, Bottom}, {1, 1}], InsetBox["\<\"O2\"\>", \ {1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}}, {}}, AspectRatio->1.44047619047619, FormatType->TraditionalForm, PlotRange->{{-0.1, 3.26}, {-0.1, 4.739999999999999}}], {1.1, -0.3}, { Left, Bottom}, {0.5553719008264464, 0.7999999999999999}]}]}}]}, AspectRatio->Automatic, Background->None, ColorOutput->Automatic, ImageMargins->0., ImageSize->Automatic, PlotRange->All]], "Output", CellChangeTimes->{3.523312576166952*^9, 3.523312761794278*^9, 3.523315494672895*^9, 3.523316521458338*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Concentration", " ", RowBox[{"vs", ".", " ", "conversion"}], " ", "in", " ", "constant", " ", "pressure", " ", "reactor"}], "Section"]], "Input", CellChangeTimes->{{3.523316264329095*^9, 3.523316270400964*^9}}], Cell[BoxData[ RowBox[{"Concentration", " ", "constant", " ", "in", " ", "pressure", " ", "reactor", " ", RowBox[{"vs", ".", "conversion"}]}]], "Output", CellChangeTimes->{3.523316521561843*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"P", " ", "=", " ", "2"}], ";", " ", RowBox[{"T", "=", RowBox[{"273", "+", "400"}]}]}]], "Input", CellChangeTimes->{{3.523315438455892*^9, 3.523315440188171*^9}, { 3.5233164650608187`*^9, 3.523316478516061*^9}}], Cell[BoxData["673"], "Output", CellChangeTimes->{3.523316479127116*^9, 3.523316521604144*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v0", "=", RowBox[{"Ftot0", " ", "R", " ", RowBox[{"T", " ", "/", " ", "P"}]}]}]], "Input", CellChangeTimes->{{3.523315398269659*^9, 3.52331543366329*^9}}], Cell[BoxData["1.1271673200000003`"], "Output", CellChangeTimes->{{3.523315434540023*^9, 3.523315442996752*^9}, 3.5233154947981997`*^9, 3.5233164841962347`*^9, 3.523316521652691*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FO20", "/", RowBox[{"(", RowBox[{"FO20", "+", "FNH30", "+", "FN20"}], ")"}]}]], "Input", CellChangeTimes->{3.523316067112661*^9}], Cell[BoxData["0.1691176470588235`"], "Output", CellChangeTimes->{3.523316067883381*^9, 3.523316521708179*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NTT0", " ", "=", " ", RowBox[{"1", " ", "-", " ", RowBox[{"X", " ", RowBox[{"(", RowBox[{"FO20", "/", RowBox[{"(", RowBox[{"FO20", "+", "FNH30", "+", "FN20"}], ")"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "5"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.5233159942541113`*^9, 3.523316050202586*^9}, { 3.523316342626781*^9, 3.523316343751493*^9}}], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"0.033823529411764704`", " ", "X"}]}]], "Output", CellChangeTimes->{{3.523316039894793*^9, 3.523316053508328*^9}, 3.5233163463658113`*^9, 3.523316521770508*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cNH3", "=", RowBox[{ RowBox[{"(", RowBox[{"FNH3", "/", "v0"}], ")"}], "/", "NTT0"}]}]], "Input", CellChangeTimes->{{3.523316112269847*^9, 3.5233161412260017`*^9}, { 3.5233163354606333`*^9, 3.523316337192225*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.8871797312221577`", " ", RowBox[{"(", RowBox[{"0.0059`", "\[VeryThinSpace]", "-", RowBox[{"0.005520000000000001`", " ", "X"}]}], ")"}]}], RowBox[{"1", "+", RowBox[{"0.033823529411764704`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.523316142462142*^9, 3.5233165218371277`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cO2", "=", RowBox[{ RowBox[{"(", RowBox[{"FO2", "/", "v0"}], ")"}], "/", "NTTO"}]}]], "Input", CellChangeTimes->{{3.523316147429317*^9, 3.523316160610693*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.006121540145432888`", " ", RowBox[{"(", RowBox[{"1", "-", "X"}], ")"}]}], RowBox[{"1", "+", RowBox[{"0.033823529411764704`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.523316162462381*^9, 3.523316521901943*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cN2", "=", RowBox[{ RowBox[{"(", RowBox[{"FN2", "/", "v0"}], ")"}], "/", "NTT0"}]}]], "Input", CellChangeTimes->{{3.523316164858625*^9, 3.523316173176551*^9}}], Cell[BoxData[ FractionBox["0.024841032474220415`", RowBox[{"1", "+", RowBox[{"0.033823529411764704`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.5233161735716267`*^9, 3.523316521956339*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cNO", "=", RowBox[{ RowBox[{"(", RowBox[{"FNO", "/", "v0"}], ")"}], "/", "NTT0"}]}]], "Input", CellChangeTimes->{{3.52331620424131*^9, 3.523316212857684*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.004897232116346311`", " ", "X"}], RowBox[{"1", "+", RowBox[{"0.033823529411764704`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.523316213255376*^9, 3.5233165220207*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cH2O", "=", RowBox[{ RowBox[{"(", RowBox[{"FH2O", "/", "v0"}], ")"}], "/", "NTT0"}]}]], "Input", CellChangeTimes->{{3.523316215339225*^9, 3.523316226592422*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.007345848174519464`", " ", "X"}], RowBox[{"1", "+", RowBox[{"0.033823529411764704`", " ", "X"}]}]]], "Output", CellChangeTimes->{3.52331622734873*^9, 3.523316522074863*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ "cO2", ",", "cNH3", ",", " ", "cN2", ",", " ", "cNO", ",", " ", "cH2O"}], "}"}], ",", RowBox[{"{", RowBox[{"X", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotLegend", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"LegendPosition", "\[Rule]", RowBox[{"{", RowBox[{"1.1", ",", RowBox[{"-", "0.3"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.523316293658371*^9, 3.5233163023971024`*^9}, { 3.523316364465098*^9, 3.523316373385929*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVz2k41AkAx3EMJYYx0mpYN6tctYWtLfNrl8eZWhIpSWMcCTlj9lllNLpU 7GRpl1LYSh6mMipMGcdjn1QymRzlbprcfzzGtWW2ffF9Pq+/JowTvmFKCgoK 3l/7X8+wEZFwdD+deChgSLVZUHbWixug2eN7FePgPi0WthZdK6yiuaC03i1I rMmC16uuh9dpfuD4S0Ia1VgIYC485dKYcIr1ybqhxELfpnPOl2lJuLp/nhkw m4qb6/aevUjjwPq8s/ULUSrYqlWWF2i52CfiKdXlpOJA4C3e9EwppqmW3DZS KtTl7CA3Qx7wqaM0Ij0FFj5TI01ZfIjFoQeF8pNIaduOa3M1iKndmMxIOgld PrVfUbEeZzozDp6eTcajYeeXr3c2wpiS7jQVlozGqOv6gRPNKDM9V2vUmwTZ d06Uiph/8CS8hdZwKAlKS+Va+hat0DejkOvbE+EoD3m0r/IlZA+LvC33JuIl x76txeo1Svw0SG7tCTDKGV8qm2oHpe35lVeuCRhfGOh/u/kNRpWSpFUt8Sgd q2vVvNKBQv3kM2t2xkPT4A4hkYgh26V7isaPw6Vj1eE3zTvBYNtwTznEYX5X uSTydBcCGmoKaw+cQNKWZv43Td1QqIkI1A2MxUBlc5bI5B3EokGrVJcY/Bsl Ltj463soRNhUuDhEw/qn1Svhdb0YWEXYFmw7Drdik4gHuv1Qz9l6TM0yCikG R0yHggZwqmWxadHyGGwm9qt3eQ+it0mL6mQXibWUadXm5UG4yfMNK40ioFxf wDMrHIJ+sEXrBbNwHLev61njNQwPbvK9Yu0wlHswbj6bH4aPusxGdzUTsnE9 LWneB+SzyXFDGqGo3udGynWRQFiZbP1FfhSn3TOL+FIJ9FSoK6HKR2HS59ld kvkRD3jpRlTNEPz4AyeXtkUK93xhveuqYAQZvl5S7JDCNs/QoUcnCLLWy8Nx 7E/4fJRj778ciGvKwUm+5iOYs2uZtVY+gLX91cVKzSOY3jDqkbbeHyppbL/t 8aNQie3GIMkPCmXBvGHtMaie4MwkrvVFwl+8y9qNY3BPI9UnzO3FU+vzqtTY cdzVUiGpd3mB6plgk6E5gaG6X3yqFN3Ra9vewRJMQGSmtlXzvTPu34C5JHgS GR/SVhUtAod5jlSDlUlM7Akn5TG3IT3zFrv33hTSKirzsuw2o2LEoEBzN4Fn jZEaDIoJzl/PDOnfQ6D4caj1+hfGYPpOWlT6EJD5zla0nTXGtwLBfe8AAp9U rzSwPhvhYvahlksMAofI0cs73hkg0vHPGTUWgRHPdmPpHzSYcnTcV98m4PFG x16kQcXKtt80uu4S2C7M/90/Uws9kx/e3C4nIJzRiatZoiAnoOqw6wMC5tVx 9Z1dGpBb+SZmCgjw76vZm+euQa8o+wapg4CjqTBeTUMRT84uhHa8JaDQSOcG LcrpuTuObCzpJuBwxpt5p/ML3etvO/7P/QRi9HYluF5dotemvnrOHv36U/jY /h55hp5n65DtM0HAKyV6eV3nJD1+uNDPhCDgGl4g6uOO0jfsjh4QzhGIHPP3 TScP0ZUVxaU5CwSC87MXqrk99MHqHVEhywS4Y2GdKWQRXRBVsmnzFwJljlYZ l8gN9HwjdZlcTsDp47xAWDDo9B+S+Eo5 "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVyWk41AkAx3FnWM+Oq2hYSq6IDtuMEfVbTY+rFKMiOcbkHNeQSce2zBqt pEjSlEKhSCGNHkVUrNBITI5yNsnNv/YhqY1tX3yfz4uvPiuKESgjJSXl8qP/ dQ4ca38yvm9bWrLgQy6HCzm6NmeQvBkX3j03XIzk4tdcwdX75B3QsdkQ5B3B xc7W7opr5L0Q9BcSK9lceATMP84gByDH31I34xAX/Rv+op8lx4LDaZDw93OR t2LPqRQyHy+k7mqF23LBU7xvcpqcCe/2DBM7RS48D1wv+/ipAEcVVkjRL8VC eYnn7aBXBprsSYxaxMLIbWas/owQHHWzO3WNhxH30hqC2YfQUfZSl/Y4DC2h 2oC0dB2mKprs+2Zi8EBCF7XZPkOql9IBkz9i8Ix9TefAVANquVgoUonBnPFW lbsRz5Ekbi6qLoqGzEKJqo5RC8RWqRX21tGgLjEfuJeKEJqV6O7bzoGIv/ll o1kbNPtmz+eHcbAqfXKheOYV9mzZ39LxNQqT84MDnRs7UKfjWh9kEYWCieoW 0jkx3n4jhSvtiQRJ9xYxPPwadVYl35S5EUgNrQzKM+wCKzHwgfztcHz+rWQ4 JL4bxp4JTXovwxBr2SDUrO9BdVqrnbF0GAZLG86067/Fq2WOfC8DNr6xX2eb Hu9Fp2g0YtQpFOvsFBaDqvtgX7yt3C0+BA439IPvaQ3ATqvXaSE/GHG6fmve eQ/CZZuIz+0OgvnUPuVulyEkri6ap6kEQUPlo2LD1yFMdta3OVEDIVeXXWZw 9R2qbpn26IUHIGxz9RulnRKEPt0et/v8IZQ4sfJqP0vASMzqb37EwtyktupI 1nu03o56+OUff1S6O8hm7hhGrpgZlqHtj3jHpFzhyDBoT4OXdbsyod/v3JOf 9AGDgaU5dzT9sMWKn0m2HIEuo9cvj+0Db722BWnxCG6sj6xo7j2IuZazEg5v FFc2VpNlzL0gkPONZRiOgZnZpep32RMaA5U3ZBrGcE7qZK2BigfkT/L2WkeP g2gUdmkG7INUsW+ZRH0Ca+obQ0ld7oi5UnZW/dkE6JnRJrtNGHi8LllRLXIS /ArHxMUEV6g5x5j/SZqCtQbYRoQL+ixeiY/VTOFLx9Z03WxnlOfAcNh3GkyB QL4mwQE+ZVQ13cVpFIgc//1yZAcSkq7z+m7PYKLqBI1uboe7Y7rZpF0EWgsl heMUWyRfS2IO7CbwiU4zOq1tiwDGtFGpG4F8gyHR2iUb/FJTU+7iQeAK3ehi SJMNUtIONqayCFQ5nFCa8LJBCPXyp5+OEUiJVeTNxm/BGv5yR4WbBP6m0IpN WmhYpP3+c3cRgYt8U0tRKQ1vpt933CwhkDrr/55zgYZ0j/s+9vcIfBffrH3k TcOSGeNwUg2BiK4jnq6EFfra03JkxQTStCUrE5dboerU/CFxJwH6Cx1jswUq Mm38TPN7CLiQLh1s76diZ+F64fYBAvJjrlh9i4pHR1ubeeM//qam8TprKrIs KGluUwSO1MhZh+hRES25ulefIKCgkVCuKkvF2l3hg09mCQzXblrJElEgJ/26 IH2eAI8VrKh8j4KhShs28ysBi8i3q4UXKahh52/Y+J3AfHKKv89xCi6tUp5b WiJg4hXXssyPgv8AbWtJzg== "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV0Gs01GkABnAzFNVBFJrsEFHJ2Eqle49C5FKLrGzjciRJF5e0S6e2FCpR Wo7eFyNFKJtR0c2o2bJ1ctwvERNiVi7DX47LqmT/++E5z/l9eT48Rv4hbge4 SkpKLmz+b8cDvXXSPo+tPurcyMEQChWbhaEdvDVoGhoTyFivvkEyHvJskerO 6apg7VTV/EDE24OluT7O+aw9AybK/uAFwDd4tfF+1h9WXLBJ5EXAxM6uvuUY RZbO7rh4XgxiR9Vsy49SRKs9XHqJl4Jw6Yxj6Ycp9nrdFA9/zoFDdJTyUCDF nOloob2BGO6edmev+VOYug71vrpcjFMJ1Z7OPhS/VW8AGX2KXeN5S//0otAr 1mrncF7gcZz0vNCD4lGXTWXN5peQmVsaPfiJ4mWwSN9LUQ7RrWRLQ2eKsSVb NO8dfYMjTbHHZfYU3MmCufqmFajJer4bNhRW036P3AsrwU02F4xspaiMWVP9 enkNFuRW8iUbKQyTBibvDNXizMxejsCKYmCio71pZT0C93UnDKyiyOkvrdC4 0oDEhVw3VwsKDX4eI5c3glOkY1e9jCLhUElglsk77CQmMWkmFOPWBfKgM81Q 3pLqob6IIsKyvFj3VQsOnbxmW6NP0VFYfrnOqBWi3QL19XoUX4Mb081OtqFq lfuHx9oU5ttUvweWyvBme3ZonAaF/S2jg/f12rFM02ntt1nsX3xf44/CDpiV Ka5IZ1AIFB5zml06ITz6NDmdQzFPc1it/EsnIhYzBgZTBCov0sWLMz7C6ZJS 79C/BIfXlL6f5dSF863+pw+OEhTs9M96Pt6F4r28d+MMwdjAwrk9qd0oujdz fuMAQYm7vXKKrRy1GsIIr08EZxxibxT3yPEsPiNB0E1g9MGxJTv2H9T/cl1d t4Ng47qYFJ5lD0ZSf1XJbyUQGtRMchp64MKr9r7wjt2vSOwKjf4E0enbYZr1 BETFJ8LNpBdOvE/P5FUE89pLbnHLe5G1WeJQ+5ZgxunoPRvC+qBaqCMP+JtA 6Y6PuEu7H5Wk1XfHXwThaeJE7Zf9uG4ltKiTEJSZX1TTOjYAg0Y1z/AnBFqO 4YJzGgrED+fM9ismkFnUNkRJFEgK5gZMiAmKMmEi9xlE4Ahfv62AwFtspcX/ PojNTtNNjXkEZ2NvRsvuDkFHzL8YmU1wr5efruHMYJWU2gbdILgoivVr38Ug RJpv/DPrALdB00JXBodO1CvZsv5BIily8WRw99uJMkPW8Vf3vU7wZ9AfNbWu OZMgyIp+nh3FQPpV3XIHa+OY+Q6quQw0zq7eaCIi+L7+lHpzPoNHt4m+Nuv3 g931uQUMSiMXTE1nECR5PvTecZ/BpGmQtI319HK347ESBq9S7R2SWcvqrmYq NzCYlznTm8v6SdzE/oYmBrN/17UeTidI2eRrlt3C4L7qtsXtrJ1u/1i8vZ3B Er2evqesn0VWvY3uY2C1KDQyjHWqxdqrrgoG1vYeQl/WYV0Ze4wYBqa6HtYu rJc5H+mQjjJIvJujZsZahdOYkzTBQBQyqtBl3VmyKdjvC4O0Np86FdaS4OwV K6cYOA51l4ykEVw3nDM2Pc3gRN75tE7W/wHX7Vso "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk01AkAB3BqtqZaRJaGHeWqiBKFqfjWIuU+c2tMrtzmZ3eKdjUiXdJa zyo5ymyXDeUomdHEvHp5mDRZlTNJBuPHvrAUs7t/fN5Hl5XoFbFMQUHB9T// 7xQx2imU+tr6tDrYjRzvsaHYaSUN0HZCtUNEdbBosLUoLbxWQ7PHonv6zFfz F7bO7d0Pimk+yFycYDwxf2vrFz4nyKOFo82KMR9nLrXt255tl0NLQYpOr0bf jnnbsu/cz5ynZcJmTlb93GwVuNSazedo+QiyOed5YxsN/gHXq6ameVj3cFp1 0toYa+TcYEedKogkHC0WxwKGnpOjLRdqUb1o7exQzQCng4HCzw04VMbhjVju g2atar+i4hMsfhZ4fAm0Q/2QXZt4bzMY6SdNTZ8eQHNMsXbAhAgWv6HpoIYT ZjbZqNyLfw63Y50Z/5i5Ytl8xVptw1Z4U7Lmnx7wgKWcWe9d2YZPFf7ffuj2 RFvmzo5nxmJI/m5IK2J6Y8Pl8fk7ky9xK6/hq+5qX4zPDfR3mb3CVis5i1dw GLyxxlblSxK0h60QvrPzhzL9Fjk8/Br7JHt+LB0NwMVjdZFlBn9BKczQhJsU hNl9FcPR6d04E6lTO7s+BCnmolqNljfIyVQyusoLxUCl6EKn7juoHRcLgrYw 8SXmdZFRag+iaFvyrBeY2Lp/5VJkYy8C79MlfEEYHG/oRt3X7MdPwrvUhF9Z 4NCP6L0PHoBjQrC6+PBRmEz4rul2HcQ29VIdlfXhWKcyRRUtDGKG8bEkThoO ypOiKv1r77E7NV1y7s8IxO5sfLvKeQgz+tzmh+mRqDjEKmuaHUKUwy+HhG5R mBnXWjtS8AGy3E13C1WiUeftuDzffhgPLac12IPRSD+YVVo7Mgxqblqxfvkx 6PY5vSnP+ggrjyt7hWEx2G2VmU8zH8EOvRU1bmaxCNYRzytKRnCp8bxENBWL mdacoSTuJ4R7urtsfBqHQkpoipfBKFJ9KbzY0/FY1193Y5loFPPipTu39yfg m5+5PoxkKa5sh7RRJREKd0KrhtTGUK9UntEhTgT7alWOWvMY6NkGKV3uSRBs PUtVTRiHfaC6/+O6JKg6sU0ylCegVxf14qZ6MnpNX0pO8CfwiaSmJqUlo7oE BsOhMkRnsJocepIRUmWpSl+SwUTvkZDGYONU1nVu791JxG8uL2gpYePeKL1I 2YXE7Tj9wlOLbJwtzmL2u5Hoa6ry2yxnI9xLZljpSSI4sV29Q4HA93x+tasf Cb6CIFubQuB8btCziywSMWnxHvWrCURbXplefYJE8+n18eOaBPQy1Q+uvEnC gsOXeJsTWLI+qdR9m8SDhV8cFiwIvJV9eHWzgoTrWUlt2S4Cl/1qQg7cJ+HT bX5RZk1AbuxFZPFJvHzXSs8Ggd7O3JLlEhLKRhFtDS4EHp2ZOyrpIqH1ykmT 6UYgf88Ro/I3JNR6mo+s8CDg/Me22h/6SdjrxUi9vAk8Pt7+gisl0aBdMDAe QKDAdFeu5wQJ30AVzbwgAslD13x0SRIt+tou1iEEtrjEDQg/kzgVN1aZySRA UXzNuzxH4sLsvV5jFoHBuj0xzAUSXRsp1M6jBPgx5dvNFkkIpibMOBEEft+w ZkYuJ1ESG+1HjyLwL1j9T8c= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVy3k4lAkAx3HH5FjFSGnHuQaV7kVaYX6KZ8mxu8SjEzHCVHKV653s9KBS Mls25ZjC1FZkNI4OpnqwFavkypEG0zTrnJddR46y7R/f5/PX1yTouHeIkoKC gufX/tctZLDl2ZAvQ+QXKyzJkTpQnPQi+2jWOJ9z+XmMrJZhdf1qXjnNGZ+T jB86yFoZ7q86hfk0H9CfRB3RkkkYfswZ0SUaE11Dw49bPv7DeL/5jFMGLRYd uuYtIR+VcGPlz2nptBQcSxDW/y5dDo5a+ZpztCxQ5KtFsxI69uwtEIxP8OG5 60SG8K4VNBY5B1yMBCgSla/RsXKAuZd8sO58BZyesD5ZOTsh7rUtrk4+wtHI 8um93q5YVaEtVlR8injSYDZezRNVEqemZvtasAIMJQNUL9Sy8vX3jtaDWSq4 WMXdjanVDlr3jr3ArKZh0GOpL5Rmi6n65o1ITHOZprP2wGYxsGp3aRO6FVMv tdftQ1OK9evn65phN3rFdoh6EMbckdk78jf4tF933jIzACMzfeKOLa0ICIfb /Hgg+MPVjZoX27CngUKVWgZB0/APUiptR4R4NDsuIhgXwisP3zB7i5dqBgOB WUxMOxZLw5I7IW3SVX3UGoJYy/oK3bouhJk28mLmD6OvtP58i0kP9Kwf5J2z D8M8qz3XIvEdaKvt3/nEhWP9DtUvh6t7sSS9xD43jwWXQpPQ+6vEKPtOYZl5 zxHEGQbQBw70IfRmOs9G6Rg2jPpqdHr2w4knv6drFgEdrXG1+rl+jL31k9P9 j4PyNFdgmjeA4tzr/qE7InHEurpb3V2CmZ7+loa+SBTvCrrxZFqCpRVG26hJ UZga0aPKrnzAxEheslAjGpW7XZSznKVQH7L+zfd2NJJdU69XyKRwLjao2rc9 Bibv3bqKUj/CYiF64y8NMdi+LSWLZikD/5qzih0zFgeMmmcV22S4s/Q27/Jk LKYaMySRnL+hzraz7eKewFWKf6y32SD0HJWrufST0BFXFirVD2JOPzmZcf8k lrA5PrZRQxAGk/Im9zgo3PEXSJYPw8VtbqDnXRyicwQZy2uHcbfRZtOzuHiI 1p9V044YAfOMUUo2NQHabtEbTmuOQpipv2mOl4DejW/aEmpG0R267MFa20SU 8WAm9R/DtbrL+YMvE3FQYKNt+GUMsFpRcMs3Cb+mFnB678phUj15yFyehHuD hrmaHiTm6FuljgSBs/mpgeKfSLjyzihXnyLA9B4zL/UiobbG2ngrh4BBTU2Z px+JVZxcd4s0AumZ+59fCCJhZMuP1+YSCLO5NvFNAomCP/mmA0UE6CkrXFVv kWgU5ojYfxH48gOxrPM2CfV4RtjMKwLdYx9abxWTiPZw0Ip6Q4DrV37wx/sk FnZ6eDM7CCyu845JrSGxzbWsxK2PQG9LJk+5jUSWKFuo+y+Bh2kzwW0dJEzt xuncKQJZdgEWRV0kclz5meqfCLjf3FSxU0wi2MrYf2GBwOP4Vw2coa+/xaHm ARU2rmzcmuk1SuKUajZ9vzobUZI8HxOSRGHl2uh2DTbWehztezZJ4mlhgMoL KhsUxXY+d4ZE8wTF3VGHjf5KO1bgHAnG9yoXHq1ko4ZVtHnLZxJ64cENlt+y kW2sMbW4SOJogYFyiR4b/wFPt1UJ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"Conversion\"", TraditionalForm], FormBox["\"Concentration (mol/l)\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction:>$DisplayFunction, FormatType->TraditionalForm, PlotRange->{{0, 1}, {0., 0.024841032457073246`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {-1, -0.6180339887498948}, { Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{ {GrayLevel[0], RectangleBox[{1.1500000000000001`, -0.35}, {1.598, 0.45}]}, {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], GraphicsGroupBox[{RectangleBox[{1.1, -0.3}, {1.548, 0.5}], InsetBox[ GraphicsBox[{{{InsetBox[ GraphicsBox[ {Hue[0.6142719099991583, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 0.08}, { Left, Bottom}, {1, 1}], InsetBox["\<\"H2O\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.37820393249936846`, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 1.24}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NO\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.1421359549995791, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 2.4}, { Left, Bottom}, {1, 1}], InsetBox["\<\"N2\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[ GraphicsBox[ {Hue[0.9060679774997897, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 3.56}, { Left, Bottom}, {1, 1}], InsetBox["\<\"NH3\"\>", \ {1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}, { InsetBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0}, {1, 0}}]}], {0.08, 4.72}, { Left, Bottom}, {1, 1}], InsetBox["\<\"O2\"\>", {1.2100000000000002`, 5.22}, {-1, 0}, Automatic, {1, 0}]}}, {}}, AspectRatio->1.7857142857142856`, FormatType->TraditionalForm, PlotRange->{{-0.1, 3.26}, {-0.1, 5.8999999999999995`}}], {1.1, -0.3}, { Left, Bottom}, {0.44800000000000006`, 0.8}]}]}}]}, AspectRatio->Automatic, Background->None, ColorOutput->Automatic, ImageSize->Automatic, PlotRange->All]], "Output", CellChangeTimes->{ 3.5233163083916693`*^9, {3.5233163566338587`*^9, 3.5233163781422653`*^9}, 3.5233165254447317`*^9}] }, Open ]] }, Open ]] }, WindowSize->{979, 1082}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, CellLabelAutoDelete->True, FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \ 2011)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 237, 3, 26, "Subtitle"], Cell[819, 27, 164, 3, 44, "Input"], Cell[CellGroupData[{ Cell[1008, 34, 197, 3, 36, "Input"], Cell[1208, 39, 288, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1533, 48, 151, 3, 36, "Input"], Cell[1687, 53, 240, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1964, 61, 400, 6, 36, "Input"], Cell[2367, 69, 243, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2647, 77, 325, 7, 36, "Input"], Cell[2975, 86, 333, 7, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3345, 98, 261, 7, 36, "Input"], Cell[3609, 107, 351, 6, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3997, 118, 237, 6, 36, "Input"], Cell[4237, 126, 272, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4546, 135, 229, 6, 36, "Input"], Cell[4778, 143, 260, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5075, 152, 155, 3, 36, "Input"], Cell[5233, 157, 239, 3, 36, "Output"] }, Open ]], Cell[5487, 163, 167, 3, 36, "Input"], Cell[CellGroupData[{ Cell[5679, 170, 245, 5, 44, "Input"], Cell[5927, 177, 259, 5, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6223, 187, 1013, 25, 52, "Input"], Cell[7239, 214, 10920, 204, 196, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18196, 423, 750, 21, 52, "Input"], Cell[18949, 446, 9683, 181, 189, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28669, 632, 385, 10, 36, "Input"], Cell[29057, 644, 446, 10, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29540, 659, 241, 5, 36, "Input"], Cell[29784, 666, 210, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30031, 674, 216, 5, 36, "Input"], Cell[30250, 681, 2203, 42, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32490, 728, 164, 3, 36, "Input"], Cell[32657, 733, 215, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32909, 741, 239, 5, 36, "Input"], Cell[33151, 748, 379, 8, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33567, 761, 145, 3, 36, "Input"], Cell[33715, 766, 483, 12, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34235, 783, 147, 3, 36, "Input"], Cell[34385, 788, 492, 11, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34914, 804, 145, 3, 36, "Input"], Cell[35062, 809, 410, 9, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35509, 823, 145, 3, 36, "Input"], Cell[35657, 828, 442, 10, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36136, 843, 149, 3, 36, "Input"], Cell[36288, 848, 431, 10, 57, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36756, 863, 363, 7, 44, "Input"], Cell[37122, 872, 376, 7, 61, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37535, 884, 780, 22, 52, "Input"], Cell[38318, 908, 11649, 215, 196, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50004, 1128, 740, 21, 52, "Input"], Cell[50747, 1151, 9655, 182, 189, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60439, 1338, 255, 5, 44, "Input"], Cell[60697, 1345, 201, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60935, 1354, 255, 6, 36, "Input"], Cell[61193, 1362, 94, 1, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61324, 1368, 186, 4, 36, "Input"], Cell[61513, 1374, 186, 2, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61736, 1381, 161, 4, 36, "Input"], Cell[61900, 1387, 110, 1, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62047, 1393, 443, 12, 36, "Input"], Cell[62493, 1407, 209, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62739, 1416, 250, 6, 36, "Input"], Cell[62992, 1424, 343, 8, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63372, 1437, 195, 5, 36, "Input"], Cell[63570, 1444, 271, 7, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63878, 1456, 195, 5, 36, "Input"], Cell[64076, 1463, 201, 4, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64314, 1472, 194, 5, 36, "Input"], Cell[64511, 1479, 220, 5, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64768, 1489, 197, 5, 36, "Input"], Cell[64968, 1496, 221, 5, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65226, 1506, 842, 23, 52, "Input"], Cell[66071, 1531, 11620, 215, 196, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)