(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 49631, 1976]*) (*NotebookOutlinePosition[ 50297, 1999]*) (* CellTagsIndexPosition[ 50253, 1995]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Conversion Calculation for 50 Tanks in Series and Fisrt Order Reaction \n\ ", StyleBox["Author's Data", FontSize->14, FontWeight->"Bold"], StyleBox[": Housam BINOUS\nDepartment of Chemical Engineering\nNational \ Institute of Applied Sciences and Technology\nTunis, TUNISIA\nEmail: \ binoushousam@yahoo.com ", FontSize->14] }], "Subtitle", TextAlignment->Center, Background->RGBColor[0.753918, 0.996109, 0.722667]], Cell[CellGroupData[{ Cell["\<\ Mean residence time in a tank is \[Tau]. V is the total volume of all tanks. \ F is the flow rate. Ntanks=50 tanks.\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.682353]], Cell["Ntanks=50;V=1;F=0.01;", "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(\[Tau] = \(V/F\)/Ntanks\)], "Input"], Cell[BoxData[ \(2.`\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ RTD from MacMullin and Weber's derivation (1935). 50 tanks case.\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.682353]], Cell[CellGroupData[{ Cell["tbar=Ntanks \[Tau]", "Input"], Cell[BoxData[ \(100.`\)], "Output"], Cell[BoxData[ \(100.`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell["RTD[t_]:=1/tbar (t/tbar)^(49) 50^50/49! Exp[-50 t/tbar]", "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(plt1 = Plot[RTD[t], {t, 0, 500}, PlotStyle \[Rule] RGBColor[1, 0, 0], PlotRange \[Rule] All]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00190476 0.0147151 20.6956 [ [.21429 .00222 -9 -9 ] [.21429 .00222 9 0 ] [.40476 .00222 -9 -9 ] [.40476 .00222 9 0 ] [.59524 .00222 -9 -9 ] [.59524 .00222 9 0 ] [.78571 .00222 -9 -9 ] [.78571 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .11819 -30 -4.5 ] [.01131 .11819 0 4.5 ] [.01131 .22167 -24 -4.5 ] [.01131 .22167 0 4.5 ] [.01131 .32515 -30 -4.5 ] [.01131 .32515 0 4.5 ] [.01131 .42863 -24 -4.5 ] [.01131 .42863 0 4.5 ] [.01131 .53211 -30 -4.5 ] [.01131 .53211 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .01472 m .21429 .02097 L s [(100)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(200)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(300)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(400)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(500)] .97619 .00222 0 1 Mshowa .125 Mabswid .0619 .01472 m .0619 .01847 L s .1 .01472 m .1 .01847 L s .1381 .01472 m .1381 .01847 L s .17619 .01472 m .17619 .01847 L s .25238 .01472 m .25238 .01847 L s .29048 .01472 m .29048 .01847 L s .32857 .01472 m .32857 .01847 L s .36667 .01472 m .36667 .01847 L s .44286 .01472 m .44286 .01847 L s .48095 .01472 m .48095 .01847 L s .51905 .01472 m .51905 .01847 L s .55714 .01472 m .55714 .01847 L s .63333 .01472 m .63333 .01847 L s .67143 .01472 m .67143 .01847 L s .70952 .01472 m .70952 .01847 L s .74762 .01472 m .74762 .01847 L s .82381 .01472 m .82381 .01847 L s .8619 .01472 m .8619 .01847 L s .9 .01472 m .9 .01847 L s .9381 .01472 m .9381 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .11819 m .03006 .11819 L s [(0.005)] .01131 .11819 1 0 Mshowa .02381 .22167 m .03006 .22167 L s [(0.01)] .01131 .22167 1 0 Mshowa .02381 .32515 m .03006 .32515 L s [(0.015)] .01131 .32515 1 0 Mshowa .02381 .42863 m .03006 .42863 L s [(0.02)] .01131 .42863 1 0 Mshowa .02381 .53211 m .03006 .53211 L s [(0.025)] .01131 .53211 1 0 Mshowa .125 Mabswid .02381 .03541 m .02756 .03541 L s .02381 .05611 m .02756 .05611 L s .02381 .0768 m .02756 .0768 L s .02381 .0975 m .02756 .0975 L s .02381 .13889 m .02756 .13889 L s .02381 .15958 m .02756 .15958 L s .02381 .18028 m .02756 .18028 L s .02381 .20098 m .02756 .20098 L s .02381 .24237 m .02756 .24237 L s .02381 .26306 m .02756 .26306 L s .02381 .28376 m .02756 .28376 L s .02381 .30445 m .02756 .30445 L s .02381 .34584 m .02756 .34584 L s .02381 .36654 m .02756 .36654 L s .02381 .38724 m .02756 .38724 L s .02381 .40793 m .02756 .40793 L s .02381 .44932 m .02756 .44932 L s .02381 .47002 m .02756 .47002 L s .02381 .49071 m .02756 .49071 L s .02381 .51141 m .02756 .51141 L s .02381 .5528 m .02756 .5528 L s .02381 .5735 m .02756 .5735 L s .02381 .59419 m .02756 .59419 L s .02381 .61489 m .02756 .61489 L s .25 Mabswid .02381 0 m .02381 .61803 L s 1 0 0 r .5 Mabswid .02381 .01472 m .02499 .01472 L .02605 .01472 L .02729 .01472 L .02846 .01472 L .02954 .01472 L .03053 .01472 L .03163 .01472 L .03279 .01472 L .03395 .01472 L .0352 .01472 L .03638 .01472 L .03746 .01472 L .03873 .01472 L .03944 .01472 L .04011 .01472 L .04132 .01472 L .04262 .01472 L .04327 .01472 L .04396 .01472 L .04519 .01472 L .04588 .01472 L .04652 .01472 L .04722 .01472 L .04797 .01472 L .04862 .01472 L .04933 .01472 L .05061 .01472 L .05186 .01472 L .05302 .01472 L .05414 .01472 L .05519 .01472 L .05634 .01472 L .05759 .01472 L .05882 .01472 L .06012 .01472 L .06123 .01472 L .06244 .01472 L .06315 .01472 L .06381 .01472 L .06453 .01472 L .06529 .01472 L .06657 .01472 L .06729 .01472 L .06797 .01472 L .06924 .01472 L .0704 .01472 L .07103 .01472 L .07173 .01472 L .073 .01472 L Mistroke .07376 .01472 L .07448 .01472 L .07513 .01472 L .07583 .01472 L .0766 .01472 L .0774 .01472 L .07809 .01472 L .07885 .01472 L .07956 .01472 L .0802 .01472 L .08095 .01472 L .08166 .01472 L .08291 .01472 L .08362 .01472 L .08427 .01472 L .08544 .01472 L .08669 .01472 L .08787 .01472 L .08896 .01472 L .09016 .01472 L .09148 .01472 L .09214 .01472 L .09285 .01472 L .09413 .01472 L .09483 .01472 L .09548 .01472 L .09619 .01472 L .09695 .01472 L .09821 .01472 L .09893 .01472 L .09961 .01472 L .10086 .01472 L .10201 .01472 L .10333 .01472 L .10458 .01472 L .10572 .01472 L .10694 .01472 L .1081 .01472 L .10916 .01472 L .11033 .01472 L .11162 .01472 L .11227 .01473 L .11297 .01473 L .11422 .01474 L .11554 .01474 L .11698 .01476 L .11833 .01478 L .11958 .0148 L .12071 .01483 L .12195 .01487 L Mistroke .12325 .01492 L .12446 .01499 L .1256 .01506 L .12684 .01517 L .12793 .01529 L .1291 .01544 L .13025 .01563 L .1313 .01584 L .13334 .01637 L .13457 .01678 L .1357 .01724 L .13825 .01862 L .1405 .02034 L .14288 .02281 L .14543 .02642 L .14784 .03098 L .15001 .03623 L .15236 .04341 L .15493 .05324 L .15765 .06631 L .16253 .09761 L .16703 .13628 L .17125 .18133 L .18087 .30989 L .19071 .45271 L .19608 .51955 L .19869 .54638 L .20107 .56672 L .20327 .58178 L .20534 .59244 L .20648 .59679 L .20753 .59984 L .20869 .60212 L .20991 .60332 L .21106 .60331 L .21229 .6021 L .21345 .59984 L .21451 .59684 L .21576 .59223 L .21711 .58592 L .21958 .57117 L .22491 .52685 L .22993 .4737 L .2393 .36114 L .24952 .24412 L .2551 .1902 L .26029 .14796 L .26532 .11451 L .2699 .09002 L .27499 .06871 L Mistroke .28043 .05171 L .28498 .04121 L .28993 .03285 L .2946 .0272 L .29892 .02344 L .30357 .02057 L .30619 .01936 L .30858 .01846 L .3108 .01778 L .31322 .01716 L .31763 .01633 L .32035 .01596 L .32281 .01569 L .32565 .01545 L .32833 .01528 L .33081 .01515 L .33309 .01506 L .3356 .01498 L .33826 .01491 L .3408 .01487 L .34321 .01483 L .34537 .01481 L .34773 .01479 L .35028 .01477 L .353 .01475 L .35532 .01475 L .35788 .01474 L .36026 .01473 L .36243 .01473 L .36482 .01473 L .36734 .01472 L .36953 .01472 L .37158 .01472 L .37382 .01472 L .37621 .01472 L .3788 .01472 L .38154 .01472 L .38388 .01472 L .38645 .01472 L .38921 .01472 L .39077 .01472 L .39218 .01472 L .39494 .01472 L .39755 .01472 L .39997 .01472 L .40255 .01472 L .40499 .01472 L .40719 .01472 L .40979 .01472 L .41126 .01472 L Mistroke .4126 .01472 L .41508 .01472 L .41634 .01472 L .4177 .01472 L .42025 .01472 L .42267 .01472 L .42502 .01472 L .4272 .01472 L .42954 .01472 L .43213 .01472 L .43343 .01472 L .43483 .01472 L .43737 .01472 L .4396 .01472 L .44203 .01472 L .44326 .01472 L .44458 .01472 L .44694 .01472 L .44931 .01472 L .45154 .01472 L .45354 .01472 L .45571 .01472 L .45808 .01472 L .4594 .01472 L .46061 .01472 L .46297 .01472 L .4652 .01472 L .46645 .01472 L .46779 .01472 L .47018 .01472 L .47151 .01472 L .47277 .01472 L .47413 .01472 L .47562 .01472 L .47819 .01472 L .47959 .01472 L .4809 .01472 L .48324 .01472 L .48455 .01472 L .48574 .01472 L .48844 .01472 L .48996 .01472 L .49136 .01472 L .49394 .01472 L .49524 .01472 L .49667 .01472 L .49916 .01472 L .50056 .01472 L .50187 .01472 L .50426 .01472 L Mistroke .5056 .01472 L .50681 .01472 L .5091 .01472 L .5104 .01472 L .51159 .01472 L .51377 .01472 L .51488 .01472 L .51608 .01472 L .51749 .01472 L .51881 .01472 L .5213 .01472 L .52269 .01472 L .52397 .01472 L .52548 .01472 L .52688 .01472 L .52921 .01472 L .53044 .01472 L .53177 .01472 L .53309 .01472 L .53448 .01472 L .53697 .01472 L .5382 .01472 L .53954 .01472 L .54072 .01472 L .54197 .01472 L .54309 .01472 L .54433 .01472 L .54651 .01472 L .54784 .01472 L .54905 .01472 L .55036 .01472 L .55178 .01472 L .5531 .01472 L .55431 .01472 L .55671 .01472 L .55787 .01472 L .55912 .01472 L .56022 .01472 L .56138 .01472 L .56243 .01472 L .56359 .01472 L .56561 .01472 L .56685 .01472 L .56798 .01472 L .56919 .01472 L .57051 .01472 L .57173 .01472 L .57286 .01472 L .57508 .01472 L .57633 .01472 L Mistroke .57751 .01472 L .57973 .01472 L .58097 .01472 L .58212 .01472 L .58347 .01472 L .58474 .01472 L .58584 .01472 L .58703 .01472 L .58912 .01472 L .5903 .01472 L .59155 .01472 L .59379 .01472 L .59507 .01472 L .59624 .01472 L .5975 .01472 L .59887 .01472 L .60013 .01472 L .60131 .01472 L .60362 .01472 L .6049 .01472 L .6061 .01472 L .60753 .01472 L .60885 .01472 L .61012 .01472 L .61152 .01472 L .61293 .01472 L .61441 .01472 L .61572 .01472 L .61694 .01472 L .61825 .01472 L .61968 .01472 L .62211 .01472 L .62343 .01472 L .62467 .01472 L .62587 .01472 L .62702 .01472 L .62917 .01472 L .63037 .01472 L .63148 .01472 L .63279 .01472 L .634 .01472 L .63532 .01472 L .63674 .01472 L .638 .01472 L .63932 .01472 L .64162 .01472 L .64292 .01472 L .64414 .01472 L .64554 .01472 L .64687 .01472 L Mistroke .64808 .01472 L .64936 .01472 L .65075 .01472 L .65203 .01472 L .65342 .01472 L .65494 .01472 L .65616 .01472 L .6573 .01472 L .65865 .01472 L .65987 .01472 L .66107 .01472 L .66238 .01472 L .66375 .01472 L .66505 .01472 L .66739 .01472 L .66857 .01472 L .66987 .01472 L .67098 .01472 L .67217 .01472 L .67431 .01472 L .6757 .01472 L .67699 .01472 L .6784 .01472 L .67991 .01472 L .68134 .01472 L .68269 .01472 L .68391 .01472 L .68522 .01472 L .68642 .01472 L .68774 .01472 L .68912 .01472 L .69041 .01472 L .69271 .01472 L .694 .01472 L .69517 .01472 L .69747 .01472 L .69878 .01472 L .70001 .01472 L .70127 .01472 L .70247 .01472 L .70386 .01472 L .70513 .01472 L .70623 .01472 L .70741 .01472 L .70952 .01472 L .71082 .01472 L .71204 .01472 L .71432 .01472 L .71552 .01472 L .71685 .01472 L Mistroke .71823 .01472 L .71952 .01472 L .72183 .01472 L .72312 .01472 L .7243 .01472 L .72568 .01472 L .72696 .01472 L .72836 .01472 L .72985 .01472 L .73113 .01472 L .73234 .01472 L .73367 .01472 L .7351 .01472 L .73636 .01472 L .7375 .01472 L .73872 .01472 L .74006 .01472 L .74129 .01472 L .74243 .01472 L .74467 .01472 L .74592 .01472 L .74709 .01472 L .74837 .01472 L .74975 .01472 L .7512 .01472 L .75257 .01472 L .7538 .01472 L .75514 .01472 L .75657 .01472 L .75792 .01472 L .75913 .01472 L .76044 .01472 L .76187 .01472 L .76338 .01472 L .76467 .01472 L .76608 .01472 L .76741 .01472 L .76862 .01472 L .77002 .01472 L .77134 .01472 L .77256 .01472 L .77368 .01472 L .77492 .01472 L .77623 .01472 L .77738 .01472 L .77862 .01472 L .77993 .01472 L .78114 .01472 L .78331 .01472 L .78453 .01472 L Mistroke .78563 .01472 L .78684 .01472 L .78813 .01472 L .78954 .01472 L .79083 .01472 L .79204 .01472 L .79317 .01472 L .79441 .01472 L .79574 .01472 L .79696 .01472 L .79809 .01472 L .79933 .01472 L .80065 .01472 L .80286 .01472 L .80412 .01472 L .80531 .01472 L .80637 .01472 L .80749 .01472 L .8095 .01472 L .81062 .01472 L .81167 .01472 L .81279 .01472 L .81403 .01472 L .81531 .01472 L .81665 .01472 L .8179 .01472 L .81907 .01472 L .82045 .01472 L .8217 .01472 L .82316 .01472 L .82454 .01472 L .82573 .01472 L .827 .01472 L .8282 .01472 L .82928 .01472 L .83056 .01472 L .83195 .01472 L .83326 .01472 L .83446 .01472 L .83554 .01472 L .83669 .01472 L .83877 .01472 L .84004 .01472 L .84124 .01472 L .8435 .01472 L .84465 .01472 L .84587 .01472 L .84693 .01472 L .84807 .01472 L .84929 .01472 L Mistroke .85043 .01472 L .85179 .01472 L .85304 .01472 L .85432 .01472 L .85553 .01472 L .85662 .01472 L .85779 .01472 L .85905 .01472 L .86022 .01472 L .86147 .01472 L .86285 .01472 L .86404 .01472 L .86513 .01472 L .86629 .01472 L .86757 .01472 L .86874 .01472 L .86983 .01472 L .87095 .01472 L .87198 .01472 L .87328 .01472 L .87469 .01472 L .87593 .01472 L .87724 .01472 L .87842 .01472 L .87951 .01472 L .88072 .01472 L .88201 .01472 L .88338 .01472 L .88488 .01472 L .88629 .01472 L .88759 .01472 L .88877 .01472 L .89006 .01472 L .89141 .01472 L .89268 .01472 L .89392 .01472 L .89525 .01472 L .8965 .01472 L .89764 .01472 L .89898 .01472 L .90043 .01472 L .90179 .01472 L .90305 .01472 L .90423 .01472 L .90534 .01472 L .90655 .01472 L .90785 .01472 L .90921 .01472 L .9105 .01472 L .91166 .01472 L Mistroke .91291 .01472 L .91406 .01472 L .91513 .01472 L .91631 .01472 L .91758 .01472 L .91884 .01472 L .92016 .01472 L .92129 .01472 L .92253 .01472 L .9237 .01472 L .92476 .01472 L .9259 .01472 L .92714 .01472 L .92829 .01472 L .92935 .01472 L .93035 .01472 L .93144 .01472 L .93269 .01472 L .93387 .01472 L .93504 .01472 L .9361 .01472 L .93736 .01472 L .93871 .01472 L .93995 .01472 L .94112 .01472 L .94223 .01472 L .94339 .01472 L .94548 .01472 L .94664 .01472 L .94772 .01472 L .94891 .01472 L .95019 .01472 L .95157 .01472 L .95284 .01472 L .95425 .01472 L .95573 .01472 L .95702 .01472 L .95823 .01472 L .95956 .01472 L .96098 .01472 L .96218 .01472 L .96349 .01472 L .96485 .01472 L .96612 .01472 L .96731 .01472 L .96839 .01472 L .96964 .01472 L .97082 .01472 L .97218 .01472 L .97362 .01472 L Mistroke .97484 .01472 L .97619 .01472 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol00g`0Oomoo`33Ool0025oo`03001oogoo02Eoo`03O01oogoo00ioo`03O01oogoo0<=oo`00 8Goo00<007ooOol09Goo00=l07ooOol03Woo00=l07ooOol0`goo000QOol00`00Oomoo`0UOol00g`0 Oomoo`0>Ool00g`0Oomoo`33Ool0025oo`03001oogoo02Eoo`03O01oogoo00ioo`03O01oogoo0<=o o`008Goo0P009Woo00=l07ooOol03Goo00=l07ooOol0a7oo000QOol00`00Oomoo`0UOol00g`0Oomo o`0=Ool00g`0Oomoo`34Ool0025oo`03001oogoo02Eoo`03O01oogoo00eoo`03O01oogoo0Ool0025oo`03001oogoo0?aoo`008Goo 00<007ooOol0o7oo000QOol2003mOol0025oo`03001oogoo0?aoo`00ogoo8Goo003oOolQOol00?mo ob5oo`00ogoo8Goo0000\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-67.8431, -0.00320368, \ 2.04261, 0.000187996}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Conversion using the RTD. Assume first order reaction with rate constant \ k=0.05.\ \>", "Subsubtitle", Background->RGBColor[0.643137, 1, 1]], Cell["k=0.05;", "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(NIntegrate[RTD[t]\ Exp[\(-k\)\ t], {t, 0, 1000}]\)], "Input"], Cell[BoxData[ \(0.008518551279499447`\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Computing conversion using the system of ordinary differential equations that \ governs the problem.\ \>", "Subsubtitle", Background->RGBColor[0.643137, 1, 1]], Cell[CellGroupData[{ Cell["Rate constant", "Subsubtitle", Background->RGBColor[1, 1, 0.682353]], Cell["k=0.05;", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Input concentration of component A", "Subsubtitle", Background->RGBColor[1, 1, 0.682353]], Cell[BoxData[ \(CA\_0[t_] := 1\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Governing Equations", "Subsubtitle", Background->RGBColor[1, 1, 0.682353]], Cell["i=2;", "Input"], Cell[BoxData[ \(For[j = 2, j < 51, {eq[i] = D[CA\_i[t], {t, 1}] \[Equal] \((CA\_\(i - 1\)[t] - CA\_i[t])\)/\[Tau] - k\ CA\_i[t], i = i + 1}, \(j++\)]\)], "Input"], Cell[BoxData[ \(\(eq[1] = D[CA\_1[t], {t, 1}] \[Equal] \((CA\_0[t] - CA\_1[t])\)/\[Tau] - k\ CA\_1[t];\)\)], "Input"], Cell["eqn=Table[eq[i],{i,2,50}];", "Input"], Cell["Eq=Join[{eq[1]},eqn];", "Input"], Cell[BoxData[ \(\(init = Table[CA\_i[0] \[Equal] 0, {i, 1, 50}];\)\)], "Input"], Cell["sys=Join[Eq,init];", "Input"], Cell[BoxData[ \(\(Unknown = Table[CA\_i, {i, 1, 50}];\)\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["computing the exit concentration from each tank. ", "Subsubtitle", Background->RGBColor[1, 1, 0.682353]], Cell["sol=NDSolve[sys,Unknown,{t,0,1000}];", "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Plot of the concentration profile at the exit of the last tank\ \>", "Subsubtitle", Background->RGBColor[1, 1, 0.682353]], Cell[CellGroupData[{ Cell[BoxData[ \(plt2 = Plot[CA\_50[t] /. sol, {t, 0, 500}, PlotStyle \[Rule] RGBColor[0, 1, 0], PlotRange \[Rule] All]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00190476 0.0147151 69.0967 [ [.21429 .00222 -9 -9 ] [.21429 .00222 9 0 ] [.40476 .00222 -9 -9 ] [.40476 .00222 9 0 ] [.59524 .00222 -9 -9 ] [.59524 .00222 9 0 ] [.78571 .00222 -9 -9 ] [.78571 .00222 9 0 ] [.97619 .00222 -9 -9 ] [.97619 .00222 9 0 ] [.01131 .15291 -30 -4.5 ] [.01131 .15291 0 4.5 ] [.01131 .2911 -30 -4.5 ] [.01131 .2911 0 4.5 ] [.01131 .4293 -30 -4.5 ] [.01131 .4293 0 4.5 ] [.01131 .56749 -30 -4.5 ] [.01131 .56749 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .21429 .01472 m .21429 .02097 L s [(100)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(200)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(300)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(400)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(500)] .97619 .00222 0 1 Mshowa .125 Mabswid .0619 .01472 m .0619 .01847 L s .1 .01472 m .1 .01847 L s .1381 .01472 m .1381 .01847 L s .17619 .01472 m .17619 .01847 L s .25238 .01472 m .25238 .01847 L s .29048 .01472 m .29048 .01847 L s .32857 .01472 m .32857 .01847 L s .36667 .01472 m .36667 .01847 L s .44286 .01472 m .44286 .01847 L s .48095 .01472 m .48095 .01847 L s .51905 .01472 m .51905 .01847 L s .55714 .01472 m .55714 .01847 L s .63333 .01472 m .63333 .01847 L s .67143 .01472 m .67143 .01847 L s .70952 .01472 m .70952 .01847 L s .74762 .01472 m .74762 .01847 L s .82381 .01472 m .82381 .01847 L s .8619 .01472 m .8619 .01847 L s .9 .01472 m .9 .01847 L s .9381 .01472 m .9381 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .15291 m .03006 .15291 L s [(0.002)] .01131 .15291 1 0 Mshowa .02381 .2911 m .03006 .2911 L s [(0.004)] .01131 .2911 1 0 Mshowa .02381 .4293 m .03006 .4293 L s [(0.006)] .01131 .4293 1 0 Mshowa .02381 .56749 m .03006 .56749 L s [(0.008)] .01131 .56749 1 0 Mshowa .125 Mabswid .02381 .04926 m .02756 .04926 L s .02381 .08381 m .02756 .08381 L s .02381 .11836 m .02756 .11836 L s .02381 .18746 m .02756 .18746 L s .02381 .22201 m .02756 .22201 L s .02381 .25655 m .02756 .25655 L s .02381 .32565 m .02756 .32565 L s .02381 .3602 m .02756 .3602 L s .02381 .39475 m .02756 .39475 L s .02381 .46384 m .02756 .46384 L s .02381 .49839 m .02756 .49839 L s .02381 .53294 m .02756 .53294 L s .02381 .60204 m .02756 .60204 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 1 0 r .5 Mabswid .02381 .01472 m .02499 .01472 L .02605 .01472 L .02729 .01472 L .02846 .01472 L .02954 .01472 L .03053 .01472 L .03163 .01472 L .03279 .01472 L .03395 .01472 L .0352 .01472 L .03638 .01472 L .03746 .01472 L .03873 .01472 L .03944 .01472 L .04011 .01472 L .04132 .01472 L .04262 .01472 L .04327 .01472 L .04396 .01472 L .04519 .01472 L .04588 .01472 L .04652 .01472 L .04722 .01472 L .04797 .01472 L .04862 .01472 L .04933 .01472 L .05061 .01472 L .05186 .01472 L .05302 .01472 L .05414 .01472 L .05519 .01472 L .05634 .01472 L .05759 .01472 L .05882 .01472 L .06012 .01472 L .06123 .01472 L .06244 .01472 L .06315 .01472 L .06381 .01472 L .06453 .01472 L .06529 .01472 L .06657 .01472 L .06729 .01472 L .06797 .01472 L .06924 .01472 L .0704 .01472 L .07103 .01472 L .07173 .01472 L .073 .01472 L Mistroke .07376 .01472 L .07448 .01472 L .07513 .01472 L .07583 .01472 L .0766 .01472 L .0774 .01472 L .07809 .01472 L .07885 .01472 L .07956 .01472 L .0802 .01472 L .08095 .01472 L .08166 .01472 L .08291 .01472 L .08362 .01472 L .08427 .01472 L .08544 .01472 L .08669 .01472 L .08787 .01472 L .08896 .01472 L .09016 .01472 L .09148 .01472 L .09214 .01472 L .09285 .01472 L .09413 .01472 L .09483 .01472 L .09548 .01472 L .09619 .01472 L .09695 .01472 L .09821 .01472 L .09893 .01472 L .09961 .01472 L .10086 .01472 L .10201 .01472 L .10333 .01472 L .10458 .01472 L .10572 .01472 L .10694 .01472 L .1081 .01472 L .10916 .01472 L .11033 .01472 L .11162 .01472 L .11227 .01472 L .11297 .01472 L .11422 .01473 L .11554 .01473 L .11698 .01474 L .11833 .01475 L .11958 .01476 L .12071 .01478 L .12195 .0148 L Mistroke .12325 .01483 L .12446 .01487 L .1256 .01491 L .12684 .01497 L .12793 .01504 L .1291 .01512 L .13025 .01522 L .1313 .01533 L .13334 .01562 L .1357 .01609 L .13703 .01643 L .13825 .01681 L .1405 .01771 L .14288 .01899 L .14543 .02084 L .14784 .02318 L .15001 .02585 L .15236 .02949 L .15493 .03445 L .15765 .04103 L .16253 .05684 L .16703 .07654 L .17125 .09987 L .18087 .17002 L .19936 .34277 L .20984 .43391 L .21494 .4711 L .21958 .49999 L .22423 .52426 L .22928 .54548 L .2346 .56277 L .23963 .57497 L .24497 .58438 L .24766 .588 L .25061 .59127 L .25314 .59356 L .25585 .59557 L .26074 .59829 L .26329 .59934 L .266 .60023 L .26834 .60084 L .27088 .60138 L .27387 .60188 L .27668 .60223 L .27941 .6025 L .28193 .60269 L .28434 .60283 L .2866 .60294 L .28907 .60303 L .29171 .6031 L Mistroke .29449 .60316 L .29712 .6032 L .29947 .60323 L .30203 .60325 L .30438 .60327 L .3069 .60328 L .30929 .60329 L .31147 .6033 L .31401 .6033 L .31536 .60331 L .31679 .60331 L .31942 .60331 L .32186 .60331 L .32459 .60331 L .32612 .60332 L .32754 .60332 L .33014 .60332 L .33289 .60332 L .33535 .60332 L .33765 .60332 L .34018 .60332 L .34159 .60332 L .34289 .60332 L .34517 .60332 L .34647 .60332 L .34769 .60332 L .35015 .60332 L .35279 .60332 L .35512 .60332 L .35758 .60332 L .35967 .60332 L .36196 .60332 L .36716 .60332 L .36853 .60332 L .37002 .60332 L .3713 .60332 L .37271 .60332 L .37404 .60332 L .37476 .60332 L .37544 .60332 L .37665 .60332 L .37796 .60332 L .37923 .60332 L .38044 .60332 L .38153 .60332 L .38272 .60332 L .38397 .60332 L .38528 .60332 L .38597 .60332 L .38672 .60332 L Mistroke .38741 .60332 L .38805 .60332 L .38931 .60332 L .39047 .60332 L .39306 .60332 L .39792 .60332 L .40242 .60332 L .40488 .60332 L .40759 .60332 L .41031 .60332 L .41182 .60332 L .4132 .60332 L .41441 .60332 L .41574 .60332 L .41707 .60332 L .41779 .60332 L .41847 .60332 L .41972 .60332 L .42086 .60332 L .42217 .60332 L .42341 .60332 L .42456 .60332 L .4258 .60332 L .42805 .60332 L .43315 .60332 L .44345 .60332 L .44809 .60332 L .45303 .60332 L .45725 .60332 L .45965 .60332 L .46073 .60332 L .46191 .60332 L .46315 .60332 L .46446 .60332 L .46567 .60332 L .46679 .60332 L .46748 .60332 L .46813 .60332 L .46934 .60332 L .47206 .60332 L .47736 .60332 L .4801 .60332 L .48312 .60332 L .48556 .60332 L .48819 .60332 L .48964 .60332 L .49097 .60332 L .49232 .60332 L .49357 .60332 L .49472 .60332 L Mistroke .49594 .60332 L .49664 .60332 L .4973 .60332 L .49852 .60332 L .4997 .60332 L .50078 .60332 L .50197 .60332 L .50323 .60332 L .50445 .60332 L .50577 .60332 L .50819 .60332 L .51271 .60332 L .52287 .60332 L .52742 .60332 L .53233 .60332 L .53459 .60332 L .53696 .60332 L .53899 .60332 L .54013 .60332 L .54121 .60332 L .54244 .60332 L .54356 .60332 L .54477 .60332 L .54608 .60332 L .54722 .60332 L .54844 .60332 L .55061 .60332 L .56099 .60332 L .57099 .60332 L .57664 .60332 L .582 .60332 L .58686 .60332 L .59216 .60332 L .59698 .60332 L .60145 .60332 L .60419 .60332 L .60676 .60332 L .60907 .60332 L .61038 .60332 L .61157 .60332 L .61287 .60332 L .61407 .60332 L .61477 .60332 L .6154 .60332 L .61612 .60332 L .61681 .60332 L .61748 .60332 L .61819 .60332 L .61946 .60332 L .62083 .60332 L Mistroke .62234 .60332 L .62482 .60332 L .62753 .60332 L .63247 .60332 L .64174 .60332 L .66261 .60332 L .68391 .60332 L .70323 .60332 L .71289 .60332 L .71834 .60332 L .72094 .60332 L .72336 .60332 L .72566 .60332 L .72775 .60332 L .73008 .60332 L .73137 .60332 L .73258 .60332 L .73376 .60332 L .73501 .60332 L .73607 .60332 L .73725 .60332 L .73851 .60332 L .73987 .60332 L .74233 .60332 L .7527 .60332 L .76236 .60332 L .77243 .60332 L .77775 .60332 L .78345 .60332 L .78877 .60332 L .79368 .60332 L .79624 .60332 L .79907 .60332 L .80049 .60332 L .80127 .60332 L .80201 .60332 L .8027 .60332 L .80346 .60332 L .80477 .60332 L .80543 .60332 L .80614 .60332 L .80743 .60332 L .80868 .60332 L .80984 .60332 L .81109 .60332 L .81246 .60332 L .81523 .60332 L .82024 .60332 L .82492 .60332 L .83539 .60332 L Mistroke .84529 .60332 L .86386 .60332 L .8821 .60332 L .89248 .60332 L .90221 .60332 L .90686 .60332 L .91174 .60332 L .9143 .60332 L .9171 .60332 L .91833 .60332 L .91964 .60332 L .92079 .60332 L .92201 .60332 L .92268 .60332 L .92343 .60332 L .92473 .60332 L .92546 .60332 L .92625 .60332 L .927 .60332 L .92768 .60332 L .92899 .60332 L .93042 .60332 L .93302 .60332 L .94302 .60332 L .95131 .60332 L .95909 .60332 L .96341 .60332 L .96807 .60332 L .97619 .60332 L Mfstroke 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgOol0025oo`03001oogoo02]oo`030n1oogoo0Ool0025oo`03001oogoo02]o o`030n1oogoo0Ool0025oo`03001oogoo02]oo`030n1oogoo07oo00<3h7ooOol0`Goo000QOol00`00Oomoo`0iOol40n2oOol0025o o`8003iookH3h0Uoo`008Goo00<007ooOol0o7oo000QOol00`00Oomoo`3lOol0025oo`03001oogoo 0?aoo`008Goo00<007ooOol0o7oo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-67.8431, -0.000959556, \ 2.04261, 5.63078*^-05}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Conversion is equal to the steady state value of the exit concentration of \ the last tank. Conversion obtained by solving the system of ODEs and by using \ the RTD are both equal to 0.00851855.\ \>", "Subsubtitle", Background->RGBColor[1, 0.623529, 0.811765]], Cell[CellGroupData[{ Cell[BoxData[ \(\(CA\_50[t] /. sol\) /. t \[Rule] 500\)], "Input"], Cell[BoxData[ \({0.008518551279498954`}\)], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, CellGrouping->Manual, WindowSize->{1016, 668}, WindowMargins->{{0, Automatic}, {Automatic, 0}} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 453, 12, 157, "Subtitle"], Cell[CellGroupData[{ Cell[2254, 69, 186, 4, 46, "Subsubtitle"], Cell[2443, 75, 38, 0, 30, "Input"], Cell[CellGroupData[{ Cell[2506, 79, 56, 1, 30, "Input"], Cell[2565, 82, 37, 1, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[2651, 89, 135, 3, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[2811, 96, 35, 0, 30, "Input"], Cell[2849, 98, 39, 1, 29, "Output"], Cell[2891, 101, 91, 3, 29, "Output"] }, Open ]], Cell[2997, 107, 72, 0, 30, "Input"], Cell[CellGroupData[{ Cell[3094, 111, 141, 3, 30, "Input"], Cell[3238, 116, 24884, 1009, 186, 13036, 858, "GraphicsData", "PostScript", \ "Graphics"], Cell[28125, 1127, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[28304, 1136, 153, 4, 48, "Subsubtitle"], Cell[28460, 1142, 24, 0, 30, "Input"], Cell[CellGroupData[{ Cell[28509, 1146, 81, 1, 30, "Input"], Cell[28593, 1149, 55, 1, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[28697, 1156, 171, 4, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[28893, 1164, 76, 1, 46, "Subsubtitle"], Cell[28972, 1167, 24, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[29033, 1172, 97, 1, 48, "Subsubtitle"], Cell[29133, 1175, 47, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[29217, 1181, 82, 1, 48, "Subsubtitle"], Cell[29302, 1184, 21, 0, 30, "Input"], Cell[29326, 1186, 216, 5, 70, "Input"], Cell[29545, 1193, 143, 3, 30, "Input"], Cell[29691, 1198, 43, 0, 30, "Input"], Cell[29737, 1200, 38, 0, 30, "Input"], Cell[29778, 1202, 83, 1, 30, "Input"], Cell[29864, 1205, 35, 0, 30, "Input"], Cell[29902, 1207, 72, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[30011, 1213, 112, 1, 48, "Subsubtitle"], Cell[30126, 1216, 53, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[30216, 1221, 133, 3, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[30374, 1228, 160, 4, 30, "Input"], Cell[30537, 1234, 18433, 712, 186, 8957, 591, "GraphicsData", "PostScript", \ "Graphics"], Cell[48973, 1948, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[49164, 1958, 272, 5, 66, "Subsubtitle"], Cell[CellGroupData[{ Cell[49461, 1967, 70, 1, 30, "Input"], Cell[49534, 1970, 57, 1, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)