(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' 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[ 72458, 1515]*) (*NotebookOutlinePosition[ 73124, 1538]*) (* CellTagsIndexPosition[ 73080, 1534]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Solution of a Steady-State Heat Conduction Problem using the Ritz \ Method ", "Subsubtitle", FontSize->18, FontVariations->{"CompatibilityType"->0}], StyleBox["\n", FontWeight->"Plain", FontVariations->{"CompatibilityType"->0}], StyleBox["Author's Data", FontSize->14, FontWeight->"Bold"], StyleBox[": ", FontSize->14], StyleBox["Housam BINOUS\nDepartment of Chemical Engineering\nNational \ Institute of Applied Sciences and Technology\nTunis, TUNISIA\nEmail: \ binoushousam@yahoo.com ", FontSize->14, FontWeight->"Plain"] }], "Title", TextAlignment->Center, Background->RGBColor[0.605478, 0.996109, 0.605478]], Cell[OLEData["\<\ d[WXH3=eZkBRH6fQQKIKgLA172WXF<^AI3ag64]L0VgFmAGaO3[Vi7 hma:QLMP2Q`BPlWIi]HIWidX@4kWPAC6^WDZhWe/_=a4JeD]b3Zo=1liK?A>JeNJ9_YFE> 1[AGeP3mDJ?@aKK7YT:LLMUF?k@P1odm_3?[l@00<0I002IV@2Ic0003`284cP0000?08XC<0000000^Pl@0000G`1O 05l0D01@05@0<@0`0000Ra<@0000003[;PP0000clWh/0U07N_FP0_`4B0180o`4000P010<90000?`<1 0040403`1b00003oool000000820P0000000^n3S030020@<0003oooooooooo`000000000000000000000000000000000000000000 000004<0000h0P00000004<0M@1b0780I@1^07@0801E07<0I@1b000000000000 0000000000000000000000000000000000000000000J0080oooooooooooooooo 0000000000000000000000000000000000000000000000000P00038000000000 0@1306l0K@1`04l0HP1Z00000000000000000000000000000000000000000000 0000000000000000000001800P0100000P000?ooool000000000000000000000 00000000000000000000000000030000N`000000000?0000j0000080003T1000 7P0000h00014JF5`Kg=YM6UfIB0a06l07P0000L0001RJFi_MG<0M1h000070000 HVU^KgEc07@N00000P0003@0KVlN00005@0004eYHg9_LfmVM21@KgMULU1_JFid 001@0400000Pd2k<00000400000PJ?F1LM_?60@<000050000 0000000000000000000000000000000000000000003no`001@42000000000000 00000000000100000]G=eI`^6a2CU`P0:bci[S0000080P004000004000280000 0`000900000?0000[00000@0002l00001P000<@000070000c00000P0003D0000 2@000=`0000:0000i00001L0003/00002`000?@0000@0000o00001<000040@00 5P0000`1000=0000504000`0001Y0@000P000>@4000N00005000045VIVUSJ65W IB3P86`WjF=bHFh07P0000P0001dMFiYKF5b00<0000660000`00004000030000 0@0000<0000000000`00000000030000000000<000112PX02`000000000;0000 000000/0000000002`000000000N4000100000H00011LVUQK00B0000CFmTj6aU 871QLR1TjFIQMG@05`0004eYHg9_LfmVM215LGEQM6U_KR0c;S003P0004AYHG1_ LfUdJGIU8340310000P0000N00004P00051_K6USIGP3B`@00040j@0@003P4000P1H000D0000:0000000000000001000000000@l02@B/0000 000:10@0000400003`3<3iP000000`mP3:VS^]1iC70`41000?0?X3 I`000000oP<300000040003m0c@0000W0000I00002L0001T000020000000000X ZA<0NU/9<000000000009?goooCoool101<0L03k0`P000000000L0P00700n`<8 00000@00040;000?08PC>00000l0RQ<`0000002j3a00001O05l0G`1@0500E00a 0300002;4a00000000d42000072e001`]@003`3`3eP000000?<3500000<00004 00000P00000100000000002O3`@000060000002Z3`X0000100000@000000402O 3`@000050000002Z3`X0000100000@000000003Z0`00000?0?P3e@T00080k`?[l@00<0I002I V@2Ic0003`284cP0000?08XC<0000000^Pl@0000G`1O05l0D01@05@0<@0`0000 Ra<@0000003[;PP0000clR0P000P3_0aP0000000003a00000000000020 000000<04`0?00`44P8000l00_0:0P008008l0P0000300001@P000l00o220@00 3`04l2P0000100W`400000000000000000000000000200[`2000000800050000 3`04l6H0002b10[`200000@8000@2P00L`0;l2X00004@@40000;0@@0000o0@00 0@210@@000Ro0A00403o0@00200o0P000P00013`20000?/4aPES4eJCFaKAA2N gNLGfln69VhC]BTo9RY@E16UZA12JU5C20Z21=ChE75aHhL6aG4B_cCf0JT@:@XP 8@h8LN3@BQ`20R@@PTZDj?EB`BGd4:5B3ZDG1>@2JTolaO]OfdhU?>bm22Cd>1Z`E`m3RTC4/G3>]044UFb/FRb@b/1BK M5?A@LSRahHhm<<4oTi3XO@XE:D><=dm3m3iF9HWa97=CoVDCgg`m]5;IiPhDb5m YYj3LDSGIM=;5W16]_GIZjG?_ERfZ7XoC<4<977UHnR72OC3T>:>eSB[>4J4eine f:NiWUMe1TnPg@a`d^eM?MAK1gf:FJWE=g4lXnWoiXZMd3UF;hCfcJ1S?/V gMad8n?ONN?5mbSn`l@dhem@Xn=Omj?]l>80DBD/JD`g6eUaBoM1nd:9k> 1Z_HicdC`oSBN^l?MiA?hdi:17O6ZW[HRo n[V0aZ^iHj0>8eLQkgXfK]CK`ckeXO^8]Xi>9k^W/4 ZS`i7>mG@X4dV^WN0iLOnf`:o?@WUmQ3A7?Ql?7Y9LDkNc_PQAoKAMePc;2/0<nP472n;^1 EMTZ9I9?XYJ]j^_CgTgfMaL8Og^]KJ4?>O?`?iSS@N9k2RZ54S/QXi1ZS=aHOB/o63fDab0TjnolO/JBcaWT^c5d>Sml/i3[XmaN4c_Wl0J5FWklLlnnPWoNg;o8cU^A[lDOUnG2ae]oMNNdd 0/;__LZ>aHJIi<^/Vi>MhD;VL7HLh:^PeKkSieS5MD/kg5gombdda3igoKla;nnH oWK7m;L_l^=Q?klPm7NiO9LQnM9i/f_b3hBFCAXQklikAh1P86U[oTf1>0UKce_Y ^kaOgc7mnX_lTb2e7lQ[oY3@kd]8O/EhACbEY5Ck5fa9[2SQlXO4N:VlYDjj9M18 70^@_VPEOn<6>2G`Rg7N=Ec8fNT<3=:jjLgXOO2jj41Ongn9@NTN6U2N=9kFZem: =ccoaTaj`]C_PkkT>_mnE;X=1QkYP6O?UlfonCc_R/f=^3FK^V:n:a/YjFGUdW2g [njG5d>GdkK:fR5mh>o/a?8@^7WhB9Dlg?i?eSkRI^IE/gJQGG4B=CdVh7;Z^@nH ielb==Ec7o`;E:Pa>`00LQLD00000@100000001C1000<0h00=X@00000?D?7000 0000000o2P0300000=dE0001000010000000/C2:nVTX[^I@CIlK/DbXNQS;WaEl PkJX4FAljm80mAQOCoAOaSnlNNEL7lJob2Wen1Ndf_6_ide[X7?0S7S^=UYVm[@4ja?>GW:I]5:W];8MDeV8JXaST>8FSM[Ekb`9aOQ Q@Q4b6>f1Y^P@nD/lZ@2eTiR:J2[_A2A7TLb4MRKM0l>i`iA>[K89ooP/PNXNMo5 i=PKNBOO:FXK/7JFJMi1Bo?0e[cM]^JM2fZNfjQiPK3T;CXOZO4FWNfLeWfE_kPT =KlRE?1B@^HaM>NXIbho/bH`0oQIbVfbjfE[B;e<nllb?lmHc][omZ0lOi_Ohk96ga/0_?ja`jKj`OkCo Nl:c`ViIKenn2e1H9efm;ll;3EUGkh_48jkNQlM//cdFN//bnb<6Dgk1CP]iel?O nn@GK;mlgW[8mMUiZQM8H/:0l3C`hl6Pi?/=< JSWZg2kimn[2emkATLWJ06omZojRKVYjmN2kmDPF;;aJQ5^@dB/6LKbn^UmF35e>fRV[QnB1_gH7US_5 [[`NF:Afd/gW4R1a4VQ6/^ijKJGB?FFT/ejKU:hhRLX:/l/:LCVei0Jm5:m5m?F/_jZDnUnkm9boVWO_nGV]O7oOl_CB]iK`00 LQLD00000@100000001o1000G0h000HA00000?D?70000000000o2P0300000;hE 0001000010000000/C000?ooool3000010000040003ooooo0P000000002L<@00 =BD008``000100T000=6600020160000000400000`4800D0000;0P0000050000 30;;2;T;0`0001h020000?X21@000000oooo00@0000]0@001`000?`2002IoiT0 00040000;@4100@0000]0@00300004098@3`000000000440^0/00000100002d1 00070000o0800?ooo`0000@0000]0@8010000?010@070000o08009SmV00000@0 000]0@40100002d1000<0000@0TQ0?0000000000=@2h2d4000040000;@4000@0 000]0@8010000?010@070000o08009OkU`0000@0000]0@40100002d1000<0000 @0TQ0?0000000000;02h2gH000040000;@4000@0000]0@8010000?010@070000 o08009GiU@0000@0000]0@40100002d1000<0000@0TQ0?00000000008`2h2j80 00040000;@4000@0000]0@8010000?010@070000o08009CgU00000@0000]0@40 100002d1000<0000@0TQ0?00000000006`2h2lD000040000;@4000@0000]0@80 10000?010@070000o08009?eT`0000@0000]0@40100002d1000<0000@0TQ0?00 000000006P2h2n0000040000;@4000@0000]0@8010000?010@070000o08009;c TP0000@0000]0@40100002d1000<0000@0TQ0?00000000006P2h2oX000040000 ;@4000@0000]0@8010000?010@070000o080097aT@0000@0000]0@40100002d1 000<0000@0TQ0?00000000004P2h2a@100040000;@4000@0000]0@8010000?01 0@070000o080093_T00000@0000]0@40100002d1000<0000@0TQ0?0000000000 6P2h2bH100040000;@4000@0000]0@8010000?010@070000o08008k]SP0000@0 000]0@40100002d1000<0000@0TQ0?00000000004P2h2d0100040000;@4000@0 000]0@8010000?010@070000o08008g[S@0000@0000]0@40100002d1000<0000 @0TQ0?00000000004@2h2e8100040000;@4000@0000]0@8010000?010@070000 o08008cYS00000@0000]0@40100002d1000<0000@0TQ0?0000000000402h2f<1 00040000;@4000@0000]0@8010000?010@070000o08008_WR`0000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2g<100040000;@4000@0000]0@80 10000?010@070000o08008[URP0000@0000]0@40100002d1000<0000@0TQ0?00 000000004@2h2gh100040000;@4000@0000]0@8010000?010@070000o08008SS R00000@0000]0@40100002d1000<0000@0TQ0?00000000004P2h2hl100040000 ;@4000@0000]0@8010000?010@070000o08008OQQ`0000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2j4100040000;@4000@0000]0@8010000?01 0@070000o08008KOQP0000@0000]0@40100002d1000<0000@0TQ0?0000000000 3`2h2j`100040000;@4000@0000]0@8010000?010@070000o08008CMQ00000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2k/100040000;@4000@0 000]0@8010000?010@070000o08008?KP`0000@0000]0@40100002d1000<0000 @0TQ0?00000000003P2h2lH100040000;@4000@0000]0@8010000?010@070000 o08008?IP`0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2m@1 00040000;@4000@0000]0@8010000?010@070000o080087GP@0000@0000]0@40 100002d1000<0000@0TQ0?00000000002P2h2ml100040000;@4000@0000]0@80 10000?010@070000o080083EP00000@0000]0@40100002d1000<0000@0TQ0?00 000000003P2h2nT100040000;@4000@0000]0@8010000?010@070000o08007oC O`0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2oL100040000 ;@4000@0000]0@8010000?010@070000o08007gAO@0000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2`8200040000;@4000@0000]0@8010000?01 0@070000o08007c?O00000@0000]0@40100002d1000<0000@0TQ0?0000000000 3@2h2`d200040000;@4000@0000]0@8010000?010@070000o08007c=O00000@0 000]0@40100002d1000<0000@0TQ0?00000000002@2h2aX200040000;@4000@0 000]0@8010000?010@070000o08007_;N`0000@0000]0@40100002d1000<0000 @0TQ0?00000000002`2h2b<200040000;@4000@0000]0@8010000?010@070000 o08007W9N@0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2bh2 00040000;@4000@0000]0@8010000?010@070000o08007O7M`0000@0000]0@40 100002d1000<0000@0TQ0?00000000003@2h2cT200040000;@4000@0000]0@80 10000?010@070000o08007K5MP0000@0000]0@40100002d1000<0000@0TQ0?00 000000002@2h2dH200040000;@4000@0000]0@8010000?010@070000o08007G3 M@0000@0000]0@40100002d1000<0000@0TQ0?0000000000202h2dl200040000 ;@4000@0000]0@8010000?010@070000o08007C1M00000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2eL200040000;@4000@0000]0@8010000?01 0@070000o08007>oL`0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2f8200040000;@4000@0000]0@8010000?010@070000o080076mL@0000@0 000]0@40100002d1000<0000@0TQ0?00000000002@2h2fd200040000;@4000@0 000]0@8010000?010@070000o080072kL00000@0000]0@40100002d1000<0000 @0TQ0?00000000003@2h2gH200040000;@4000@0000]0@8010000?010@070000 o08006niK`0000@0000]0@40100002d1000<0000@0TQ0?00000000002@2h2h<2 00040000;@4000@0000]0@8010000?010@070000o08006jgKP0000@0000]0@40 100002d1000<0000@0TQ0?00000000002@2h2h`200040000;@4000@0000]0@80 10000?010@070000o08006feK@0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2iD200040000;@4000@0000]0@8010000?010@070000o08006^c J`0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2j0200040000 ;@4000@0000]0@8010000?010@070000o08006ZaJP0000@0000]0@40100002d1 000<0000@0TQ0?00000000002@2h2j/200040000;@4000@0000]0@8010000?01 0@070000o08006V_J@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 202h2k@200040000;@4000@0000]0@8010000?010@070000o08006R]J00000@0 000]0@40100002d1000<0000@0TQ0?00000000003P2h2k`200040000;@4000@0 000]0@8010000?010@070000o08006N[I`0000@0000]0@40100002d1000<0000 @0TQ0?0000000000202h2lX200040000;@4000@0000]0@8010000?010@070000 o08006JYIP0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2m82 00040000;@4000@0000]0@8010000?010@070000o08006BWI00000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2md200040000;@4000@0000]0@80 10000?010@070000o08006>UH`0000@0000]0@40100002d1000<0000@0TQ0?00 000000002@2h2nP200040000;@4000@0000]0@8010000?010@070000o08006:S HP0000@0000]0@40100002d1000<0000@0TQ0?00000000003@2h2o4200040000 ;@4000@0000]0@8010000?010@070000o080066QH@0000@0000]0@40100002d1 000<0000@0TQ0?00000000002@2h2oh200040000;@4000@0000]0@8010000?01 0@070000o080062OH00000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2`L300040000;@4000@0000]0@8010000?010@070000o08005jMGP0000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2a8300040000;@4000@0 000]0@8010000?010@070000o08005fKG@0000@0000]0@40100002d1000<0000 @0TQ0?00000000003@2h2ad300040000;@4000@0000]0@8010000?010@070000 o08005bIG00000@0000]0@40100002d1000<0000@0TQ0?00000000002@2h2bX3 00040000;@4000@0000]0@8010000?010@070000o08005^GF`0000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2c<300040000;@4000@0000]0@80 10000?010@070000o08005VEF@0000@0000]0@40100002d1000<0000@0TQ0?00 000000003`2h2ch300040000;@4000@0000]0@8010000?010@070000o08005VC F@0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2dd300040000 ;@4000@0000]0@8010000?010@070000o08005NAE`0000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2eP300040000;@4000@0000]0@8010000?01 0@070000o08005J?EP0000@0000]0@40100002d1000<0000@0TQ0?0000000000 402h2f<300040000;@4000@0000]0@8010000?010@070000o08005B=E00000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2g<300040000;@4000@0 000]0@8010000?010@070000o08005B;E00000@0000]0@40100002d1000<0000 @0TQ0?00000000003`2h2gh300040000;@4000@0000]0@8010000?010@070000 o08005:9DP0000@0000]0@40100002d1000<0000@0TQ0?00000000004P2h2hd3 00040000;@4000@0000]0@8010000?010@070000o0800567D@0000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2il300040000;@4000@0000]0@80 10000?010@070000o0800525D00000@0000]0@40100002d1000<0000@0TQ0?00 000000003`2h2jX300040000;@4000@0000]0@8010000?010@070000o08004n3 C`0000@0000]0@40100002d1000<0000@0TQ0?00000000004P2h2kT300040000 ;@4000@0000]0@8010000?010@070000o08004j1CP0000@0000]0@40100002d1 000<0000@0TQ0?00000000006P2h2l/300040000;@4000@0000]0@8010000?01 0@070000o08004aoC00000@0000]0@40100002d1000<0000@0TQ0?0000000000 4P2h2nD300040000;@4000@0000]0@8010000?010@070000o08004]mB`0000@0 000]0@40100002d1000<0000@0TQ0?00000000006P2h2oL300040000;@4000@0 000]0@8010000?010@070000o08004YkBP0000@0000]0@40100002d1000<0000 @0TQ0?00000000006P2h2a4400040000;@4000@0000]0@8010000?010@070000 o08004UiB@0000@0000]0@40100002d1000<0000@0TQ0?00000000006`2h2b/4 00040000;@4000@0000]0@8010000?010@070000o08004QgB00000@0000]0@40 100002d1000<0000@0TQ0?0000000000C`2h2dH400040000;@4000@0000]0@80 10000?010@070000o08004UiB@0000@0000]0@40100002d1000<0000@0TQ0?00 000000006P2h2iD400040000;@4000@0000]0@8010000?010@070000o08004Yk BP0000@0000]0@40100002d1000<0000@0TQ0?00000000006P2h2jl400040000 ;@4000@0000]0@8010000?010@070000o08004]mB`0000@0000]0@40100002d1 000<0000@0TQ0?00000000004P2h2lT400040000;@4000@0000]0@8010000?01 0@070000o08004aoC00000@0000]0@40100002d1000<0000@0TQ0?0000000000 6P2h2m/400040000;@4000@0000]0@8010000?010@070000o08004j1CP0000@0 000]0@40100002d1000<0000@0TQ0?00000000004P2h2oD400040000;@4000@0 000]0@8010000?010@070000o08004n3C`0000@0000]0@40100002d1000<0000 @0TQ0?00000000004P2h2`L500040000;@4000@0000]0@8010000?010@070000 o0800525D00000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2aT5 00040000;@4000@0000]0@8010000?010@070000o0800567D@0000@0000]0@40 100002d1000<0000@0TQ0?00000000003`2h2b@500040000;@4000@0000]0@80 10000?010@070000o08005:9DP0000@0000]0@40100002d1000<0000@0TQ0?00 000000004P2h2c<500040000;@4000@0000]0@8010000?010@070000o08005B; E00000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2dD500040000 ;@4000@0000]0@8010000?010@070000o08005B=E00000@0000]0@40100002d1 000<0000@0TQ0?00000000003`2h2e0500040000;@4000@0000]0@8010000?01 0@070000o08005J?EP0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2el500040000;@4000@0000]0@8010000?010@070000o08005NAE`0000@0 000]0@40100002d1000<0000@0TQ0?00000000003@2h2fX500040000;@4000@0 000]0@8010000?010@070000o08005RCF00000@0000]0@40100002d1000<0000 @0TQ0?00000000002`2h2gL500040000;@4000@0000]0@8010000?010@070000 o08005VEF@0000@0000]0@40100002d1000<0000@0TQ0?00000000003`2h2h85 00040000;@4000@0000]0@8010000?010@070000o08005ZGFP0000@0000]0@40 100002d1000<0000@0TQ0?00000000002@2h2i4500040000;@4000@0000]0@80 10000?010@070000o08005^IF`0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2iX500040000;@4000@0000]0@8010000?010@070000o08005fK G@0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2jD500040000 ;@4000@0000]0@8010000?010@070000o08005jMGP0000@0000]0@40100002d1 000<0000@0TQ0?00000000003@2h2k0500040000;@4000@0000]0@8010000?01 0@070000o08005nOG`0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2@2h2kd500040000;@4000@0000]0@8010000?010@070000o080062QH00000@0 000]0@40100002d1000<0000@0TQ0?00000000002`2h2lH500040000;@4000@0 000]0@8010000?010@070000o08006:SHP0000@0000]0@40100002d1000<0000 @0TQ0?00000000002`2h2m4500040000;@4000@0000]0@8010000?010@070000 o08006>UH`0000@0000]0@40100002d1000<0000@0TQ0?00000000002@2h2m`5 00040000;@4000@0000]0@8010000?010@070000o08006BWI00000@0000]0@40 100002d1000<0000@0TQ0?00000000003@2h2nD500040000;@4000@0000]0@80 10000?010@070000o08006FYI@0000@0000]0@40100002d1000<0000@0TQ0?00 000000002@2h2o8500040000;@4000@0000]0@8010000?010@070000o08006J[ IP0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2o/500040000 ;@4000@0000]0@8010000?010@070000o08006R]J00000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2`H600040000;@4000@0000]0@8010000?01 0@070000o08006V_J@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2@2h2a4600040000;@4000@0000]0@8010000?010@070000o08006ZaJP0000@0 000]0@40100002d1000<0000@0TQ0?0000000000202h2aX600040000;@4000@0 000]0@8010000?010@070000o08006^cJ`0000@0000]0@40100002d1000<0000 @0TQ0?00000000003P2h2b8600040000;@4000@0000]0@8010000?010@070000 o08006beK00000@0000]0@40100002d1000<0000@0TQ0?0000000000202h2c06 00040000;@4000@0000]0@8010000?010@070000o08006fgK@0000@0000]0@40 100002d1000<0000@0TQ0?00000000002@2h2cP600040000;@4000@0000]0@80 10000?010@070000o08006niK`0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2d4600040000;@4000@0000]0@8010000?010@070000o080072k L00000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2d`600040000 ;@4000@0000]0@8010000?010@070000o080076mL@0000@0000]0@40100002d1 000<0000@0TQ0?00000000002@2h2eL600040000;@4000@0000]0@8010000?01 0@070000o08007>oL`0000@0000]0@40100002d1000<0000@0TQ0?0000000000 3@2h2f0600040000;@4000@0000]0@8010000?010@070000o08007C1M00000@0 000]0@40100002d1000<0000@0TQ0?00000000002@2h2fd600040000;@4000@0 000]0@8010000?010@070000o08007G3M@0000@0000]0@40100002d1000<0000 @0TQ0?00000000002@2h2gH600040000;@4000@0000]0@8010000?010@070000 o08007K5MP0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2gl6 00040000;@4000@0000]0@8010000?010@070000o08007O7M`0000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2hX600040000;@4000@0000]0@80 10000?010@070000o08007W9N@0000@0000]0@40100002d1000<0000@0TQ0?00 000000003@2h2iD600040000;@4000@0000]0@8010000?010@070000o08007[; NP0000@0000]0@40100002d1000<0000@0TQ0?00000000002@2h2j8600040000 ;@4000@0000]0@8010000?010@070000o08007_=N`0000@0000]0@40100002d1 000<0000@0TQ0?00000000002`2h2j/600040000;@4000@0000]0@8010000?01 0@070000o08007c?O00000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2kH600040000;@4000@0000]0@8010000?010@070000o08007gAO@0000@0 000]0@40100002d1000<0000@0TQ0?00000000003@2h2l4600040000;@4000@0 000]0@8010000?010@070000o08007kCOP0000@0000]0@40100002d1000<0000 @0TQ0?00000000002`2h2lh600040000;@4000@0000]0@8010000?010@070000 o080083EP00000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2mT6 00040000;@4000@0000]0@8010000?010@070000o080087GP@0000@0000]0@40 100002d1000<0000@0TQ0?00000000003@2h2n@600040000;@4000@0000]0@80 10000?010@070000o08008;IPP0000@0000]0@40100002d1000<0000@0TQ0?00 000000002`2h2o4600040000;@4000@0000]0@8010000?010@070000o08008?K P`0000@0000]0@40100002d1000<0000@0TQ0?00000000002`2h2o`600040000 ;@4000@0000]0@8010000?010@070000o08008CMQ00000@0000]0@40100002d1 000<0000@0TQ0?00000000003`2h2`L700040000;@4000@0000]0@8010000?01 0@070000o08008KOQP0000@0000]0@40100002d1000<0000@0TQ0?0000000000 2`2h2aH700040000;@4000@0000]0@8010000?010@070000o08008OQQ`0000@0 000]0@40100002d1000<0000@0TQ0?0000000000402h2b4700040000;@4000@0 000]0@8010000?010@070000o08008SSR00000@0000]0@40100002d1000<0000 @0TQ0?00000000004@2h2c4700040000;@4000@0000]0@8010000?010@070000 o08008[URP0000@0000]0@40100002d1000<0000@0TQ0?0000000000402h2d87 00040000;@4000@0000]0@8010000?010@070000o08008[WRP0000@0000]0@40 100002d1000<0000@0TQ0?00000000002`2h2e8700040000;@4000@0000]0@80 10000?010@070000o08008cYS00000@0000]0@40100002d1000<0000@0TQ0?00 000000004@2h2ed700040000;@4000@0000]0@8010000?010@070000o08008g[ S@0000@0000]0@40100002d1000<0000@0TQ0?00000000004P2h2fh700040000 ;@4000@0000]0@8010000?010@070000o08008k]SP0000@0000]0@40100002d1 000<0000@0TQ0?00000000006P2h2h0700040000;@4000@0000]0@8010000?01 0@070000o080093_T00000@0000]0@40100002d1000<0000@0TQ0?0000000000 4P2h2iX700040000;@4000@0000]0@8010000?010@070000o080097aT@0000@0 000]0@40100002d1000<0000@0TQ0?00000000004@2h2j`700040000;@4000@0 000]0@8010000?010@070000o08009;cTP0000@0000]0@40100002d1000<0000 @0TQ0?00000000006`2h2kd700040000;@4000@0000]0@8010000?010@070000 o08009?eT`0000@0000]0@40100002d1000<0000@0TQ0?00000000006P2h2mP7 00040000;@4000@0000]0@8010000?010@070000o08009CgU00000@0000]0@40 100002d1000<0000@0TQ0?00000000008`2h2o8700040000;@4000@0000]0@80 10000?010@070000o08009GiU@0000@0000]0@40100002d1000<0000@0TQ0?00 000000008`2h2aD800040000;@4000@0000]0@8010000?010@070000o08009Kk UP0000@0000]0@40100002d1000<0000@0TQ0?0000000000=@2h2cP800040000 ;@4000@0000]0@8010000?010@070000o08009SmV00000@0000]0@40100002d1 000<0000@0TQ0?0000000000AP2h2fd800040000;@4000@0000]0@8010000?01 0@070000o08009WoV@0000@0000]0@40100002d1000<0000@0TQ0?0000000000 5P2h2k<800040000;@4000@0000]0@8010000?010@080000nP80000000000000 100002d10@0400009`7oo`<0000N00L0003l0P00^n3S0000100002d10`040000 ;@4000`000102B40l0000000000?18P5V0810`@0000]0@40100002d10P040000 ;@4300@0000]0@00300004098@3`0000000000l4R0FH0P43100002d10@040000 ;@4200<0000N00<0000N00@0000]0@40100002d10P040000;P4000D000090P00 000500000@;oool0100000@13@0L0000n`8800<000000;`2000000L20R9CNG=d IFd00000000000000000000000000000000000@0000]0@@01@0000T2000000@0 00020@401@000042oooo00@0000^0AP020000?X200080000000000@0000]0@D0 1@0001@2Z`IGLPDVm]HFh00000000000000000000000@0000]0@H02@00038:G0Jc1P40 000aVUX02@00038:G0Ic1040000`VU/02@00038:C@G41P40000`VUX02@00038: C@Ec1040000`VU/02@00038:f0Q0`40000bVSH070000?/2 Bol00000002@0@0000870P0@DgU]HVm/00000000000000000000000000000000 00040000;@4600@0003`0@L02@00038:G0Hi1P40000mVV<02@00038:G0KY0`40 000mVV802@00038:C@Di1P40000mVV<02@00038:C@GY0`40000mVV802@00038: f0>91`40000mVV<02@00038:f01@800011E6l0I@0:00001D0;?hL01Pg5@1hi00Q01`0?@0m01/0>00m03d0701803d0?@0m03d0>00X03D0 701803d0?@0m01`08P0L03d0?@0g00@0000^0@00100002d11`040000l04400<0 000000000000000000000000000004i1CTT0000020030000002l0P0000010P8R DgUcM6E]000000000@0007000000002063LE000000040000;@4700@0003`0@D0 10000?011P040000;@4200@0000]0@40100002L1oolL0000n`8800<000000;`2 000000420R9CNG=dIFd006fIP7cl>1D0o3PE0C6<0@0000]0@D0 10000?01100400009`7oo`@0000W0Ooo70000?/2W?l00000002l0P000000@000 @G9YHF`00000000000000000000000000000000000040000;@4400@0000^0AP0 100000810@0500002@800002AP00038:907C0BX00017KgIULViYKVLPAG5eHGAY\>"], "Graphics", ImageSize->{360, 270}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Reference :", FontWeight->"Bold"], "\nM. N. \[CapitalODoubleDot]zisik, Heat Conduction, Wiley, New York, \ 1980." }], "Subsubtitle", Background->RGBColor[0.773449, 0.996109, 0.996109]], Cell[CellGroupData[{ Cell["Exact Solution", "Subsubtitle", Background->RGBColor[0.929702, 0.996109, 0.566415]], Cell[CellGroupData[{ Cell[BoxData[ \(sol = DSolve[{D[T[x], {x, 2}] + A\ T[x] + B\ x \[Equal] 0, T[0] \[Equal] \ 0, T[1] \[Equal] \ 0}, T[x], x]\)], "Input"], Cell[BoxData[ \({{T[ x] \[Rule] \(\(-B\)\ x + B\ Csc[\@A]\ Sin[\@A\ x]\)\/A}}\)], \ "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Approximate Solution using the Ritz Method", "Subsubtitle", Background->RGBColor[0.929702, 0.996109, 0.566415]], Cell[BoxData[ \(T2[x_] := \ c1\ \[Phi]\_1[x] + c2\ \[Phi]\_2[x]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(It = Integrate[ D[T2[x], {x, 1}]^2 - A\ T2[x]^2 - 2 B\ x\ T2[x], {x, 0, 1}]\)], "Input"], Cell[BoxData[ RowBox[{\(\[Integral]\_0\%1\), RowBox[{ RowBox[{"(", RowBox[{\(\(-2\)\ B\ x\ \((c1\ \[Phi]\_1[x] + c2\ \[Phi]\_2[x])\)\), "-", \(A\ \((c1\ \[Phi]\_1[x] + c2\ \[Phi]\_2[x])\)\^2\), "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"c1", " ", RowBox[{ SuperscriptBox[\(\[Phi]\_1\), "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}], "+", RowBox[{"c2", " ", RowBox[{ SuperscriptBox[\(\[Phi]\_2\), "\[Prime]", MultilineFunction->None], "[", "x", "]"}]}]}], ")"}], "2"]}], ")"}], \(\[DifferentialD]x\)}]}]], "Output"] }, Open ]], Cell[BoxData[ \(\[Phi]\_1[x_] := x\ \((1 - x)\)\)], "Input"], Cell[BoxData[ \(\[Phi]\_2[x_] := x^2\ \((1 - x)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(It\)], "Input"], Cell[BoxData[ \(\(-\(\(B\ c1\)\/6\)\) + c1\^2\/3 - \(A\ c1\^2\)\/30 - \(B\ c2\)\/10 + \(c1\ c2\)\/3 - \(A\ c1\ \ c2\)\/30 + \(2\ c2\^2\)\/15 - \(A\ c2\^2\)\/105\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(sol2 = Solve[{D[It, {c1, 1}] \[Equal] 0, D[It, {c2, 1}] \[Equal] 0}, {c1, c2}]\)], "Input"], Cell[BoxData[ \({{c1 \[Rule] \(-\(\(\(-70\)\ B - A\ B\)\/\(\((\(-42\) + A)\)\ \((\(-10\) + A)\)\)\)\), c2 \[Rule] \(-\(\(7\ B\)\/\(\(-42\) + A\)\)\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(% /. A \[Rule] 1\) /. B \[Rule] 1\)], "Input"], Cell[BoxData[ \({{c1 \[Rule] 71\/369, c2 \[Rule] 7\/41}}\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Comparing Exact and Approximate Solutions", "Subsubtitle", Background->RGBColor[0.929702, 0.996109, 0.566415]], Cell[CellGroupData[{ Cell[BoxData[ \(xd = Table[x, {x, 0.25, 0.85, 0.05}]\)], "Input"], Cell[BoxData[ \({0.25`, 0.3`, 0.35`, 0.4`, 0.45`, 0.5`, 0.55`, 0.6`, 0.65`, 0.7000000000000001`, 0.75`, 0.8`, 0.8500000000000001`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(tbl1 = \(Table[First[T[x] /. sol], {x, 0.25, 0.85, 0.05}] /. A \[Rule] 1\) /. B \[Rule] 1\)], "Input"], Cell[BoxData[ \({0.04401365432820481`, 0.05119476725487487`, 0.05749807616210695`, 0.06278285209982937`, 0.06691091191995241`, 0.06974696366227462`, 0.07115894471392381`, 0.07101835189711314`, 0.06920056266016172`, 0.06558514656897252`, 0.060056166320397564`, 0.05250246752511789`, 0.04281795653572784`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(tbl2 = \(Table[First[T2[x] /. sol2], {x, 0.25, 0.85, 0.05}] /. A \[Rule] 1\) /. B \[Rule] 1\)], "Input"], Cell[BoxData[ \({0.044080284552845524`, 0.05116260162601626`, 0.057368224932249315`, 0.06256910569105692`, 0.06663719512195122`, 0.06944444444444445`, 0.07086280487804877`, 0.07076422764227643`, 0.06902066395663956`, 0.0655040650406504`, 0.060086382113821134`, 0.05263956639566396`, 0.04303556910569104`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(tbl3 = 100 \((tbl2 - tbl1)\)/tbl1\)], "Input"], Cell[BoxData[ \({0.15138534997312386`, \(-0.06282991521081446`\), \ \(-0.22583578186431436`\), \(-0.3404534863000086`\), \ \(-0.4090764722032814`\), \(-0.43373819008812425`\), \ \(-0.41616670548669676`\), \(-0.35782899496861686`\), \ \(-0.2599671109693668`\), \(-0.1236278830860729`\), 0.05031255785187785`, 0.2611284326407668`, 0.5082273596630468`}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Join[{{x, \ Exact, \ Approx, \ Perc . \ \ Error}}, Transpose[{xd, tbl1, tbl2, tbl3}]] // MatrixForm\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"x", "Exact", "Approx", \(Perc . Error\)}, {"0.25`", "0.04401365432820481`", "0.044080284552845524`", "0.15138534997312386`"}, {"0.3`", "0.05119476725487487`", "0.05116260162601626`", \(-0.06282991521081446`\)}, {"0.35`", "0.05749807616210695`", "0.057368224932249315`", \(-0.22583578186431436`\)}, {"0.4`", "0.06278285209982937`", "0.06256910569105692`", \(-0.3404534863000086`\)}, {"0.45`", "0.06691091191995241`", "0.06663719512195122`", \(-0.4090764722032814`\)}, {"0.5`", "0.06974696366227462`", "0.06944444444444445`", \(-0.43373819008812425`\)}, {"0.55`", "0.07115894471392381`", "0.07086280487804877`", \(-0.41616670548669676`\)}, {"0.6`", "0.07101835189711314`", "0.07076422764227643`", \(-0.35782899496861686`\)}, {"0.65`", "0.06920056266016172`", "0.06902066395663956`", \(-0.2599671109693668`\)}, {"0.7000000000000001`", "0.06558514656897252`", "0.0655040650406504`", \(-0.1236278830860729`\)}, {"0.75`", "0.060056166320397564`", "0.060086382113821134`", "0.05031255785187785`"}, {"0.8`", "0.05250246752511789`", "0.05263956639566396`", "0.2611284326407668`"}, {"0.8500000000000001`", "0.04281795653572784`", "0.04303556910569104`", "0.5082273596630468`"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(plt1 = Plot[\(\(T[x] /. sol\) /. A \[Rule] 1\) /. B \[Rule] 1, {x, 0, 1}, PlotStyle \[Rule] RGBColor[1, 0, 0], DisplayFunction \[Rule] \ Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(plt2 = Plot[\(\(T2[x] /. sol2\) /. A \[Rule] 1\) /. B \[Rule] 1, {x, 0, 1}, PlotStyle \[Rule] RGBColor[0, 0, 1], DisplayFunction \[Rule] \ Identity]\)], "Input"], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[plt1, plt2, DisplayFunction \[Rule] \ $DisplayFunction]\)], "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.952381 0.0147151 8.25574 [ [.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 -3 -9 ] [.97619 .00222 3 0 ] [.01131 .09727 -24 -4.5 ] [.01131 .09727 0 4.5 ] [.01131 .17983 -24 -4.5 ] [.01131 .17983 0 4.5 ] [.01131 .26239 -24 -4.5 ] [.01131 .26239 0 4.5 ] [.01131 .34494 -24 -4.5 ] [.01131 .34494 0 4.5 ] [.01131 .4275 -24 -4.5 ] [.01131 .4275 0 4.5 ] [.01131 .51006 -24 -4.5 ] [.01131 .51006 0 4.5 ] [.01131 .59262 -24 -4.5 ] [.01131 .59262 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 [(0.2)] .21429 .00222 0 1 Mshowa .40476 .01472 m .40476 .02097 L s [(0.4)] .40476 .00222 0 1 Mshowa .59524 .01472 m .59524 .02097 L s [(0.6)] .59524 .00222 0 1 Mshowa .78571 .01472 m .78571 .02097 L s [(0.8)] .78571 .00222 0 1 Mshowa .97619 .01472 m .97619 .02097 L s [(1)] .97619 .00222 0 1 Mshowa .125 Mabswid .07143 .01472 m .07143 .01847 L s .11905 .01472 m .11905 .01847 L s .16667 .01472 m .16667 .01847 L s .2619 .01472 m .2619 .01847 L s .30952 .01472 m .30952 .01847 L s .35714 .01472 m .35714 .01847 L s .45238 .01472 m .45238 .01847 L s .5 .01472 m .5 .01847 L s .54762 .01472 m .54762 .01847 L s .64286 .01472 m .64286 .01847 L s .69048 .01472 m .69048 .01847 L s .7381 .01472 m .7381 .01847 L s .83333 .01472 m .83333 .01847 L s .88095 .01472 m .88095 .01847 L s .92857 .01472 m .92857 .01847 L s .25 Mabswid 0 .01472 m 1 .01472 L s .02381 .09727 m .03006 .09727 L s [(0.01)] .01131 .09727 1 0 Mshowa .02381 .17983 m .03006 .17983 L s [(0.02)] .01131 .17983 1 0 Mshowa .02381 .26239 m .03006 .26239 L s [(0.03)] .01131 .26239 1 0 Mshowa .02381 .34494 m .03006 .34494 L s [(0.04)] .01131 .34494 1 0 Mshowa .02381 .4275 m .03006 .4275 L s [(0.05)] .01131 .4275 1 0 Mshowa .02381 .51006 m .03006 .51006 L s [(0.06)] .01131 .51006 1 0 Mshowa .02381 .59262 m .03006 .59262 L s [(0.07)] .01131 .59262 1 0 Mshowa .125 Mabswid .02381 .03123 m .02756 .03123 L s .02381 .04774 m .02756 .04774 L s .02381 .06425 m .02756 .06425 L s .02381 .08076 m .02756 .08076 L s .02381 .11378 m .02756 .11378 L s .02381 .1303 m .02756 .1303 L s .02381 .14681 m .02756 .14681 L s .02381 .16332 m .02756 .16332 L s .02381 .19634 m .02756 .19634 L s .02381 .21285 m .02756 .21285 L s .02381 .22936 m .02756 .22936 L s .02381 .24588 m .02756 .24588 L s .02381 .2789 m .02756 .2789 L s .02381 .29541 m .02756 .29541 L s .02381 .31192 m .02756 .31192 L s .02381 .32843 m .02756 .32843 L s .02381 .36146 m .02756 .36146 L s .02381 .37797 m .02756 .37797 L s .02381 .39448 m .02756 .39448 L s .02381 .41099 m .02756 .41099 L s .02381 .44401 m .02756 .44401 L s .02381 .46053 m .02756 .46053 L s .02381 .47704 m .02756 .47704 L s .02381 .49355 m .02756 .49355 L s .02381 .52657 m .02756 .52657 L s .02381 .54308 m .02756 .54308 L s .02381 .55959 m .02756 .55959 L s .02381 .57611 m .02756 .57611 L s .02381 .60913 m .02756 .60913 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 1 0 0 r .5 Mabswid .02381 .01472 m .06244 .0777 L .10458 .14562 L .14415 .20795 L .18221 .26588 L .22272 .32469 L .26171 .37782 L .30316 .42983 L .34309 .47486 L .3815 .51284 L .42237 .54681 L .46172 .57258 L .48147 .58276 L .49955 .59036 L .51896 .59664 L .52966 .59924 L .535 .6003 L .53984 .60113 L .54444 .6018 L .54943 .60238 L .55217 .60264 L .55469 .60285 L .55725 .60302 L .55964 .60314 L .5617 .60322 L .56286 .60326 L .56391 .60328 L .56506 .6033 L .56631 .60332 L .56749 .60332 L .56859 .60331 L .56971 .6033 L .57076 .60329 L .57192 .60326 L .57317 .60322 L .5757 .60312 L .57803 .60299 L .58277 .60262 L .58784 .60209 L .59696 .60073 L .6078 .59845 L .61766 .59575 L .63684 .58871 L .65764 .57839 L .69856 .54956 L .73796 .51068 L .77585 .4625 L .81619 .39908 L .85501 .32576 L .89629 .2341 L Mistroke .93605 .13199 L .97429 .02058 L .97619 .01472 L Mfstroke 0 0 1 r .02381 .01472 m .06244 .07877 L .10458 .14729 L .14415 .20974 L .18221 .26748 L .22272 .32583 L .26171 .37838 L .30316 .42968 L .34309 .47402 L .3815 .5114 L .42237 .54483 L .46172 .57025 L .48147 .58032 L .49955 .58786 L .51896 .59413 L .52966 .59674 L .53984 .59865 L .54478 .59938 L .54943 .59994 L .552 .6002 L .55479 .60044 L .5571 .60061 L .55964 .60076 L .56081 .60081 L .56205 .60086 L .56313 .6009 L .5643 .60093 L .56562 .60096 L .56687 .60098 L .56809 .60099 L .56922 .60099 L .57027 .60098 L .57125 .60097 L .57233 .60095 L .57349 .60092 L .57586 .60084 L .57803 .60073 L .58277 .60041 L .58542 .60017 L .58784 .59992 L .59696 .59865 L .60207 .59772 L .6076 .59654 L .61766 .59391 L .63753 .58685 L .65858 .57662 L .69646 .55076 L .7368 .5122 L .77563 .46377 L .8169 .39944 L Mistroke .85666 .32434 L .89491 .23936 L .93561 .13458 L .97479 .01912 L .97619 .01472 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 177.938}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg`0oooo00<0003o0?ooo`3oool02P3oool001/0oooo00<0 00000?ooo`3oool01P3oool00`000?l0oooo0?ooo`3/0?ooo`030000o`3oool0oooo00X0oooo000K 0?ooo`030000003oool0oooo00L0oooo00<0003o0?ooo`3oool0jP3oool00`000?l0oooo0?ooo`0; 0?ooo`006`3oool2000000T0oooo00<0003o0?ooo`3oool0j@3oool00`000?l0oooo0?ooo`0;0?oo o`006`3oool00`000000oooo0?ooo`080?ooo`030000o`3oool0oooo0>T0oooo00<0003o0?ooo`3o ool02`3oool00080oooo0P0000040?ooo`800000103oool2000000<0oooo1@0000030?ooo`030000 003oool0oooo00T0oooo00<0003o0?ooo`3oool0i`3oool00`000?l0oooo0?ooo`0<0?ooo`0000D0 oooo0000003oool0oooo000000080?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3o ool00`3oool00`000000oooo0?ooo`090?ooo`030000o`3oool0oooo0>L0oooo00<0003o0?ooo`3o ool0303oool000050?ooo`000000oooo0?ooo`000000203oool010000000oooo0?ooo`0000040?oo o`030000003oool0oooo00<0oooo0P00000;0?ooo`030000o`3oool0oooo0>D0oooo00<0o`000000 o`3oool03@3oool000050?ooo`000000oooo0?ooo`000000203oool010000000oooo0?ooo`000004 0?ooo`030000003oool0oooo00<0oooo00<000000?ooo`3oool02`3oool00`000?l0oooo0?ooo`3T 0?ooo`030000o`3oool0oooo00d0oooo00001@3oool000000?ooo`3oool0000000P0oooo00@00000 0?ooo`3oool00000103oool00`000000oooo0?ooo`030?ooo`030000003oool0oooo00/0oooo00<0 003o0?ooo`3oool0i03oool00`000?l0oooo0?ooo`0=0?ooo`000P3oool2000000X0oooo0P000004 0?ooo`8000001@3oool00`000000oooo0?ooo`0<0?ooo`030000o`3oool0oooo0>80oooo00<0003o 0?ooo`3oool03P3oool001/0oooo0P00000=0?ooo`030000o`3oool0oooo0>80oooo00<0003o0?oo o`3oool03P3oool001/0oooo00<000000?ooo`3oool03@3oool00`000?l0oooo0?ooo`3Q0?ooo`03 0000o`3oool0oooo00h0oooo000K0?ooo`030000003oool0oooo00h0oooo00<0003o0?ooo`3oool0 g`3oool00`000?l0oooo0?ooo`0?0?ooo`006`3oool00`000000oooo0?ooo`0>0?ooo`030000o`3o ool0oooo0=l0oooo00<0003o0?ooo`3oool03`3oool001/0oooo00<000000?ooo`3oool03`3oool0 0`000?l0oooo0?ooo`3M0?ooo`030?l000000?l0oooo0100oooo000K0?ooo`8000004@3oool00`00 0?l0oooo0?ooo`3L0?ooo`030000o`3oool0oooo0100oooo000K0?ooo`030000003oool0oooo0100 oooo00<0003o0?ooo`3oool0g03oool00`000?l0oooo0?ooo`0@0?ooo`006`3oool00`000000oooo 0?ooo`0A0?ooo`030000o`3oool0oooo0=X0oooo00<0o`000000o`3oool04@3oool001/0oooo00<0 00000?ooo`3oool04@3oool00`000?l0oooo0?ooo`3J0?ooo`030000o`3oool0oooo0140oooo000K 0?ooo`8000004`3oool00`000?l0oooo0?ooo`3I0?ooo`030000o`3oool0oooo0140oooo000K0?oo o`030000003oool0oooo01<0oooo00<0003o0?ooo`3oool0e`3oool00`3o0000003o0?ooo`0B0?oo o`006`3oool00`000000oooo0?ooo`0C0?ooo`030000o`3oool0oooo0=L0oooo00<0003o0?ooo`3o ool04P3oool001/0oooo00<000000?ooo`3oool0503oool00`000?l0oooo0?ooo`3E0?ooo`030?l0 00000?l0oooo01<0oooo000K0?ooo`8000005P3oool00`000?l0oooo0?ooo`3D0?ooo`030000o`3o ool0oooo01<0oooo000K0?ooo`030000003oool0oooo01D0oooo00<0003o0?ooo`3oool0e03oool0 0`000?l0oooo0?ooo`0C0?ooo`006`3oool00`000000oooo0?ooo`0F0?ooo`030000o`3oool0oooo 0=80oooo00<0o`000000o`3oool0503oool00080oooo0P0000040?ooo`800000103oool2000000<0 oooo100000040?ooo`030000003oool0oooo01L0oooo00<0003o0?ooo`3oool0d@3oool00`000?l0 oooo0?ooo`0D0?ooo`0000D0oooo0000003oool0oooo000000080?ooo`040000003oool0oooo0000 0080oooo00<000000?ooo`3oool01@3oool00`000000oooo0?ooo`0G0?ooo`030000o`3oool0oooo 0=40oooo00<0003o0?ooo`3oool0503oool000050?ooo`000000oooo0?ooo`000000203oool01000 0000oooo0?ooo`0000030?ooo`030000003oool0oooo00@0oooo0P00000I0?ooo`030000o`3oool0 oooo0P3oool00`000?l0oooo0?ooo`2G0?oo o`030000o`3oool0oooo02/0oooo000K0?ooo`030000003oool0oooo03/0oooo00<0003o0?ooo`3o ool0U@3oool00`000?l0o`000?ooo`0/0?ooo`006`3oool00`000000oooo0?ooo`0k0?ooo`030000 o`3oool0oooo09D0oooo00<0003o0?ooo`3oool0;03oool001/0oooo0P00000m0?ooo`030000o`3o ool0oooo09<0oooo00<0003o0?l0003oool0;@3oool001/0oooo00<000000?ooo`3oool0?@3oool0 0`000?l0oooo0?ooo`2B0?ooo`030000o`3oool0oooo02d0oooo000K0?ooo`030000003oool0oooo 03h0oooo00<0003o0?ooo`3oool0T03oool00`000?l0o`000?ooo`0^0?ooo`006`3oool00`000000 oooo0?ooo`0o0?ooo`030000o`3oool0oooo08l0oooo00<0003o0?ooo`3oool0;P3oool001/0oooo 0P0000100?ooo`030000o`3oool0oooo08h0oooo00<0003o0?l0003oool0;`3oool001/0oooo00<0 00000?ooo`3oool0@03oool00`000?l0oooo0?ooo`2=0?ooo`030000o`3oool0oooo02l0oooo000K 0?ooo`030000003oool0oooo0440oooo00<0003o0?ooo`3oool0R`3oool00`000?l0oooo0?ooo`0` 0?ooo`006`3oool00`000000oooo0?ooo`120?ooo`030000o`3oool0oooo08X0oooo00<0003o0?oo o`3oool0<03oool001/0oooo0P0000140?ooo`030000o`3oool0oooo08P0oooo00<0003o0?ooo`3o ool0<@3oool001/0oooo00<000000?ooo`3oool0A03oool00`000?l0oooo0?ooo`260?ooo`030000 o`3oool0oooo0380oooo000K0?ooo`030000003oool0oooo04@0oooo00<0003o0?ooo`3oool0QP3o ool00`000?l0oooo0?ooo`0b0?ooo`000P3oool2000000@0oooo0P0000040?ooo`800000103oool2 000000D0oooo00<000000?ooo`3oool0A@3oool00`000?l0oooo0?ooo`240?ooo`030000o`3oool0 oooo03<0oooo00001@3oool000000?ooo`3oool0000000P0oooo00@000000?ooo`3oool000000P3o ool010000000oooo0?ooo`0000040?ooo`030000003oool0oooo04H0oooo00<0003o0?ooo`3oool0 PP3oool00`000?l0oooo0?ooo`0d0?ooo`0000D0oooo0000003oool0oooo000000080?ooo`040000 003oool0oooo000000D0oooo00<000000?ooo`3oool00P3oool2000004P0oooo00<0003o0?ooo`3o ool0P@3oool00`000?l0oooo0?ooo`0d0?ooo`0000D0oooo0000003oool0oooo000000080?ooo`04 0000003oool0oooo000000<0oooo0P0000050?ooo`030000003oool0oooo04P0oooo00<0003o0?oo o`3oool0O`3oool00`000?l0oooo0?ooo`0e0?ooo`0000D0oooo0000003oool0oooo000000080?oo o`040000003oool0oooo000000<0oooo00<000000?ooo`3oool0103oool00`000000oooo0?ooo`19 0?ooo`030000o`3oool0oooo07h0oooo00<0003o0?ooo`3oool0=@3oool00080oooo0P00000:0?oo o`800000103oool3000000@0oooo00<000000?ooo`3oool0BP3oool00`000?l0oooo0?ooo`1l0?oo o`030000o`3oool0oooo03H0oooo000K0?ooo`800000C03oool00`000?l0oooo0?ooo`1j0?ooo`03 0000o`3oool0oooo03L0oooo000K0?ooo`030000003oool0oooo04`0oooo00<0003o0?ooo`3oool0 N@3oool00`000?l0oooo0?ooo`0g0?ooo`006`3oool00`000000oooo0?ooo`1<0?ooo`030000o`3o ool0oooo07P0oooo00<0003o0?ooo`3oool0>03oool001/0oooo00<000000?ooo`3oool0C@3oool0 0`000?l0oooo0?ooo`1f0?ooo`030000o`3oool0oooo03T0oooo000K0?ooo`030000003oool0oooo 04h0oooo00<0003o0?ooo`3oool0M@3oool00`000?l0oooo0?ooo`0i0?ooo`006`3oool200000500 oooo00<0003o0?ooo`3oool0L`3oool00`000?l0oooo0?ooo`0j0?ooo`006`3oool00`000000oooo 0?ooo`1@0?ooo`030000o`3oool0oooo0740oooo00<0003o0?ooo`3oool0>`3oool001/0oooo00<0 00000?ooo`3oool0D@3oool00`000?l0oooo0?ooo`1_0?ooo`030000o`3oool0oooo03`0oooo000K 0?ooo`030000003oool0oooo0580oooo00<0003o0?ooo`3oool0K@3oool00`000?l0o`000?ooo`0m 0?ooo`006`3oool2000005@0oooo00<0003o0?ooo`3oool0K03oool00`000?l0oooo0?ooo`0m0?oo o`006`3oool00`000000oooo0?ooo`1D0?ooo`030000o`3oool0oooo06X0oooo00<0003o0?ooo`3o ool0?P3oool001/0oooo00<000000?ooo`3oool0E@3oool00`000?l0oooo0?ooo`1X0?ooo`030000 o`3oool0oooo03l0oooo000K0?ooo`030000003oool0oooo05H0oooo00<0003o0?ooo`3oool0IP3o ool00`000?l0o`000?ooo`100?ooo`006`3oool2000005P0oooo00<0003o0?ooo`3oool0I03oool0 0`000?l0o`000?ooo`110?ooo`006`3oool00`000000oooo0?ooo`1H0?ooo`030000o`3oool0oooo 0680oooo00<0003o0?l0003oool0@P3oool001/0oooo00<000000?ooo`3oool0F@3oool00`000?l0 oooo0?ooo`1Q0?ooo`030000o`3oool0oooo0480oooo00020?ooo`800000103oool2000000@0oooo 0P0000030?ooo`<000001@3oool00`000000oooo0?ooo`1J0?ooo`030000o`3oool0oooo05l0oooo 00<0003o0?l0003oool0@`3oool000050?ooo`000000oooo0?ooo`000000203oool010000000oooo 0?ooo`0000020?ooo`040000003oool0oooo000000@0oooo00<000000?ooo`3oool0F`3oool00`00 0?l0oooo0?ooo`1M0?ooo`030000o`3o0000oooo04@0oooo00001@3oool000000?ooo`3oool00000 00P0oooo00@000000?ooo`3oool000000P3oool010000000oooo0?ooo`0000040?ooo`800000G@3o ool00`000?l0oooo0?ooo`1K0?ooo`030000o`3o0000oooo04D0oooo00001@3oool000000?ooo`3o ool0000000P0oooo00@000000?ooo`3oool000000P3oool3000000D0oooo00<000000?ooo`3oool0 G@3oool00`000?l0oooo0?ooo`1I0?ooo`030000o`3o0000oooo04H0oooo00001@3oool000000?oo o`3oool0000000P0oooo00@000000?ooo`3oool000000`3oool00`000000oooo0?ooo`040?ooo`03 0000003oool0oooo05h0oooo0P000?mH0?ooo`030000o`3o0000oooo04L0oooo00020?ooo`800000 2P3oool2000000@0oooo0`0000040?ooo`030000003oool0oooo0600oooo00<0003o0?ooo`3oool0 E03oool00`000?l0o`000?ooo`180?ooo`006`3oool200000680oooo00<0003o0?ooo`3oool0DP3o ool00`000?l0o`000?ooo`190?ooo`006`3oool00`000000oooo0?ooo`1R0?ooo`030000o`3oool0 oooo0500oooo00<0003o0?l0003oool0BP3oool001/0oooo00<000000?ooo`3oool0H`3oool00`00 0?l0oooo0?ooo`1>0?ooo`030?l000000?l0oooo04/0oooo000K0?ooo`030000003oool0oooo06@0 oooo0P000?m=0?ooo`030?l000000?l0oooo04`0oooo000K0?ooo`800000I`3oool00`000?l0oooo 0?ooo`190?ooo`030?l000000?l0oooo04d0oooo000K0?ooo`030000003oool0oooo06L0oooo00<0 003o0?ooo`3oool0A`3oool00`3o0000003o0?ooo`1>0?ooo`006`3oool00`000000oooo0?ooo`1X 0?ooo`80003oAP3oool00`3o0000003o0?ooo`1?0?ooo`006`3oool00`000000oooo0?ooo`1Z0?oo o`030000o`3oool0oooo0440oooo0P3o00000`000?l0oooo0?ooo`1?0?ooo`006`3oool00`000000 oooo0?ooo`1[0?ooo`030000o`3oool0oooo03l0oooo00<0o`000000o`000?l0DP3oool001/0oooo 0P00001]0?ooo`80003o?P3oool20000oe@0oooo000K0?ooo`030000003oool0oooo06h0oooo00<0 003o0?ooo`3oool0>@3oool00`3o0000003o0?ooo`1E0?ooo`006`3oool00`000000oooo0?ooo`1_ 0?ooo`80003o>03oool20000oeL0oooo000K0?ooo`030000003oool0oooo0740oooo0P000?ld0?oo o`80003oF@3oool001/0oooo0P00001c0?ooo`040?l000000?l0003o0000oc00oooo00<0003o0?l0 003oool0F@3oool001/0oooo00<000000?ooo`3oool0M03oool20?l00080003o;03oool20000oe`0 oooo000K0?ooo`030000003oool0oooo07H0oooo0P3o00020000obP0oooo0P000?l00`3o0000oooo 0?ooo`1K0?ooo`000P3oool2000000@0oooo0P0000040?ooo`8000001@3oool00`000000oooo0?oo o`030?ooo`030000003oool0oooo07P0oooo0P3o00030000ob80oooo0`000?l00`3o0000oooo0?oo o`1M0?ooo`0000D0oooo0000003oool0oooo000000080?ooo`040000003oool0oooo000000@0oooo 00<000000?ooo`3oool00`3oool00`000000oooo0?ooo`1j0?ooo`<0o`000`000?lM0?ooo`80003o 0P3o001Q0?ooo`0000D0oooo0000003oool0oooo000000080?ooo`040000003oool0oooo000000@0 oooo00<000000?ooo`3oool00`3oool2000007h0oooo0`3o00020000oaP0oooo0`000?l20?l006<0 oooo00001@3oool000000?ooo`3oool0000000P0oooo00@000000?ooo`3oool000001@3oool00`00 0000oooo0?ooo`020?ooo`030000003oool0oooo0800oooo0P3o00060000o`d0oooo1@000?l30?l0 06D0oooo00001@3oool000000?ooo`3oool0000000P0oooo00@000000?ooo`3oool000000P3oool0 10000000oooo0?ooo`0000040?ooo`030000003oool0oooo08@0oooo103o000=0000o`80o`00J`3o ool00080oooo0P00000:0?ooo`8000000`3oool4000000@0oooo00<000000?ooo`3oool0S03oool4 0?l00780oooo000K0?ooo`800000o`3oool40?ooo`006`3oool00`000000oooo0?ooo`3o0?ooo`<0 oooo000K0?ooo`030000003oool0oooo0?l0oooo0`3oool00?l0oooo8@3oool00?l0oooo8@3oool0 0001\ \>"], ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-0.107864, -0.00655168, \ 0.00394728, 0.000455358}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Closed]] }, Open ]] }, FrontEndVersion->"5.2 for Microsoft Windows", ScreenRectangle->{{0, 800}, {0, 517}}, CellGrouping->Manual, WindowSize->{495, 359}, WindowMargins->{{15, Automatic}, {Automatic, 16}} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 688, 20, 262, "Title"], Cell[2467, 75, 37567, 579, 278, "Graphics"], Cell[40037, 656, 220, 6, 67, "Subsubtitle"], Cell[CellGroupData[{ Cell[40282, 666, 91, 1, 46, "Subsubtitle"], Cell[CellGroupData[{ Cell[40398, 671, 157, 3, 50, "Input"], Cell[40558, 676, 109, 3, 49, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[40716, 685, 119, 1, 48, "Subsubtitle"], Cell[40838, 688, 80, 1, 30, "Input"], Cell[CellGroupData[{ Cell[40943, 693, 135, 4, 50, "Input"], Cell[41081, 699, 817, 18, 62, "Output"] }, Open ]], Cell[41913, 720, 64, 1, 30, "Input"], Cell[41980, 723, 66, 1, 30, "Input"], Cell[CellGroupData[{ Cell[42071, 728, 35, 1, 30, "Input"], Cell[42109, 731, 185, 3, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42331, 739, 129, 3, 50, "Input"], Cell[42463, 744, 196, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42696, 752, 68, 1, 30, "Input"], Cell[42767, 755, 74, 1, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[42890, 762, 118, 1, 48, "Subsubtitle"], Cell[CellGroupData[{ Cell[43033, 767, 69, 1, 30, "Input"], Cell[43105, 770, 155, 2, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43297, 777, 133, 2, 70, "Input"], Cell[43433, 781, 349, 5, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43819, 791, 135, 2, 70, "Input"], Cell[43957, 795, 350, 5, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44344, 805, 66, 1, 30, "Input"], Cell[44413, 808, 374, 6, 67, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44824, 819, 141, 2, 50, "Input"], Cell[44968, 823, 1803, 35, 247, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46808, 863, 204, 4, 70, "Input"], Cell[47015, 869, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47182, 877, 206, 4, 70, "Input"], Cell[47391, 883, 130, 3, 29, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[47558, 891, 93, 1, 30, "Input"], Cell[47654, 894, 24631, 611, 186, 5343, 368, "GraphicsData", "PostScript", \ "Graphics"], Cell[72288, 1507, 130, 3, 29, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)