{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "\"Q4\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "f:=(x+y)*exp(-x-y)/2:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 38 "Let's verify the normalizing constant:" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "int(int (f,x=0..infinity),y=0..infinity);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# \"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "And get a better pictur e of its shape and form:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "plot3d(f,x=0..3,y=0..3,axes=NORMAL);" }}{PARA 13 " " 1 "" {GLPLOT3D 400 300 300 {PLOTDATA 3 "6%-%%GRIDG6%;$\"\"!F($\"\"$F (F&X,%)anythingG6\"6\"[gl'!%\"!!#\\bm\":\":00000000000000003FAC3D6A24E D82213FB8EBEF9EAC820B3FC07EB4906F2AEB3FC368B2FC6F960A3FC56913B81BF8E23 FC6AC70B0F3DA1E3FC758224831F7A23FC78B56362CEF383FC75FFE8906A0843FC6EB9 E44F4EE643FC63FF86D12243E3FC56BA595B885163FC47A93919D11B13FC376724E41D C643FC26710886960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FB C46C275B10A053FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0 711CA183FB31E44999B04833FAC3D6A24ED82213FB8EBEF9EAC820B3FC07EB4906F2AE B3FC368B2FC6F960A3FC56913B81BF8E23FC6AC70B0F3DA1E3FC758224831F7A23FC78 B56362CEF383FC75FFE8906A0843FC6EB9E44F4EE643FC63FF86D12243E3FC56BA595B 885163FC47A93919D11B13FC376724E41DC643FC26710886960383FC152AAA3BF81CC3 FC03E2DA008B0313FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856F A6773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9 F803FB8EBEF9EAC820B3FC07EB4906F2AEB3FC368B2FC6F960A3FC56913B81BF8E23FC 6AC70B0F3DA1E3FC758224831F7A23FC78B56362CEF383FC75FFE8906A0843FC6EB9E4 4F4EE643FC63FF86D12243E3FC56BA595B885163FC47A93919D11B13FC376724E41DC6 43FC26710886960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC4 6C275B10A053FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA071 1CA183FB31E44999B04833FB193245A4F9F803FB0214C4C2B45253FC07EB4906F2AEB3 FC368B2FC6F960A3FC56913B81BF8E23FC6AC70B0F3DA1E3FC758224831F7A23FC78B5 6362CEF383FC75FFE8906A0843FC6EB9E44F4EE643FC63FF86D12243E3FC56BA595B88 5163FC47A93919D11B13FC376724E41DC643FC26710886960383FC152AAA3BF81CC3FC 03E2DA008B0313FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA6 773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F8 03FB0214C4C2B45253FAD908012647C033FC368B2FC6F960A3FC56913B81BF8E23FC6A C70B0F3DA1E3FC758224831F7A23FC78B56362CEF383FC75FFE8906A0843FC6EB9E44F 4EE643FC63FF86D12243E3FC56BA595B885163FC47A93919D11B13FC376724E41DC643 FC26710886960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC46C 275B10A053FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711C A183FB31E44999B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FA B0E8E15C85F7A3FC56913B81BF8E23FC6AC70B0F3DA1E3FC758224831F7A23FC78B563 62CEF383FC75FFE8906A0843FC6EB9E44F4EE643FC63FF86D12243E3FC56BA595B8851 63FC47A93919D11B13FC376724E41DC643FC26710886960383FC152AAA3BF81CC3FC03 E2DA008B0313FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA677 3CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803 FB0214C4C2B45253FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FC6AC7 0B0F3DA1E3FC758224831F7A23FC78B56362CEF383FC75FFE8906A0843FC6EB9E44F4E E643FC63FF86D12243E3FC56BA595B885163FC47A93919D11B13FC376724E41DC643FC 26710886960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC46C27 5B10A053FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA1 83FB31E44999B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0 E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C563FC758224831F7A23FC78B56362 CEF383FC75FFE8906A0843FC6EB9E44F4EE643FC63FF86D12243E3FC56BA595B885163 FC47A93919D11B13FC376724E41DC643FC26710886960383FC152AAA3BF81CC3FC03E2 DA008B0313FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA6773C FBC3FB680AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB 0214C4C2B45253FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A 1FA1C563FA4969B095E554B3FC78B56362CEF383FC75FFE8906A0843FC6EB9E44F4EE6 43FC63FF86D12243E3FC56BA595B885163FC47A93919D11B13FC376724E41DC643FC26 710886960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC46C275B 10A053FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA183 FB31E44999B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8 E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213 CF53FC75FFE8906A0843FC6EB9E44F4EE643FC63FF86D12243E3FC56BA595B885163FC 47A93919D11B13FC376724E41DC643FC26710886960383FC152AAA3BF81CC3FC03E2DA 008B0313FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA6773CFB C3FB680AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB02 14C4C2B45253FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1F A1C563FA4969B095E554B3FA2C155B8213CF53FA1119310A961113FC6EB9E44F4EE643 FC63FF86D12243E3FC56BA595B885163FC47A93919D11B13FC376724E41DC643FC2671 0886960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC46C275B10 A053FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB 31E44999B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E1 5C85F7A3FA8BAF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF 53FA1119310A961113F9F09FA223438C73FC63FF86D12243E3FC56BA595B885163FC47 A93919D11B13FC376724E41DC643FC26710886960383FC152AAA3BF81CC3FC03E2DA00 8B0313FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA6773CFBC3 FB680AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB0214 C4C2B45253FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1 C563FA4969B095E554B3FA2C155B8213CF53FA1119310A961113F9F09FA223438C73F9 C328B566CF9EF3FC56BA595B885163FC47A93919D11B13FC376724E41DC643FC267108 86960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC46C275B10A0 53FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31 E44999B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E15C 85F7A3FA8BAF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF53 FA1119310A961113F9F09FA223438C73F9C328B566CF9EF3F99985A4F687C9A3FC47A9 3919D11B13FC376724E41DC643FC26710886960383FC152AAA3BF81CC3FC03E2DA008B 0313FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA6773CFBC3FB 680AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB0214C4 C2B45253FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C5 63FA4969B095E554B3FA2C155B8213CF53FA1119310A961113F9F09FA223438C73F9C3 28B566CF9EF3F99985A4F687C9A3F97370DDA47F71C3FC376724E41DC643FC26710886 960383FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC46C275B10A053 FBA446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31E4 4999B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E15C85 F7A3FA8BAF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF53FA 1119310A961113F9F09FA223438C73F9C328B566CF9EF3F99985A4F687C9A3F97370DD A47F71C3F950A79E98C25B63FC26710886960383FC152AAA3BF81CC3FC03E2DA008B03 13FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA6773CFBC3FB68 0AADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB0214C4C2 B45253FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C563 FA4969B095E554B3FA2C155B8213CF53FA1119310A961113F9F09FA223438C73F9C328 B566CF9EF3F99985A4F687C9A3F97370DDA47F71C3F950A79E98C25B63F930EA457B9D 1673FC152AAA3BF81CC3FC03E2DA008B0313FBE5ADFC054E2F73FBC46C275B10A053FB A446730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31E449 99B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E15C85F7 A3FA8BAF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF53FA11 19310A961113F9F09FA223438C73F9C328B566CF9EF3F99985A4F687C9A3F97370DDA4 7F71C3F950A79E98C25B63F930EA457B9D1673F913FC7EC08542A3FC03E2DA008B0313 FBE5ADFC054E2F73FBC46C275B10A053FBA446730BA312E3FB856FA6773CFBC3FB680A ADCA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB0214C4C2B4 5253FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C563FA 4969B095E554B3FA2C155B8213CF53FA1119310A961113F9F09FA223438C73F9C328B5 66CF9EF3F99985A4F687C9A3F97370DDA47F71C3F950A79E98C25B63F930EA457B9D16 73F913FC7EC08542A3F8F34ABF228DA5D3FBE5ADFC054E2F73FBC46C275B10A053FBA4 46730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31E44999 B04833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E15C85F7A3 FA8BAF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF53FA1119 310A961113F9F09FA223438C73F9C328B566CF9EF3F99985A4F687C9A3F97370DDA47F 71C3F950A79E98C25B63F930EA457B9D1673F913FC7EC08542A3F8F34ABF228DA5D3F8 C35EDBE1A3CB33FBC46C275B10A053FBA446730BA312E3FB856FA6773CFBC3FB680AAD CA17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB0214C4C2B452 53FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C563FA49 69B095E554B3FA2C155B8213CF53FA1119310A961113F9F09FA223438C73F9C328B566 CF9EF3F99985A4F687C9A3F97370DDA47F71C3F950A79E98C25B63F930EA457B9D1673 F913FC7EC08542A3F8F34ABF228DA5D3F8C35EDBE1A3CB33F897D135CFC518A3FBA446 730BA312E3FB856FA6773CFBC3FB680AADCA17C163FB4C2DA0711CA183FB31E44999B0 4833FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E15C85F7A3FA 8BAF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF53FA111931 0A961113F9F09FA223438C73F9C328B566CF9EF3F99985A4F687C9A3F97370DDA47F71 C3F950A79E98C25B63F930EA457B9D1673F913FC7EC08542A3F8F34ABF228DA5D3F8C3 5EDBE1A3CB33F897D135CFC518A3F8704463CD663D83FB856FA6773CFBC3FB680AADCA 17C163FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB0214C4C2B45253 FAD908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C563FA4969 B095E554B3FA2C155B8213CF53FA1119310A961113F9F09FA223438C73F9C328B566CF 9EF3F99985A4F687C9A3F97370DDA47F71C3F950A79E98C25B63F930EA457B9D1673F9 13FC7EC08542A3F8F34ABF228DA5D3F8C35EDBE1A3CB33F897D135CFC518A3F8704463 CD663D83F84C617FF340B9C3FB680AADCA17C163FB4C2DA0711CA183FB31E44999B048 33FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E15C85F7A3FA8B AF90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF53FA1119310A 961113F9F09FA223438C73F9C328B566CF9EF3F99985A4F687C9A3F97370DDA47F71C3 F950A79E98C25B63F930EA457B9D1673F913FC7EC08542A3F8F34ABF228DA5D3F8C35E DBE1A3CB33F897D135CFC518A3F8704463CD663D83F84C617FF340B9C3F82BD7E9EEBC 3AE3FB4C2DA0711CA183FB31E44999B04833FB193245A4F9F803FB0214C4C2B45253FA D908012647C033FAB0E8E15C85F7A3FA8BAF90689952A3FA693B8A1FA1C563FA4969B0 95E554B3FA2C155B8213CF53FA1119310A961113F9F09FA223438C73F9C328B566CF9E F3F99985A4F687C9A3F97370DDA47F71C3F950A79E98C25B63F930EA457B9D1673F913 FC7EC08542A3F8F34ABF228DA5D3F8C35EDBE1A3CB33F897D135CFC518A3F8704463CD 663D83F84C617FF340B9C3F82BD7E9EEBC3AE3F80E5D00D5B65B83FB31E44999B04833 FB193245A4F9F803FB0214C4C2B45253FAD908012647C033FAB0E8E15C85F7A3FA8BAF 90689952A3FA693B8A1FA1C563FA4969B095E554B3FA2C155B8213CF53FA1119310A96 1113F9F09FA223438C73F9C328B566CF9EF3F99985A4F687C9A3F97370DDA47F71C3F9 50A79E98C25B63F930EA457B9D1673F913FC7EC08542A3F8F34ABF228DA5D3F8C35EDB E1A3CB33F897D135CFC518A3F8704463CD663D83F84C617FF340B9C3F82BD7E9EEBC3A E3F80E5D00D5B65B83F7E757AE99DBF41-%*AXESSTYLEG6#%'NORMALG-%+AXESLABELS G6%%\"xG%\"yGQ!F." 1 2 0 1 10 0 2 1 1 4 2 1.000000 45.000000 -43.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name change coords has been redefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 42 "Th is helps us visualize the X+Y " 0 "" {MPLTEXT 1 0 61 "inequal(\{x>0,y>0,x+y<1.6\}, x=0..2,y=0..2,scaling=CONSTRAINED);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6'-%)POLYGONSG6&7$7$$\"\"!F)F(7$F($\"\"#F)7'7$F($ \"0++++++g\"!#9F*7$F+F+7$F+F(7$F/F(7$F'F3-%&COLORG6&%$RGBG$\"#?!\"#F:F :-F$6$7'F'F*F2F3F'-F76&F9$\"#qF \+ " 0 "" {MPLTEXT 1 0 32 "FU:=int(int(f,x=0..u-y),y=0..u);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#FUG,**&-%$expG6#,$%\"uG!\"\"\"\"\")F+\"\"#F-# F,F/*&F'F-F+F-F,F'F,F-F-" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 30 "Does \+ not hurt checking it out:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "plot(FU,u=0..10);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7U7$$\"\"!F)F(7$$\"3emmm;arz@!# =$\"33EyA(fRqY\"!#?7$$\"3v***\\7y%*z7$F-$\"3<1..gYxTSF07$$\"3[LL$e9ui2 %F-$\"3?fw&[))4;M)F07$$\"3z***\\(oMrU^F-$\"3!)z#40m(G\\:!#>7$$\"3nmmm \"z_\"4iF-$\"3w!*)Hp*>=BDF@7$$\"39ommT&phN)F-$\"3i%pN'*ehzE&F@7$$\"3KL Le*=)H\\5!#<$\"3UnkKl\"4*e*)F@7$$\"3smm\"z/3uC\"FN$\"3f+/_Zi_48F-7$$\" 3!****\\7LRDX\"FN$\"3%[;]kesLz\"F-7$$\"3%om;zR'ok;FN$\"3[*3mHC^[L#F-7$ $\"33++D1J:w=FN$\"3/z_\"fYg%)*GF-7$$\"3oLLL3En$4#FN$\"3ER.4i*)f'[$F-7$ $\"3#pmmT!RE&G#FN$\"3m-a5No\\+SF-7$$\"3D+++D.&4]#FN$\"3![ks9M1Vc%F-7$$ \"3;+++vB_TLCP]oF-7$$\"33++D\"o7Tv$FN$\"3\"Hp\\kt4hB(F-7$$\"3?L LL$Q*o]RFN$\"3cCu[\">?ea(F-7$$\"3m++D\"=lj;%FN$\"3wL&R?;TF&yF-7$$\"3S+ +vV&Rj%oAe&)F-7$$\"3emm;/T1&*\\FN$\"37vt)*=kJ\\()F-7$$\"3= nm\"zRQb@&FN$\"3cJ(R5QnO#*)F-7$$\"3:++v=>Y2aFN$\"3)\\uWTfBt0*F-7$$\"3Z nm;zXu9cFN$\"3=V$H.$[i%=*F-7$$\"34+++]y))GeFN$\"3i)eR$3QY*H*F-7$$\"3H+ +]i_QQgFN$\"3!eh+%35A(R*F-7$$\"3b++D\"y%3TiFN$\"3))Gs&RjG'z%*F-7$$\"3+ ++]P![hY'FN$\"3S\"*['*>Awe&*F-7$$\"3iKLL$Qx$omFN$\"3z^b56u5?'*F-7$$\"3 Y+++v.I%)oFN$\"3i/U3qTpw'*F-7$$\"3?mm\"zpe*zqFN$\"3=q&Q!G2+@(*F-7$$\"3 ;,++D\\'QH(FN$\"31y*R_@EGw*F-7$$\"3%HL$e9S8&\\(FN$\"3'[!\\;pXn'z*F-7$$ \"3s++D1#=bq(FN$\"3yo.4tE5F)*F-7$$\"3\"HLL$3s?6zFN$\"3%>rC!fWg_)*F-7$$ \"3a***\\7`Wl7)FN$\"3e/$p%p)=a()*F-7$$\"3enmmm*RRL)FN$\"3/K2r5X:%*)*F- 7$$\"3%zmmTvJga)FN$\"3k,0XO@\\5**F-7$$\"3]MLe9tOc()FN$\"3\"[)3 " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 79 "\"Maximum-Likelihood Estimators of the two paramete rs of Binomial distribution\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(stats):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "X:= random[binomiald[7,.3]](25);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"XG 6;\"\"#F&\"\"%F&\"\"\"F'F&F(\"\"$F)F'F'F'F&F(\"\"!F&F(F(F&F)F'F(F&F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 88 "Normally, we will be getting on ly the values, NOT knowing how they have been generated.." }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "lnf:=ln(n!)-ln(x !)-ln((n-x)!)+x*ln(p)+(n-x)*ln(1-p);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%$lnfG,,-%#lnG6#-%*factorialG6#%\"nG\"\"\"-F'6#-F*6#%\"xG!\"\"-F'6# -F*6#,&F,F-F2F3F3*&F2F--F'6#%\"pGF-F-*&F8F--F'6#,&F-F-F " 0 "" {MPLTEXT 1 0 34 "LF:=sum(subs(x=X[i],lnf),i=1 ..25);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#LFG,>*&,&%\"nG\"\"\"\"\"% !\"\"F)-%#lnG6#,&F)F)%\"pGF+F)\"\"'*&\"\")F)-F-6#\"\"#F)F+*&F3F)-F-6#- %*factorialG6#,&F(F)F6F+F)F+*&F1F)-F-6#-F;6#,&F(F)F)F+F)F+*(F1F)FCF)F, F)F)*(\"\"$F),&F(F)FFF+F)F,F)F)*(F6F)F(F)F,F)F)*&FFF)-F-6#F1F)F+*&FFF) -F-6#-F;6#FGF)F+*&F1F)-F-6#\"#CF)F+*&F1F)-F-6#-F;6#F'F)F+*&\"#bF)-F-6# F0F)F)*(F3F)F=F)F,F)F)*&\"#BF)-F-6#-F;6#F(F)F)" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 59 "fsolve(\{diff(LF,n)=0,diff(LF,p)=0\},\{n=5..in finity,p=0..1\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/%\"nG$\"+(3r'= n!\"*/%\"pG$\"+kqXuK!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}}{MARK "18 0 0" 87 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }