(************** Content-type: application/mathematica ************** 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[ 318652, 9114]*) (*NotebookOutlinePosition[ 319306, 9137]*) (* CellTagsIndexPosition[ 319262, 9133]*) (*WindowFrame->Normal*) Notebook[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .66667 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.444444 0.222222 0.222222 0.222222 [ [ 0 0 0 0 ] [ 1 .66667 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .66667 L 0 .66667 L closepath clip newpath 1 .918 0 r .44121 .23463 m .3959 .37055 L .37972 .46117 L .37972 .50648 L .39914 .4644 L .43797 .36408 L .44768 .29288 L .46063 .33819 L .47681 .4191 L .49623 .45793 L .51241 .47088 L .50917 .43204 L .48652 .32848 L .47034 .29612 L .50594 .34466 L .54153 .38997 L .56419 .40615 L .54153 .36084 L .51241 .31553 L .47034 .26699 L .45416 .2411 L .44121 .23463 L F 1 .636 0 r .43425 .23242 m .31419 .34116 L .24606 .41786 L .21888 .45863 L .26062 .42659 L .35383 .34795 L .4048 .28679 L .38862 .33145 L .35383 .40912 L .34703 .44989 L .35302 .4664 L .37357 .43048 L .41645 .33048 L .42212 .2965 L .42325 .35086 L .42632 .40232 L .43587 .42368 L .4438 .37611 L .44623 .32659 L .43959 .27028 L .44137 .24213 L .43425 .23242 L F 1 .354 0 r .42966 .22834 m .26236 .29019 L .15844 .33878 L .11087 .36732 L .16557 .35101 L .29198 .30819 L .37201 .26844 L .33146 .30378 L .25528 .36324 L .22504 .3979 L .22023 .41456 L .25925 .38839 L .3557 .31125 L .3809 .28237 L .34924 .33164 L .32098 .37888 L .31628 .40096 L .35156 .36053 L .38334 .31669 L .41148 .26402 L .42989 .23921 L .42966 .22834 L F 1 .072 0 r .42821 .22329 m .2489 .22876 L .1314 .24132 L .07384 .25274 L .13013 .25447 L .26327 .25386 L .35515 .24209 L .29947 .26173 L .19905 .29239 L .15254 .31452 L .13846 .32806 L .18733 .31621 L .31559 .27573 L .35434 .25729 L .29787 .29214 L .24551 .32617 L .22826 .34464 L .28251 .31883 L .33582 .28891 L .39135 .24995 L .42188 .23315 L .42821 .22329 L F 1 0 .21 r .43 .21832 m .2743 .16945 L .1669 .1455 L .11112 .13851 L .15793 .15695 L .27146 .19634 L .35662 .21331 L .29752 .21428 L .19375 .21176 L .14095 .21772 L .12086 .22568 L .1695 .22968 L .30282 .23172 L .34682 .22675 L .27791 .24118 L .21298 .2561 L .18724 .26754 L .24884 .26059 L .3121 .24966 L .38268 .23125 L .41871 .22529 L .43 .21832 L F 1 0 .492 r .43451 .21437 m .33149 .12368 L .25457 .06991 L .21135 .04688 L .24007 .07752 L .31294 .14704 L .37514 .18785 L .32432 .171 L .23764 .1376 L .18918 .12712 L .16732 .12826 L .20627 .14645 L .31836 .18828 L .35874 .19701 L .29152 .18932 L .22738 .18327 L .19863 .18585 L .25516 .19807 L .31549 .20721 L .38652 .21182 L .42073 .21726 L .43451 .21437 L F 1 0 .774 r .44071 .21218 m .40756 .09965 L .37444 .02818 L .35152 -0.00551 L .35754 .03068 L .37777 .1151 L .40616 .1705 L .37307 .14008 L .31943 .08402 L .28453 .06005 L .26527 .05452 L .28746 .08258 L .35764 .15385 L .38672 .17382 L .3342 .14673 L .28331 .12204 L .25732 .11574 L .29804 .1437 L .34384 .17003 L .40146 .19548 L .42727 .21064 L .44071 .21218 L F .944 0 1 r .4473 .21206 m .48663 .10084 L .50137 .02658 L .5021 -0.01062 L .4855 .02377 L .45205 .10581 L .44294 .16419 L .43306 .12689 L .42111 .06033 L .40582 .02829 L .39277 .01753 L .39479 .04944 L .41168 .13465 L .42442 .16135 L .39603 .12121 L .36759 .08372 L .34928 .07025 L .36711 .10763 L .39025 .14506 L .42395 .18526 L .43679 .20665 L .4473 .21206 L F .662 0 1 r .45296 .21394 m .55313 .12564 L .61021 .06322 L .63315 .02996 L .59842 .05593 L .52075 .11974 L .47798 .16954 L .49197 .133 L .52174 .06952 L .52797 .0361 L .52333 .0225 L .50591 .05183 L .46914 .13358 L .46395 .16143 L .4639 .11678 L .46222 .07451 L .45474 .0569 L .44747 .09589 L .44468 .13652 L .4492 .18281 L .44729 .20591 L .45296 .21394 L F .38 0 1 r .45666 .21732 m .59478 .1679 L .68075 .12885 L .7202 .1058 L .6751 .11875 L .5708 .15288 L .50456 .18487 L .53837 .15618 L .60177 .10798 L .62712 .07977 L .63133 .06614 L .59893 .0873 L .51862 .14985 L .4975 .17336 L .52425 .13316 L .54818 .09462 L .55239 .07652 L .52281 .10943 L .49606 .14516 L .47214 .18817 L .45665 .20839 L .45666 .21732 L F .098 0 1 r .45777 .22147 m .60482 .21844 L .70133 .20908 L .74869 .20017 L .70258 .19829 L .59345 .19772 L .51796 .20664 L .56391 .19097 L .64671 .1666 L .68519 .14882 L .69695 .13781 L .6567 .14714 L .55092 .17934 L .51886 .19416 L .56571 .16601 L .60918 .1385 L .62362 .12347 L .57873 .14422 L .53455 .16835 L .48841 .19989 L .46312 .21344 L .45777 .22147 L F 0 .184 1 r .45622 .22555 m .58304 .26693 L .67068 .28746 L .71628 .29365 L .67822 .27813 L .5858 .24487 L .51628 .23025 L .56474 .22993 L .64975 .23284 L .69312 .22838 L .70972 .22201 L .66991 .21833 L .56068 .21557 L .52453 .21929 L .58125 .20801 L .63471 .19629 L .65599 .1871 L .60539 .19231 L .55336 .20077 L .49522 .21531 L .46559 .21992 L .45622 .22555 L F 0 .466 1 r .45246 .22875 m .53543 .30404 L .5976 .34881 L .63265 .36806 L .60961 .34267 L .55101 .28501 L .50069 .251 L .54207 .26525 L .61258 .29337 L .65212 .30237 L .67006 .30161 L .63843 .28636 L .54723 .25111 L .51428 .24361 L .56925 .25047 L .62173 .25596 L .64533 .25408 L .5992 .24358 L .54989 .23559 L .49175 .23123 L .4638 .22649 L .45246 .22875 L F 0 .748 1 r .44734 .2305 m .47269 .32315 L .49868 .38209 L .51692 .40994 L .51257 .38017 L .49735 .3107 L .47499 .26499 L .50161 .29023 L .54467 .3367 L .57288 .35666 L .58858 .36136 L .57085 .33814 L .51448 .27906 L .49097 .26242 L .53358 .28509 L .57489 .30577 L .59609 .31116 L .56317 .28787 L .52605 .26589 L .47925 .24452 L .45834 .23187 L .44734 .2305 L F 0 1 .97 r .44194 .23054 m .4079 .32153 L .39462 .38238 L .39342 .41291 L .40758 .38482 L .43633 .31773 L .44474 .26988 L .45223 .30058 L .46095 .35532 L .47296 .38174 L .48348 .39068 L .48234 .36447 L .46988 .29438 L .45987 .27236 L .48249 .30555 L .5052 .33655 L .51998 .34776 L .50597 .31692 L .48761 .28601 L .46064 .25273 L .45046 .23507 L .44194 .23054 L F 0 1 .688 r .43733 .22896 m .3538 .30064 L .306 .35142 L .28666 .37853 L .31555 .3575 L .38024 .30574 L .4161 .2652 L .40405 .29508 L .37862 .34696 L .37297 .37435 L .37655 .38555 L .39131 .36161 L .42277 .2948 L .42747 .27197 L .42679 .30863 L .42749 .34334 L .43333 .35786 L .43992 .32591 L .44287 .29258 L .43991 .25454 L .44185 .23559 L .43733 .22896 L F 0 1 .406 r .43435 .22615 m .32034 .2656 L .24925 .29696 L .21654 .31556 L .25372 .3053 L .33976 .27813 L .39457 .2524 L .36639 .27568 L .31365 .31474 L .29241 .33769 L .28874 .34885 L .31564 .33173 L .38247 .28104 L .40017 .26191 L .37759 .29469 L .35736 .32614 L .35361 .34096 L .37839 .31418 L .40089 .28507 L .4212 .24995 L .43422 .23348 L .43435 .22615 L F 0 1 .124 r .43351 .22273 m .31293 .22403 L .23369 .23093 L .19472 .23786 L .23248 .23978 L .32192 .24113 L .38394 .23442 L .34603 .24692 L .27776 .26625 L .24594 .28054 L .23612 .28947 L .26926 .28214 L .35648 .25656 L .383 .24466 L .34414 .26739 L .30807 .28962 L .29599 .30184 L .33312 .28517 L .36972 .26572 L .40805 .2402 L .429 .22928 L .43351 .22273 L F .158 1 0 r .43485 .2194 m .33157 .1844 L .26007 .16683 L .2228 .16138 L .25374 .17443 L .32895 .20248 L .3857 .21505 L .34597 .21492 L .27635 .21184 L .24073 .21515 L .22702 .22025 L .25958 .22359 L .34907 .22674 L .37875 .22398 L .33209 .23278 L .28808 .24197 L .27049 .24934 L .31205 .24548 L .35483 .23895 L .40272 .22749 L .42708 .22394 L .43485 .2194 L F .44 1 0 r .43798 .2168 m .3712 .15432 L .32096 .11706 L .29255 .10097 L .31102 .122 L .35812 .16981 L .39881 .19814 L .36512 .18611 L .30779 .16245 L .27553 .15474 L .26081 .15522 L .28649 .168 L .36066 .19768 L .38755 .2041 L .34261 .19802 L .29969 .19309 L .28031 .19444 L .31795 .20343 L .35823 .21039 L .40582 .21444 L .42865 .21856 L .43798 .2168 L F .722 1 0 r .4422 .21541 m .42293 .13914 L .40258 .09053 L .38809 .06753 L .39117 .092 L .40251 .14915 L .42011 .18686 L .39869 .16592 L .36415 .12743 L .34135 .11082 L .32856 .10683 L .34272 .12603 L .38796 .175 L .40696 .18884 L .3724 .16989 L .33888 .15257 L .3216 .14798 L .3482 .16736 L .37826 .18571 L .41628 .20363 L .43321 .21419 L .4422 .21541 L F 1 .996 0 r .44663 .21541 m .47601 .14099 L .48788 .09114 L .48936 .06609 L .4773 .08904 L .45264 .14388 L .44497 .18309 L .43933 .15783 L .43307 .11282 L .42366 .09103 L .41518 .0836 L .41569 .10513 L .42477 .16277 L .43261 .18093 L .41461 .15351 L .3965 .12787 L .38457 .11855 L .39555 .14398 L .4101 .16951 L .43166 .19704 L .43972 .21162 L .44663 .21541 L F 1 .714 0 r .45039 .21675 m .52001 .15858 L .56001 .11728 L .5763 .09518 L .55228 .11221 L .49842 .15418 L .46837 .18717 L .47874 .16273 L .50042 .12035 L .50549 .09791 L .50274 .08869 L .49026 .10822 L .46339 .16282 L .45916 .18151 L .46032 .15143 L .46031 .12292 L .45575 .11096 L .44983 .13713 L .44688 .16448 L .44869 .19572 L .44679 .21127 L .45039 .21675 L F 1 .432 0 r .45278 .21908 m .54686 .18762 L .60564 .16244 L .63275 .14744 L .60211 .15556 L .53115 .17717 L .48582 .19785 L .50928 .17897 L .55315 .14733 L .57092 .12866 L .57412 .11953 L .55179 .13336 L .49619 .17444 L .48138 .19 L .50041 .16327 L .51751 .13761 L .52082 .12547 L .50008 .14726 L .48116 .17098 L .46395 .19965 L .45301 .21306 L .45278 .21908 L F 1 .15 0 r .45341 .2219 m .55226 .2218 L .61733 .21678 L .64938 .21141 L .61846 .20953 L .54518 .20769 L .49423 .2127 L .52551 .20275 L .58178 .18743 L .60809 .17596 L .61628 .1687 L .589 .17445 L .5171 .19474 L .49517 .2043 L .52739 .18596 L .55731 .16799 L .56741 .15806 L .53671 .17145 L .5064 .18712 L .47457 .20776 L .45722 .21655 L .45341 .2219 L F 1 0 .132 r .45226 .22462 m .53634 .25419 L .59466 .26919 L .62512 .27397 L .59997 .263 L .53879 .23936 L .49248 .22859 L .52504 .22901 L .58205 .23211 L .6113 .22968 L .62262 .2256 L .59598 .22259 L .52269 .21929 L .49831 .22131 L .53671 .21446 L .57292 .20728 L .58746 .20137 L .55334 .2042 L .51817 .20922 L .47873 .21824 L .45871 .22095 L .45226 .22462 L F 1 0 .414 r .44965 .22672 m .50338 .27856 L .54395 .30956 L .56697 .323 L .55218 .30558 L .51435 .26595 L .48145 .24236 L .50887 .25251 L .55548 .2724 L .5818 .27899 L .59387 .27872 L .57303 .26802 L .51271 .24305 L .49078 .23756 L .52752 .24292 L .56262 .24731 L .57852 .24636 L .54781 .23867 L .51491 .23263 L .47598 .22892 L .45733 .22535 L .44965 .22672 L F 1 0 .696 r .44617 .22784 m .46073 .29061 L .47662 .33067 L .48813 .34968 L .486 .32957 L .47763 .28255 L .46382 .25145 L .48103 .26881 L .50872 .30069 L .52714 .31452 L .53756 .31789 L .52626 .30201 L .48998 .26145 L .47462 .24993 L .50264 .26577 L .52984 .28026 L .54393 .28417 L .52244 .26804 L .4981 .25273 L .46723 .23771 L .45352 .22891 L .44617 .22784 L F 1 0 .978 r .44254 .22779 m .41726 .28866 L .40672 .32948 L .4051 .35004 L .41536 .3313 L .43645 .28647 L .44338 .25434 L .44759 .27513 L .45199 .31213 L .45935 .3301 L .46619 .33626 L .46612 .31858 L .45961 .27119 L .45347 .25621 L .46778 .27888 L .48221 .30007 L .49184 .30782 L .48325 .28686 L .47174 .26578 L .45451 .243 L .44815 .23096 L .44254 .22779 L F .74 0 1 r .43949 .22667 m .38148 .27386 L .34803 .30744 L .33431 .32546 L .35428 .31166 L .3991 .27765 L .42427 .25081 L .41537 .27078 L .39692 .3054 L .39239 .32378 L .3945 .33138 L .40505 .31545 L .42795 .27084 L .43172 .25552 L .43029 .28021 L .42983 .30361 L .43337 .31348 L .43865 .29203 L .44151 .26961 L .44054 .24394 L .44235 .2312 L .43949 .22667 L F .458 0 1 r .43756 .22473 m .35994 .2498 L .31136 .26999 L .28889 .28209 L .31414 .27567 L .37265 .2585 L .41014 .2419 L .3906 .25721 L .35414 .28283 L .33926 .29801 L .3365 .30548 L .35502 .29431 L .40126 .26103 L .41365 .24838 L .39762 .27017 L .38319 .29109 L .38028 .30103 L .39763 .28331 L .41352 .26399 L .42809 .2406 L .43728 .22967 L .43756 .22473 L F .176 0 1 r .43709 .22242 m .35607 .22169 L .30266 .22529 L .2763 .22944 L .30161 .23123 L .36165 .23334 L .40348 .22964 L .37769 .23755 L .33132 .24967 L .30957 .25888 L .30274 .26477 L .32519 .26027 L .38445 .24419 L .40258 .23652 L .37588 .25132 L .35106 .26583 L .34262 .2739 L .368 .26316 L .3931 .25054 L .41952 .23385 L .43388 .22678 L .43709 .22242 L F 0 .106 1 r .43807 .22019 m .36964 .19523 L .32209 .18245 L .29719 .17828 L .31763 .18748 L .3674 .20739 L .40518 .21661 L .3785 .21599 L .33182 .21299 L .30781 .21475 L .29846 .218 L .32025 .22069 L .38027 .224 L .40028 .22253 L .3687 .22784 L .3389 .23345 L .32689 .23819 L .3549 .23613 L .38381 .2323 L .41628 .22521 L .43273 .22315 L .43807 .22019 L F 0 .388 1 r .44025 .21848 m .39706 .17549 L .36431 .14972 L .34565 .1385 L .3575 .15291 L .38786 .18576 L .41444 .20539 L .39213 .19683 L .35425 .18013 L .33279 .17451 L .32289 .17463 L .3398 .18358 L .38883 .20457 L .40672 .20925 L .37669 .20456 L .34799 .20067 L .33494 .20132 L .35999 .20788 L .38686 .2131 L .41871 .21647 L .43393 .21955 L .44025 .21848 L F 0 .67 1 r .44312 .2176 m .4322 .16595 L .41983 .13293 L .4107 .11723 L .41212 .13376 L .41822 .17243 L .42904 .19807 L .41521 .18368 L .39304 .15728 L .37816 .14578 L .36968 .14292 L .37868 .15605 L .40776 .18965 L .42016 .19923 L .39745 .186 L .3754 .17389 L .36391 .17056 L .38126 .18398 L .40097 .19674 L .42602 .20932 L .43712 .21666 L .44312 .2176 L F 0 .952 1 r .44609 .21766 m .4678 .1679 L .4771 .13447 L .47876 .11761 L .47005 .13291 L .45203 .16954 L .44584 .19586 L .44272 .17876 L .43972 .14835 L .43397 .13354 L .42847 .12842 L .42824 .14294 L .43281 .1819 L .4376 .19424 L .42623 .17552 L .41475 .15801 L .40698 .15157 L .41369 .16885 L .42278 .18624 L .43653 .20508 L .44155 .21502 L .44609 .21766 L F 0 1 .766 r .44858 .21861 m .49689 .18034 L .52485 .15304 L .53638 .13836 L .5198 .14952 L .48251 .17709 L .46145 .19892 L .46906 .18259 L .48475 .15432 L .48875 .13927 L .48715 .13301 L .47824 .14601 L .45875 .18244 L .45541 .19499 L .45699 .17473 L .45774 .15552 L .455 .14739 L .45033 .16496 L .44761 .18334 L .448 .20442 L .44631 .21487 L .44858 .21861 L F 0 1 .484 r .45012 .22022 m .51415 .20026 L .5543 .18408 L .57291 .17433 L .55211 .1794 L .50388 .19302 L .47288 .20635 L .48914 .19394 L .51944 .1732 L .53188 .16085 L .53427 .15474 L .5189 .16377 L .48047 .19071 L .47011 .201 L .4836 .18324 L .49577 .16618 L .49831 .15804 L .4838 .17245 L .47047 .18818 L .45814 .20727 L .45044 .21616 L .45012 .22022 L F 0 1 .202 r .45048 .22212 m .51687 .22337 L .5607 .22085 L .58237 .21766 L .56166 .21598 L .51249 .21377 L .47814 .21647 L .49941 .21018 L .53761 .2006 L .55559 .19322 L .56128 .18844 L .54281 .19195 L .49397 .20467 L .47899 .21082 L .50112 .19889 L .52169 .18718 L .52874 .18062 L .50776 .18923 L .48699 .19939 L .46506 .21287 L .45318 .21857 L .45048 .22212 L F .08 1 0 r .44963 .22394 m .50532 .24499 L .54409 .25587 L .56442 .25949 L .54782 .25177 L .50735 .23503 L .47654 .22715 L .49839 .22787 L .5366 .23071 L .55631 .22946 L .56403 .22687 L .54621 .22449 L .49707 .22128 L .48065 .22233 L .50662 .21822 L .53113 .21386 L .54106 .21007 L .51806 .21153 L .49431 .21444 L .46758 .21999 L .45406 .22155 L .44963 .22394 L F .362 1 0 r .44782 .22533 m .48253 .26097 L .50895 .2824 L .52406 .29176 L .51458 .27983 L .49023 .25262 L .46877 .23628 L .48691 .24349 L .51769 .25751 L .53519 .2623 L .5433 .26228 L .52959 .25479 L .48974 .23717 L .47516 .23318 L .49969 .23727 L .52315 .2407 L .53386 .24027 L .51343 .23468 L .4915 .23017 L .46544 .22716 L .45302 .2245 L .44782 .22533 L F .644 1 0 r .44545 .22603 m .45357 .26852 L .46317 .29573 L .4704 .30869 L .4695 .29511 L .46513 .26332 L .45668 .24218 L .46778 .2541 L .48553 .27596 L .49753 .28552 L .50444 .28793 L .49728 .27708 L .47398 .24926 L .46398 .24129 L .48237 .25234 L .50026 .26246 L .50962 .26529 L .49561 .25413 L .47967 .24349 L .45933 .23296 L .45036 .22685 L .44545 .22603 L F .926 1 0 r .44302 .22595 m .42442 .26663 L .41626 .294 L .41462 .30783 L .42201 .29534 L .43737 .26541 L .44287 .24385 L .44515 .25792 L .44712 .28291 L .45159 .29511 L .45602 .29936 L .45644 .28744 L .45333 .25542 L .4496 .24525 L .45861 .26071 L .46774 .27518 L .474 .28053 L .46879 .26629 L .46162 .25193 L .45066 .23636 L .4467 .22816 L .44302 .22595 L F 1 .792 0 r .441 .22515 m .40078 .25618 L .37742 .27837 L .36773 .29032 L .38151 .2813 L .41252 .25897 L .43013 .24122 L .42363 .25456 L .41031 .27764 L .40678 .28997 L .408 .29511 L .41551 .28452 L .43208 .25476 L .43502 .24449 L .4334 .26111 L .43247 .27688 L .43458 .28357 L .4387 .26919 L .44122 .25412 L .44124 .23681 L .4428 .22824 L .441 .22515 L F 1 .51 0 r .43976 .22382 m .38696 .23968 L .35379 .25264 L .33838 .2605 L .3555 .25651 L .39526 .24572 L .42088 .23502 L .40735 .24508 L .38218 .26186 L .37179 .2719 L .36973 .27689 L .38247 .26961 L .41441 .2478 L .42307 .23944 L .41172 .25391 L .40147 .26782 L .39925 .27447 L .41138 .26277 L .42256 .24996 L .43297 .23439 L .43943 .22715 L .43976 .22382 L F 1 .228 0 r .4395 .22226 m .3851 .22069 L .34913 .2224 L .33132 .22485 L .34827 .2264 L .38854 .22861 L .41674 .22667 L .3992 .23167 L .36774 .23922 L .35288 .24513 L .34814 .24901 L .36333 .24628 L .40357 .23623 L .41594 .2313 L .39762 .24092 L .38056 .25037 L .37468 .25569 L .39201 .24879 L .4092 .24062 L .4274 .22973 L .43723 .22515 L .4395 .22226 L F 1 0 .054 r .44022 .22077 m .39492 .20304 L .36332 .19379 L .34671 .19065 L .3602 .19713 L .39309 .2112 L .41822 .21792 L .40032 .21715 L .36905 .2145 L .35287 .21537 L .34651 .21744 L .36107 .21954 L .40129 .22257 L .41477 .22184 L .39342 .225 L .37326 .22839 L .36506 .23142 L .38393 .23041 L .40345 .22821 L .42545 .22386 L .43655 .22269 L .44022 .22077 L F 0 g gsave .44444 .33333 -69.7111 -14.9375 Mabsadd m 1 1 Mabs scale currentpoint translate 126 14.9375 translate 21.8014 rotate -126 -14.9375 translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 29.875 translate 1 -1 scale 63.000 22.875 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 30.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 22.875 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 30.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (EXPLOOT) show 189.000 22.875 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 30.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{315.312, 210.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`;ol@3o0oooool7ool0aP03okSo0?oo0ooooo`Woo`1m0ooo ool:ool0aP_ooooo1?oa0?l00oooooooo`36ool0aP05ool0aP;o^?l000?ooooooo40oooa0?l01Ooa 0?l8ooooo`CoZ@3o1_oa0?l2ooon00;ooooo1_nY0?l;ooooo`03of40oooooooooooo00;ooooo2OnY 0?l4ooooo`OoH@3oM_ooool004oooooo2_oo07d2ooooo`[oo`362oooool3oo40o`03oooooooo0ooooo`Woo`361_m` o`02o`1So`04ool0a_nho`3o^?l0okSo00;o0:_o00Co^?l0oooooooooooooooo0_oa0?l4ooon00;o ^?l00ol0Zol01?oooP3o0??oo`3cool0lol2ooooo`;oZ@3o0ooo]P02ooon00?o0??o0_oo]P02o`3o a0?ooooo0omQ0?l2oom^00CookH00_l0ol@00ooo]P3oofh0oom^0005oom^00Oooooo1_lI0?l?of40 o`Kooooo2?lI0?mRooooo`00:_ooool=ool0=@_ooooo4_oo07d=ooooo`Soo`361_m`o`03o`1So`?o ^?l00ol0Zol2ooooo`?ol@3o1?oooP001Onho`3o0:_oo`2[ool0Zoooooh000Co0??o00?oooooojT0 oonY0?l00ooo]P02ooon00;o0??o0_oo]P03o`3oa0;ooooo0omQ0?l3oom^00?ookH00_l0ol@00ooo ]P3oofh0oom^0005oom^00Kooooo1olI0?l>of40o`Cooooo2olI0?mSooooo`00;?ooool@ool0=@Wo oooo4Ooo07d_ooool@ool0=@Go:?l01?oo03D7ool0O@[oL?l01oooool2ool0aPKo^?l000?oL?l0o`1Sool0Hol0 1?l0Hol3o`2[o`03okSo0?oo0ool0=@go:?l00ooo07d6og3o00Co06?o00?oo`1mooooooooool00_ooool2ool0aP?o^?l00ol0 Zol4o`1So`Co0:_o00?o^?l0ool0a_oooP000ol0lol2o`2[o`?o0??o00Col@3ooonf0?l0olCo0?o4 0ol0lol3o`3oa003ojT0oomQ0?oo0?mk00;o0?mk1?l0ol@4o`3oN`03oooooolI0?oo6@3o00KoobH0 1oooKP000ol0og_o6@3ooaT0o`02oaT0o`WoobH00_lI0?miooooo`00A_ooool>ool0=@_o:?l000?o 01_oobSo0?lXo`000_oo07d5og3o00Go06?o00Goo`1mooooooooooooooooool0O@03okSo00?o0:_o 1?l0Hol4o`2[o`03okSo0?oo0ool0=@[o:?l00ol06ol3obSo00?oL?l01ol0Hol01?oo07gooooo oooooooo07d2okSo00Co0:_o0ol0Hol4o`2[o`;o^?l00ol0lol01Ol0Zooo0??oo`3cool0loooooh0 00?o0?o40_l0lol3o`3oa003ojT0ool0og_o0?mk00;o0?mk0_l0ol@4o`3oN`;oH@3o00?o6@3ooolV 0?oo9P000ooo9P04oom^00Co0?mk3?oo9P20ooooo`00@oooool:ool0O@coo`0e2_lXo`05o`0Ko`04 obSo0?m`o`3oL?l0og3o00So06?o0_oo07d3okSo00?o0:_o0ol0Hol4o`2[o`03okSo0?l0looo0??o 00Go0??o00Goooh0o`3oa?l0olCo0?o4o`3co`03o`3oa003oonf0?l0og_o0?mk00;o0?mk00?o0?o4 o`3oNol0og/00_l0og/2of40o`03oaT0oooo9P3oobH000;o0?lc0_oo9P000oooKP3o0?mko`3oN`04 o`3oN`_oobH0Poooool004;ooooo5Ooo07d5ool0=@Wo:?l01ol06ol2og3o00So06?o0_oo07d3okSo 00?o0:_o0_l0Hol4o`2[o`Co0??o00Co0:_oo`3cool0looo0??o0ol0ol@01?l0looo0?o4o`3oa?l0 ol@4o`3oN`04o`3oa?l0og_o0?mko`3oN`?oH@3o0_oo9P02o`3o<`;oobH01_l0og/5oolV0003o`3o ooooo`goo`1m2om`o`05obSo00Ko01_o1?oo00d6o`1So`03og3o0?oo07go^?l000Co0:_o 00Co06?oo`2[ool0Zooo0:_o1_l0lol6o`3oa0Ko0?mk0oooKP001?oo9P3o0?lco`3oog3o00Ko01_o1Ooo00d5o`1So`;o L?l000?o06?oo`2[ool0Zol01Ol0Zol5o`3co`Ko0?o41Ol0og/3oom^00Co0?lc1?l0og/2oolV00Ko 0?lc1ooooolDo`0_o`Oo6@3oKoooool005_ooooo2?oo07d8og3o00So06?o0_l06ol6ool03@Go06?o 00?oL?l0o`1Sool0Zol01Ol0Zol4o`3co`Go0?o41Ol0og/2oom^00Co0?lc0ol0og/2oolV00Go0?lc 00?oobH0ooooooooool00_ooool8o`0_o`Coo`0Q2_l0;olXoaT0oe;ooooo001Qooooo`Ooo`1m1_m` o`09o`1So`Ooo`0=1Ol0Hol6o`2[o`?o0??o1Ol0ol@5o`3oN`?o0?lc0ol0og/00ooo9P3o0?lco`3o <`03o`3o<`04oolV0?lI0?ooooooooooo`;o6@3o0_l0;ol;ool08@Oo02oo:?lI0?mGooooo`00JOoo ool00ooo03Goo`1mool0O@02ool0O@?oL?l02?l0Hol8ool03@Co06?o1?l0Zol3o`3co`Co0?o41Ol0 og/2o`3o<`;o0?mk1Ol0oc<2oolV00Co6@3o00?o02ooool08Ooo02402ooo0246oolV02Oo6@3oG?oo ool006kooooo1Ooo03D2obSo0003og3o0?l0Hooo06?o00?o06?o2?oo00d4o`1So`?o0:_o0_l0lol3 o`3oa0Co0?mk2?l0oc<2oolV00;o6@3o00?oobH0ool08Ooo02401?oo0242oaCo00Koo`0Q6_oo9P0? oaT0ofCooooo000ioooooaGoo`0e0ooooolAobSo00;ooooo3Ol06ol7ool0=@Co:?l00_m`o`07ool0 3@Co06?o00?o0:_oo`3cool0lol00_l0ol@3o`3oN`Oo0?lc1?oo9P03o`3o<`Go5?l01_l0oc?oo03D7obSo00Co;@3o5?oo>P08ool03@?oocX01?oooolGoaCo01_oo`0Q7Ol0 ;omNooooo`00;oooool/ool0=A[o;@3o0ooo>P0:ool03@KoocX00_ooPP000ooobP3okOl0ojCo0002 ojCo00;oG?l07olDo`0Bool08ASo02ooHOooool004Wooooo0_oo4P04ool0=@co0?lO5_l]0?l3o`0K o`Ooo`0=00Co:?l0o`3o7ol]0?oo;@3o1_oo>P05oon20003ooo:0?o]o`3oY?l000?oY?l01omLo`02 oaCo00?oo`1Y0_oo0245o`0_o`So5?l01?oooolP3oocX000?oocX000Co;@3ooolj 0?oo>P3oocX01OooPP02ooo:00;okOl01OnTo`05oeco0003oaCo0?mLo`3oG?l000GoG?l01_oo06T0 0ol0;oooooooooooo`2Cooooo`00=oooool9oolB027o0?lO1olXo`03o`0Ko`Oo:?l000Co0?lOoolB 0?oo4P3ooa801ooo>P000ol]0?oooh80oolj0002oolj00Kooh800_oobP02ongo0003oalQ0?l0003o 000000_o000000?o0R40oaCo0?mLo`001omLo`06ool0J@Ko07OoRoooool002kooooo5_oo4P0Ho`3o 7a3o:?l00ooo03D3oolB00SoocX000Co;@3ooon20?ooPP3ooh800ooo>P000ome0?oooh80oon20004 oon200;oolX00_o]o`000olO8@3o0000o`00000P3oocX000KoocX000?o;@3ooon2 0?ooPP000_ooPP03oolj00;oM@3o0oooPP000ooobP3ooh80oon20003ooo:00GokOl00_l000000onT o`3oG?l0ojCo0002ojCo0003oeco0?oo06Woo`1Y00;o00000omLo`09oaCo00_oo`1Y2?l0Mon1oooo o`008_ooool_oolB00Koo`0e2?lXo`08ool0=@Cooooo0_oo4P000ol]0?ooocX0oolj0004oolj0003 obd0ooooPP3ooh8000?ooh800_oo>P000ol]0?oo0?lOogD0o`04oon20004ooo:0?ooPP3ooh80okd0 o`?oolX01Oo]o`02o`0000;oY?l00_mLo`03ojCo0003ool0JOl0003o000000KoG?l02?lDo`03ool0 8@Woo`1Y2_l0Momlooooo`007_ooool_oolB00Woo`0e0_lXo`0P000_l]0?l00ol0ofOoM@3ooon20002oon200;oolX00_ooPP000onm0?oo olX0ooo:0002ooo:00GokOl00_l000000ooo0;;oY?l0ojCo0003oeco00;oY?l00_l00002o`1go`Ko G?l000?oo`1YoaCo0?lDo`001_lDo`06ool08A;o07OoMoooool001Woooooool0/_l0_ol3ooooo`04omgMgOl0003o 0000ohL0=`Soo`1Y0_l0Mol8ool08@co02ooLOooool005Kooooo3?l0oal8ogD0o`03o`3oIol0oaoo 0?lO00;o;@3o1?l0oal2oomJ0005ogD0ooooPP3ooh80oon20?me0?l00ooobP000onm0?oooh80ogD0 o`02ogD0o`03o`3o/?oobP3oolX000?okOl000?oolX0okd0ool0ooP00oo]o`001onTo`3o0000o`00 0?nTo`3okOl0ool0n_l0_ol00_l00003ojCo0009ool0/_mLo`3oG?l0oeco0?oo06Woo`2boeD0>ol0 003o8@0G00?oo`2b00Go0;oooooooolQ8B7o0000odA4A00;ool0J@?o07Oo2?oo024o`0_of3ooooo0013ooooo`Sooa800_l0oal7oolB00go0?mW1_l0oal3 oolB00Cooooo1?me0?l2o`3oI`Go_@3o00?o0?mWogD0oome0?l00_l0ofL2oonR00;oolX000Go_@3o ongo0?o]o`3okOl0ool0nP02okd0o`;o0?n`00?oon/0oalQ0?l000003?l000000olQ8B7oo`2bool0 /P04ool0/P03o`2ooooo06WoZ@1500?o000000?o^P1ooooo`03onk^k_m4A4Co000000Oo000000?oA4A4onk^k_ooool0 G?ooool003Sooooo4?ooFP04ooooo`Gooa803Oooool00oooFP3o0?mWo`3oI`03o`3oI`CooeX01_l0 ok02oomJ00?o0?mW0oooFP04ooooo`;o0?n`00?o_@3oo`3o/?l0ok001?oo0?X3o`3on0Co0?n`0_oo XP03ooooo`03o`3on?oo0?[oo`3j00?o0?oh0ooo0;84o`2oo`Go0?oh0oooj`05ooooo`Go0;oo00?o 01TQo`000?l000002Ol000000ol01a3oc_ooool004Kooooo0oooFP08ooooo`Wooj80 5_ooool9oonR0004ooooooooj`3o0?oho`3on0Soon/000?ooooooonR0?ooXP000_ooXP0:ooooo`[o on/00oooool00ol0_oooooooooooo`1=ooooo`;o000000?ok^k^ooooooooool00_ooool2o`0000Co oooo00?ok^k^o`000?l00000>_ooool004Gooooo0_ooFP09ooooo`Sooj806?ooool8oonR00;ooooo 00?oon/0o`3on?ooj`001oooj`03ooooo`?ooj802_ooool:ooo[05?ooooo00?o8B4Qo`000?nj^[X0 1?ooool2o`0000Cooooo00?o^[Zjo`000?l@4100>_ooool004Gooooo00?ooeX0ooooooooool01ooo ool8oonR01Sooooo2OooXP02ooooo`03ooo[0?l0ooSoon/000Ooon/00oooool3oonR00_ooooo2Ooo j`1Cooooo`03oc8b<_l0003o000000co000000?o?ooool004kooooo2?ooXP0I ooooo`Sooj800oooool9ooo[00Gooooo00?ooj80ooooooooool02_ooool:ooo[05;ooooo00?oA4A4 o`000?l000003?l000000om4A4Coooooooooo`0hooooo`00COooool8oonR01[ooooo2?ooXP03oooo o`Woon/01Oooool00oooXP3oooooooooo`0:ooooo`[oon/0W?ooool004gooooo1oooXP0Kooooo`Oo oj800oooool:ooo[01;ooooo2_ooj`2Looooo`00C?ooool7oonR01_ooooo2?ooXP03ooooo`Woon/0 5?ooool9ooo[09cooooo001;ooooo`Kooj807Oooool8oonR00?ooooo2Oooj`0Dooooo`[oon/0Vooo ool004_ooooo1OooXP0Nooooo`Oooj801?ooool8ooo[01Kooooo2Oooj`2Kooooo`00B_ooool4oonR 023ooooo1oooXP04ooooo`Soon/05_ooool9ooo[09_ooooo0019ooooo`Cooj808Oooool6oonR00Go oooo2?ooj`0Gooooo`Soon/0Voooool004Sooooo1?ooXP0Rooooo`Kooj801?ooool8ooo[01Sooooo 2?ooj`2Kooooo`00B?ooool2oonR02?ooooo1_ooXP05ooooo`Soon/06Oooool7ooo[09_ooooo0017 ooooo`;ooj809?ooool6oonR00Gooooo2?ooj`0Iooooo`Ooon/0Voooool004Kooooo00?ooj80oooo ooooool09?ooool5oonR00Kooooo1oooj`0Kooooo`Koon/0Voooool006kooooo1?ooXP06ooooo`Oo on/06oooool7ooo[09[ooooo001^ooooo`?ooj801_ooool7ooo[01gooooo1_ooj`2Jooooo`00K_oo ool3oonR00Kooooo1oooj`0Oooooo`Coon/0V_ooool006oooooo00?ooj80ooooooooool01Oooool7 ooo[023ooooo0oooj`2Jooooo`00Koooool00oooXP3oooooooooo`05ooooo`Koon/08oooool00ooo j`3oooooooooo`2Hooooo`00Moooool6ooo[0;kooooo001gooooo`Goon/0_oooool007Oooooo1Ooo j`2oooooo`00Moooool4ooo[0<3ooooo001gooooo`Coon/0`?ooool007Oooooo0oooj`31ooooo`00 Moooool3ooo[0<7ooooo001gooooo`?oon/0`Oooool007Oooooo0_ooj`32ooooo`00Moooool2ooo[ 0<;ooooo001gooooo`03ooo[0?oooooooooo0<7ooooo001gooooo`03ooo[0?oooooooooo0<7ooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo003ooooooccooooo 0000\ \>"], ImageRangeCache->{{{0, 314.312}, {209.188, 0}} -> {-2.00384, -1.00002, \ 0.0143414, 0.0143414}}], Cell[CellGroupData[{ Cell["\<\ EXPLOOT project Predicting the capacity in a logistic model\ \>", "Subsubtitle"], Cell[TextData[StyleBox["http://we.vub.ac.be/exploot/website", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}]], "Subsubsection", CellDingbat->None] }, Open ]], Cell["\<\ I. Cnop icnop@vub.ac.be\ \>", "Subsubtitle"], Cell[CellGroupData[{ Cell["Dotcom crashes: can we predict the capacity in a system?", "Subtitle"], Cell[CellGroupData[{ Cell["Introduction", "Subsection"], Cell["\<\ At the end of the nineties , nobody would have believed that the \ portable phone (GSM) exponential expansion could level off. Already in the Fall 2000, shares of Nokia and Ericsson saw their equities \ decline. After its 1Q 2001, Siemens reported a loss exceeding 300 M DEM (about 150 M \ Euro) in its GSM production & sales division. Price competition between manufacturers is fierce and investments (including \ underwritten debt) in third generation content delivery technology is still \ not paying off. The reason is that unlimited expansion has changed to a replacement economy \ in the original markets. \ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Is this maximum capacity predictable? The answer is: YES !", \ "Subsubtitle"], Cell["\<\ The market for portable (mobile cell phone or GSM) use is a typical \ example of the logistic equation. Its success can be explained by the fact that users tend to incite non-users \ to join in, thus creating a nonlinear multiplier effect. The logistic equation can be solved exactly (up to rescaling of the \ time-axis) if the capacity of the system is known. The method below was originally developed to answer another problem: to \ recover the asymptotic capacity in population estimates for several countries \ and continents published in graphical form in the seventies by UNESCO, \ relying on census figures from 1950 to 1970. This problem was complicated by the fact that only the graphical output was \ available and original census figures where not.\ \>", "Text"], Cell[CellGroupData[{ Cell["Solution of the logistic model", "Subsection"], Cell[CellGroupData[{ Cell["General solution", "Subsubsection"], Cell["\<\ We assume increase per time unit (say one month) is proportinal to \ the number of portable users multiplied by the number of non users:\ \>", \ "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(sol\ = DSolve[\ \(n'\)[t]\ \[Equal] r\ n[t]\ \((\ 1\ - \ n[t]/K)\), n[t], t]\)], "Input"], Cell[BoxData[ \({{n[ t] \[Rule] \(\[ExponentialE]\^\(r\ t + K\ C[1]\)\ K\)\/\(\(-1\) + \ \[ExponentialE]\^\(r\ t + K\ C[1]\)\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(n[t] /. First[%] // TraditionalForm\)], "Input"], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{\(r\ t\), "+", RowBox[{"K", " ", SubscriptBox[ TagBox["c", C], "1"]}]}]], " ", "K"}], RowBox[{\(-1\), "+", SuperscriptBox["\[ExponentialE]", RowBox[{\(r\ t\), "+", RowBox[{"K", " ", SubscriptBox[ TagBox["c", C], "1"]}]}]]}]], TraditionalForm]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Initial condition and parametrisation", "Subsubsection"], Cell["\<\ Let us start with 1 k potential customers and 10 users to begin \ with. Select some constant r which indicates that over 1 month, the \ probability that an encounter will lead to 30% chance that the non-user \ becomes a user himself\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(K = 1000; r = .3\)], "Input"], Cell[BoxData[ \(0.3`\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[n, sol, t];\)\), "\[IndentingNewLine]", \(sol\ = NDSolve[{\ \(n'\)[t]\ \[Equal] r\ \ n[t]\ \((\ 1\ - \ n[t]/K)\), n[0] \[Equal] 10}, n[t], {t, 0, 50}]\)}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{\(n[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 50.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], "}"}], "}"}]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(graph1 = Plot[n[t] /. First[%], {t, 0, 45}]\)], "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.021164 0.0147151 0.000588684 [ [.23545 .00222 -6 -9 ] [.23545 .00222 6 0 ] [.44709 .00222 -6 -9 ] [.44709 .00222 6 0 ] [.65873 .00222 -6 -9 ] [.65873 .00222 6 0 ] [.87037 .00222 -6 -9 ] [.87037 .00222 6 0 ] [.01131 .13245 -18 -4.5 ] [.01131 .13245 0 4.5 ] [.01131 .25019 -18 -4.5 ] [.01131 .25019 0 4.5 ] [.01131 .36793 -18 -4.5 ] [.01131 .36793 0 4.5 ] [.01131 .48566 -18 -4.5 ] [.01131 .48566 0 4.5 ] [.01131 .6034 -24 -4.5 ] [.01131 .6034 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 .23545 .01472 m .23545 .02097 L s [(10)] .23545 .00222 0 1 Mshowa .44709 .01472 m .44709 .02097 L s [(20)] .44709 .00222 0 1 Mshowa .65873 .01472 m .65873 .02097 L s [(30)] .65873 .00222 0 1 Mshowa .87037 .01472 m .87037 .02097 L s [(40)] .87037 .00222 0 1 Mshowa .125 Mabswid .06614 .01472 m .06614 .01847 L s .10847 .01472 m .10847 .01847 L s .15079 .01472 m .15079 .01847 L s .19312 .01472 m .19312 .01847 L s .27778 .01472 m .27778 .01847 L s .32011 .01472 m .32011 .01847 L s .36243 .01472 m .36243 .01847 L s .40476 .01472 m .40476 .01847 L s .48942 .01472 m .48942 .01847 L s .53175 .01472 m .53175 .01847 L s .57407 .01472 m .57407 .01847 L s .6164 .01472 m .6164 .01847 L s .70106 .01472 m .70106 .01847 L s .74339 .01472 m .74339 .01847 L s .78571 .01472 m .78571 .01847 L s .82804 .01472 m .82804 .01847 L s .9127 .01472 m .9127 .01847 L s .95503 .01472 m .95503 .01847 L s .99735 .01472 m .99735 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .13245 m .03006 .13245 L s [(200)] .01131 .13245 1 0 Mshowa .02381 .25019 m .03006 .25019 L s [(400)] .01131 .25019 1 0 Mshowa .02381 .36793 m .03006 .36793 L s [(600)] .01131 .36793 1 0 Mshowa .02381 .48566 m .03006 .48566 L s [(800)] .01131 .48566 1 0 Mshowa .02381 .6034 m .03006 .6034 L s [(1000)] .01131 .6034 1 0 Mshowa .125 Mabswid .02381 .04415 m .02756 .04415 L s .02381 .07358 m .02756 .07358 L s .02381 .10302 m .02756 .10302 L s .02381 .16189 m .02756 .16189 L s .02381 .19132 m .02756 .19132 L s .02381 .22075 m .02756 .22075 L s .02381 .27962 m .02756 .27962 L s .02381 .30906 m .02756 .30906 L s .02381 .33849 m .02756 .33849 L s .02381 .39736 m .02756 .39736 L s .02381 .42679 m .02756 .42679 L s .02381 .45623 m .02756 .45623 L s .02381 .5151 m .02756 .5151 L s .02381 .54453 m .02756 .54453 L s .02381 .57396 m .02756 .57396 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .0206 m .04262 .02238 L .06244 .02482 L .08255 .02808 L .10458 .03282 L .12415 .03838 L .14509 .04612 L .16639 .05641 L .18653 .06892 L .22495 .10232 L .24479 .12541 L .26581 .15471 L .30365 .2195 L .34394 .30063 L .38271 .38008 L .42393 .45379 L .44453 .48398 L .46364 .50772 L .50184 .54366 L .52236 .55756 L .54096 .56754 L .56021 .5757 L .58103 .58253 L .60097 .58753 L .62203 .59154 L .64167 .59438 L .66001 .59642 L .68036 .59815 L .69891 .59936 L .718 .60031 L .73876 .60109 L .75853 .60166 L .77954 .6021 L .79901 .60242 L .81729 .60264 L .83748 .60283 L .85598 .60296 L .8749 .60306 L .8956 .60315 L .91522 .60321 L .93617 .60326 L .95675 .60329 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.5, 316.125}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgooooo`002?ooool2o`0000?o oooo00Co0000oooooooooooo00000_ooool01?l0003oooooooooool00007ooooo`03o`000?oooooo oooo08kooooo00?o0000ooooooooool0oooooom>ooooo`002Oooool00ol0003oooooooooo`02oooo o`;o00001?ooool2o`0000Sooooo00?o0000ooooooooool0Soooool00ol0003oooooooooo`3ooooo odgooooo000Nooooo`03o`000?oooooooooo08oooooo00?o0000ooooooooool0oooooom=ooooo`00 7_ooool00ol0003oooooooooo`2@ooooo`03o`000?oooooooooo0?ooooooC?ooool001kooooo00?o 0000ooooooooool0T?ooool00ol0003oooooooooo`3oooooodcooooo000Nooooo`03o`000?oooooo oooo097ooooo00?o0000ooooooooool0oooooom;ooooo`007_ooool00ol0003oooooooooo`2Aoooo o`03o`000?oooooooooo0?ooooooBoooool001kooooo00?o0000ooooooooool0T_ooool00ol0003o ooooooooo`3ooooood[ooooo000Nooooo`03o`000?oooooooooo09;ooooo00?o0000ooooooooool0 oooooom:ooooo`007_ooool00ol0003oooooooooo`2Cooooo`03o`000?oooooooooo0?ooooooBOoo ool001kooooo00?o0000ooooooooool0Toooool00ol0003oooooooooo`3oooooodWooooo000Noooo o`03o`000?oooooooooo09Cooooo00?o0000ooooooooool0oooooom8ooooo`007_ooool3o`0009Co oooo00?o0000ooooooooool0oooooom8ooooo`007_ooool00ol0003oooooooooo`2Eooooo`03o`00 0?oooooooooo0?ooooooAoooool001kooooo00?o0000ooooooooool0UOooool00ol0003ooooooooo o`3oooooodOooooo000Nooooo`03o`000?oooooooooo09Kooooo00?o0000ooooooooool0oooooom6 ooooo`007_ooool00ol0003oooooooooo`2Fooooo`03o`000?oooooooooo0?ooooooA_ooool001ko oooo00?o0000ooooooooool0Uoooool00ol0003oooooooooo`3oooooodGooooo000Nooooo`03o`00 0?oooooooooo09Oooooo00?o0000ooooooooool0oooooom5ooooo`007_ooool00ol0003ooooooooo o`2Hooooo`03o`000?oooooooooo0?ooooooA?ooool001kooooo00?o0000ooooooooool0V?ooool0 0ol0003oooooooooo`3oooooodCooooo000Nooooo`03o`000?oooooooooo09Wooooo00?o0000oooo ooooool0oooooom3ooooo`007_ooool00ol0003oooooooooo`2Iooooo`03o`000?oooooooooo0?oo oooo@oooool001kooooo00?o0000ooooooooool0V_ooool00ol0003oooooooooo`3ooooood;ooooo 000Nooooo`03o`000?oooooooooo09[ooooo00?o0000ooooooooool0oooooom2ooooo`007_ooool0 0ol0003oooooooooo`2Kooooo`03o`000?oooooooooo0?oooooo@Oooool001kooooo00?o0000oooo ooooool0Voooool00ol0003oooooooooo`3ooooood7ooooo000Nooooo`?o0000W?ooool00ol0003o ooooooooo`3ooooood3ooooo000Nooooo`03o`000?oooooooooo09cooooo00?o0000ooooooooool0 oooooom0ooooo`007_ooool00ol0003oooooooooo`2Mooooo`03o`000?oooooooooo0?oooooo?ooo ool001kooooo00?o0000ooooooooool0WOooool00ol0003oooooooooo`3oooooocoooooo000Noooo o`03o`000?oooooooooo09kooooo00?o0000ooooooooool0oooooolnooooo`007_ooool00ol0003o ooooooooo`2Nooooo`03o`000?oooooooooo0?oooooo?_ooool001kooooo00?o0000ooooooooool0 Woooool00ol0003oooooooooo`3oooooocgooooo000Nooooo`03o`000?oooooooooo09oooooo00?o 0000ooooooooool0oooooolmooooo`007_ooool00ol0003oooooooooo`2Pooooo`03o`000?oooooo oooo0?oooooo??ooool001kooooo00?o0000ooooooooool0X?ooool00ol0003oooooooooo`3ooooo occooooo000Nooooo`03o`000?oooooooooo0:7ooooo00?o0000ooooooooool0oooooolkooooo`00 7_ooool00ol0003oooooooooo`2Qooooo`03o`000?oooooooooo0?oooooo>oooool001kooooo00?o 0000ooooooooool0X_ooool00ol0003oooooooooo`3ooooooc[ooooo000Nooooo`03o`000?oooooo oooo0:;ooooo00?o0000ooooooooool0ooooooljooooo`007_ooool3o`000:?ooooo00?o0000oooo ooooool0ooooooliooooo`007_ooool00ol0003oooooooooo`2Sooooo`03o`000?oooooooooo0?oo oooo>Oooool001kooooo00?o0000ooooooooool0Y?ooool00ol0003oooooooooo`3oooooocSooooo 000Nooooo`03o`000?oooooooooo0:Cooooo00?o0000ooooooooool0oooooolhooooo`007_ooool0 0ol0003oooooooooo`2Tooooo`03o`000?oooooooooo0?oooooo>?ooool001kooooo00?o0000oooo ooooool0YOooool00ol0003oooooooooo`3oooooocOooooo000Nooooo`03o`000?oooooooooo0:Go oooo00?o0000ooooooooool0oooooolgooooo`007_ooool00ol0003oooooooooo`2Vooooo`03o`00 0?oooooooooo0?oooooo=_ooool001kooooo00?o0000ooooooooool0Y_ooool00ol0003ooooooooo o`3oooooocKooooo000Nooooo`03o`000?oooooooooo0:Oooooo00?o0000ooooooooool0oooooole ooooo`007_ooool00ol0003oooooooooo`2Wooooo`03o`000?oooooooooo0?oooooo=Oooool001ko oooo00?o0000ooooooooool0Z?ooool00ol0003oooooooooo`3oooooocCooooo0007ooooo`?o0000 1?ooool2o`0000Cooooo0_l00008ooooo`03o`000?oooooooooo0:Sooooo00?o0000ooooooooool0 ooooooldooooo`001_ooool01Ol0003ooooooooooooooooo000000;ooooo00Co0000oooooooooooo 00000_ooool01?l0003oooooooooool00007ooooo`03o`000?oooooooooo0:Wooooo00?o0000oooo ooooool0oooooolcooooo`001_ooool01Ol0003ooooooooooooooooo000000;ooooo00Co0000oooo oooooooo00000_ooool01?l0003oooooooooool00007ooooo`03o`000?oooooooooo0:Wooooo00?o 0000ooooooooool0oooooolcooooo`001_ooool4o`0000?ooooo00Co0000oooooooooooo00000_oo ool01?l0003oooooooooool00007ooooo`Co0000ZOooool00ol0003oooooooooo`3ooooooc;ooooo 0006ooooo`03o`000?oooooooooo00Cooooo00Co0000oooooooooooo00000_ooool01?l0003ooooo ooooool00007ooooo`03o`000?oooooooooo0:[ooooo00?o0000ooooooooool0oooooolbooooo`00 1oooool00ol0003oooooooooo`03ooooo`04o`000?ooooooooooo`0000;ooooo00Co0000oooooooo oooo00001oooool00ol0003oooooooooo`2[ooooo`03o`000?oooooooooo0?oooooo;ooooo00?o0000 ooooooooool0nOooool001kooooo00?o0000ooooooooool0hoooool00ol0003oooooooooo`3hoooo o`007_ooool00ol0003oooooooooo`3Tooooo`03o`000?oooooooooo0?Oooooo000Nooooo`03o`00 0?oooooooooo0>Gooooo00?o0000ooooooooool0m_ooool001kooooo00?o0000ooooooooool0i_oo ool00ol0003oooooooooo`3eooooo`007_ooool00ol0003oooooooooo`3Wooooo`03o`000?oooooo oooo0?Cooooo000Nooooo`03o`000?oooooooooo0>Sooooo0_l0003dooooo`007_ooool3o`000>[o oooo00?o0000ooooooooool0lOooool001kooooo00?o0000ooooooooool0joooool2o`000?7ooooo 000Nooooo`03o`000?oooooooooo0>gooooo00?o0000ooooooooool0k_ooool001kooooo00?o0000 ooooooooool0k_ooool00ol0003oooooooooo`3]ooooo`007_ooool00ol0003oooooooooo`3_oooo o`;o0000kOooool001kooooo00?o0000ooooooooool0lOooool00ol0003oooooooooo`3Zooooo`00 7_ooool00ol0003oooooooooo`3booooo`;o0000j_ooool001kooooo00?o0000ooooooooool0m?oo ool2o`000>Sooooo000Nooooo`03o`000?oooooooooo0?Kooooo0_l0003Vooooo`007_ooool00ol0 003oooooooooo`3hooooo`03o`000?oooooooooo0>?ooooo000Nooooo`03o`000?oooooooooo0?Wo oooo0_l0003Sooooo`007_ooool00ol0003oooooooooo`3kooooo`;o0000hOooool001kooooo00?o 0000ooooooooool0oOooool3o`000=kooooo000Nooooo`03o`000?oooooooooo0?oooooo0Oooool2 o`000=cooooo000Nooooo`?o0000ooooool3ooooo`?o0000fOooool001kooooo00?o0000oooooooo ool0ooooool6ooooo`?o0000e_ooool001kooooo00?o0000ooooooooool0ooooool9ooooo`?o0000 doooool001kooooo00?o0000ooooooooool0ooooool"], ImageRangeCache->{{{0, 510.5}, {315.125, 0}} -> {-2.89543, -57.6626, \ 0.0960249, 3.45223}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Classical approximations", "Subsection"], Cell[CellGroupData[{ Cell["\<\ It is not possible to approximate such graphic by a linear, \ quadratic, ... polynomial function\ \>", "Subsubsection"], Cell["Start with points selected on or near this graph", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(pts = {{0.407056, 17.4921}, {2.65786, 38.6217}, {4.55385, 106.795}, {7.03749, 281.014}, {8.81152, 472.377}, {10.5856, 672.111}, {12.5924, 863.474}}\)], "Input"], Cell[BoxData[ \({{0.407056`, 17.4921`}, {2.65786`, 38.6217`}, {4.55385`, 106.795`}, {7.03749`, 281.014`}, {8.81152`, 472.377`}, {10.5856`, 672.111`}, {12.5924`, 863.474`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Fit[%, {1, x, x\^2}, x]\)], "Input"], Cell[BoxData[ \(\(-1.4877045217966813`\) + 4.987263824155498`\ x + 5.236902301815643`\ x\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[{graph1, Plot[%, {x, 0, 45}]}, PlotRange \[Rule] {0, 2500}]\)], "Input"], Cell[CellGroupData[{ 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.021164 0.014796 5.43536e-05 [ [.23545 .0023 -6 -9 ] [.23545 .0023 6 0 ] [.44709 .0023 -6 -9 ] [.44709 .0023 6 0 ] [.65873 .0023 -6 -9 ] [.65873 .0023 6 0 ] [.87037 .0023 -6 -9 ] [.87037 .0023 6 0 ] [.01131 .1235 -24 -4.5 ] [.01131 .1235 0 4.5 ] [.01131 .23221 -24 -4.5 ] [.01131 .23221 0 4.5 ] [.01131 .34092 -24 -4.5 ] [.01131 .34092 0 4.5 ] [.01131 .44963 -24 -4.5 ] [.01131 .44963 0 4.5 ] [.01131 .55833 -30 -4.5 ] [.01131 .55833 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 .23545 .0148 m .23545 .02105 L s [(10)] .23545 .0023 0 1 Mshowa .44709 .0148 m .44709 .02105 L s [(20)] .44709 .0023 0 1 Mshowa .65873 .0148 m .65873 .02105 L s [(30)] .65873 .0023 0 1 Mshowa .87037 .0148 m .87037 .02105 L s [(40)] .87037 .0023 0 1 Mshowa .125 Mabswid .06614 .0148 m .06614 .01855 L s .10847 .0148 m .10847 .01855 L s .15079 .0148 m .15079 .01855 L s .19312 .0148 m .19312 .01855 L s .27778 .0148 m .27778 .01855 L s .32011 .0148 m .32011 .01855 L s .36243 .0148 m .36243 .01855 L s .40476 .0148 m .40476 .01855 L s .48942 .0148 m .48942 .01855 L s .53175 .0148 m .53175 .01855 L s .57407 .0148 m .57407 .01855 L s .6164 .0148 m .6164 .01855 L s .70106 .0148 m .70106 .01855 L s .74339 .0148 m .74339 .01855 L s .78571 .0148 m .78571 .01855 L s .82804 .0148 m .82804 .01855 L s .9127 .0148 m .9127 .01855 L s .95503 .0148 m .95503 .01855 L s .99735 .0148 m .99735 .01855 L s .25 Mabswid 0 .0148 m 1 .0148 L s .02381 .1235 m .03006 .1235 L s [(2000)] .01131 .1235 1 0 Mshowa .02381 .23221 m .03006 .23221 L s [(4000)] .01131 .23221 1 0 Mshowa .02381 .34092 m .03006 .34092 L s [(6000)] .01131 .34092 1 0 Mshowa .02381 .44963 m .03006 .44963 L s [(8000)] .01131 .44963 1 0 Mshowa .02381 .55833 m .03006 .55833 L s [(10000)] .01131 .55833 1 0 Mshowa .125 Mabswid .02381 .04197 m .02756 .04197 L s .02381 .06915 m .02756 .06915 L s .02381 .09633 m .02756 .09633 L s .02381 .15068 m .02756 .15068 L s .02381 .17786 m .02756 .17786 L s .02381 .20503 m .02756 .20503 L s .02381 .25939 m .02756 .25939 L s .02381 .28656 m .02756 .28656 L s .02381 .31374 m .02756 .31374 L s .02381 .36809 m .02756 .36809 L s .02381 .39527 m .02756 .39527 L s .02381 .42245 m .02756 .42245 L s .02381 .4768 m .02756 .4768 L s .02381 .50398 m .02756 .50398 L s .02381 .53116 m .02756 .53116 L s .02381 .58551 m .02756 .58551 L s .02381 .61269 m .02756 .61269 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .02846 .01479 L .03279 .01488 L .04262 .01518 L .0522 .01559 L .06244 .01616 L .08451 .01783 L .10458 .0199 L .14451 .02552 L .18292 .03284 L .22379 .04269 L .26314 .05418 L .30098 .06708 L .34126 .08282 L .38004 .09992 L .42126 .12019 L .46097 .14176 L .49916 .1644 L .53981 .19052 L .57894 .21766 L .62052 .24863 L .66059 .28055 L .69914 .31319 L .74014 .34998 L .77963 .38742 L .8176 .4253 L .85802 .46764 L .89693 .51036 L .93829 .55787 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.75, 316.312}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False], 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.021164 0 0.000247214 [ [.23545 -0.0125 -6 -9 ] [.23545 -0.0125 6 0 ] [.44709 -0.0125 -6 -9 ] [.44709 -0.0125 6 0 ] [.65873 -0.0125 -6 -9 ] [.65873 -0.0125 6 0 ] [.87037 -0.0125 -6 -9 ] [.87037 -0.0125 6 0 ] [.01131 .12361 -18 -4.5 ] [.01131 .12361 0 4.5 ] [.01131 .24721 -24 -4.5 ] [.01131 .24721 0 4.5 ] [.01131 .37082 -24 -4.5 ] [.01131 .37082 0 4.5 ] [.01131 .49443 -24 -4.5 ] [.01131 .49443 0 4.5 ] [.01131 .61803 -24 -4.5 ] [.01131 .61803 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 .23545 0 m .23545 .00625 L s [(10)] .23545 -0.0125 0 1 Mshowa .44709 0 m .44709 .00625 L s [(20)] .44709 -0.0125 0 1 Mshowa .65873 0 m .65873 .00625 L s [(30)] .65873 -0.0125 0 1 Mshowa .87037 0 m .87037 .00625 L s [(40)] .87037 -0.0125 0 1 Mshowa .125 Mabswid .06614 0 m .06614 .00375 L s .10847 0 m .10847 .00375 L s .15079 0 m .15079 .00375 L s .19312 0 m .19312 .00375 L s .27778 0 m .27778 .00375 L s .32011 0 m .32011 .00375 L s .36243 0 m .36243 .00375 L s .40476 0 m .40476 .00375 L s .48942 0 m .48942 .00375 L s .53175 0 m .53175 .00375 L s .57407 0 m .57407 .00375 L s .6164 0 m .6164 .00375 L s .70106 0 m .70106 .00375 L s .74339 0 m .74339 .00375 L s .78571 0 m .78571 .00375 L s .82804 0 m .82804 .00375 L s .9127 0 m .9127 .00375 L s .95503 0 m .95503 .00375 L s .99735 0 m .99735 .00375 L s .25 Mabswid 0 0 m 1 0 L s .02381 .12361 m .03006 .12361 L s [(500)] .01131 .12361 1 0 Mshowa .02381 .24721 m .03006 .24721 L s [(1000)] .01131 .24721 1 0 Mshowa .02381 .37082 m .03006 .37082 L s [(1500)] .01131 .37082 1 0 Mshowa .02381 .49443 m .03006 .49443 L s [(2000)] .01131 .49443 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(2500)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .02472 m .02756 .02472 L s .02381 .04944 m .02756 .04944 L s .02381 .07416 m .02756 .07416 L s .02381 .09889 m .02756 .09889 L s .02381 .14833 m .02756 .14833 L s .02381 .17305 m .02756 .17305 L s .02381 .19777 m .02756 .19777 L s .02381 .22249 m .02756 .22249 L s .02381 .27193 m .02756 .27193 L s .02381 .29666 m .02756 .29666 L s .02381 .32138 m .02756 .32138 L s .02381 .3461 m .02756 .3461 L s .02381 .39554 m .02756 .39554 L s .02381 .42026 m .02756 .42026 L s .02381 .44498 m .02756 .44498 L s .02381 .46971 m .02756 .46971 L s .02381 .51915 m .02756 .51915 L s .02381 .54387 m .02756 .54387 L s .02381 .56859 m .02756 .56859 L s .02381 .59331 m .02756 .59331 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .00247 m .04262 .00322 L .06244 .00424 L .08255 .00561 L .10458 .00761 L .12415 .00994 L .14509 .01319 L .16639 .01751 L .18653 .02276 L .22495 .03679 L .24479 .04649 L .26581 .05879 L .30365 .086 L .34394 .12007 L .38271 .15343 L .42393 .18439 L .44453 .19706 L .46364 .20703 L .50184 .22213 L .52236 .22797 L .54096 .23216 L .56021 .23558 L .58103 .23845 L .60097 .24055 L .62203 .24223 L .64167 .24343 L .66001 .24428 L .68036 .24501 L .69891 .24552 L .718 .24592 L .73876 .24625 L .75853 .24648 L .77954 .24667 L .79901 .2468 L .81729 .24689 L .83748 .24697 L .85598 .24703 L .8749 .24707 L .8956 .24711 L .91522 .24713 L .93617 .24715 L .95675 .24717 L .97619 .24718 L s .02881 0 m .03279 .00039 L .04262 .00175 L .0522 .00362 L .06244 .0062 L .08451 .01382 L .10458 .02319 L .14451 .04877 L .18292 .08208 L .22379 .12687 L .26314 .17913 L .30098 .23782 L .34126 .30941 L .38004 .38716 L .42126 .47937 L .46097 .57747 L s .46097 .57747 m .47602 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.75, 316.312}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False] }, Open ]], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Exercise: repeat this with a third or fourth degree \ polynomial.\ \>", "Subsubsection"], Cell["What conclusions can you make?", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ None of these polynomial functions has an horizontal asymptote \ indicating the asymptotic limiting value, called capacity K.\ \>", \ "Subsubsection"], Cell["\<\ This is precisely the value we are looking for. But the search is a \ delicate one:\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Changing K gives a completely different solution", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(K = 2000\)], "Input"], Cell[BoxData[ \(2000\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Clear[n, sol];\)\), "\[IndentingNewLine]", \(sol\ = NDSolve[{\ \(n'\)[t]\ \[Equal] r\ \ n[t]\ \((\ 1\ - \ n[t]/K)\), n[0] \[Equal] 10}, n[t], {t, 0, 50}]\)}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{\(n[t]\), "\[Rule]", RowBox[{ TagBox[\(InterpolatingFunction[{{0.`, 50.`}}, "<>"]\), False, Editable->False], "[", "t", "]"}]}], "}"}], "}"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(graph2 = Plot[n[t] /. First[%], {t, 0, 45}, PlotRange \[Rule] {0, 2500}]\)], "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.021164 0 0.000247214 [ [.23545 -0.0125 -6 -9 ] [.23545 -0.0125 6 0 ] [.44709 -0.0125 -6 -9 ] [.44709 -0.0125 6 0 ] [.65873 -0.0125 -6 -9 ] [.65873 -0.0125 6 0 ] [.87037 -0.0125 -6 -9 ] [.87037 -0.0125 6 0 ] [.01131 .12361 -18 -4.5 ] [.01131 .12361 0 4.5 ] [.01131 .24721 -24 -4.5 ] [.01131 .24721 0 4.5 ] [.01131 .37082 -24 -4.5 ] [.01131 .37082 0 4.5 ] [.01131 .49443 -24 -4.5 ] [.01131 .49443 0 4.5 ] [.01131 .61803 -24 -4.5 ] [.01131 .61803 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 .23545 0 m .23545 .00625 L s [(10)] .23545 -0.0125 0 1 Mshowa .44709 0 m .44709 .00625 L s [(20)] .44709 -0.0125 0 1 Mshowa .65873 0 m .65873 .00625 L s [(30)] .65873 -0.0125 0 1 Mshowa .87037 0 m .87037 .00625 L s [(40)] .87037 -0.0125 0 1 Mshowa .125 Mabswid .06614 0 m .06614 .00375 L s .10847 0 m .10847 .00375 L s .15079 0 m .15079 .00375 L s .19312 0 m .19312 .00375 L s .27778 0 m .27778 .00375 L s .32011 0 m .32011 .00375 L s .36243 0 m .36243 .00375 L s .40476 0 m .40476 .00375 L s .48942 0 m .48942 .00375 L s .53175 0 m .53175 .00375 L s .57407 0 m .57407 .00375 L s .6164 0 m .6164 .00375 L s .70106 0 m .70106 .00375 L s .74339 0 m .74339 .00375 L s .78571 0 m .78571 .00375 L s .82804 0 m .82804 .00375 L s .9127 0 m .9127 .00375 L s .95503 0 m .95503 .00375 L s .99735 0 m .99735 .00375 L s .25 Mabswid 0 0 m 1 0 L s .02381 .12361 m .03006 .12361 L s [(500)] .01131 .12361 1 0 Mshowa .02381 .24721 m .03006 .24721 L s [(1000)] .01131 .24721 1 0 Mshowa .02381 .37082 m .03006 .37082 L s [(1500)] .01131 .37082 1 0 Mshowa .02381 .49443 m .03006 .49443 L s [(2000)] .01131 .49443 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(2500)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .02472 m .02756 .02472 L s .02381 .04944 m .02756 .04944 L s .02381 .07416 m .02756 .07416 L s .02381 .09889 m .02756 .09889 L s .02381 .14833 m .02756 .14833 L s .02381 .17305 m .02756 .17305 L s .02381 .19777 m .02756 .19777 L s .02381 .22249 m .02756 .22249 L s .02381 .27193 m .02756 .27193 L s .02381 .29666 m .02756 .29666 L s .02381 .32138 m .02756 .32138 L s .02381 .3461 m .02756 .3461 L s .02381 .39554 m .02756 .39554 L s .02381 .42026 m .02756 .42026 L s .02381 .44498 m .02756 .44498 L s .02381 .46971 m .02756 .46971 L s .02381 .51915 m .02756 .51915 L s .02381 .54387 m .02756 .54387 L s .02381 .56859 m .02756 .56859 L s .02381 .59331 m .02756 .59331 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .00247 m .04262 .00322 L .06244 .00426 L .08255 .00565 L .10458 .00769 L .12415 .01009 L .14509 .01348 L .16639 .01807 L .18653 .02375 L .20651 .03103 L .22495 .03956 L .24527 .05139 L .2643 .06521 L .30213 .10194 L .34091 .15345 L .38213 .22085 L .42184 .28989 L .46003 .35051 L .50068 .40172 L .53981 .43657 L .56122 .45037 L .58139 .46057 L .60147 .46852 L .61994 .47424 L .63876 .47882 L .65943 .48269 L .67894 .48547 L .69985 .48774 L .72109 .48946 L .74121 .49068 L .76112 .4916 L .77954 .49225 L .79821 .49275 L .81881 .49317 L .83816 .49347 L .85901 .49372 L .87905 .49389 L .90015 .49403 L .91989 .49413 L .93826 .4942 L .95813 .49425 L .97619 .49429 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.75, 316.312}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[{graph1, graph2}, PlotRange \[Rule] {0, 2500}]\)], "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.021164 0 0.000247214 [ [.23545 -0.0125 -6 -9 ] [.23545 -0.0125 6 0 ] [.44709 -0.0125 -6 -9 ] [.44709 -0.0125 6 0 ] [.65873 -0.0125 -6 -9 ] [.65873 -0.0125 6 0 ] [.87037 -0.0125 -6 -9 ] [.87037 -0.0125 6 0 ] [.01131 .12361 -18 -4.5 ] [.01131 .12361 0 4.5 ] [.01131 .24721 -24 -4.5 ] [.01131 .24721 0 4.5 ] [.01131 .37082 -24 -4.5 ] [.01131 .37082 0 4.5 ] [.01131 .49443 -24 -4.5 ] [.01131 .49443 0 4.5 ] [.01131 .61803 -24 -4.5 ] [.01131 .61803 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 .23545 0 m .23545 .00625 L s [(10)] .23545 -0.0125 0 1 Mshowa .44709 0 m .44709 .00625 L s [(20)] .44709 -0.0125 0 1 Mshowa .65873 0 m .65873 .00625 L s [(30)] .65873 -0.0125 0 1 Mshowa .87037 0 m .87037 .00625 L s [(40)] .87037 -0.0125 0 1 Mshowa .125 Mabswid .06614 0 m .06614 .00375 L s .10847 0 m .10847 .00375 L s .15079 0 m .15079 .00375 L s .19312 0 m .19312 .00375 L s .27778 0 m .27778 .00375 L s .32011 0 m .32011 .00375 L s .36243 0 m .36243 .00375 L s .40476 0 m .40476 .00375 L s .48942 0 m .48942 .00375 L s .53175 0 m .53175 .00375 L s .57407 0 m .57407 .00375 L s .6164 0 m .6164 .00375 L s .70106 0 m .70106 .00375 L s .74339 0 m .74339 .00375 L s .78571 0 m .78571 .00375 L s .82804 0 m .82804 .00375 L s .9127 0 m .9127 .00375 L s .95503 0 m .95503 .00375 L s .99735 0 m .99735 .00375 L s .25 Mabswid 0 0 m 1 0 L s .02381 .12361 m .03006 .12361 L s [(500)] .01131 .12361 1 0 Mshowa .02381 .24721 m .03006 .24721 L s [(1000)] .01131 .24721 1 0 Mshowa .02381 .37082 m .03006 .37082 L s [(1500)] .01131 .37082 1 0 Mshowa .02381 .49443 m .03006 .49443 L s [(2000)] .01131 .49443 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(2500)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .02472 m .02756 .02472 L s .02381 .04944 m .02756 .04944 L s .02381 .07416 m .02756 .07416 L s .02381 .09889 m .02756 .09889 L s .02381 .14833 m .02756 .14833 L s .02381 .17305 m .02756 .17305 L s .02381 .19777 m .02756 .19777 L s .02381 .22249 m .02756 .22249 L s .02381 .27193 m .02756 .27193 L s .02381 .29666 m .02756 .29666 L s .02381 .32138 m .02756 .32138 L s .02381 .3461 m .02756 .3461 L s .02381 .39554 m .02756 .39554 L s .02381 .42026 m .02756 .42026 L s .02381 .44498 m .02756 .44498 L s .02381 .46971 m .02756 .46971 L s .02381 .51915 m .02756 .51915 L s .02381 .54387 m .02756 .54387 L s .02381 .56859 m .02756 .56859 L s .02381 .59331 m .02756 .59331 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .00247 m .04262 .00322 L .06244 .00424 L .08255 .00561 L .10458 .00761 L .12415 .00994 L .14509 .01319 L .16639 .01751 L .18653 .02276 L .22495 .03679 L .24479 .04649 L .26581 .05879 L .30365 .086 L .34394 .12007 L .38271 .15343 L .42393 .18439 L .44453 .19706 L .46364 .20703 L .50184 .22213 L .52236 .22797 L .54096 .23216 L .56021 .23558 L .58103 .23845 L .60097 .24055 L .62203 .24223 L .64167 .24343 L .66001 .24428 L .68036 .24501 L .69891 .24552 L .718 .24592 L .73876 .24625 L .75853 .24648 L .77954 .24667 L .79901 .2468 L .81729 .24689 L .83748 .24697 L .85598 .24703 L .8749 .24707 L .8956 .24711 L .91522 .24713 L .93617 .24715 L .95675 .24717 L .97619 .24718 L s .02381 .00247 m .04262 .00322 L .06244 .00426 L .08255 .00565 L .10458 .00769 L .12415 .01009 L .14509 .01348 L .16639 .01807 L .18653 .02375 L .20651 .03103 L .22495 .03956 L .24527 .05139 L .2643 .06521 L .30213 .10194 L .34091 .15345 L .38213 .22085 L .42184 .28989 L .46003 .35051 L .50068 .40172 L .53981 .43657 L .56122 .45037 L .58139 .46057 L .60147 .46852 L .61994 .47424 L .63876 .47882 L .65943 .48269 L .67894 .48547 L .69985 .48774 L .72109 .48946 L .74121 .49068 L .76112 .4916 L .77954 .49225 L .79821 .49275 L .81881 .49317 L .83816 .49347 L .85901 .49372 L .87905 .49389 L .90015 .49403 L .91989 .49413 L .93826 .4942 L .95813 .49425 L .97619 .49429 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.75, 316.312}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell["\<\ The difference in the initial stage is small. It is only after some time that differences become important, and the top \ graph keeps growing while the bottom one is tapering off. This shows it is a delicate task to predict the asymptotic value.\ \>", "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Can we predict the capacity K of a system?", "Subsection"], Cell["\<\ It is known that the capacity is twice the value at the inflection \ point. This inflection point is hard to locate experimentally for several reasons: \ the graph is steepest there, and taking succesive differences may lead to \ large errors if time intervals are uneven. Moreover we would like to predict capacity before attaining large values in \ the system.\ \>", "Text"], Cell["\<\ We produce a blank graph in which we can put some actual \ data:\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Plot[0, {t, 0, 45}, \ GridLines \[Rule] Automatic, PlotRange \[Rule] {0, K}]\)], "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.021164 0 0.000309017 [ [.23545 -0.0125 -6 -9 ] [.23545 -0.0125 6 0 ] [.44709 -0.0125 -6 -9 ] [.44709 -0.0125 6 0 ] [.65873 -0.0125 -6 -9 ] [.65873 -0.0125 6 0 ] [.87037 -0.0125 -6 -9 ] [.87037 -0.0125 6 0 ] [.01131 .07725 -18 -4.5 ] [.01131 .07725 0 4.5 ] [.01131 .15451 -18 -4.5 ] [.01131 .15451 0 4.5 ] [.01131 .23176 -18 -4.5 ] [.01131 .23176 0 4.5 ] [.01131 .30902 -24 -4.5 ] [.01131 .30902 0 4.5 ] [.01131 .38627 -24 -4.5 ] [.01131 .38627 0 4.5 ] [.01131 .46353 -24 -4.5 ] [.01131 .46353 0 4.5 ] [.01131 .54078 -24 -4.5 ] [.01131 .54078 0 4.5 ] [.01131 .61803 -24 -4.5 ] [.01131 .61803 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .02381 0 m .02381 .61803 L s .23545 0 m .23545 .61803 L s .44709 0 m .44709 .61803 L s .65873 0 m .65873 .61803 L s .87037 0 m .87037 .61803 L s 0 0 m 1 0 L s 0 .07725 m 1 .07725 L s 0 .15451 m 1 .15451 L s 0 .23176 m 1 .23176 L s 0 .30902 m 1 .30902 L s 0 .38627 m 1 .38627 L s 0 .46353 m 1 .46353 L s 0 .54078 m 1 .54078 L s 0 .61803 m 1 .61803 L s 0 g .23545 0 m .23545 .00625 L s [(10)] .23545 -0.0125 0 1 Mshowa .44709 0 m .44709 .00625 L s [(20)] .44709 -0.0125 0 1 Mshowa .65873 0 m .65873 .00625 L s [(30)] .65873 -0.0125 0 1 Mshowa .87037 0 m .87037 .00625 L s [(40)] .87037 -0.0125 0 1 Mshowa .125 Mabswid .06614 0 m .06614 .00375 L s .10847 0 m .10847 .00375 L s .15079 0 m .15079 .00375 L s .19312 0 m .19312 .00375 L s .27778 0 m .27778 .00375 L s .32011 0 m .32011 .00375 L s .36243 0 m .36243 .00375 L s .40476 0 m .40476 .00375 L s .48942 0 m .48942 .00375 L s .53175 0 m .53175 .00375 L s .57407 0 m .57407 .00375 L s .6164 0 m .6164 .00375 L s .70106 0 m .70106 .00375 L s .74339 0 m .74339 .00375 L s .78571 0 m .78571 .00375 L s .82804 0 m .82804 .00375 L s .9127 0 m .9127 .00375 L s .95503 0 m .95503 .00375 L s .99735 0 m .99735 .00375 L s .25 Mabswid 0 0 m 1 0 L s .02381 .07725 m .03006 .07725 L s [(250)] .01131 .07725 1 0 Mshowa .02381 .15451 m .03006 .15451 L s [(500)] .01131 .15451 1 0 Mshowa .02381 .23176 m .03006 .23176 L s [(750)] .01131 .23176 1 0 Mshowa .02381 .30902 m .03006 .30902 L s [(1000)] .01131 .30902 1 0 Mshowa .02381 .38627 m .03006 .38627 L s [(1250)] .01131 .38627 1 0 Mshowa .02381 .46353 m .03006 .46353 L s [(1500)] .01131 .46353 1 0 Mshowa .02381 .54078 m .03006 .54078 L s [(1750)] .01131 .54078 1 0 Mshowa .02381 .61803 m .03006 .61803 L s [(2000)] .01131 .61803 1 0 Mshowa .125 Mabswid .02381 .01545 m .02756 .01545 L s .02381 .0309 m .02756 .0309 L s .02381 .04635 m .02756 .04635 L s .02381 .0618 m .02756 .0618 L s .02381 .09271 m .02756 .09271 L s .02381 .10816 m .02756 .10816 L s .02381 .12361 m .02756 .12361 L s .02381 .13906 m .02756 .13906 L s .02381 .16996 m .02756 .16996 L s .02381 .18541 m .02756 .18541 L s .02381 .20086 m .02756 .20086 L s .02381 .21631 m .02756 .21631 L s .02381 .24721 m .02756 .24721 L s .02381 .26266 m .02756 .26266 L s .02381 .27812 m .02756 .27812 L s .02381 .29357 m .02756 .29357 L s .02381 .32447 m .02756 .32447 L s .02381 .33992 m .02756 .33992 L s .02381 .35537 m .02756 .35537 L s .02381 .37082 m .02756 .37082 L s .02381 .40172 m .02756 .40172 L s .02381 .41717 m .02756 .41717 L s .02381 .43262 m .02756 .43262 L s .02381 .44807 m .02756 .44807 L s .02381 .47898 m .02756 .47898 L s .02381 .49443 m .02756 .49443 L s .02381 .50988 m .02756 .50988 L s .02381 .52533 m .02756 .52533 L s .02381 .55623 m .02756 .55623 L s .02381 .57168 m .02756 .57168 L s .02381 .58713 m .02756 .58713 L s .02381 .60258 m .02756 .60258 L s .25 Mabswid .02381 0 m .02381 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 0 m .06244 0 L .10458 0 L .14415 0 L .18221 0 L .22272 0 L .26171 0 L .30316 0 L .34309 0 L .3815 0 L .42237 0 L .46172 0 L .49955 0 L .53984 0 L .57861 0 L .61984 0 L .65954 0 L .69774 0 L .73838 0 L .77751 0 L .81909 0 L .85916 0 L .89771 0 L .93871 0 L .97619 0 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.75, 316.312}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell["\<\ These data can be saved automatically (by Copy & Paste behind \ \"pts =\" followed by enter), and plotted:\ \>", "Text"], Cell[BoxData[ \(\(pts = {{0.72839, 15.5049}, {2.35802, 35.0368}, {3.91005, 71.3102}, {5.30688, 132.696}, {6.1605, 185.711}, {6.5485, 213.613}, {7.09172, 269.419}, {7.40212, 302.902}, {7.94533, 369.868}, {8.41094, 428.464}, {8.79895, 473.108}, {9.10935, 506.591}};\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(ListPlot[pts, PlotRange \[Rule] {{0, 45}, {0, 1000}}]\)], "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 0.0222222 0 0.000618034 [ [.22222 -0.0125 -6 -9 ] [.22222 -0.0125 6 0 ] [.44444 -0.0125 -6 -9 ] [.44444 -0.0125 6 0 ] [.66667 -0.0125 -6 -9 ] [.66667 -0.0125 6 0 ] [.88889 -0.0125 -6 -9 ] [.88889 -0.0125 6 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -24 -4.5 ] [-0.0125 .61803 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 .22222 0 m .22222 .00625 L s [(10)] .22222 -0.0125 0 1 Mshowa .44444 0 m .44444 .00625 L s [(20)] .44444 -0.0125 0 1 Mshowa .66667 0 m .66667 .00625 L s [(30)] .66667 -0.0125 0 1 Mshowa .88889 0 m .88889 .00625 L s [(40)] .88889 -0.0125 0 1 Mshowa .125 Mabswid .04444 0 m .04444 .00375 L s .08889 0 m .08889 .00375 L s .13333 0 m .13333 .00375 L s .17778 0 m .17778 .00375 L s .26667 0 m .26667 .00375 L s .31111 0 m .31111 .00375 L s .35556 0 m .35556 .00375 L s .4 0 m .4 .00375 L s .48889 0 m .48889 .00375 L s .53333 0 m .53333 .00375 L s .57778 0 m .57778 .00375 L s .62222 0 m .62222 .00375 L s .71111 0 m .71111 .00375 L s .75556 0 m .75556 .00375 L s .8 0 m .8 .00375 L s .84444 0 m .84444 .00375 L s .93333 0 m .93333 .00375 L s .97778 0 m .97778 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(200)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(400)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(600)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(800)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(1000)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .008 w .01619 .00958 Mdot .0524 .02165 Mdot .08689 .04407 Mdot .11793 .08201 Mdot .1369 .11478 Mdot .14552 .13202 Mdot .15759 .16651 Mdot .16449 .1872 Mdot .17656 .22859 Mdot .18691 .26481 Mdot .19553 .2924 Mdot .20243 .31309 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.75, 316.312}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[%, graph1]\)], "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 0.0222222 0 0.000618034 [ [.22222 -0.0125 -6 -9 ] [.22222 -0.0125 6 0 ] [.44444 -0.0125 -6 -9 ] [.44444 -0.0125 6 0 ] [.66667 -0.0125 -6 -9 ] [.66667 -0.0125 6 0 ] [.88889 -0.0125 -6 -9 ] [.88889 -0.0125 6 0 ] [-0.0125 .12361 -18 -4.5 ] [-0.0125 .12361 0 4.5 ] [-0.0125 .24721 -18 -4.5 ] [-0.0125 .24721 0 4.5 ] [-0.0125 .37082 -18 -4.5 ] [-0.0125 .37082 0 4.5 ] [-0.0125 .49443 -18 -4.5 ] [-0.0125 .49443 0 4.5 ] [-0.0125 .61803 -24 -4.5 ] [-0.0125 .61803 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 .22222 0 m .22222 .00625 L s [(10)] .22222 -0.0125 0 1 Mshowa .44444 0 m .44444 .00625 L s [(20)] .44444 -0.0125 0 1 Mshowa .66667 0 m .66667 .00625 L s [(30)] .66667 -0.0125 0 1 Mshowa .88889 0 m .88889 .00625 L s [(40)] .88889 -0.0125 0 1 Mshowa .125 Mabswid .04444 0 m .04444 .00375 L s .08889 0 m .08889 .00375 L s .13333 0 m .13333 .00375 L s .17778 0 m .17778 .00375 L s .26667 0 m .26667 .00375 L s .31111 0 m .31111 .00375 L s .35556 0 m .35556 .00375 L s .4 0 m .4 .00375 L s .48889 0 m .48889 .00375 L s .53333 0 m .53333 .00375 L s .57778 0 m .57778 .00375 L s .62222 0 m .62222 .00375 L s .71111 0 m .71111 .00375 L s .75556 0 m .75556 .00375 L s .8 0 m .8 .00375 L s .84444 0 m .84444 .00375 L s .93333 0 m .93333 .00375 L s .97778 0 m .97778 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .12361 m .00625 .12361 L s [(200)] -0.0125 .12361 1 0 Mshowa 0 .24721 m .00625 .24721 L s [(400)] -0.0125 .24721 1 0 Mshowa 0 .37082 m .00625 .37082 L s [(600)] -0.0125 .37082 1 0 Mshowa 0 .49443 m .00625 .49443 L s [(800)] -0.0125 .49443 1 0 Mshowa 0 .61803 m .00625 .61803 L s [(1000)] -0.0125 .61803 1 0 Mshowa .125 Mabswid 0 .0309 m .00375 .0309 L s 0 .0618 m .00375 .0618 L s 0 .09271 m .00375 .09271 L s 0 .15451 m .00375 .15451 L s 0 .18541 m .00375 .18541 L s 0 .21631 m .00375 .21631 L s 0 .27812 m .00375 .27812 L s 0 .30902 m .00375 .30902 L s 0 .33992 m .00375 .33992 L s 0 .40172 m .00375 .40172 L s 0 .43262 m .00375 .43262 L s 0 .46353 m .00375 .46353 L s 0 .52533 m .00375 .52533 L s 0 .55623 m .00375 .55623 L s 0 .58713 m .00375 .58713 L s .25 Mabswid 0 0 m 0 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .008 w .01619 .00958 Mdot .0524 .02165 Mdot .08689 .04407 Mdot .11793 .08201 Mdot .1369 .11478 Mdot .14552 .13202 Mdot .15759 .16651 Mdot .16449 .1872 Mdot .17656 .22859 Mdot .18691 .26481 Mdot .19553 .2924 Mdot .20243 .31309 Mdot .5 Mabswid 0 .00618 m .01975 .00804 L .04057 .01061 L .06168 .01403 L .08481 .01901 L .10536 .02485 L .12734 .03297 L .14971 .04378 L .17086 .05691 L .2112 .09197 L .23202 .11622 L .25411 .14698 L .29383 .215 L .33613 .30017 L .37684 .38358 L .42013 .46096 L .44175 .49266 L .46182 .51758 L .50193 .55532 L .52348 .56991 L .54301 .58039 L .56322 .58896 L .58508 .59612 L .60602 .60137 L .62814 .60559 L .64876 .60857 L .66801 .61071 L .68938 .61253 L .70886 .61379 L .7289 .61479 L .7507 .61562 L .77146 .6162 L .79352 .61667 L .81396 .617 L .83316 .61724 L .85435 .61744 L .87378 .61757 L .89365 .61768 L .91538 .61777 L .93598 .61783 L .95797 .61789 L .97959 .61792 L 1 .61795 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{511.75, 316.312}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg3o00000Oooool001oooooo00?o0000 ooooooooool04_ooool00ol0003oooooooooo`0Booooo`03o`000?oooooooooo01;ooooo00?o0000 ooooooooool04oooool00ol0003oooooooooo`0Booooo`03o`000?oooooooooo01;ooooo00?o0000 ooooooooool04_ooool00ol0003oooooooooo`0Cooooo`03o`000?oooooooooo01;ooooo00?o0000 ooooooooool04_ooool00ol0003oooooooooo`0Cooooo`03o`000?oooooooooo01;ooooo00?o0000 ooooooooool04_ooool00ol0003oooooooooo`0Booooo`03o`000?oooooooooo01?ooooo00?o0000 ooooooooool04_ooool00ol0003oooooooooo`0Booooo`03o`000?oooooooooo01;ooooo00?o0000 ooooooooool04oooool00ol0003oooooooooo`0Booooo`03o`000?oooooooooo01;ooooo00?o0000 ooooooooool04oooool00ol0003oooooooooo`09ooooo`007oooool00ol0003oooooooooo`0Boooo o`03o`000?oooooooooo01;ooooo00?o0000ooooooooool04_ooool00ol0003oooooooooo`0Coooo o`03o`000?oooooooooo01;ooooo00?o0000ooooooooool04_ooool00ol0003oooooooooo`0Boooo o`03o`000?oooooooooo01?ooooo00?o0000ooooooooool04_ooool00ol0003oooooooooo`0Boooo o`03o`000?oooooooooo01?ooooo00?o0000ooooooooool04_ooool00ol0003oooooooooo`0Boooo o`03o`000?oooooooooo01;ooooo00?o0000ooooooooool04oooool00ol0003oooooooooo`0Boooo o`03o`000?oooooooooo01;ooooo00?o0000ooooooooool04_ooool00ol0003oooooooooo`0Coooo o`03o`000?oooooooooo01;ooooo00?o0000ooooooooool04_ooool00ol0003oooooooooo`0Coooo o`03o`000?oooooooooo00Wooooo000Oooooo`Ko0000I?ooool00ol0003oooooooooo`1Wooooo`03 o`000?oooooooooo06Sooooo00?o0000ooooooooool0Ioooool00ol0003oooooooooo`0dooooo`00 7oooool00ol0003oooooooooo`03ooooo`Wo0000oooooooBooooo`007oooool00ol0003ooooooooo o`03ooooo`?o00001_ooool8o`000?oooooob_ooool001oooooo00?o0000ooooooooool00oooool3 o`0000kooooo1Ol0003oooooolGooooo000Oooooo`03o`000?oooooooooo01Wooooo1Ol0003ooooo ol3ooooo000Oooooo`03o`000?oooooooooo01kooooo1Ol0003ooooook_ooooo000Oooooo`03o`00 0?oooooooooo02?ooooo1Ol0003ooooookKooooo000Oooooo`03o`000?oooooooooo01Cooooo0ol0 000Aooooo`?o0000ooooooncooooo`007oooool00ol0003oooooooooo`0Dooooo`?o00005?ooool3 o`000?oooooo/?ooool001oooooo00?o0000ooooooooool05?ooool3o`0001Oooooo0ol0003ooooo ojgooooo000Oooooo`03o`000?oooooooooo037ooooo0ol0003ooooooj[ooooo000Oooooo`03o`00 0?oooooooooo03Cooooo0_l0003oooooojSooooo000Oooooo`;o0000=oooool3o`000?ooooooYOoo ool001oooooo00?o0000ooooooooool0>Oooool2o`000?ooooooXoooool001oooooo00?o0000oooo ooooool0>oooool2o`000?ooooooXOooool001oooooo00?o0000ooooooooool0?Oooool3o`000?oo ooooW_ooool001oooooo00?o0000ooooooooool0@?ooool2o`000?ooooooW?ooool001oooooo00?o 0000ooooooooool0@_ooool2o`000?ooooooV_ooool001oooooo00?o0000ooooooooool09Oooool3 o`0001cooooo0_l0003ooooooiSooooo000Oooooo`03o`000?oooooooooo02Gooooo0ol0000Noooo o`;o0000oooooonFooooo`007oooool00ol0003oooooooooo`0Uooooo`?o00008?ooool00ol0003o ooooooooo`3ooooooi?ooooo000Oooooo`03o`000?oooooooooo04Wooooo0_l0003ooooooi?ooooo 000Oooooo`03o`000?oooooooooo04_ooooo0_l0003ooooooi7ooooo000Oooooo`03o`000?oooooo oooo04gooooo00?o0000ooooooooool0oooooon>ooooo`007oooool00ol0003oooooooooo`1>oooo o`;o0000oooooon>ooooo`007oooool00ol0003oooooooooo`1@ooooo`03o`000?oooooooooo0?oo ooooRoooool001oooooo00?o0000ooooooooool0DOooool00ol0003oooooooooo`3ooooooh[ooooo 000Oooooo`;o0000Doooool00ol0003oooooooooo`3oooooohWooooo000Oooooo`03o`000?oooooo oooo05?ooooo00?o0000ooooooooool0oooooon8ooooo`007oooool00ol0003oooooooooo`1Doooo o`03o`000?oooooooooo0?ooooooQoooool001oooooo00?o0000ooooooooool0EOooool2o`000?oo ooooQoooool001oooooo00?o0000ooooooooool0Eoooool00ol0003oooooooooo`3oooooohCooooo 000Oooooo`03o`000?oooooooooo05Sooooo00?o0000ooooooooool0oooooon3ooooo`007oooool0 0ol0003oooooooooo`1Iooooo`03o`000?oooooooooo0?ooooooP_ooool001oooooo00?o0000oooo ooooool0F_ooool00ol0003oooooooooo`3ooooooh7ooooo000Oooooo`03o`000?oooooooooo05_o oooo0_l0003ooooooh7ooooo000Oooooo`03o`000?oooooooooo03Cooooo0ol0000Vooooo`03o`00 0?oooooooooo0?ooooooO_ooool001oooooo00?o0000ooooooooool0=?ooool3o`0002Oooooo00?o 0000ooooooooool0oooooommooooo`007oooool00ol0003oooooooooo`0dooooo`?o0000:?ooool0 0ol0003oooooooooo`3oooooogcooooo000Oooooo`03o`000?oooooooooo063ooooo00?o0000oooo ooooool0oooooomkooooo`007oooool00ol0003oooooooooo`1Qooooo`03o`000?oooooooooo0?oo ooooN_ooool001oooooo00?o0000ooooooooool0H_ooool00ol0003oooooooooo`3oooooogWooooo 000Oooooo`;o0000Hoooool00ol0003oooooooooo`3oooooogWooooo000Oooooo`03o`000?oooooo oooo06?ooooo00?o0000ooooooooool0oooooomhooooo`007oooool00ol0003oooooooooo`1Toooo o`03o`000?oooooooooo0?ooooooMoooool001oooooo00?o0000ooooooooool0IOooool00ol0003o ooooooooo`3oooooogKooooo000Oooooo`03o`000?oooooooooo06Kooooo00?o0000ooooooooool0 oooooomeooooo`007oooool00ol0003oooooooooo`1Wooooo`03o`000?oooooooooo0?ooooooM?oo ool001oooooo00?o0000ooooooooool0Ioooool00ol0003oooooooooo`3oooooogCooooo000Ooooo o`03o`000?oooooooooo06Sooooo00?o0000ooooooooool0oooooomcooooo`007oooool00ol0003o ooooooooo`1Yooooo`03o`000?oooooooooo0?ooooooL_ooool001oooooo00?o0000ooooooooool0 ?Oooool3o`0002[ooooo00?o0000ooooooooool0oooooomaooooo`007oooool00ol0003ooooooooo o`0mooooo`?o0000:oooool00ol0003oooooooooo`3oooooog3ooooo000Oooooo`03o`000?oooooo oooo03gooooo0ol0000/ooooo`03o`000?oooooooooo0?ooooooKoooool000Oooooo1Ol00003oooo o`;o00001?ooool2o`0000Sooooo00?o0000ooooooooool0K?ooool00ol0003oooooooooo`3ooooo ofoooooo0008ooooo`04o`000?ooooooooooo`0000;ooooo00Co0000oooooooooooo00000_ooool0 1?l0003oooooooooool00007ooooo`03o`000?oooooooooo06gooooo00?o0000ooooooooool0oooo oom^ooooo`002Oooool00ol0003oooooooooo`02ooooo`04o`000?ooooooooooo`0000;ooooo00Co 0000oooooooooooo00001oooool4o`0006gooooo00?o0000ooooooooool0oooooom]ooooo`002_oo ool01Ol0003ooooooooooooooooo000000;ooooo00Co0000oooooooooooo00000_ooool00ol0003o ooooooooo`05ooooo`03o`000?oooooooooo06kooooo00?o0000ooooooooool0oooooom]ooooo`00 1oooool01Ol0003ooooooooooooooooo000000;ooooo00Co0000oooooooooooo00000_ooool01?l0 003oooooooooool00007ooooo`03o`000?oooooooooo06oooooo00?o0000ooooooooool0oooooom/ ooooo`001oooool01Ol0003ooooooooooooooooo000000;ooooo00Co0000oooooooooooo00000_oo ool01?l0003oooooooooool00007ooooo`03o`000?oooooooooo073ooooo00?o0000ooooooooool0 oooooom[ooooo`002?ooool3o`0000Cooooo0_l00004ooooo`;o00002?ooool00ol0003ooooooooo o`11ooooo`?o0000;?ooool00ol0003oooooooooo`3oooooof_ooooo000Oooooo`03o`000?oooooo oooo047ooooo0ol0000]ooooo`03o`000?oooooooooo0?ooooooJ_ooool001oooooo00?o0000oooo ooooool0@Oooool3o`0002kooooo00?o0000ooooooooool0oooooomYooooo`007oooool00ol0003o ooooooooo`1booooo`03o`000?oooooooooo0?ooooooJOooool001oooooo00?o0000ooooooooool0 Loooool00ol0003oooooooooo`3oooooofSooooo000Oooooo`03o`000?oooooooooo07Cooooo00?o 0000ooooooooool0oooooomWooooo`007oooool00ol0003oooooooooo`1dooooo`03o`000?oooooo oooo0?ooooooIoooool001oooooo00?o0000ooooooooool0MOooool00ol0003oooooooooo`3ooooo ofKooooo000Oooooo`03o`000?oooooooooo07Kooooo00?o0000ooooooooool0oooooomUooooo`00 7oooool00ol0003oooooooooo`1fooooo`03o`000?oooooooooo0?ooooooIOooool001oooooo00?o 0000ooooooooool0Moooool00ol0003oooooooooo`3oooooofCooooo000Oooooo`;o0000N?ooool0 0ol0003oooooooooo`3oooooofCooooo000Oooooo`03o`000?oooooooooo07Sooooo00?o0000oooo ooooool0oooooomSooooo`007oooool00ol0003oooooooooo`1iooooo`03o`000?oooooooooo0?oo ooooH_ooool001oooooo00?o0000ooooooooool0NOooool00ol0003oooooooooo`3oooooof;ooooo 000Oooooo`03o`000?oooooooooo07[ooooo00?o0000ooooooooool0oooooomQooooo`007oooool0 0ol0003oooooooooo`17ooooo`?o0000