(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. 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[ 62675, 1025]*) (*NotebookOutlinePosition[ 63351, 1049]*) (* CellTagsIndexPosition[ 63307, 1045]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Expression of Volumetric Flow Rate for Pipe Flow \nof Bingham and \ Power Law Fluids", FontSize->18], StyleBox["\n", FontSize->14], StyleBox["Author's Data", FontSize->14, FontWeight->"Bold"], StyleBox[": Housam BINOUS\nDepartment of Chemical Engineering\nNational \ Institute of Applied Sciences and Technology\nTunis, TUNISIA\nEmail: \ binoushousam@yahoo.com \n", FontSize->14] }], "Subtitle", TextAlignment->Center, Background->RGBColor[0.753918, 0.996109, 0.722667]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Volumetric Flow Rate for Pipe Flow of a Bingham \ Fluid", FontSize->18, FontWeight->"Bold"]], "Subsubtitle", Background->RGBColor[0.722667, 0.996109, 0.996109]], Cell[GraphicsData["Metafile", "\<\ CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0004b`0@0005P0000300000P000:<1002:0@00 00000000002M:`00;2L00215CDH00040/4`00=`100050000000000000000000000@00003000>0@00 b`0000X0000@0000m@4002H00009000040000:H1001k0@00AP0002P0000L0000AdA9@`80003g0@00 :00009X3002O0@00000004H0000X0000700004M4BD<20000E`800>l000160`00E0400000000Q0000 20000140000<0000200000/0000@0000k@0006<0000<0000400006<0003:00002P00010000000000 000000T0000@0000`1<00408000B000030000040000F0000300001P0000@000030000040000:0000 40000000000000002@00010000304`00@0P001/0000@0000004002/2000V00007000004000000000 40000100000000009@0000`0000100009@0000`000000020=P00010000140`00:`800580001<0@00 0P0000GnoooS000000000000002@0@0000000P@2011C07T0K@1R06l0K00007SFN=IheWSFN=Ihe_oo ooooooooooooooooooooooooooooooooooooooooooooo`00003ooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ooooooooooooooooooooooooooooooooooooooooooooooooooooooooool00?oooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo0000000000000000 00000000000000000@410@410@410Ooo9@0000`000020000D`0005@0002O0000g0000:@0003i0000 0@00000dWSl0V9ho1`D008X100010000C0000000000000000000000000000000D00002Sooon00000 DP0004`1000300001Okoon<0000000000000090100000002108045<0N@1]0680K`1/0000oooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooo00000?oooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo`00oooooooo ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooool00000 00000000000000000000000000010@410@410@41oolU0000300000<0000X000030000080000U0000 300000<0001C0000E0000=/0003L0000h0000?T00001000003BN?`2HWSl22P00RP400040001<0000 000000000000000000000000001@0000:Ooooh00000K000040000?@4000[0P00=P000100001d2P00 :`8001/0000@0000RPh004D1000f0000400008X>000A0`006`000100001a4000A@4003H0000@0000 LA000143000K00004000078300191P00=P000100002f1@00B@H001/0000@00007P`006<5000f0000 400001h<000_1`006`00010000053P00H`D003H0000@00001@h002l7001B0000C04000800020o_oo 0000000000000000T040000000840P0@D`1i06d0HP1_06`0003ooooooooooooooooooooooooooooo ooooooooooooooooooooooooooooooooool00000oooooooooooooooooooooooooooooooooooooooo ooooooooooooooooooooooooooo_NmNmoomheWSFN=Ihe_oooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooo003ooooooooooooooooooooooooooooo ooooooooooooooooooooooooooooooooooooooooooooooooooooo`00000000000000000000000000 000000410@410@410@7oobD0000<00000P0002P0000<00000`0002D0000<00000P0005<0001D0000 IP0002<1001]0000>04000400000=9ho09RN?cX0001]1`000@0004`0000000000000000000000000 00000500003_ooooZ`0005<0001D0000IP0001@1001]0000:@4000400000=9ho09RN?cX0000b1P00 0@0004`000000000000000000000000000000500003_0000Z`0005<0001D0000IP0002P1001^0000 ?@4000400000=9ho09RN?cX0003M1`000@0004`000000000000000000000000000000500003^l=91 `00005<0001D0000IP000?H0001]00002`4000400000=9ho09RN?cX0002R0`000@0004`000000000 000000000000000000000500003_0000Z`0005<0001D0000IP000>l0001]0000104000400000=9ho 09RN?cX0000G0`000@0004`000000000000000000000000000000500003_0000Z`0005<0001D0000 IP0000<1001^0000604000400000=9ho09RN?cX0003210000@0004`0000000000000000000000000 00000500003]0000`00005<0001D0000IP000=h0001^0000l`0000400000=9ho09RN?cX0002W0@00 0@0004`000000000000000000000000000000500003/0000`00005<0001D00004@4001X1000J0@00 ;`4000400000=9ho09RN?h4>002Y1P000@0004`000000000000000000000000000000500002S0@00 e@0005<0001D0000[@0001X1002f0000;`4000400000=9ho09RN?bP6002Y1P000@0004`000000000 000000000000000000000500000m0000e@0005<0001D0000;P400>T0000g0@00oP0000400000=9ho 09RN?o<@002;0P000@0004`000000000000000000000000000000500000n0000e@0005<0001D0000 ^@000=d000320000lP0000400000=9ho09RN?bD7002<0@000@0004`0000000000000000000000000 00000500000[0000e@0005<0001D0000T0000>T0002I0000oP0000400000=9ho09RN?kH3002;0P00 0@0004`000000000000000000000000000000500000m0@00e@000580001<0@000`00023oool00000 00000000002@0@00000000@2011D06T0K@1U07<0801>06D0M`0P0580K`1]0640KP0000`1001/0@00 0@0003SY^Cn1UK/o00H006h10001000000000000000000000000000000000000D0000500003/0000 E00005P0002_0000I0400/200010000 C0000000000000000000000000000000D000030000200000E00005@0002^0000h@000;<0003^0000 0@00000dWSl0V9ho=PH00>`100010000C0000000000000000000000000000000D000030000200000 DP0004`100020000P?koo`00000000000000090100000000108045@0J@1]06D0L`0P04h0I@1g0200 DP1_06d0H@1^0000I0400>d0001n0@000@0003SY^Cn1UK/okP<0060200000000C000000000000000 0000000000000000D00002d1003J0000D`0005@0003A0000I0400=`0001n0@000@0003SY^Cn1UK/o ]P80060200010000C0000000000000000000000000000000D00003d0003J0000DP00000000030000 400000L00000000000000;`20000000010824U@0J@1]06D0L`0P04h0I@1g0200DP1_06d0H@000000 00000000000000000000000000010@410@410@41000U000030000080000X0000300000<0000U0000 30000080001D0000E0000;/0000J0@00``0002d10001000003BN?`2HWSmJ1`00Z@H00040001<0000 000000000000000000000000001@0000<0000<00001B0000C04000<00020o_oo0000000000000000 T040004000840P0@D`1i06d0HP1_06`000000000001l0@00000007d1000000000000000000000000 0000000000010@410@400000000U0000300000<0000X0000300000@0001;00004000000000050000 <00000`0000?00209@0000`000070020:00000`0000200009@0000`000010000:00000`000030000 9@0000`0000700209@0000`000000020000000`0000100008P0000`0003oooooAP0001@000080000 AdA9@`<000160000500000P00017A4U30`000000000000000000000000000000000000410@410@41 0@4002D0000<00000`0002P0000<00000P0002D0000<00000`0005<0001D00007P4001X1000U0@00 ;`4000400000=9ho09RN?iD?002Y1P000@0004`000000000000000000000000000000500001d1000 Z`0005<0001D0000m@0001X1003l0000;`4000400000=9ho09RN?b8<002Y1P000@0004`000000000 000000000000000000000500001d0000Z`0005<0001D0000>`400>T000120@00oP0000400000=9ho 09RN?`LB002;0P000@0004`000000000000000000000000000000500001d0000Z`0005<0001D0000 4P400>T0000I0@00oP0000400000=9ho09RN?hh>002;0P000@0004`0000000000000000000000000 00000500001d0000Z`0005<0001D0000]P000?L0002o0000304000400000=9ho09RN?o86002g0`00 0@0004`000000000000000000000000000000500001]0000e@0005<0001D0000a@000=d0003<0000 lP0000400000=9ho09RN?bL8002<0@000@0004`000000000000000000000000000000500001d=A@0 Z`0005<0001D0000X`000=d0002Z0000lP0000400000=9ho09RN?e/5002<0@000@0004`000000000 000000000000000000000500001dooooZ`000580001<0@000P00023oool0000000000000002@0@00 0@0000@2011D06T0K@1U07<0801>06D0M`0P0580K`1]0640KP000?ooooooooooooooo`00oooooooo ooooooooooooo`00003oooooooooooooooooooooooooooooooooooooooooooooooooooooool00000 00000000000000000000000000010@410@410@41oolU000030000080001C0000E00009l0003N0000 Y0000?/00001000003BN?`2HWSl00000XP400040001<0000000000000000000000000000001@0000 :?mheX00001B0000C04000<00005o_oo000000000000000000000000000000000@410@410@410F`0 9@0000`000020000:00000`0000300009@0000`000020000E00005P0003o00007P4000H1000[0@00 0@00000dWSl0V9ho0@d000T700020000C0000000000000000000000000000000D0000780NP1F0000 E@0005@0001D0000X00001<1002S0000804000400000=9ho09RN?`l5000=1P000@0004`000000000 000000000000000000000500001j0?ooE@0005@0001H000070400>d0000S0@00nP0000400000=9ho 09RN?fd?003[0P000P0004`000000000000000000000000000000500001b07X0EP0005D0001D0000 F0000h00001000003BN?`2HWSl62@00k0400080001<00000000000000000000 00000000001@0000LP1j05H0001E0000E00005@000220000h@0008D0003^00000@00000dWSl0V9ho W@800>l100010000C0000000000000000000000000000000D00007X0001E0000DP0004`100030000 P?koo`00000000000000090100010000108045@0J@1]06D0L`0P04h0I@1g0200DP1_06d0H@1^0000 BPD003H0000@00007P`001H7000K0000400000D>00000000=P00010000053P005PL00580001<0@00 0P00083nool0000000000000002@0@0000000P@2011C07T0K@1R06l0K0000?oooooooooooooooooo ooooooooooooooooooooooooooooooooooooooooooooo`00003oo`00oooooooooolO0?oooooooooo oomhe_ooN=KoogSFoomhe_ooN=KoogSFoomhe^mkekgoogSFN=Ihe_ooool000000000000000000000 0000000000010@410@410@41oolU0000300000<0000X000030000080000U0000300000<0001D0000 F0000=D0000J0@00g`0002d10001000003BN?`2HWSmf2@00Z@H00080001<00000000000000000000 00000000001@0000J@1V0800001[0000E00005P0002B0000:0400:40000k0@000@00000dWSl0V9ho h`<00=D700020000C0000000000000000000000000000000D00006@0LP300000U@0005@0001H0000 SP0000h1002N00008@4000400000=9ho09RN?h`3002]1@000P0004`0000000000000000000000000 00000500001T07H0`0000:/0001D0000F0000?80003Y0000o0000?`00001000003BN?`2HWSoR2`00 R`800080001<0000000000000000000000000000001@0000J@1V0800001[0000E00005P0001d0000 m`0008<0000:0@000@00000dWSl0V9hoL@400;L300020000C0000000000000000000000000000000 D00006@0LP300000U@0005@0001H0000L0000=d000200000l00000400000=9ho09RN?aX1002?0@00 0P0004`000000000000000000000000000000500001T07H0`0000:/0001B0000C0400080000@0000 1`00000000000000_080000000040P8BE01Y06d0I@1c0200CP1U07L0801B06l0K@1Q06h000000000 0000000000000000D0000>goooo00000D`000000001V0000g`0006h0003d00000@00000dWSl0V9ho >P000<0100010000C0000000000000000000000000000000D0000>cFN=K00000D`0005@0000A0@00 6@4001X1000^0@000@00000dWSl0V9hoP@h009060001000000000000000000000000000000000000 D0000:?ooooE0000D`0005@0002]00006@400;H0000^0@000@000000000000000000000000000000 000000410@410@410@4002D0000<00000P0002P0000<00000`0004/0000@0000000000D0000`0000 300000l0080U0000300000L0080X000030000040000U0000300000d0080X000030000080000U0000 300000L0080U000030000000080U0000300000d0080R000030000?oooom60000500000P00017A4U3 0`0002H0000L00000P000000000100000@000000008U000030000080000W00006000004000000000 ooo<0000000U000030000040000[0000600002`2001<0000I0<00:D0000U000030000000080X0000 30000040000U0000300000L0080X000030000080000H000030000000008I000030000?ooo`8K0000 40000000000000009@0000`0000700209@0000`000000020DP0004`1000200000000000000000000 000000000000000100000000oooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooo00000?ooooooooooooooooooooooo`00oooooooooooooooooooooooo ooooooooooooooooooooooooooooooooooooooooooooooooooooooooool000000000000000000000 0000000000010@410@410@41N=HU000030000000000X000030000080000U0000300000<0001D0000 E00002P1000M0@00;@4002X10001000003BN?`2HWSl0000000000000000000000000000000010@41 0@410@41000U00003000008000160000:00001`00017A4U30P000?L1001e0000VP<007P000000000 4P0000`0000100009P0001`0000100000P00004000010000000002D0000<00000@0002D0000<0000 1@00P5L0000T00000`000500002S0@00D0000080003h0GH0V0=f02D0000<00001`00P2P0000<0000 0@0002D0000<00001`00P2D0000<00000000P4H0000D0000200004M4BD<30000AP0002P0000L0000 AdA9@`80001O0P00B`0006`2001h0000000002H0000L00000@000000000100000@000?mV000U0000 30000040000U0000300000D0081G000090000700000^0000L000050000020000I@9f06D2E00U0000 300000P0080X000030000040000U0000300000P0080W00006000004000000000ofH00000000U0000 30000040001F0000:00006/0000V0000MP00030000030000J`9F06D2C01P0UH09@0000`000000020 :00000`0000100009@0000`0000700209@0000`000000020AP0001@000080000AdA9@`<0000U0000 300000P0080U0000300000D0080[0000600006X2001@0000R0800700001B0000C0400040003]oooo 0000000000000000_08000000000000R@@1b06T0H@1/00000P0005@0001D0000^`0001T100330000 ;04000400000=9ho09RN?eX7002@1P000@00000000000000000000000000000000000500000`09K` `0000580001<0@000`00083nool0000000000000002@0@000@000P@2011C07T0K@1R06l0K0000080 oooFl362A_4aPTkad02D0000<0000 2000P2P0000<00000P0002D0000<00002000P2L0000H00000P000000000cc3<0000002D0000<0000 0P0005H0000X0000?00008P000160000T`0000<0000k0Zh0<@:d03/2^@1F0000:000060100290000 JP4009@000030000E@>j05l3]01E0jl09@0000`000000020:00000`0000200009@0000`000070020 9@0000`000000020AP0001@000080000AdA9@`<0000U0000300000P0080U0000300000D0080[0000 60000:`2002h0000b`800=P0000H0000300003?<<`8F0000300001P0000B000030000040000K0000 40000000000000009@0000`000000020E00005@000310000Z@000<`0002n00000@00003`dT5EMM=1 ]P800/2001g000050<00:P000000000>`0000P0000K0000 40000>`2002U00009P0001`0000200000000004000010000000002D0000<00000P0002D0000<0000 1@00P5P0000d0000m`000580000L0@00O`0000H000000jD04@>B0143N`0A0gX04@=i0143N00l0000 20000400000H0000m`000580000K0@00OP0003/0000800006`000100003/0P00Y@0005P0000d0000 m`000580000L0@00O`0000H000000jD04@>B0143N`0A0gX04@=i0143N00f000040000>`2001k0000 ?00000P0000U0000300000L0080X000030000080000U0000300000L0080U00003000000008160000 500000P00017A4U30`0004H0000X0000700004M4BD<20000j`8004/0003^0P00Y`000000000V0000 70000080000000000@000040000000009@0000`0000200009@0000`000050020E`0002@0003g0000 9P000?L0001o00000P000>`2C03/0ZD09@0000`000070020:00000`0000200009@0000`000070020 9@0000`000000020AP0001@000080000AdA9@`<000160000:00001`00017A4U30P000>/2001K0000 3P<006T0000000009P0001`0000200000000004000010000000002D0000<00000P0002D0000<0000 1@00P5L0000T0000m`0003/0000?0@00>`000080003/0V4010=Q02D0000<00002000P2P0000<0000 0P0002D0000<00002000P2D0000<00001000P5H0000X00003@4003H0000G0@00@@0000<000020fL0 30=Q0083G00U0000300000L0080U00003000000008160000500000P00017A4U30`0004H0000X0000 700004M4BD<20000j`8008X0000>0`00V0000000000V000070000080000000000@00004000000000 9@0000`0000200009@0000`000050020E`0002@0003g0000JP0000l1001Z00000P000>`2T0040i00 9@0000`000080020:00000`0000200009@0000`0000800209@0000`000040020EP0002P0000=0@00 I@0001L1001`00000`000083UP0<0i000P>;02D0000<00001`00P2D0000<00000000P4H0000D0000 200004M4BD<30000AP0002P0000L0000AdA9@`80003[0P00L00001<3001n0000000002H0000L0000 0P000000000100000@000000000U000030000080000U0000300000D0081G000090000?L0001@0000 5040050000020000k09f00T3MP0U0000300000P0080X000030000080000U0000300000P0080U0000 300000@0081F0000:0000181001;0000704005H0000300001`=l0143MP070g409@0000`000070020 9@0000`000000020AP0001@000080000AdA9@`<0000U0000300000P0080U0000300000D0080[0000 60000143001n0000D0<00:40001B0000C0400080003[oooo0000000000000000_08000000000000R @@1b06T0H@1/00002000038:]`?b1P40001]00P0000b2X`19`P10000M0080000`4008L0000100000?3B@EEedd4Y0`00W0000040001<0000 000000000000000000000000001@0000NP3oo`P0000F000030000000000B000030000080001B0000 C0400080003[oooo0000000000000000_08000000000000R@@1b06T0H@1/0000oooooooooooooooo ooooooooooooooooooooooooooooooooooooooooooooooooool00000oooooooooooooooooooooooo oooooooooooooooooooooooooooooooom`1o0?h0OP050G`0305h0141L`0F0F`06@5U01/1G@0L0ED0 705B0?oooooooooooooooooooooooooooooooooooooooooooooooooooooooooo003ooooooooooooo ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo`0000000000 0000000000000000000000410@410@410@7oobD0000<00000P0002P0000<00000@0001H0000<0000 60000180000<00000@0001/0000@000000000000000U000030000080001D0000H00003`1001a0000 D@4008P0000100000?3B@EEedd4a0`00U`0000<0001<0000000000000000000000000000001D0000 :01b02T0ool70000200000L0000F000030000000000B000030000080000U0000300000P0080U0000 300000D0080[0000600000P2001I0000<`8007T0001B0000C0400040003]oooo0000000000000000 _08000000000000R@@1b06T0H@1/0000C5XMi0Bn>l50;1<0100000@000000000000000000000000000000000000410@410@41 0@4002D0000<00000@0002P0000<00000P0001P0000<0000@00000T;dLi0009^@0P0W0M02B`P0000000000 0000000000000000000000410@410@410@4002D0000<00000@0002P0000<00000P0001H0000<0000 60000180000<00000@0001/0000@000000000000000U000030000000080U000030000040001D0000 E00007h100190000RP4005h0000100000?3B@EEedd5c0`00K`000040001<00000000000000000000 00000000001@0000D00000d0000F000030000000000B000030000080001B0000C0400080003doooo 0000000000000000_08000000000000R@@1b06T0H@1/000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 000000410@410@410@4002D0000<00000P0002P0000<00000@0001H0000<000060000180000<0000 0@0001/0000@000000000000000U000030000080001D0000E00008/1001>0000T@4005`000010000 0?3B@EEedd600`00M0000040001<0000000000000000000000000000001@00000P00?`000040001<0000 000000000000000000000000001@0000A00000`0000F000030000000000B000030000080001B0000 C0400080003]oooo0000000000000000_08000000000000R@@1b06T0H@1/00000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000410@410@410@4002D0000<00000P0002P0000<00000@0001H0000<0000 60000180000<00000@0001/0000@000000000000000U000030000080001D0000H0000:D0000I0000 b00002h0000100000?3B@EEedd6J0P00?`0000<0001<0000000000000000000000000000001D0000 D00m0500000<00002`0000`0000F000030000000000B000030000080001B0000C0400040003doooo 0000000000000000_08000000000000R@@1b06T0H@1/000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 000000410@410@410@4002D0000<00000@0002P0000<00000P0001H0000<000060000180000<0000 0@0001/0000@000000000000000U000030000040001D0000E0000P0000/00000@00003`dT5EMM=1e`8004@000010000C0000000000000000000000000000000 D0000380000600005P0000`0000000004P0000`0000200009@0000`000070020AP0002P0000L0000 AdA9@`80002O0P00I`4000T3002O0@000000024000080000600000`0000000006@0000`0003oool0 4@0000`0000800002`000100001X0000=`0000`0000@0000Z`000481000:00004000000000000000 2@000100001P1`00h0<00180000<00000@0001H0000<000060000100000<00000@0000X0000@0000 000000000009000040000607003P0`006`000100003l1000008002H0000L00000P000000000@0000 40000000000U000030000080000U000030000000080f0000400000@700000P00DP0004`100030000 P?koo`00000000000000090100010000108045@0J@1]06D0L`0P04h0I@1g0200DP1_06d0H@1^0000 00000;l000000000`00000000031000000000<8000000000``0000000034000000000>Vi?h6E^cnM1@00S0<00040001<0000000000000000000000000000001@0000C0000=X0001D0000 E0000001001F0@00304006`100010000>>Vi?h6E^cl01P00KP400040001<00000000000000000000 00000000001@0000D0000>`0001D0000F0000:l0001T0@00bP0007X100010000>>Vi?h6E^cm60000 H0800080001<0000000000000000000000000000001@0000D0170>`0000@0@00DP0004`100040000 P?koo`00000000000000090100000002108045<0N@1]0680K`1/0000000000002040000000090@00 000000X1000000002`400000000<0@00000000d1000000003P400000000?0@000000010100000000 4@400000000B0@00000001<10000000050400000000E0@00000001H1000000005`400000000H0@00 000001T1000000006P400000000K0@00000001`1000000007@400000000N0@00000001l100000000 80400000000Q0@0000000281000000008`400000000T0@00000002D1000000000000000000000000 0000000000010@410@410@41000U0000300000@0000X0000300000<0000U0000300000@0001C0000 E0000?<0001F0@00o`00070100010000>>Vi?h6E^clF1@00KP400040001<00000000000000000000 00000000001@0000A0400>`0001C0000E0000>80001T0@00k@0007h100010000>>Vi?h6E^co^0`00 H0800040001<0000000000000000000000000000001@0000;@000=X0001C0000E0000=40001T0@00 g00007h100010000>>Vi?h6E^cnf0P00H0800040001<0000000000000000000000000000001@0000 ?@400=X0001B0000C04000<0000@00001`00000000000000_080000000040P8BE01Y06d0I@1c0200 CP1U07L0801B06l0K@1Q06h0001G0@00000005P100000000F@400000001J0@000000000000000000 G0400000001M0@00000005h100000000G`400000001P0@000000064100000000HP400000001S0@00 000006@100000000I@400000001V0@00000006L100000000J0400000001Y0@00000006X100000000 00000000001/0@00000006d100000000KP400000001_0@000000070100000000L@400000001b0@00 00000000000000000000000000000000000000410@410@410@4002D0000<00000`0002P0000<0000 100004/0000@0000000000D0000`0000300000l0080U0000300000L0080X000030000080000U0000 30000040000X0000300000<0000U0000300000L0080U000030000000080U000030000040000R0000 30000?oooom60000500000P00017A4U30`0004H0000D0000200004M4BD<300003000010000000000 000002D0000<00003@00P2P0000<00000@0000h0000D000000000100000D0000 \>"], "Graphics", ImageSize->{416, 392}, ImageMargins->{{65, 0}, {0, 1}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of shear stress using boundary condition:", Cell[BoxData[ \(TraditionalForm\`\(\[Tau]\_rz\)(0) = 0\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(sol1 = DSolve[D[r\ \[Tau]\_rz[r], {r, 1}] \[Equal] \ PG\ r, \[Tau]\_rz[r], r]\)], "Input"], Cell[BoxData[ \({{\[Tau]\_rz[r] \[Rule] \(PG\ r\)\/2 + C[1]\/r}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Tau]\_rz[r] = sol1[\([1, 1, 2]\)] /. C[1] \[Rule] 0\)], "Input"], Cell[BoxData[ \(\(PG\ r\)\/2\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of velocity ", Cell[BoxData[ \(TraditionalForm\`\(v\_z\)(r)\)]], " between r=", Cell[BoxData[ \(TraditionalForm\`\(\(-2\) \[Tau]\_0\)\/PG\)]], " and r=a using boundary condition: ", Cell[BoxData[ \(TraditionalForm\`\(v\_z\)(a) = 0\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(sol2 = DSolve[D[v\_z[r], {r, 1}] \[Equal] \ \((\[Tau]\_rz[r] + \[Tau]\_0)\)/\[Mu], v\_z[r], r]\)], "Input"], Cell[BoxData[ \({{v\_z[r] \[Rule] \(PG\ r\^2\)\/\(4\ \[Mu]\) + C[1] + \(r\ \[Tau]\_0\)\/\[Mu]}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(v\_z[r] = sol2[\([1, 1, 2]\)] /. C[1] \[Rule] \(-\(\(PG\ a\^2\)\/\(4\ \[Mu]\)\)\) - \(a\ \[Tau]\_0\)\/\ \[Mu]\)], "Input"], Cell[BoxData[ \(\(-\(\(a\^2\ PG\)\/\(4\ \[Mu]\)\)\) + \(PG\ r\^2\)\/\(4\ \[Mu]\) - \(a\ \ \[Tau]\_0\)\/\[Mu] + \(r\ \[Tau]\_0\)\/\[Mu]\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of Q1 flow rate between r=", Cell[BoxData[ \(TraditionalForm\`\(\(-2\) \[Tau]\_0\)\/PG\)]], " and r=a where velocity is given by ", Cell[BoxData[ \(TraditionalForm\`\(v\_z\)(r)\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\ \)\(Q1 = Integrate\ [ 2\ Pi\ r\ v\_z[r], {r, \(-2\) \[Tau]\_0/PG, a}]\)\)\)], "Input"], Cell[BoxData[ \(2\ \[Pi]\ \((\(-\(\(a\^4\ PG\)\/\(16\ \[Mu]\)\)\) - \(a\^3\ \[Tau]\_0\)\ \/\(6\ \[Mu]\) + \(a\^2\ \[Tau]\_0\%2\)\/\(2\ PG\ \[Mu]\) + \(2\ a\ \[Tau]\_0\ \%3\)\/\(PG\^2\ \[Mu]\) + \(5\ \[Tau]\_0\%4\)\/\(3\ PG\^3\ \[Mu]\))\)\)], \ "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of constant velocity ", Cell[BoxData[ \(TraditionalForm\`v\_0\)]], " between r=0 and r=", Cell[BoxData[ \(TraditionalForm\`\(\(-2\) \[Tau]\_0\)\/PG\)]], " using boundary condition: ", Cell[BoxData[ \(TraditionalForm\`v\_0 = \(v\_z\)(a)\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(v\_0 = 1/\[Mu]\ PG\ \((r^2 - a^2)\)/4 + \[Tau]\_0/\[Mu]\ \((r - a)\) /. r \[Rule] \(-2\) \[Tau]\_0/\ PG\)], "Input"], Cell[BoxData[ \(\(\[Tau]\_0\ \((\(-a\) - \(2\ \[Tau]\_0\)\/PG)\)\)\/\[Mu] + \(PG\ \ \((\(-a\^2\) + \(4\ \[Tau]\_0\%2\)\/PG\^2)\)\)\/\(4\ \[Mu]\)\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of Q2 flow rate between r=0 and r=", Cell[BoxData[ \(TraditionalForm\`\(\(-2\) \[Tau]\_0\)\/PG\)]], " where velocity is constant equal to ", Cell[BoxData[ \(TraditionalForm\`v\_0\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(Q2 = Integrate\ [2\ Pi\ r\ v\_0, {r, 0, \(-2\) \[Tau]\_0/PG}]\)], "Input"], Cell[BoxData[ \(\(4\ \[Pi]\ \[Tau]\_0\%2\ \((\(\[Tau]\_0\ \((\(-a\) - \(2\ \ \[Tau]\_0\)\/PG)\)\)\/\[Mu] + \(PG\ \((\(-a\^2\) + \(4\ \ \[Tau]\_0\%2\)\/PG\^2)\)\)\/\(4\ \[Mu]\))\)\)\/PG\^2\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Total Flow Rate is equal to Q1+Q2", "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(Q1 + Q2 // Expand\)], "Input"], Cell[BoxData[ \(\(-\(\(a\^4\ PG\ \[Pi]\)\/\(8\ \[Mu]\)\)\) - \(a\^3\ \[Pi]\ \[Tau]\_0\)\ \/\(3\ \[Mu]\) - \(2\ \[Pi]\ \[Tau]\_0\%4\)\/\(3\ PG\^3\ \[Mu]\)\)], "Output"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Volumetric Flow Rate for Pipe Flow of a Power Law \ Fluid", FontSize->18, FontWeight->"Bold"]], "Subsubtitle", Background->RGBColor[0.722667, 0.996109, 0.996109]], Cell[GraphicsData["Metafile", "\<\ CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0004]d0@0005P0000300000P000:<1001V0@00 00000000002N:`00Lb<00215CDH00040M4/00=<100050000000000000000000000@00003000>0@00 b`0000X0000@0000B@0002X00009000040000:H1001G0@00AP0002P0000L0000AdA9@`80001;0000 ;0000>h1001o0@00000002H0000L00000@000000000100000@000000008U000030000040000W0000 6000008000000000ooo<0000000U000030000080000[000060000800001@0000^0400:T0000U0000 30000000080X000030000080000U0000300000L0080X000030000040000H000030000000008I0000 30000?ooo`8K000040000000000000009@0000`0000700209@0000`000000020DP0004`100010000 0000000000000000000000000000000100000000N=IheWSFN=IheWSFN=IheWSFN=IheWSFN=IheWSF N=IheWSFN=IheWSFN=IheWSFN=IheWSFN=IheWSF000007SFN=IheWSFN=IheWS>N=IhcWSFN N=IhcWSFNN=IhcWSFNN=IhcWSFNN=IhcWSFNN=IhcWSFN N=IhcWSFNN=IhcWSFNN=IhcWSFNN=IhcP00NN=IhcWSFN N=IhcWSFNN=IhcWSFNN=IhcWSFNN=IhcWSFNNLiicWW>NLi icWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicT00000icWW>NLiicWW>NLiicWW>NLi icWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLi icWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLi003W>NLiicWW>NLi icWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>NLiicWW>@0000000000 0000000000000000000000410@410@410@7W>BD0000<00000P0002P0000<00000@0001P0000<0000 ofH00QH0000<0000600001/0000@000000000000000U000030000000080U000030000080001D0000 E00007l000110000R@0005H0000100000?3B@EEedd780000J`000040001<00000000000000000000 00000000001@0000H@1d<`X0000F000030000000000B000030000080000U0000300000L008160000 :00001`00017A4U30P0008@0002a0000]@400<00000000009P0001`0000100000000004000010000 `0000P0000K000040000401002X00009P0001`0000100000000004000010000000002D0000<0000 0@0002D0000<00001@00P5P0000d0000m`000580000L0@00OP0000H0001D0JP0I@6F06D1O`1U0Gh0 I@5m06D1O00l000020000400000H0000m`000580000K0@00O@0003/0000800006`00010000100@00 Z00005P0000d0000m`000580000L0@00OP0000H0001D0JP0I@6F06D1O`1U0Gh0I@5m06D1O00f0000 40000401001o0000?00000P0000U0000300000L0080X000030000040000U0000300000L0080U0000 3000000008160000500000P00017A4U30`0004H0000X0000700004M4BD<20000?`4004l000120@00 ZP000000000V000070000040000000000@000040000000009@0000`0000100009@0000`000050020 E`0002@0003g00009P000?L0001n00000P000401D0100JP09@0000`000070020:00000`000010000 9@0000`0000700209@0000`000000020AP0001@000080000AdA9@`<000160000:00001`00017A4U3 0P0003l1001O0000HP4006d0000000009P0001`0000100000000004000010000000002D0000<0000 0@0002D0000<00001@00P5L0000T0000m`0003/0000?0@00>`00008000100FD0F05U02D0000<0000 2000P2P0000<00000@0002D0000<00002000P2D0000<00001000P5H0000X00003@4003H0000G0@00 @@0000<0001F0F/0H05U05H1H00U0000300000L0080U00003000000008160000500000P00017A4U3 0`0004H0000X0000700004M4BD<20000?`4008h0001R0@00W0000000000V00007000004000000000 0@000040000000009@0000`0000100009@0000`000050020E`0002@0003g0000JP0000l1001Z0000 0P000401U01H0I@09@0000`000080020:00000`0000100009@0000`0000800209@0000`000040020 EP0002P0000=0@00I@0001L1001`00000`0005H1VP1P0I@0EP6?02D0000<00001`00P2D0000<0000 0000P4H0000D0000200004M4BD<30000AP0002P0000L0000AdA9@`80000o0@00M00006L100220000 000002H0000L00000@000000000100000@000000000U000030000040000U0000300000D0081G0000 90000?L0001@00005040050000020000@05j05d1NP0U0000300000P0080X000030000040000U0000 300000P0080U0000300000@0081F0000:0000181001;0000704005H000030000F`6006D1NP1K0GD0 9@0000`0000700209@0000`000000020AP0001@000080000AdA9@`<0000U0000300000P0080U0000 300000D0080[0000600006D100210000Y0400:D0001B0000C0400040003[oooo0000000000000000 _08000000000000R@@1b06T0H@1/0000P000080000240000Q@0008T000290000R@0008X0002:0000 EP0009H0002H0000V@000000002P0000X0000:40002W0000[0000:`0002_0000/P0004d0002e0000 ]P000;T000000000^P000<0000330000``000<<000340000a@000hidob@D001`800010000 C0000000000000000000000000000000D00007X0001F0000E00005P0000E0@00e@0001`1003P0000 0@0002fEWCn>hido91000>/20002000000000000000000000000000000000000D0000780NP1E0000 EP0005@0001H0000b`000`4008L0000100000?3B@EEedd5m0@00 X0000040001<0000000000000000000000000000001@0000NP1Y00P0000F000030000000000B0000 30000080001B0000C0400040003[oooo0000000000000000_08000000000000R@@1b06T0H@1/0000 6P0000l0000M0000g`000180000f0000@00004P0000L0000:P00010000100000<0000000000?0000 d00002L0003HooooK`0000d0000H000080000040000j0000L@0000l0001C0000000000L0001@0000 :000004000070000Z`0003@0000N0000000004h000030000=P0001D0000G0000VP00000000000000 0000000000000000000000410@410@410@4002D0000<00000`0002P0000<00000P0002D0000<0000 0`000000000000000000000000000000000000410@410@410@6M?bD0000<00000@0002P0000<0000 0P0001H0000<000060000180000<00000@0001/0000@000000000000000U000030000040001D0000 H00003`1001a0000D@4008P0000100000?3B@EEedd650@00V`0000<0001<00000000000000000000 00000000001D0000:01b02T000070000200000L0000F000030000000000B000030000080000U0000 300000P0080U0000300000D0080[0000600005`0001M0000Q`0007d0001B0000C0400080003]oooo 0000000000000000_08000000000000R@@1b06T0H@1/000000000500001Y06H0P@0006/0001D0000 F00008/0000X0@00VP0003/100010000;ID00000WCnM1000i0T00080001<00000000000000000000 00000000001@0000I01b0<40002F0000E00005P0002700003P4009L0000Q0@000@0002fEWCn>hido AP@00;`700020000C0000000000000000000000000000000000006@0MP310000Z`0005@0001H0000 k@000=00003g0000h`000040000]UIdoS^>M?ll<002;0P000P000000000000000000000000000000 000000410@410@410@4002D0000<00000P0002P0000<00000@0001P0000<0000/2003a0P007P<001h3000c0`00=P<003X3001A0`00JP<006l3001m0`00S`<00hido>P000<8?00010000C0000000000000000000000000000000 D0000>oooon[0000D`0005@0001G0000G@4005h0001b0@000@0002fEWCn>hido>P00058>00010000 C0000000000000000000000000000000D0000>oooon[0000D`0005@0001G0000000005h0001Q0@00 0@0002fEWCn>hido>P000>8<00010000C0000000000000000000000000000000D000000000000000 0000000000000000000000410@410@410@4002D0000<00000@0002P0000<00000P0001H0000<0000 60000180000<00000@0001/0000@000000000000000U000030000040001D0000E00008/1001=0000 T@4005/0000100000?3B@EEedd7D0@00M`000040001<0000000000000000000000000000001@0000 l0002[0000D`0005@0001G0000n@0005h0000>0@00 0@000000WCn>hido>P000?P500010000C0000000000000000000000000000000D0000>l0002[0000 D`0005@0001G0000j00005h0003m00000@0002fEWCn>hido>P0008P400010000C000000000000000 000000000000000000000>l0002[0000D`0005@0001G0000e`0005h0003/00000@0002fEWCn>hido >P0001P300010000C0000000000000000000000000000000000000410@410@410@4002D0000<0000 0P0002P0000<00000@0001H0000<000060000180000<00000@0001/0000@000000000000000U0000 30000000080U000030000080001C0000E00009T0000I0000Y@0002l0000100000?3B@EEedd7R0000 @`000040001<0000000000000000000000000000001@0000A00000`0000F000030000000000B0000 30000080001B0000C0400040003]oooo0000000000000000_08000000000000R@@1b06T0H@1/0000 D`0005@0000I0@00H0400281001e0@000@0002fEWCn>hidoPA0008/>00010000C000000000000000 0000000000000000D00003`0003F0000D`0005@0002P0000KP400:T000230@000@0002fEWCn>hido E`H00;L?00010000C0000000000000000000000000000000D00002d0003F0000D`0005@0002Y0000 00000;80001Y0@000@0002fEWCn>hido9@L008`=00010000C0000000000000000000000000000000 D0000000000000000000000000000000000000410@410@410@4002D0000<00000@0002P0000<0000 0P0001H0000<000060000180000<00000@0001/0000@000000000000000U000030000040001D0000 H0000:D0000I0000b00002h0000100000?3B@EEedd7^0000@`0000<0001<00000000000000000000 00000000001D0000D00m0500000<00002`0000`0000F000030000000000B000030000080001B0000 C0400080003doooo0000000000000000_08000000000000R@@1b06T0H@1/00000@0002fEWCn>hido M14008/200010000C0000000000000000000000000000000D0000000003F0000D`0005@0002e0000 a0000;h0003I00000@0002fEWCn>hido60P008`100010000C0000000000000000000000000000000 D00002gooooF0000D`0005@0002<0000d00009D0003U00000@0002fEWCn>hido000008/200010000 C0000000000000000000000000000000D00003d0003F0000DP0004`100030000P?koo`0000000000 0000000000000000000000410@410@410@4P02D0000<00000P0002P0000<00000@0001H0000<0000 60000180000<00000@0001/0000@000000000000000U000030000080001D0000E0000M?m8C003[3P000@0004`000000000 000000000000000000000000000000000000000000010@410@410@41000U000030000080000X0000 30000040000F0000300001P0000B000030000040000K000040000000000000009@0000`000020000 E00005@0003R00007P000>P0000/00000@00003`dT5EMM=1:`4004P000010000C000000000000000 0000000000000000D0000380000600005P0000`0000000004P0000`0000200009@0000`000070020 AP0002P0000L0000AdA9@`80001^0000i`000>41000h0@000000024000080000600000`000000000 6@0000`0003oool04@0000`0000800002`000100001`0@00D00000`0000@00009`000;h0000:0000 40000000000000002@000100002P800000L00180000<00000@0001H0000<000060000100000<0000 0@0000X0000@0000000000000009000040000:0P00001`006`000100001Y1@00P0<002H0000L0000 0@000000000@000040000000000U000030000040000U000030000000080f000040000:d700200`00 6`000100000k1@00WP4003H0000@0000>`D00685000K000040000=<7002N0@00=P000100003C1`00 HPD001/0000@0000b@T00803000f0000400000d<00200`00DP0004`100030000P?koo`0000000000 0000090100000002108045<0N@1]0680K`1/0000001M0P00N`8007l200240P00W@800:@2002f0P00 `0800H000010000mkBD?j/:Ucn73@00_0400040001<00000000000000000000 00000000001@0000k0000;D0001C0000E0000>l000040@00m`0001P100010000mkBD?j/:Ucnf4@00 80H00040001<0000000000000000000000000000001@0000?P000<`0001C0000E0000>80003Z0000 jP000?h000010000mkBD?j/:UcnO4000h0<00040001<0000000000000000000000000000001@0000 ?@000<`0001C0000E0000=H0003A0000gP000>D000010000mkBD?j/:Ucmo3`00X0400040001<0000 000000000000000000000000001@0000?0000<`0001C0000E00004h0003Z0000EP000?h000010000 mkBD?j/:Ucmm0`00h0<00040001<0000000000000000000000000000001@0000;@000<`0001C0000 E0000440003Z0000B@000?h000010000mkBD?j/:Ucm50P00h0<00040001<00000000000000000000 00000000001@0000?@000<`0001B0000C04000@0000Poooo0000000000000000T040000000840P0@ D`1i06d0HP1_06`00000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000410@410@410@4002D0000<0000 100002P0000<00000`0002D0000<0000100005<0001D0000Q`000=D0002;0000h0000040003g]9@o Z`ZG?hh8003l0@000@0004`000000000000000000000000000000500000]0000L@000580001<0@00 0`00083nool0000000000000002@0@000@0000@202110780J@1Q06`0000000000000000000000000 0000000000000000000000000000000000000000700000000000000000000000000000`030000000 00000000000B00000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000@410@410@410@009@0000`000030000:00000`0000400009@0000`000030000 E00006`0001J0@00104007P1000G0@000@000?NdU3n[2YLo@1/0020600050000C000000000000000 0000000000000000F00006H0K01e06T0I0000740001K0000c00005/0003<0000E00007`0000B0@00 104004L1000G0@000@000?NdU3n[2YLoh1@0020600080000C0000000000000000000000000000000 G00006@0J@1/0640M01Q06h0M03<0000F`0005X0003=0000L@000<`0003=0000L@0005@0001D0000 nP0000@100020@005`400040003g]9@oZ`ZG?kPB000P1P000@0004`0000000000000000000000000 00000500000a0000c00005@0001D0000h00000@1003X00005`400040003g]9@oZ`ZG?g8@000P1P00 0@0004`000000000000000000000000000000500001^0000c00005@0001/0000I`400>X000250@00 o@000040003g]9@oZ`ZG?eLL003P0`001@0004`0000000000000000000000000000005P0001V06`0 M@1Y06@0001a0000F`000<`0001K0000c00005@0002400001P400>X0001C0@00o@000040003g]9@o Z`ZG?lTC003P0`002@0004`000000000000000000000000000000600001>06D0M`1d06l0KP1Y0640 KP000101003<00004@400740003=0000c00005/0003<0000c00005@0001D0000kP000>X0003f0000 o@000040003g]9@oZ`ZG?j4A003P0`000@0004`000000000000000000000000000000500000a0000 c00005@0001D0000e0000>X0003L0000o@000040003g]9@oZ`ZG?e/?003P0`000@0004`000000000 000000000000000000000500001^0000c00005@0001/0000L`400=40002A0@00i0000040003g]9@o Z`ZG?g4M002P0@001@0004`0000000000000000000000000000005P0001V06`0M@1Y06@0001a0000 F`000<`0001K0000c00005@0001P0000DP400=40001S0@00i0000040003g]9@oZ`ZG?gdJ002P0@00 0`0004`0000000000000000000000000000005@0001d06T0H`000740001K0000c00005@000280000 n`000=40001?0@00i0000040003g]9@oZ`ZG?l4B002P0@002P0004`0000000000000000000000000 00000600001`07<0I@1e06@0K`1`06`0H@1c0<`0003=0000c0000<`0003<0000c@000<`0001K0000 c0000<`0001D0000E0000>40003A0000j@000>@000010000mkBD?j/:Ucn14000X0400040001<0000 000000000000000000000000001@0000<@000<`0001D0000E0000@000010000 mkBD?j/:Ucm13P00X0400040001<0000000000000000000000000000001@0000KP000<`0001B0000 C04000@00020o_oo0000000000000000T040004000040P0@E01Y06d0I@1c0200CP1U07L0801B06l0 K@1Q06h0000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000410@410@410@4002D0000<0000100002P0000<00000`0002D0000<0000 100005@0001H0000VP000?P0002Y00002P400040003g]9@oZ`ZG?cX:000<1@000P0004`000000000 000000000000000000000500001T0780c00009l0001D0000F00009L0003O0000Y`000?4000010000 mkBD?j/:UcoS2@00i0800080001<0000000000000000000000000000001@0000I01f0<0002[0000kP000040003g]9@o Z`ZG?fH;00140`000@0004`000000000000000000000000000000500001j0060F`0005@0001D0000 PP000=D000260000h0000040003g]9@oZ`ZG?a08003l0@000@0004`0000000000000000000000000 00000500001^0000L@0005@0001D0000MP000><0001i0000kP000040003g]9@oZ`ZG?`H700140`00 0@0004`000000000000000000000000000000500001j0000F`0005@0001H0000l0000i0000 nP000040003g]9@oZ`ZG?oD0001010000P0004`000000000000000000000000000000500001b07X0 FP0005/0001B0000C04000@0000Poooo0000000000000000T040000000040P0@E01Y06d0I@1c0200 CP1U07L0801B06l0K@1Q06h000000000Q@40000000260@00000008L100000000R040000000290@00 000008X100000000000000000000000000000000000000000@410@410@410@009@0000`000010000 :00000`0000200005P0000`0000H00004P0000`0000100006`00010000000000000002D0000<0000 000005@0001D0000b00001h0003>0000;00000400000l=91EGGC@Kd2001400000@0004`000000000 00000000000000000000000000000000000000410@410@410@4002D0000<0000100002P0000<0000 0`0002D0000<0000100005@0001D0000S0000=D0002@0000h0000040003g]9@oZ`ZG?od8003l0@00 0@0004`000000000000000000000000000000500000a0000L@000580001<0@000`00083nool00000 00000000002@0@000@000P@2011C07T0K@1R06l0K0000000^`400000002l0@0000000;d100000000 _P400000002o0@0000000<01000000000000000000320@0000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 0@410@410@410@009@0000`000030000:00000`0000400009@0000`000030000D`0005@0000X0000 jP0002h0003n00000@000?NdU3n[2YLo5P000>0300010000C0000000000000000000000000000000 D00007@0002O0000DP0004`100040000400000L00000000000000;`20000000010824U@0J@1]06D0 L`0P04h0I@1g0200DP1_06d0H@1^0000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000004`0000X0000000X00000000000000000000000h0000000004000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000010@410@410@41000U0000300000@0000X0000 300000<0001;00004000000000050000<00000`0000?00209@0000`000070020:00000`000010000 9@0000`000020000:00000`0000400009@0000`0000700209@0000`0000000209@0000`000020000 8P0000`0003oooooAP0001@000080000AdA9@`<000160000:00001`00017A4U30P000@4007l1000000008@0000P0000H000030000000000I000030000?ooo`0A0000300000P0000;0000 400006P0000g000030000100002700007P4000X0000@0000000000000009000040000607003P0`00 4P0000`0000100005P0000`0000H0000400000`0000100002P00010000000000000000T0000@0000 H0L00>03000K000040000?`400000P009P0001`00004000000000100000@0000000002D0000<0000 100002D0000<00000000P3H0000@000010L00002001B0000C04000400020o_oo0000000000000000 T040004000040P0@E01Y06d0I@1c0200CP1U07L0801B06l0K@1Q06h0000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000000000410@410@41 0@4002D0000<00000@0005@0001D0000eP000501003Q0000IP400040000hjKToPIFk?id5002<0`00 0@0004`000000000000000000000000000000500001<0000fP0005@0001D0000g0000381003X0000 B0400040000hjKToPIFk?`06001^0@000@0004`000000000000000000000000000000500001@0000 k00005@0001H0000R`000401002V0000EP400040000hjKToPIFk?dH0001P0P000P0004`000000000 000000000000000000000500001@04L0k0000141001B0000C04000<00020o_oo0000000000000000 T040000000840P0@D`1i06d0HP1_06`0003OomoogooOomoogooOomoogooOomoogooOomoogooOomoo gooOomoogooOomoogol00000gooOomoogooOomoogooOomoogooOomoogomhcWSFoooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooo003ooooooooooooooooooooooooooooooooooooooooooooo oooooooooooOomoogooOomoogooOomoogooOo`00000000000000000000000000000000410@410@41 0@7OobD0000<00000`0002P0000<00000@0002D0000<00000`0005<0001D0000c`000381003K0000 C0400040000hjKToPIFk?aH5001^0@000@0004`0000000000000000000000000000005000014omoo k00005<0001D0000_P00040100390000FP400040000hjKToPIFk?nh3001P0P000@0004`000000000 000000000000000000000500000]oooofP0005<0001D0000[@000401002h0000FP400040000hjKTo PIFk?kH2001P0P000@0004`000000000000000000000000000000500000moooofP000580001<0@00 0@0001000007000000000000002l0P00000000@20Q9D06T0K@1U07<0801>06D0M`0P0580K`1]0640 KP000=oogooOomoogooOomoogooOomoogooOomoogooOo`00003OomoogooOomoogooOomoogooOomoo gooOomoogooOomoogooOomoogooOomoogooOo`000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000000000000000000000000000000000 00000000000000000@410@410@410Ooo9@0000`000010000:00000`000030000B`00010000000000 1@000300000<00003`00P2D0000<00001`00P2P0000<0000100002D0000<00000P0002P0000<0000 0@0002D0000<00001`00P2D0000<00000000P2D0000<00000P000280000<0000ooooodH0000D0000 200004M4BD<30000AP0001@000080000AdA9@`<0000<000040000000000000009@0000`0000=0020 :00000`0000200003P0001@000000000400001@0 \>"], "Graphics", ImageSize->{416, 356}, ImageMargins->{{61, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{ Cell["Clearing previous shear stress and velocity expressions", "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[BoxData[ \(\[Tau]\_rz[r] =. \)], "Input"], Cell[BoxData[ \(v\_z[r] =. \)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of shear stress using boundary condition:", Cell[BoxData[ \(TraditionalForm\`\(\[Tau]\_rz\)(0) = 0\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(sol3 = DSolve[D[r\ \[Tau]\_rz[r], {r, 1}] \[Equal] \ PG\ r, \[Tau]\_rz[r], r]\)], "Input"], Cell[BoxData[ \({{\[Tau]\_rz[r] \[Rule] \(PG\ r\)\/2 + C[1]\/r}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Tau]\_rz[r] = sol1[\([1, 1, 2]\)] /. C[1] \[Rule] 0\)], "Input"], Cell[BoxData[ \(\(PG\ r\)\/2\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of velocity ", Cell[BoxData[ \(TraditionalForm\`\(v\_z\)(r)\)]], " between r=", Cell[BoxData[ \(TraditionalForm\`0\)]], " and r=a using boundary condition: ", Cell[BoxData[ \(TraditionalForm\`\(v\_z\)(a) = 0\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(sol4 = DSolve[D[v\_z[r], {r, 1}] \[Equal] \ \(-\((\(-\[Tau]\_rz[r]\)/k)\)^\((1/n)\)\), v\_z[r], r]\)], "Input"], Cell[BoxData[ \({{v\_z[ r] \[Rule] \(-\(\(2\^\(\(-1\)/n\)\ n\ r\ \((\(-\(\(PG\ \ r\)\/k\)\))\)\^\(1\/n\)\)\/\(1 + n\)\)\) + C[1]}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(v\_z[r] = sol4[\([1, 1, 2]\)] /. C[1] \[Rule] \(2\^\(\(-1\)/n\)\ n\ a\ \((\(-\(\(PG\ \ a\)\/k\)\))\)\^\(1\/n\)\)\/\(1 + n\)\)], "Input"], Cell[BoxData[ \(\(2\^\(\(-1\)/n\)\ a\ n\ \((\(-\(\(a\ PG\)\/k\)\))\)\^\(1\/n\)\)\/\(1 + \ n\) - \(2\^\(\(-1\)/n\)\ n\ r\ \((\(-\(\(PG\ r\)\/k\)\))\)\^\(1\/n\)\)\/\(1 + \ n\)\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of Q flow rate between r=0 and r=a where velocity is given by \ ", Cell[BoxData[ \(TraditionalForm\`\(v\_z\)(r)\)]] }], "Subsubtitle", Background->RGBColor[0.996109, 0.996109, 0.746105]], Cell[CellGroupData[{ Cell[BoxData[ \(Q = Integrate[2\ Pi\ r\ v\_z[r], {r, 0, a}]\)], "Input"], Cell[BoxData[ \(\(2\^\(1 - \(1 + n\)\/n\)\ a\^3\ n\ \((\(-\(\(a\ PG\)\/k\)\))\)\^\(1\/n\ \)\ \[Pi]\)\/\(1 + 3\ n\)\)], "Output"] }, Open ]] }, Closed]] }, Closed]] }, Open ]] }, FrontEndVersion->"4.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, CellGrouping->Manual, WindowSize->{564, 652}, WindowMargins->{{30, Automatic}, {Automatic, 4}} ] (*********************************************************************** 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[1739, 51, 528, 15, 205, "Subtitle"], Cell[CellGroupData[{ Cell[2292, 70, 190, 4, 74, "Subsubtitle"], Cell[2485, 76, 26697, 332, 401, 26604, 329, "GraphicsData", "Metafile", \ "Graphics"], Cell[CellGroupData[{ Cell[29207, 412, 214, 5, 69, "Subsubtitle"], Cell[CellGroupData[{ Cell[29446, 421, 126, 3, 30, "Input"], Cell[29575, 426, 82, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29694, 432, 86, 1, 30, "Input"], Cell[29783, 435, 46, 1, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[29878, 442, 366, 11, 79, "Subsubtitle"], Cell[CellGroupData[{ Cell[30269, 457, 158, 4, 30, "Input"], Cell[30430, 463, 126, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30593, 470, 158, 4, 47, "Input"], Cell[30754, 476, 152, 2, 47, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[30955, 484, 302, 8, 79, "Subsubtitle"], Cell[CellGroupData[{ Cell[31282, 496, 127, 3, 30, "Input"], Cell[31412, 501, 257, 4, 47, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[31718, 511, 371, 11, 81, "Subsubtitle"], Cell[CellGroupData[{ Cell[32114, 526, 152, 3, 30, "Input"], Cell[32269, 531, 162, 2, 61, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[32480, 539, 304, 8, 81, "Subsubtitle"], Cell[CellGroupData[{ Cell[32809, 551, 101, 2, 30, "Input"], Cell[32913, 555, 205, 3, 88, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[33167, 564, 110, 1, 58, "Subsubtitle"], Cell[CellGroupData[{ Cell[33302, 569, 50, 1, 30, "Input"], Cell[33355, 572, 171, 2, 47, "Output"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[33587, 581, 192, 4, 63, "Subsubtitle"], Cell[33782, 587, 26268, 327, 364, 26175, 324, "GraphicsData", "Metafile", \ "Graphics"], Cell[CellGroupData[{ Cell[60075, 918, 132, 1, 69, "Subsubtitle"], Cell[60210, 921, 50, 1, 30, "Input"], Cell[60263, 924, 44, 1, 30, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[60344, 930, 214, 5, 58, "Subsubtitle"], Cell[CellGroupData[{ Cell[60583, 939, 126, 3, 30, "Input"], Cell[60712, 944, 82, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60831, 950, 86, 1, 30, "Input"], Cell[60920, 953, 46, 1, 42, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[61015, 960, 343, 11, 74, "Subsubtitle"], Cell[CellGroupData[{ Cell[61383, 975, 162, 4, 30, "Input"], Cell[61548, 981, 160, 3, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61745, 989, 172, 4, 56, "Input"], Cell[61920, 995, 191, 3, 56, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[62160, 1004, 227, 6, 58, "Subsubtitle"], Cell[CellGroupData[{ Cell[62412, 1014, 76, 1, 30, "Input"], Cell[62491, 1017, 132, 2, 56, "Output"] }, Open ]] }, Closed]] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)