(************** 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[ 46685, 1827]*) (*NotebookOutlinePosition[ 47351, 1850]*) (* CellTagsIndexPosition[ 47307, 1846]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[{ "Conversion Calculation for 50 Tanks in Series and Zero Reaction Order\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"] }, 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.0022.\ \>", "Subsubtitle", Background->RGBColor[0.643137, 1, 1]], Cell["k=0.0022;", "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(NIntegrate[RTD[t]\ \((1 - \ k\ t)\), {t, 0, 1/k}]\)], "Input"], Cell[BoxData[ \(0.7800000000000166`\)], "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.0022;", "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. Initially, tanks contain a concentration of component A \ equal to 1.\ \>", "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\ Max[0, Sign[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\ Max[0, Sign[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] 1, {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[ \(plt3 = Plot[CA\_50[t] /. sol, {t, 0, 1/k}, 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.00209524 -2.07215 2.67547 [ [.23333 .59082 -9 -9 ] [.23333 .59082 9 0 ] [.44286 .59082 -9 -9 ] [.44286 .59082 9 0 ] [.65238 .59082 -9 -9 ] [.65238 .59082 9 0 ] [.8619 .59082 -9 -9 ] [.8619 .59082 9 0 ] [.01131 .06822 -18 -4.5 ] [.01131 .06822 0 4.5 ] [.01131 .202 -24 -4.5 ] [.01131 .202 0 4.5 ] [.01131 .33577 -18 -4.5 ] [.01131 .33577 0 4.5 ] [.01131 .46955 -24 -4.5 ] [.01131 .46955 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 .23333 .60332 m .23333 .60957 L s [(100)] .23333 .59082 0 1 Mshowa .44286 .60332 m .44286 .60957 L s [(200)] .44286 .59082 0 1 Mshowa .65238 .60332 m .65238 .60957 L s [(300)] .65238 .59082 0 1 Mshowa .8619 .60332 m .8619 .60957 L s [(400)] .8619 .59082 0 1 Mshowa .125 Mabswid .06571 .60332 m .06571 .60707 L s .10762 .60332 m .10762 .60707 L s .14952 .60332 m .14952 .60707 L s .19143 .60332 m .19143 .60707 L s .27524 .60332 m .27524 .60707 L s .31714 .60332 m .31714 .60707 L s .35905 .60332 m .35905 .60707 L s .40095 .60332 m .40095 .60707 L s .48476 .60332 m .48476 .60707 L s .52667 .60332 m .52667 .60707 L s .56857 .60332 m .56857 .60707 L s .61048 .60332 m .61048 .60707 L s .69429 .60332 m .69429 .60707 L s .73619 .60332 m .73619 .60707 L s .7781 .60332 m .7781 .60707 L s .82 .60332 m .82 .60707 L s .90381 .60332 m .90381 .60707 L s .94571 .60332 m .94571 .60707 L s .98762 .60332 m .98762 .60707 L s .25 Mabswid 0 .60332 m 1 .60332 L s .02381 .06822 m .03006 .06822 L s [(0.8)] .01131 .06822 1 0 Mshowa .02381 .202 m .03006 .202 L s [(0.85)] .01131 .202 1 0 Mshowa .02381 .33577 m .03006 .33577 L s [(0.9)] .01131 .33577 1 0 Mshowa .02381 .46955 m .03006 .46955 L s [(0.95)] .01131 .46955 1 0 Mshowa .125 Mabswid .02381 .09498 m .02756 .09498 L s .02381 .12173 m .02756 .12173 L s .02381 .14849 m .02756 .14849 L s .02381 .17524 m .02756 .17524 L s .02381 .22875 m .02756 .22875 L s .02381 .25551 m .02756 .25551 L s .02381 .28226 m .02756 .28226 L s .02381 .30902 m .02756 .30902 L s .02381 .36253 m .02756 .36253 L s .02381 .38928 m .02756 .38928 L s .02381 .41604 m .02756 .41604 L s .02381 .44279 m .02756 .44279 L s .02381 .4963 m .02756 .4963 L s .02381 .52305 m .02756 .52305 L s .02381 .54981 m .02756 .54981 L s .02381 .57656 m .02756 .57656 L s .02381 .04147 m .02756 .04147 L s .02381 .01472 m .02756 .01472 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 1 0 r .5 Mabswid .02381 .60332 m .06244 .49478 L .10458 .37642 L .14415 .26525 L .18221 .15919 L .20342 .10457 L .22272 .06436 L .23233 .04925 L .24276 .03676 L .24754 .03232 L .25261 .0284 L .26171 .02313 L .26662 .02106 L .27112 .01957 L .27631 .01823 L .28124 .01727 L .28578 .0166 L .28999 .01612 L .29462 .01572 L .29954 .01541 L .30215 .01529 L .3049 .01518 L .30983 .01503 L .31257 .01497 L .31513 .01492 L .31812 .01487 L .32096 .01484 L .3234 .01482 L .32605 .0148 L .33069 .01477 L .33332 .01476 L .33611 .01475 L .33855 .01474 L .34113 .01474 L .34346 .01473 L .34602 .01473 L .3505 .01472 L .35303 .01472 L .35573 .01472 L .35828 .01472 L .3606 .01472 L .36511 .01472 L .36765 .01472 L .37 .01472 L .37431 .01472 L .37649 .01472 L .37764 .01472 L .37888 .01472 L .38017 .01472 L .38137 .01472 L Mistroke .38409 .01472 L .38669 .01472 L .38904 .01472 L .39134 .01472 L .39382 .01472 L .39617 .01472 L .39833 .01472 L .40083 .01472 L .40317 .01472 L .40574 .01472 L .40849 .01472 L .40987 .01472 L .41138 .01472 L .41411 .01472 L .41922 .01472 L .42156 .01472 L .42288 .01472 L .42408 .01472 L .42514 .01472 L .4263 .01472 L .42752 .01472 L .42864 .01472 L .42929 .01472 L .43 .01472 L .43128 .01472 L .43367 .01472 L .43503 .01472 L .43577 .01472 L .43646 .01472 L .43768 .01472 L .43833 .01472 L .43903 .01472 L .43971 .01472 L .44043 .01472 L .44173 .01472 L .44245 .01472 L .44313 .01472 L .44467 .01472 L .44593 .01472 L .44725 .01472 L .44794 .01472 L .44869 .01472 L .44938 .01472 L .45002 .01472 L .46005 .01472 L .46914 .01472 L .47876 .01472 L .48379 .01472 L .48932 .01472 L .49435 .01472 L Mistroke .49906 .01472 L .50182 .01472 L .50317 .01472 L .50443 .01472 L .50678 .01472 L .50802 .01472 L .50934 .01472 L .51009 .01472 L .51077 .01472 L .51153 .01472 L .51232 .01472 L .51302 .01472 L .51366 .01472 L .51437 .01472 L .51513 .01472 L .51655 .01472 L .51788 .01472 L .52039 .01472 L .52282 .01472 L .5254 .01472 L .53004 .01472 L .54053 .01472 L .55013 .01472 L .56024 .01472 L .56441 .01472 L .56887 .01472 L .57143 .01472 L .57376 .01472 L .57488 .01472 L .57609 .01472 L .57724 .01472 L .5783 .01472 L .57942 .01472 L .58062 .01472 L .58175 .01472 L .58278 .01472 L .58399 .01472 L .58531 .01472 L .58655 .01472 L .58771 .01472 L .59766 .01472 L .60297 .01472 L .60777 .01472 L .61331 .01472 L .61601 .01472 L .61852 .01472 L .62097 .01472 L .6232 .01472 L .62567 .01472 L .62704 .01472 L Mistroke .62832 .01472 L .62957 .01472 L .6302 .01472 L .6309 .01472 L .63213 .01472 L .63328 .01472 L .63397 .01472 L .63463 .01472 L .63587 .01472 L .6372 .01472 L .63866 .01472 L .64109 .01472 L .6433 .01472 L .64824 .01472 L .65715 .01472 L .66729 .01472 L .678 .01472 L .68715 .01472 L .69235 .01472 L .69487 .01472 L .6972 .01472 L .69834 .01472 L .69959 .01472 L .70085 .01472 L .70155 .01472 L .70219 .01472 L .70338 .01472 L .70447 .01472 L .70567 .01472 L .70693 .01472 L .70799 .01472 L .70912 .01472 L .71116 .01472 L .7158 .01472 L .72617 .01472 L .73574 .01472 L .74598 .01472 L .75137 .01472 L .75708 .01472 L .76203 .01472 L .76667 .01472 L .76928 .01472 L .77176 .01472 L .77312 .01472 L .77461 .01472 L .77597 .01472 L .77722 .01472 L .77847 .01472 L .77978 .01472 L .7811 .01472 L Mistroke .78185 .01472 L .78255 .01472 L .78382 .01472 L .78497 .01472 L .78561 .01472 L .7863 .01472 L .78756 .01472 L .78992 .01472 L .79243 .01472 L .79693 .01472 L .80208 .01472 L .80691 .01472 L .81791 .01472 L .85664 .01472 L .87631 .01472 L .88746 .01472 L .89279 .01472 L .89782 .01472 L .90265 .01472 L .90537 .01472 L .90666 .01472 L .90787 .01472 L .90898 .01472 L .90999 .01472 L .91111 .01472 L .91231 .01472 L .91346 .01472 L .91472 .01472 L .91591 .01472 L .917 .01472 L .91817 .01472 L .91943 .01472 L .92172 .01472 L .92693 .01472 L .93748 .01472 L .94648 .01472 L .95633 .01472 L .9613 .01472 L .96661 .01472 L .97163 .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]HGAYHf4PAg9QL6QYHgOol000Qoo`8000Yoo`8000Eoo`03001oogoo031oo`030n1oogoo01oo`006goo00<007ooOol07Woo 00<3h7ooOol0hGoo000KOol00`00Oomoo`0NOol00`?POomoo`3QOol001]oo`8001moo`030n1oogoo 0>5oo`006goo00<007ooOol07Goo00<3h7ooOol0hWoo000KOol00`00Oomoo`0MOol00`?POomoo`3R Ool001]oo`03001oogoo01eoo`030n1oogoo0>9oo`006goo00<007ooOol077oo00<3h7ooOol0hgoo 000KOol00`00Oomoo`0LOol00`?POomoo`3SOol001]oo`03001oogoo01aoo`030n1oogoo0>=oo`00 6goo0P0077oo00<3h7ooOol0i7oo000KOol00`00Oomoo`0KOol00`?POomoo`3TOol001]oo`03001o ogoo01Yoo`030n1oogoo0>Eoo`006goo00<007ooOol06Woo00<3h7ooOol0iGoo000KOol00`00Oomo o`0JOol00`?POomoo`3UOol001]oo`03001oogoo01Uoo`030n1oogoo0>Ioo`006goo00<007ooOol0 6Goo00<3h7ooOol0iWoo000KOol2000JOol00`?POomoo`3VOol001]oo`03001oogoo01Qoo`030n1o ogoo0>Moo`006goo00<007ooOol067oo00<3h7ooOol0igoo000KOol00`00Oomoo`0GOol00`?POomo o`3XOol001]oo`03001oogoo01Moo`030n1oogoo0>Qoo`0027oo0P0017oo0P000goo0`001Goo00<0 07ooOol05goo00<3h7ooOol0j7oo0007Ool01000Oomoo`002Woo00<007ooOol00goo00<007ooOol0 5Woo00<3h7ooOol0jGoo0007Ool01000Oomoo`002Goo0`0017oo0P005goo00<3h7ooOol0jGoo0007 Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo01Ioo`030n1oogoo0>Uoo`001goo00@0 07ooOol000Qoo`04001oogoo0004Ool00`00Oomoo`0EOol00`?POomoo`3ZOol000Qoo`8000Yoo`<0 00Aoo`03001oogoo01Eoo`030n1oogoo0>Yoo`006goo00<007ooOol05Goo00<3h7ooOol0jWoo000K Ool00`00Oomoo`0DOol00`?POomoo`3[Ool001]oo`03001oogoo01Aoo`030n1oogoo0>]oo`006goo 0P0057oo00<3h7ooOol0k7oo000KOol00`00Oomoo`0COol00`?POomoo`3/Ool001]oo`03001oogoo 01=oo`030n1oogoo0>aoo`006goo00<007ooOol04Woo00<3h7ooOol0kGoo000KOol00`00Oomoo`0B Ool00`?POomoo`3]Ool001]oo`03001oogoo019oo`030n1oogoo0>eoo`006goo00<007ooOol04Goo 00<3h7ooOol0kWoo000KOol2000BOol00`?POomoo`3^Ool001]oo`03001oogoo015oo`030n1oogoo 0>ioo`006goo00<007ooOol047oo00<3h7ooOol0kgoo000KOol00`00Oomoo`0@Ool00`?POomoo`3_ Ool001]oo`03001oogoo011oo`030n1oogoo0>moo`006goo00<007ooOol03goo00<3h7ooOol0l7oo 000KOol00`00Oomoo`0?Ool00`?POomoo`3`Ool001]oo`8000moo`030n1oogoo0?5oo`006goo00<0 07ooOol03Woo00<3h7ooOol0lGoo000KOol00`00Oomoo`0>Ool00`?POomoo`3aOol001]oo`03001o ogoo00eoo`030n1oogoo0?9oo`006goo00<007ooOol03Goo00<3h7ooOol0lWoo000KOol00`00Oomo o`0=Ool00`?POomoo`3bOol001]oo`03001oogoo00aoo`030n1oogoo0?=oo`006goo00<007ooOol0 37oo00<3h7ooOol0lgoo000KOol2000=Ool00`?POomoo`3cOol001]oo`03001oogoo00]oo`030n1o ogoo0?Aoo`006goo00<007ooOol02goo00<3h7ooOol0m7oo000KOol00`00Oomoo`0;Ool00`?POomo o`3dOol001]oo`03001oogoo00Yoo`030n1oogoo0?Eoo`000Woo0P0017oo0P000goo0`0017oo0P00 1Goo00<007ooOol02Woo00<3h7ooOol0mGoo00001Goo001oogoo00002Woo00D007ooOomoo`00009o o`03001oogoo009oo`03001oogoo00Uoo`030n1oogoo0?Ioo`0000Eoo`00Oomoo`0000Uoo`<000Eo o`03001oogoo009oo`8000Yoo`030n1oogoo0?Ioo`0000Eoo`00Oomoo`0000Qoo`04001oogoo0003 Ool20005Ool00`00Oomoo`09Ool00`?POomoo`3fOol00005Ool007ooOol00008Ool01000Oomoo`00 0goo00<007ooOol017oo00<007ooOol027oo00<3h7ooOol0mgoo0002Ool2000:Ool30003Ool30004 Ool00`00Oomoo`08Ool00`?POomoo`3gOol001]oo`03001oogoo00Qoo`030n1oogoo0?Moo`006goo 00<007ooOol01goo00<3h7ooOol0n7oo000KOol00`00Oomoo`07Ool00`?POomoo`3hOol001]oo`80 00Qoo`030n1oogoo0?Qoo`006goo00<007ooOol01Woo00<3h7ooOol0nGoo000KOol00`00Oomoo`06 Ool00`?POomoo`3iOol001]oo`03001oogoo00Ioo`030n1oogoo0?Uoo`006goo00<007ooOol01Goo 00<3h7ooOol0nWoo000KOol00`00Oomoo`05Ool00`?POomoo`3jOol001]oo`03001oogoo00Eoo`03 0n1oogoo0?Yoo`006goo0P001Goo00<3h7ooOol0ngoo000KOol00`00Oomoo`04Ool00`?POomoo`3k Ool001]oo`03001oogoo00Aoo`030n1oogoo0?]oo`006goo00<007ooOol00goo00<3h7ooOol0o7oo 000KOol00`00Oomoo`03Ool00`?POomoo`3lOol001]oo`03001oogoo00=oo`030n1oogoo0?aoo`00 6goo00<007ooOol00Woo00<3h7ooOol0oGoo000KOol20003Ool00`?POomoo`3mOol001]oo`05001o ogooOol3h03oOol1Ool001]oo`05001oogooOol3h03oOol1Ool001]oo`05001oogooOol3h00[Ool5 0002Ool20004Ool2000XOol40003Ool20004Ool2000ZOol20004Ool20004Ool2000[Ool30002Ool2 0004Ool2000OOol001]oo`04001oogoo0n0^Ool01@00Oomoogoo00000Woo00@007ooOol0009oo`03 001oogoo02Eoo`03001oogoo00=oo`04001oogoo0002Ool01000Oomoo`00:7oo00@007ooOol0009o o`04001oogoo0002Ool01000Oomoo`00:goo00@007ooOol0009oo`04001oogoo0002Ool00`00Oomo o`0LOol001]oo`04001oogoo0n0^Ool01@00Oomoogoo00000Woo00@007ooOol0009oo`03001oogoo 02Ioo`03001oogoo009oo`04001oogoo0002Ool01000Oomoo`00:Woo00D007ooOomoo`00009oo`04 001oogoo0002Ool00`00Oomoo`0VOol500001Goo001oogoo00000Woo00@007ooOol001ioo`006goo 00@007ooOol3h2ioo`05001oogooOol00002Ool01000Oomoo`000Woo00<007ooOol09goo00D007oo Oomoo`00009oo`04001oogoo0002Ool00`00Oomoo`0YOol01000Oomoo`000Woo00@007ooOol0009o o`03001oogoo02Ioo`04001oogoo0002Ool01000Oomoo`000Woo00@007ooOol001ioo`006goo0P00 00<3h7ooOol0;Goo00D007ooOomoo`00009oo`04001oogoo0002Ool00`00Oomoo`0UOol01000Oomo o`000Woo00@007ooOol0009oo`04001oogoo000XOol01000Oomoo`000Woo00@007ooOol0009oo`04 001oogoo000YOol00`00Ool00002Ool01000Oomoo`000Woo00@007ooOol001ioo`006goo00<007oo 0n00;Woo0P0017oo0P0017oo0P00:Goo0P0017oo0P0017oo0P00:Woo0P0017oo0P0017oo0P00:goo 0P000goo0P0017oo0P007goo000KOol00`00Ool3h03oOol3Ool001]oo`030003h7oo0?moo`=oo`00 6goo00<000?POol0ogoo0goo000KOol00`000n1oo`3oOol3Ool001]oo`030n1oogoo0?moo`=oo`00 57oo1`0000<3h0000000o`000`00000KOol00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08 Ool00`00Oomoo`08Ool00`00Oomoo`09Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08 Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`09Ool00`00Oomoo`08 Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08 Ool00`00Oomoo`09Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08Ool00`00Oomoo`08 Ool00`00Oomoo`02Ool001]oo`03001oogoo03Eoo`03001oogoo03Aoo`03001oogoo03Eoo`03001o ogoo03Eoo`03001oogoo02=oo`006goo00<007ooOol0ogoo0goo000KOol00`00Oomoo`3oOol3Ool0 0?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-49.0292, 0.765691, 1.79422, \ 0.0014051}}], 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.78.\ \>", "Subsubtitle", Background->RGBColor[1, 0.623529, 0.811765]], Cell[CellGroupData[{ Cell[BoxData[ \(\(CA\_50[t] /. sol\) /. t \[Rule] 500\)], "Input"], Cell[BoxData[ \({0.7800000000000205`}\)], "Output"] }, Open ]] }, Closed]] }, 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[1754, 51, 449, 11, 157, "Subtitle"], Cell[CellGroupData[{ Cell[2228, 66, 186, 4, 46, "Subsubtitle"], Cell[2417, 72, 38, 0, 30, "Input"], Cell[CellGroupData[{ Cell[2480, 76, 56, 1, 30, "Input"], Cell[2539, 79, 37, 1, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[2625, 86, 135, 3, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[2785, 93, 35, 0, 30, "Input"], Cell[2823, 95, 39, 1, 29, "Output"] }, Open ]], Cell[2877, 99, 72, 0, 30, "Input"], Cell[CellGroupData[{ Cell[2974, 103, 141, 3, 50, "Input"], Cell[3118, 108, 24884, 1009, 186, 13036, 858, "GraphicsData", "PostScript", \ "Graphics"], Cell[28005, 1119, 130, 3, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[28184, 1128, 155, 4, 48, "Subsubtitle"], Cell[28342, 1134, 26, 0, 30, "Input"], Cell[CellGroupData[{ Cell[28393, 1138, 82, 1, 30, "Input"], Cell[28478, 1141, 53, 1, 29, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[28580, 1148, 171, 4, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[28776, 1156, 76, 1, 46, "Subsubtitle"], Cell[28855, 1159, 26, 0, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[28918, 1164, 97, 1, 48, "Subsubtitle"], Cell[29018, 1167, 47, 1, 27, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[29102, 1173, 161, 4, 48, "Subsubtitle"], Cell[29266, 1179, 21, 0, 30, "Input"], Cell[29290, 1181, 249, 6, 70, "Input"], Cell[29542, 1189, 157, 3, 30, "Input"], Cell[29702, 1194, 43, 0, 30, "Input"], Cell[29748, 1196, 38, 0, 30, "Input"], Cell[29789, 1198, 83, 1, 30, "Input"], Cell[29875, 1201, 35, 0, 30, "Input"], Cell[29913, 1203, 72, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[30022, 1209, 112, 1, 48, "Subsubtitle"], Cell[30137, 1212, 53, 0, 27, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[30227, 1217, 133, 3, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[30385, 1224, 160, 4, 47, "Input"], Cell[30548, 1230, 15496, 568, 186, 6764, 456, "GraphicsData", "PostScript", \ "Graphics"], Cell[46047, 1800, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[46238, 1810, 266, 5, 66, "Subsubtitle"], Cell[CellGroupData[{ Cell[46529, 1819, 70, 1, 27, "Input"], Cell[46602, 1822, 55, 1, 29, "Output"] }, Open ]] }, Closed]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)