(*********************************************************************** 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[ 244671, 3641]*) (*NotebookOutlinePosition[ 245391, 3666]*) (* CellTagsIndexPosition[ 245347, 3662]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[ \(SetDirectory["\"]; \ pict = Import["\"];\)], "Input"], Cell[BoxData[ \(\(pixels = N[pict[\([1, 1]\)]/255];\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \({H, W} = Dimensions[pixels]\)], "Input"], Cell[BoxData[ \({35, 45}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(M = Round[Sqrt[H^2 + W^2]]\)], "Input"], Cell[BoxData[ \(57\)], "Output"] }, Open ]], Cell[BoxData[Cell[GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgocno0840P@5o?kl0`@211Wlo_`21084UOcno000Y_cno0@4 0P@>o?kl0P@210Clo_`21084oocno?olo_coo?kloocno3[lo_`310841?cn o0@40P@Io?kl0P@219Glo_`005Olo_`21084COcno0@40P@=o?kl0`@210Cl o_`31084=_cno0840PBNo?kl0P@219klo_`21084W_cno0840PBNo?kl0P@2 19klo_`21084W_cno0840P@mo?kl0P@21003o?kl1084o?kl00;lo_`21084 00?lo_`40PClo_`06?cno0840PBEo?kl001Go?kl0P@214glo_`410843Ocn o0840P@6o?kl0P@213Klo_`21084W_cno0840PBNo?kl0P@219klo_`21084 W_cno0840PBNo?kl0P@219klo_`21084?Ocno0840P@00ocno0@21?cno002 o?kl0P@21003o?kl1084108401Slo_`21084UOcno000Y_cno0@40P@=o?kl 0P@210Klo_`21084oocno?olo_coo?kloocno3Slo_`210840_cno0041084 o?klo?klo?kl0P@210;lo_`00`@21?cno?cno004o?kl30@210Klo_`21084 >ocno0840PAHo?kl002Vo?kl10@210glo_`210841_cno0840PCoo?kloocn o?olo_coo?kl>?cno0840P@2o?kl00<40PClo_clo_`00P@210?lo_`00`@2 1?cno?cno004o?kl30@210Klo_`21084>ocno0840PAHo?kl002Vo?kl10@2 10glo_`210841_cno0840PCoo?kloocno?olo_coo?kl>?cno0840P@2o?kl 00<40PClo_clo_`00P@210?lo_`210845ocno0840PBEo?kl002Vo?kl10@2 10glo_`210841_cno0840PCoo?kloocno?olo_coo?kl=ocno0840P@4o?kl 00@40PClo_`40P@40P@3o?kl0P@211Olo_`21084UOcno000Y_cno0@40P@= o?kl0P@210Klo_`21084oocno?olo_coo?kloocno3Olo_`210841?cno004 1084o?kl108410841?cno0031084o?klo?kl01Glo_`21084UOcno000Y_cn o0@40P@=o?kl0P@210Klo_`21084oocno?olo_coo?kloocno3Klo_`21084 1Ocno0041084o?kl108410841?cno0031084o?klo?kl01Glo_`21084UOcn o000Eocno0840PA=o?kl10@210glo_`210841_cno0840P@fo?kl0P@219kl o_`21084W_cno0840PBNo?kl0P@219klo_`21084W_cno0840PBNo?kl0P@2 13[lo_`210841_cno0840P@5o?kl0P@211Klo_`21084UOcno000Eocno084 0PA=o?kl10@210klo_`210841?cno0840P@go?kl0P@219klo_`21084W_cn o0840PBNo?kl0P@219klo_`21084W_cno0840PBNo?kl0P@213[lo_`21084 1_cno0840P@6o?kl00<40PClo_clo_`05?cno0840PBEo?kl002Vo?kl10@2 10klo_`210841?cno0840PCoo?kloocno?olo_coo?kl=_cno0840P@7o?kl 0P@210Klo_`00`@21?cno?cno00Bo?kl10@213_lo_`21084F?cno000Y_cn o0@40P@?o?kl0P@210;lo_`21084oocno?olo_coo?kloocno3Olo_`21084 1ocno0840P@6o?kl0P@211Glo_`21084>ocno0840PAHo?kl002Vo?kl10@2 113lo_`41084oocno?olo_coo?kloocno3Klo_`610840ocno0H40P@2o?kl 1P@211Clo_`00`@21?cno?cno02Co?kl002Vo?kl10@21?olo_coo?kloocn o?olo_coo?kl3?cno000Y_cno0@40PCoo?kloocno?olo_coo?kloocno0cl o_`00:Klo_`41084oocno?olo_coo?kloocno?olo_`o?kl10@21?ol o_coo?kloocno?olo_bao?kl0P@215Slo_`0097lo_`210840_cno0840P@? o?kl10@21?olo_coo?kloocno?olo_bao?kl0P@215Slo_`009;lo_`41084 4?cno0@40PCoo?kloocno?olo_coo?kloocno0clo_`00:Klo_`41084oocn o?olo_coo?kloocno?olo_`?cno0<40P@Mo?kl002Vo?kl10@21?olo_co o?kloocno?olo_c[o?kl10@211clo_`00:Klo_`41084oocno?olo_coo?kl oocno>klo_`210846ocno000Y_cno0@40PCoo?kloocno?olo_coo?klkocn o0031084o?klo?kl01Wlo_`00:Klo_`41084oocno?olo_coo?kloocno>ol o_`210846_cno000Eocno0840PA=o?kl10@214glo_`21084W_cno0840PBN o?kl0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`21084__cno0H4 0P@5o?kl10@210;lo_`310840ocno0840P@6o?kl00<40PClo_clo_`06?cn o000Eocno0840PA=o?kl10@214glo_`21084W_cno0840PBNo?kl0P@219kl o_`21084W_cno0840PBNo?kl0P@219klo_`21084`?cno0840P@7o?kl0`@2 10;lo_`5108400?lo_`40P@40P@01_cno0<40P@Io?kl002Vo?kl10@21?ol o_coo?kloocno?olo_bao?kl0P@2123lo_`210841_cno0<40P@3o?kl0P@2 10?lo_`310841_cno0<40P@Io?kl002Vo?kl10@21?olo_coo?kloocno?ol o_bao?kl0P@2123lo_`210841Ocno0<40P@4o?kl0P@210Clo_`210841Ocn o0840P@00ocno0@21?cno00Ho?kl002Vo?kl10@21?olo_coo?kloocno?ol o_cCo?kl0P@210Glo_`210841Ocno0840P@4o?kl0P@210Glo_`210840_cn o0031084o?klo?kl01Klo_`00:Klo_`41084oocno?olo_coo?kloocno=?l o_`210841?cno0840P@7o?kl0P@210?lo_`210841Ocno0840P@2o?kl00<4 0PClo_clo_`05_cno000Y_cno0@40PCoo?kloocno?olo_coo?kldocno084 0P@3o?kl0`@210Slo_`3108400?lo_`40P@40P@01?cno0840P@3o?kl00<4 0PClo_clo_`05_cno000Y_cno0@40PCoo?kloocno?olo_coo?kldocno084 0P@2o?kl0`@210_lo_`410841?cno0840P@4o?kl00<40PClo_clo_`05Ocn o000Eocno0840PA=o?kl10@214glo_`21084W_cno0840PBNo?kl0P@219kl o_`21084W_cno0840PBNo?kl0P@219klo_`21084`?cno0P40P@o?kl00<40PClo_clo_`0Yocno000Y_cno0@40PCoo?kloocno?ol o_coo?klH?cno0840PA?o?kl0P@215Slo_`00:Klo_`41084oocno?olo_co o?kloocno5olo_`31084Cocno0840PAHo?kl002Vo?kl10@21?olo_coo?kl oocno?olo_aNo?kl0`@21:[lo_`00:Klo_`41084oocno?olo_coo?kloocn o5glo_`31084Zocno000Y_cno0@40PCoo?kloocno?olo_coo?klG?cno0<4 0PB/o?kl002Vo?kl10@21?olo_coo?kloocno?olo_aLo?kl0P@21:glo_`0 05Olo_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PBNo?kl 0P@219klo_`21084W_cno0840PBNo?kl0P@21?Slo_`005Olo_`21084COcn o0@40PA=o?kl0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`21084 W_cno0840PBNo?kl0P@21?Slo_`00:Klo_`41084oocno?olo_coo?kloocn o;7lo_`21084F?cno000Y_cno0@40PCoo?kloocno?olo_coo?kl/Ocno084 0PAHo?kl002Vo?kl10@21?olo_coo?kloocno?olo_coo?kl3?cno000Y_cn o0@40PCoo?kloocno?olo_coo?klE_cno0031084o?klo?kl0;;lo_`00:Kl o_`41084oocno?olo_coo?kloocno5Glo_`31084/ocno000Y_cno0@40PCo o?kloocno?olo_coo?klE?cno0<40PBdo?kl001Go?kl0P@214glo_`41084 COcno0840PBNo?kl0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`2 1084W_cno0840PA0o?kl0`@21;Glo_`005Olo_`21084COcno0@40PA=o?kl 0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`21084W_cno0840PBN o?kl0P@213olo_`31084]_cno000Y_cno0@40PCoo?kloocno?olo_coo?kl DOcno0<40PAMo?kl0P@215Slo_`00:Klo_`41084oocno?olo_coo?kloocn o5;lo_`00`@21?cno?cno01Lo?kl0P@215Slo_`00:Klo_`41084oocno?ol o_coo?kloocno?olo_` o?kl0P@210Wlo_`710842Ocno0840PAPo?kl0P@2127lo_`210842Ocno0L4 0P@9o?kl0P@219[lo_`00:Klo_`41084W_cno0031084o?klo?kl09glo_`0 0`@21?cno?cno02Mo?kl00<40PClo_clo_`0WOcno0031084o?klo?kl09gl o_`00`@21?cno?cno02?o?kl0P@210clo_`00`@21?cno?cno009o?kl0`@2 18?lo_`210843?cno0031084o?klo?kl00Wlo_`31084V_cno000Eocno084 0PA=o?kl10@214glo_`21084W_cno0840PBNo?kl0P@219klo_`21084W_cn o0840PBNo?kl0P@214;lo_`210845ocno0840PA1o?kl0P@214;lo_`21084 5ocno0840PBKo?kl001Go?kl0P@214glo_`41084COcno0840PBNo?kl0P@2 19klo_`21084W_cno0840PBNo?kl0P@219klo_`21084@_cno0<40P@Eo?kl 0`@2147lo_`21084@_cno0<40P@Eo?kl0`@219_lo_`00:Klo_`41084oocn o?olo_coo?kl]Ocno0840P@Eo?kl0P@218Olo_`210845Ocno0840PA2o?kl 0P@215Slo_`00:Klo_`41084oocno?olo_coo?kl]Ocno0<40P@Co?kl0P@2 18Slo_`310844ocno0840PA3o?kl0P@215Slo_`00:Klo_`41084oocno?ol o_coo?kl]_cno0<40P@Ao?kl0`@215glo_`00`@21?cno?cno00Yo?kl0`@2 117lo_`31084WOcno000Y_cno0@40PCoo?kloocno?olo_bgo?kl10@210gl o_`41084GOcno0<40P@[o?kl10@210glo_`41084W_cno000Y_cno0@40PCo o?kloocno?olo_bho?kl10@210[lo_`41084G_cno0<40P@]o?kl10@210[l o_`41084X?cno000Y_cno0@40PCoo?kloocno?olo_bjo?kl1`@21003o?kl 1084108400D40PANo?kl0`@2133lo_`7108400?lo_`40P@40P@01@@21:7l o_`005Olo_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PBN o?kl0P@219klo_`21084W_cno0840PA:o?kl2`@214Wlo_`210845?cno0<4 0P@co?kl2`@21:?lo_`005Olo_`21084COcno0@40PA=o?kl0P@219klo_`2 1084W_cno0840PBNo?kl0P@219klo_`21084W_cno0840PA?o?kl00<40PCl o_clo_`0C?cno0840P@Co?kl0`@213Wlo_`00`@21?cno?cno02Vo?kl002V o?kl10@21?olo_coo?kloocno?olo_`Vo?kl0P@218Wlo_`21084F?cno000 Y_cno0@40PCoo?kloocno?olo_coo?kl/Ocno0840PAHo?kl002Vo?kl10@2 1?olo_coo?kloocno?olo_coo?kl3?cno000Y_cno0@40PCoo?kloocno?ol o_coo?kloocno0clo_`00:Klo_`41084oocno?olo_coo?kloocno?olo_`< o?kl002Vo?kl10@21?olo_coo?kloocno?olo_coo?kl3?cno000Eocno084 0PA=o?kl10@214glo_`21084W_cno0840PBNo?kl0P@219klo_`21084W_cn o0840PBNo?kl0P@219klo_`210843Ocno0031084o?klo?kl0>Slo_`005Ol o_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PBNo?kl0P@2 19klo_`21084W_cno0840PBNo?kl0P@210clo_`31084jOcno000Y_cno0@4 0PCoo?kloocno?olo_coo?kl7_cno0<40PB@o?kl0P@215Slo_`00:Klo_`4 1084oocno?olo_coo?kloocno1glo_`31084TOcno0840PAHo?kl002Vo?kl 10@21?olo_coo?kloocno?olo_`Lo?kl0`@21>clo_`00:Klo_`41084oocn o?olo_coo?kloocno1_lo_`31084kOcno000Y_cno0@40PCoo?kloocno?ol o_coo?kl7?cno0031084o?klo?kl0>clo_`00:Klo_`41084oocno?olo_co o?kloocno?olo_`o?kl0P@219klo_`21084Jocno0<40P@`o?kl0P@21?Slo_`0 05Olo_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PB?o?kl 0`@210clo_`210843ocno0<40P@To?kl0P@210Klo_`210843Ocno0840PA? o?kl0P@219klo_`21084J_cno0<40P@ao?kl0P@21?Slo_`00:Klo_`41084 oocno?olo_`Po?kl0P@2123lo_`310848_cno0840P@6o?kl0P@210clo_`2 1084oocno5clo_`31084d_cno0840PAHo?kl002Vo?kl10@21?olo_coo?kl 7ocno0840P@Ro?kl0`@2127lo_`210841_cno0840P@7lo_`21084=ocn o0<40P@Yo?kl0`@211glo_`210841_cno0840PCoo?kloocno9[lo_`005Ol o_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PAAo?kl0`@2 13Glo_`310844_cno0840P@Go?kl0`@211clo_`210841_cno0840PANo?kl 0P@219klo_`21084W_cno0840PCho?kl001Go?kl0P@214glo_`41084COcn o0840PBNo?kl0P@219klo_`21084D_cno0840P@do?kl0`@211?lo_`21084 6?cno0<40P@Lo?kl0P@210Clo_`21084Gocno0840PBNo?kl0P@219klo_`2 1084n?cno000Y_cno0@40PCoo?klh_cno0840P@co?kl0`@212olo_`31084 6ocno0840P@4o?kl0P@21?olo_coo?kl@Ocno0840PAHo?kl002Vo?kl10@2 1?olo_cRo?kl0`@2137lo_`31084?cno0<40P@Xo?kl0P@21?olo_aDo?kl0`@21?olo_`ho?kl002V o?kl10@21?olo_coo?kl5?cno0840P@jo?kl0`@212Olo_`21084oocno5Cl o_`21084oocno3Wlo_`005Olo_`21084COcno0@40PA=o?kl0P@219klo_`2 1084W_cno0840PB2o?kl0P@211[lo_`210848?cno0<40P@Uo?kl0P@215Cl o_`21084W_cno0840PAMo?kl0P@213olo_`21084n?cno000Eocno0840PA= o?kl10@214glo_`21084W_cno0840PBNo?kl0P@2187lo_`310846_cno084 0P@Qo?kl0`@212Clo_`21084E?cno0840PBNo?kl0P@215glo_`00`@21?cn o?cno00no?kl0P@21?Slo_`00:Klo_`41084oocno>Klo_`21084:?cno0<4 0P@oo?kl0`@212;lo_`21084oocno?olo_`go?kl0P@215Slo_`00:Klo_`4 1084oocno>Klo_`210849ocno0<40PA1o?kl0`@21?olo_coo?klF_cno084 0PAHo?kl002Vo?kl10@21?olo_cVo?kl0`@212Glo_`31084@ocno0<40PCo o?kloocno;?lo_`00:Klo_`41084oocno>Olo_`210849?cno0<40PA5o?kl 0`@21?olo_coo?kl/_cno000Y_cno0@40PCoo?kliocno0<40P@Ro?kl0`@2 14Olo_`31084oocno6[lo_`61084oocno47lo_`00:Klo_`41084oocno>Sl o_`00`@21?cno?cno00Po?kl0`@214Wlo_`31084oocno6Slo_`81084oocn o43lo_`005Olo_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno084 0PAjo?kl0`@2127lo_`21084:Ocno0<40P@Ho?kl0P@215Slo_`21084W_cn o0840PAAo?kl20@214Glo_`21084n?cno000Eocno0840PA=o?kl10@214gl o_`21084W_cno0840PBNo?kl0P@217Wlo_`310848_cno0840P@Zo?kl0`@2 11Olo_`21084F?cno0840PBNo?kl0P@2157lo_`81084AOcno0840PCho?kl 002Vo?kl10@21?olo_coo?kl2_cno0840PA@o?kl0`@211Glo_`21084oocn o4glo_`81084iOcno0840PAHo?kl002Vo?kl10@21?olo_coo?kl2Ocno084 0PABo?kl0`@211?lo_`31084oocno4glo_`81084iOcno0840PAHo?kl002V o?kl10@21?olo_coo?kl2?cno0840PADo?kl0`@211;lo_`21084oocno4kl o_`81084oocno43lo_`00:Klo_`41084oocno>_lo_`310846?cno0<40PAE o?kl0`@21?olo_aRo?kl1P@21?olo_a1o?kl002Vo?kl10@21?olo_c/o?kl 0`@211Klo_`31084Eocno0<40PCoo?kloocno:Slo_`00:Klo_`41084oocn o>glo_`210845Ocno0<40PAIo?kl0`@21?olo_coo?klYocno000Eocno084 0PA=o?kl10@214glo_`21084W_cno0840PBNo?kl0P@215glo_`310844ocn o0<40P@Xo?kl0P@2137lo_`31084J_cno0840PBNo?kl0P@219klo_`21084 n?cno000Eocno0840PA=o?kl10@214glo_`21084W_cno0840PBNo?kl0P@2 15klo_`00`@21?cno?cno00Ao?kl0`@212Wlo_`21084<_cno0<40P@9o?kl 00<40PClo_clo_`0GOcno0840PBNo?kl0P@219klo_`21084n?cno000Y_cn o0@40PCoo?kloocno0;lo_`31084Gocno0<40P@7o?kl0`@21?olo_a=o?kl 00<40PClo_clo_`0kocno0840PAHo?kl002Vo?kl10@21?olo_coo?kl0Ocn o0<40PARo?kl0`@210Glo_`21084oocno4glo_`31084l?cno0840PAHo?kl 002Vo?kl10@21?olo_coo?kl0`@216Clo_`310840ocno0840PCoo?klCOcn o0<40PCoo?klC?cno000Y_cno0@40PCoo?kllocno0031084o?klo?kl00Sl o_`31084I_cno0<40P@01?cno0@210@210@21?olo_aolo_`310844ocno0@40PA`o?kl0`@219[l o_`410842_cno0@40PB>o?kl10@210[lo_`41084oocno47lo_`00:Klo_`4 1084oocno>klo_`310845Ocno0<40PA;o?kl00<40PClo_clo_`08ocno0<4 0PBHo?kl10@210glo_`41084Rocno0@40P@=o?kl10@21?olo_`oo?kl001G o?kl0P@214glo_`41084COcno0840PBNo?kl0P@219klo_`21084GOcno0<4 0P@Ho?kl00<40PClo_clo_`08ocno0840P@Ro?kl10@212Glo_`31084D?cn o0840PA4o?kl0`@2117lo_`31084@ocno0840PA4o?kl0`@2117lo_`31084 @ocno0840PCho?kl001Go?kl0P@214glo_`41084COcno0840PBNo?kl0P@2 19klo_`21084G?cno0<40P@oo?kl0P@2123lo_`41084:Ocno0<40PA>o?kl 0P@214?lo_`310844ocno0840PA3o?kl0P@214?lo_`310844ocno0840PA3 o?kl0P@21?Slo_`00:Klo_`41084oocno>_lo_`310848?cno0<40P@oo?kl 0P@212clo_`31084T_cno0840P@Eo?kl0P@217[lo_`00`@21?cno?cno00: o?kl0P@211Glo_`21084h_cno0840PAHo?kl002Vo?kl10@21?olo_cZo?kl 0`@2127lo_`51084K?cno0<40PB@o?kl0`@211Glo_`31084N?cno0<40P@: o?kl0`@211Glo_`31084hOcno0840PAHo?kl002Uo?kl1`@219Wlo_`71084 VOcno0L40PBIo?kl1`@210Klo_`310849?cno0@40P@eo?kl00<40PClo_cl o_`0ocno0l40PA6o?kl0P@2147lo_`210841_cno0`40P@7o?kl0P@2143lo_`2 1084@Ocno0840P@6o?kl30@210Olo_`21084@?cno0840PA9o?kl30@21:?l o_`00:?lo_`;1084UOcno0/40PBEo?kl2`@219Glo_`=1084@?cno0P40PA; o?kl2`@21004o?kl108410841084Qocno0840P@8o?kl2`@210Olo_`21084 P_cno0840P@8o?kl2`@210Olo_`21084S?cno0/40PA9o?kl0P@215Slo_`0 0:?lo_`;1084UOcno0/40PBEo?kl2`@219Glo_`<1084U?cno0/40P@2o?kl 0`@218Olo_`210841ocno0/40P@7o?kl0P@218?lo_`210841ocno0/40P@7 o?kl0P@218clo_`;1084BOcno0840PAHo?kl002So?kl2`@219Glo_`;1084 UOcno0/40PBEo?kl2`@219Glo_`;10841?cno0<40PB5o?kl0P@210Olo_`; 10841ocno0840PB3o?kl0P@210Olo_`;10841ocno0840PBo?kl1`@2 1:Glo_`00:Klo_`41084W_cno0031084o?klo?kl09glo_`00`@21?cno?cn o02Mo?kl0`@219glo_`00`@21?cno?cno00:o?kl0`@218;lo_`210843?cn o0031084o?klo?kl00Wlo_`31084K?cno0<40P@Do?kl0P@210clo_`00`@2 1?cno?cno009o?kl0`@2197lo_`00`@21?cno?cno02Vo?kl001Go?kl0P@2 14glo_`41084COcno0840PBNo?kl0P@219klo_`21084C_cno0<40PA=o?kl 0P@215glo_`31084?_cno0840PA2o?kl0P@211Olo_`21084@Ocno0840P@Z o?kl0P@211Klo_`210845ocno0840PA1o?kl0P@21?Slo_`005Olo_`21084 COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PA=o?kl0`@214klo_`2 1084G_cno0<40P@mo?kl0P@214;lo_`310845Ocno0<40PA1o?kl0P@212Wl o_`210845ocno0<40P@Eo?kl0`@2147lo_`21084n?cno000Y_cno0@40PCo o?klgOcno0840PB`o?kl0`@2187lo_`210845Ocno0840PA/o?kl0P@211Wl o_`210845Ocno0840PCRo?kl0P@215Slo_`00:Klo_`41084oocno=clo_`2 1084/_cno0<40PB0o?kl0`@211?lo_`21084K?cno0840P@Jo?kl0`@211?l o_`21084hocno0840PAHo?kl002Vo?kl10@21?olo_cKo?kl0P@21;Clo_`3 10845ocno0@40P@00ocno0@210@21002o?kl10@210;lo_`410841Ocno0P4 0PA9o?kl0`@2117lo_`31084K?cno0840P@Ko?kl0`@2117lo_`31084oocn o3klo_`00:Klo_`41084oocno=[lo_`31084]Ocno0<40P@Do?kl0`@210;l o_`310841?cno0840P@4o?kl0P@210Wlo_`21084COcno0@40P@=o?kl10@2 18_lo_`410843Ocno0@40PCoo?kl?ocno000Y_cno0@40PCoo?klfOcno0<4 0PBgo?kl0`@211?lo_`210841?cno0840P@4o?kl0P@210Clo_`210842Ocn o0840PA>o?kl10@210[lo_`41084S_cno0@40P@:o?kl10@21?olo_a1o?kl 002Vo?kl10@21?olo_cHo?kl0`@21;[lo_`310840ocno0840P@;o?kl0P@2 10Glo_`210841?cno0840P@4o?kl0P@210Wlo_`21084D?cno0L40P@00ocn o0@210@210051084TOcno0L40P@00ocno0@210@210051084oocno4;lo_`0 05Olo_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PA7o?kl 0`@215Clo_`21084I_cno0<40P@2o?kl0P@210_lo_`210841Ocno0840P@4 o?kl0P@210Clo_`210842Ocno0840P@6o?kl0P@214[lo_`;1084BOcno084 0PA:o?kl2`@214Wlo_`21084n?cno000Eocno0840PA=o?kl10@214glo_`2 1084W_cno0840PBNo?kl0P@214Klo_`31084EOcno0840PAWo?kl0`@210;l o_`210842_cno0840P@5o?kl0P@210Clo_`210841?cno0840P@9o?kl0P@2 10Klo_`21084Cocno0031084o?klo?kl04clo_`21084Cocno0031084o?kl o?kl04clo_`21084n?cno000Y_cno0@40PCoo?kleOcno0<40PC0o?kl0`@2 1004o?kl1084108410842Ocno0840P@5o?kl0P@210Clo_`210841?cno084 0P@9o?kl0P@21ocno0031084o?klo?kl00;lo_`21084G?cno084 0PAZo?kl2@@210clo_`210845Ocno0840P@6o?kl0P@219klo_`210846_cn o0P40PAlo?kl0P@21?Slo_`005Olo_`21084COcno0@40PA=o?kl0P@219kl o_`21084W_cno0840P@ko?kl0P@210;lo_`31084G?cno0840PA/o?kl20@2 10_lo_`210845Ocno0840P@6o?kl0P@219klo_`210846ocno0H40PAmo?kl 0P@21?Slo_`00:Klo_`41084oocno<[lo_`3108400Clo_`40P@40P@40PC= o?kl1P@210_lo_`210844ocno0@40PCoo?kliocno0840PAHo?kl002Vo?kl 10@21?olo_c:o?kl0P@21004o?kl108410841084d?cno0D40P@:o?kl0P@2 10Clo_`210843ocno0840PCoo?kliocno0840PAHo?kl002Vo?kl10@21?ol o_c9o?kl0P@21004o?kl108410841084docno0@40P@8o?kl0`@210Clo_`2 10844?cno0031084o?klo?kl0?olo_coo?kl@?cno000Y_cno0@40PCoo?kl b?cno0H40P@3o?kl00<40PClo_clo_`0d?cno0840PCoo?kloocno6Clo_`0 0:Klo_`41084oocno o?kl0`@21?olo_bjo?kl002Vo?kl10@21?olo_coo?kloocno4glo_`31084 oocno;_lo_`00:Klo_`41084oocno?olo_coo?klC_cno0031084o?klo?kl 0?olo_bjo?kl001Go?kl0P@214glo_`41084COcno0840PBNo?kl0P@219kl o_`21084W_cno0840PBNo?kl0P@219klo_`21084W_cno0840PCho?kl001G o?kl0P@214glo_`41084COcno0840PBNo?kl0P@219klo_`21084W_cno084 0PBNo?kl0P@219klo_`21084W_cno0840PCho?kl002Vo?kl10@21?olo_co o?kloocno?olo_bao?kl0P@215Slo_`00:Klo_`41084oocno?olo_coo?kl oocno;7lo_`21084F?cno000Y_cno0@40PCoo?kloocno?olo_coo?kloocn o0clo_`00:Klo_`41084oocno?olo_coo?klAocno0840PCoo?kl`_cno000 Y_cno0@40PCoo?kloocno?olo_a6o?kl0P@21?olo_c3o?kl002Vo?kl10@2 1?olo_coo?kloocno4Glo_`31084oocno_cno0<40PCoo?klM?cno0840PAHo?kl002Vo?kl 10@21?olo_coo?kloocno3Wlo_`31084oocno?cno0<40PCoo?kld?cno000Y_cno0@40PCoo?kloocno?ol o_`ho?kl0P@21?olo_cAo?kl002Vo?kl10@21?olo_coo?kloocno?olo_co o?kl3?cno000Eocno0840PA=o?kl10@214glo_`21084W_cno0840PBNo?kl 0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`21084n?cno000Eocn o0840PA=o?kl10@214glo_`21084W_cno0840PBNo?kl0P@219klo_`21084 W_cno0840PBNo?kl0P@219klo_`21084n?cno000Y_cno0@40PCoo?kloocn o?olo_coo?kl/Ocno0840PAHo?kl002Vo?kl10@21?olo_coo?kloocno?ol o_bao?kl0P@215Slo_`00:Klo_`41084oocno?olo_coo?kl<_cno0031084 o?klo?kl0?olo_cFo?kl002Vo?kl10@21?olo_coo?kloocno37lo_`21084 oocno=Slo_`00:Klo_`41084oocno?olo_coo?klGlo_`00:Klo_`41084oocno?olo_coo?kl7_cno0P40PCo o?kliOcno000Y_cno0@40PCoo?kloocno?olo_`No?kl20@21?olo_cUo?kl 001Go?kl0P@214glo_`41084COcno0840PBNo?kl0P@219klo_`21084W_cn o0840PBNo?kl0P@214clo_`81084B_cno0840PBNo?kl0P@21?Slo_`005Ol o_`21084COcno0@40PA=o?kl0P@219klo_`21084W_cno0840PBNo?kl0P@2 19klo_`21084COcno0H40PA;o?kl0P@219klo_`21084n?cno000Y_cno0@4 0PCoo?kloocno?olo_coo?kl/Ocno0840PAHo?kl002Vo?kl10@21?olo_co o?kloocno?olo_bao?kl0P@215Slo_`00:Klo_`41084oocno?olo_coo?kl 7?cno0/40PCoo?kli?cno000Y_cno0@40PCoo?kloocno?olo_`Jo?kl3`@2 1?olo_cRo?kl002Vo?kl10@21?olo_coo?kloocno1Slo_`510842Ocno0@4 0PCoo?klhOcno000Y_cno0@40PCoo?kloocno?olo_`Go?kl1@@210clo_`4 1084oocno=olo_`005Olo_`21084COcno0@40PA=o?kl0P@219klo_`21084 W_cno0840PBNo?kl0P@219klo_`21084A?cno0D40P@?o?kl0`@214?lo_`2 1084W_cno0840PCho?kl001Go?kl0P@214glo_`41084COcno0840PBNo?kl 0P@219klo_`21084W_cno0840PBNo?kl0P@214?lo_`510844Ocno0840PA3 o?kl0P@219klo_`21084n?cno000Y_cno0@40PCoo?kloocno?olo_`Eo?kl 0P@21003o?kl1084o?kl01;lo_`21084oocno8?lo_`21084F?cno000Y_cn o0@40PCoo?kloocno?olo_`Do?kl0`@211Glo_`31084oocno8;lo_`21084 F?cno000YOcno0L40PBIo?kl1`@219Wlo_`71084VOcno0L40PBIo?kl1`@2 18olo_`210842?cno0L40P@8o?kl0P@218olo_`71084VOcno0L40PBUo?kl 002To?kl2@@219Olo_`91084Uocno0T40PBGo?kl2@@219Olo_`91084SOcn o0840P@8o?kl2@@210Olo_`31084SOcno0T40PBGo?kl2@@21:Clo_`00:?l o_`;1084UOcno0/40PBEo?kl2`@219Glo_`;1084UOcno0/40PBo?kl0`@2117lo_`31084oocno=klo_`00:Klo_`41084 oocno?olo_coo?kl1Ocno0<40P@?o?kl10@210glo_`41084oocno=olo_`0 0:Klo_`41084oocno?olo_coo?kl1?cno0<40P@Ao?kl10@210[lo_`41084 oocno>7lo_`00:Klo_`41084oocno?olo_coo?kl0ocno0<40P@Do?kl1`@2 1003o?kl1084108400D40PCoo?klh_cno000Eocno0840PA=o?kl10@214gl o_`21084W_cno0840PBNo?kl0P@219klo_`21084W_cno0840P@`o?kl0`@2 11Olo_`;1084BOcno0840PBNo?kl0P@21?Slo_`005Olo_`21084COcno0@4 0PA=o?kl0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`21084Olo_`91084oocno?olo_`Ko?kl002Vo?kl10@21?ol o_coo?kli_cno0T40PCoo?kloocno1clo_`005Olo_`21084COcno0@40PA= o?kl0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`210845Ocno0P4 0PB1o?kl0P@219klo_`21084n?cno000Eocno0840PA=o?kl10@214glo_`2 1084W_cno0840PBNo?kl0P@219klo_`21084W_cno0840P@Eo?kl20@2187l o_`21084W_cno0840PCho?kl002Vo?kl10@21?olo_coo?kli_cno0P40PCo o?kl`_cno0840PAHo?kl002Vo?kl10@21?olo_coo?kli_cno0P40PCoo?kl `_cno0840PAHo?kl002Vo?kl10@21?olo_coo?kli_cno0P40PCoo?kloocn o1glo_`00:Klo_`41084oocno?olo_cWo?kl1P@21?olo_coo?kl7_cno000 Y_cno0@40PCoo?kloocno?olo_coo?kloocno0clo_`00:Klo_`41084oocn o?olo_cUo?kl00<40PClo_clo_`0oocno?olo_`So?kl001Go?kl0P@214gl o_`41084COcno0840PBNo?kl0P@219klo_`21084W_cno0840PBNo?kl0P@2 11?lo_`31084R?cno0840PBNo?kl0P@21?Slo_`005Olo_`21084COcno0@4 0PA=o?kl0P@219klo_`21084W_cno0840PBNo?kl0P@219klo_`210844_cn o0<40PB9o?kl0P@219klo_`21084n?cno000Y_cno0@40PCoo?kloocno>;l o_`31084oocno<_lo_`21084F?cno000Y_cno0@40PCoo?kloocno>7lo_`3 1084oocno3lo_`31084 oocno?olo_`Xo?kl002Vo?kl10@21?olo_coo?klhOcno0031084o?klo?kl 0?olo_coo?kl9ocno000Y_cno0@40PCoo?kloocno?olo_coo?kloocno0cl o_`00:Klo_`41084oocno?olo_coo?kloocno?olo_`10841ocno0840PA0o?kl0P@214[l o_`;1084BOcno0840PA:o?kl2`@214Wlo_`21084B_cno0/40PBSo?kl001G o?kl0P@211klo_`210842Ocno0840P@Fo?kl0P@210Klo_`<1084BOcno084 0PA9o?kl30@214Wlo_`21084BOcno0`40PA9o?kl0P@214Wlo_`<1084BOcn o0840PA1o?kl0P@210Clo_`>10841ocno0840PA0o?kl0P@214Wlo_`<1084 BOcno0840PA9o?kl30@214Wlo_`21084BOcno0`40PBSo?kl001go?kl0P@2 10Wlo_`210845_cno0840P@7o?kl2`@219Glo_`;1084UOcno0/40PBEo?kl 2`@218_lo_`210841Ocno0h40P@7o?kl0P@218clo_`;1084UOcno0/40PBE o?kl2`@214Wlo_`21084F?cno000Mocno0840P@9o?kl0P@211Klo_`21084 1ocno0/40PBEo?kl2`@219Glo_`;1084UOcno0/40PB 10841ocno0840PB?cno0840PCoo?kl oocno=7lo_`00:Klo_`41084oocno?olo_`go?kl0P@21?olo_coo?kld_cn o000Y_cno0@40PCoo?kloocno3Klo_`21084oocno?olo_cCo?kl001Go?kl 0P@214glo_`41084COcno0840PBNo?kl0P@219klo_`21084W_cno0840P@4 o?kl0`@219Olo_`21084W_cno0840PBNo?kl0P@21?Slo_`005Olo_`21084 1Ocno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0@40P@4o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@2 10Klo_`210841_cno0840P@6o?kl0`@210Glo_`210841_cno0840P@6o?kl 0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6 o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno084 0P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cn o0<40P@5o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`21084 1_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`310841Ocno0840P@6o?kl0P@2 10Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl 0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6 o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno084 0P@6o?kl0`@210?lo_`410841_cno0840P@6o?kl0P@210Klo_`210841_cn o0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`21084 1_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0<40P@5o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@2 10Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl 0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6 o?kl0P@210Klo_`310841Ocno0840P@6o?kl0P@210Klo_`210841_cno084 0P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cn o0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`21084 1_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0`@210Glo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@2 10Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl 0P@210Klo_`210841_cno0840PAIo?kl001No?kl0P@210Klo_`210841_cn o0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`21084 1_cno0840P@6o?kl10@210Clo_`210841_cno0840P@6o?kl0P@210Klo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@2 10Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl 0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6 o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno084 0P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cn o0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`21084 1_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@2 10Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl 0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841Ocno0<40P@6 o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno084 0P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cn o0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`21084 1_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@2 10Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl 0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6 o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno084 0P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`210841_cn o0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`21084 1_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Klo_`2 10841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@210Kl o_`210841_cno0840P@6o?kl0P@210Klo_`210841_cno0840P@6o?kl0P@2 15Wlo_`00:Klo_`41084oocno?olo_coo?kloocno?olo_`Kl o_`00:Klo_`41084oocno?olo_`Ro?kl0P@21?olo_coo?kliocno000Y_cn o0@40PCoo?kloocno27lo_`21084oocno?olo_cXo?kl002Vo?kl10@21?ol o_coo?kl8?cno0<40PCoo?kloocno>Slo_`00:Klo_`41084oocno?olo_`O o?kl0`@21?olo_coo?kljOcno000Y_cno0@40PCoo?kloocno1klo_`31084 oocno?olo_cZo?kl002Vo?kl10@21?olo_coo?kl7ocno0031084o?klo?kl 0?olo_coo?kljOcno000Y_cno0@40PCoo?kloocno?olo_coo?kloocno0cl o_`00:Klo_`41084oocno?olo_coo?kloocno?olo_`"], "Graphics", GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{494, 382.625}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}]], "Text"], Cell[BoxData[ \(Clear[Ray]; \ Ray[i1_, i2_]\ := \ \(Ray[i1, i2]\ = \ Module[\[IndentingNewLine]{\[IndentingNewLine]r = {}, dir1, \ dir2, \ p1, p2, k, \[IndentingNewLine]m = {H/2 - 1/2, W/2 - 1/2}, \[IndentingNewLine]\[Theta] = N[\[Pi]*i1/ M]\[IndentingNewLine]}, \[IndentingNewLine]dir1 = {Cos[\ \[Theta]], \ Sin[\[Theta]]}; \[IndentingNewLine]dir2 = {Cos[\[Theta]\ + \ \ \[Pi]/2], \ Sin[\[Theta]\ + \ \[Pi]/2]}; \[IndentingNewLine]For[ k = \(-M\)/2, \ k \[LessEqual] M/2, \ k += 1/2, \[IndentingNewLine]{p1, p2} = Round[m + \((i2 - M/2)\)*dir1 + k*dir2]; \[IndentingNewLine]If[ 0 \[LessEqual] p1 < H\ && \ 0 \[LessEqual] p2 < W, \ AppendTo[ r, \ {p1 + 1, p2 + 1}]]\[IndentingNewLine]]; \[IndentingNewLine]Union[ r]\[IndentingNewLine]]\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Ray[50, 22]\)], "Input"], Cell[BoxData[ \({{16, 1}, {16, 2}, {17, 2}, {17, 3}, {17, 4}, {18, 5}, {18, 6}, {18, 7}, {19, 7}, {19, 8}, {19, 9}, {20, 9}, {20, 10}, {20, 11}, {20, 12}, {21, 12}, {21, 13}, {21, 14}, {22, 15}, {22, 16}, {23, 17}, {23, 18}, {23, 19}, {24, 20}, {24, 21}, {25, 22}, {25, 23}, {25, 24}, {26, 24}, {26, 25}, {26, 26}, {26, 27}, {27, 27}, {27, 28}, {27, 29}, {28, 29}, {28, 30}, {28, 31}, {29, 32}, {29, 33}, {29, 34}, {30, 34}, {30, 35}, {30, 36}, {31, 37}, {31, 38}, {31, 39}, {32, 39}, {32, 40}, {32, 41}, {33, 42}, {33, 43}, {33, 44}, {34, 44}, {34, 45}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(CTScan = Table[\[IndentingNewLine]Plus\ @@ \ Extract[pixels, \ Ray[i1, i2]] + 0*Random[Real, {\(-1\), 1}], \[IndentingNewLine]{i1, 1, M}, {i2, 0, M}\[IndentingNewLine]]; \ Dimensions[CTScan]\)], "Input"], Cell[BoxData[ \({57, 58}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Show[Graphics[Raster[CTScan/Max[CTScan]]], \ AspectRatio \[Rule] Automatic]\)], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .98276 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.0164204 0.023399 0.0164204 [ [ 0 0 0 0 ] [ 1 .98276 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .98276 L 0 .98276 L closepath clip newpath % Start of gray image p .02381 .0234 translate .95238 .93596 scale 58 string 58 57 8 [58 0 0 57 0 0] { \tcurrentfile \t1 index \treadhexstring \tpop } Mimage 00000000000000000000010A1620242D3333313C5263707A7F8285888A8987858482796D 5E594A3B312E24211A12080100000000000000000000 0000000000000000000107101F272F332F282E3B4C5C69727E888D8B92928A8D88847469 585145332E312E2523160B0501000000000000000000 000000000000000001040A161F2A303332272B3F4C5D6571717D8E939595928F83747463 6151423333342F2B231D0D0703010000000000000000 00000000000000010209171523272F2E26212A4155606A747B84848A95968A87897E796D 67544231292B312D211A170D06020100000000000000 00000000000000020611191D2325312B231F2D4251617277787F858F96989187847B7E79 6654473026282C2F241F171709040200000000000000 00000000000001060F18161D22292E2A221B293F576A797E7E7B87959EA0978D7E808282 7159432A26292D2F2A1F181512090401000000000000 000000000001030B11141D1C262925241C1D2C3F5462676F7A8683908E9492828C7F756F 685B402D2323272726231C15140C0602010000000000 000000000103080F131A1F242428241D1E1C2C3E5B6163787A8B839495959385927F7C6E 6962412F252420292720201A16120A05020100000000 0000000001040A12141B202224281E1D1A172640565E6A7E8484939C9CA09F968C8B8777 675D43261F231D2428231F1D16150E06020100000000 00000000030711140F21222A232025181A192C44516367737A8399949293959F8A837B72 6B5C492B21221E221F2427201A10120D040200000000 00000001050D1515181D1C212121201F151B28444C5169677B8D97999E9E9A9B91846F70 59564E2E22221E212320221A1B15150F0A0301000000 000001030710151420221F2221191F141616263B495C706F899299A1A6AAA49E9B8F787C 6253402B1C1D181D1A23201E1F1C15130C0502010000 00000103061212111C1F2722221F1C1D131A28344C5C6C787D8D9786918F8B9B95878376 645A382D211D211C1F2223261C190F130F0502010000 000001030C11111A1627202328192318161B25463D6962788D6EA374A29F7AA873977E70 7647522D232018231729231E2615190F0F0A02010000 000001060D0C11161D261D22211F221C17152D40486664787C88998A8B8E909D8F82826A 77544A361D1C1F20211E251C251C14120A0A05010000 000101060D1016171E21201F1E1D181E161B2F374E576A747388858F9498908F907A8172 625A3F3A241C1D1C1D1E1D1F1D1D1515100A05010100 000101030C0C1114191E241F20211D20161C293E4E65737C88959BA0AAABA3A59E928480 755B4737251D1F221C241E231E1713100C0903010100 000001030C1315171F1F23262122201D181B233C476062797887878988888E8F8C847E6F 6D5449311E1F1D22232224201F1C1716110904010000 000001030C1312151A222323241F211E1C182538495E696E787E82898F8F8D8685817674 6D594635231F1E22212224211F1B1513110904010000 000001040A0C131B1D1B2129211C212423181E345655576B8C836B829C9F866E88957560 6367422B2225231D1E2129201A1C18140C0904010000 00000102090F15131C24272623232224201B24384654686E737A87858D8C8A8B7F7D7C71 61584937201F252124232524221B14130F0902010000 00000002070E12181825232823282224211D23344A4F65647F7588808F8E828D79887074 5E5A44372421231E2826261F241817110E0602000000 00000001030B121518222427282620211F1F2131415266696F757D8787878A827A747371 625143342120221E25282724201716120C0401000000 0000000103070D13151F282C2C28241E1C1D21374B5B646669727A8C93948E7F796C6D72 6C6054361D1D1C21292C2A261E14130E070301000000 0000000001040C15181C272B2D26251C1E1E2834484C595F6F737E838D8E868279756864 5A5A513322201F23222C2B271C1A150C060100000000 0000000000030811191C2327272525232221252A3E4C59646D787E828A8B83817E726C63 5B55452B22212324252524231D191109030000000000 00000000000107121A1C1E2125272A261F20262F3B4956666E757B7F8183817E7B756F61 5B52432D222023272725221D1D1A1309010000000000 000000000000060E141A1B232729282421212934404E5B656D747B7F8082807E7A746E67 61584932232023262827241C1A160F06000000000000 000000000000060D0E141A1B232729282422283C48505C646A727C808283827F7B77706C 665948352423262827241D1A160F0D06000000000000 000000000001070C0F0F151C1E282A2A26272A3B444C57646B737C808384827F7B777166 5F5344332725282928221D1A110F0C07010000000000 00000000000307090D0F101A1D2429302D2A2839454F5B656D7881858E8F87837F736F6C 5E564531272B302B251D1E150F0D0907030000000000 00000000010406090B0D0F101D1F2B32352D2D3F4C5463616F738286939184867B797072 675D4C3D2D2F32302220140F0D0B0906040100000000 0000000103040507090B0D0F121F242D2F3031465D67716C6973808F969690847B74797E 7868553D2E3033282317100D0B090705040301000000 0000000103050607090B0D0D0F141B233038394756656E777278838B898D8C8682858480 705C51433734281F18100D0D0B090706050301000000 0000000203050508080B0B0D0D1111232234384D686573708C788E8291928596859A8084 6D6B57473C272816110D0D0B0B080805050302000000 000001020304060708090A0C0D0F0F131F2939597271787A81828D8C959492968F918E87 7571694A31271A0F0F0D0C0A09080706040302010000 00000103040406080908090C0D0D0D111522264C89896D7398987788A1A28C7DA2AC8772 838F63382C1B110D0D0D0C0908090806040403010000 000001020305050707090A0B0C0D0E0F1012204973979584889195938E909E9DA19F9291 8E8166391A100F0E0D0C0B0A09070705050302010000 00000102030505070809090B0B0D0D0E0F11132E6899A3968C98A0989194A1AAACA19B92 9E845524110F0E0D0D0B0B0909080705050302010000 0001010103040505070709090B0C0E0E0F1112255291C1B7A1AAB6B9B9BFC2C7C6B8AEBB AF753E1C110F0E0E0C0B090907070505040301010100 00010102040505060707090A0B0B0C0E0D10121F435D9CBE9C9593A9AFACB3AAB8A1B1B4 7F55301D100D0E0C0B0B0A0907070605050402010100 0000010204030506070809080B0C0D0E0E0E11213B6A75ADBFABA0A8BCBBB9C8BEB8C096 7849361B0F0D0E0D0C0B080908070605030402010000 0000010103040407050908090C090E0B0E100F22356D6B8BD1A3A8A7DCE6B2CEABDCA67D 743F3917100D0B0E090C090809050704040301010000 0000010203040505060808090A0B0C0E0E0F111A425F778794B2A5BBE3E9D0DACCB3997B 604E29140F0E0D0C0B0A090808060505040302010000 0000010203040505070708080A0A0B0B0D0E0F1C415F7A8193A4AEE6FDFFF8EBD0A8867F 60492C140E0D0B0B0A09080807070505040302010000 0000000103040405060708090A0B0D0D0E0F0F1F3E567276889AA6E1F6F9F5EBCF9A7A75 584731140F0E0D0D0B0A090807060504040301000000 0000000002030405050707090A0B0D0D0F0F101E45647181909EB1C9EBEAD8EBC4AD8774 684D2F160F0F0D0D0B09090707050504030200000000 0000000001020305050607090A0B0C0D0E0F101C46637891B3AAA1D1E1E8E4CCBEBFAD7B 634D2B140F0E0D0B0B0A090706050503020100000000 0000000001020303050707090A0B0D0E0F1013204B5F6FA6B49D91BACCCEC8AEB9B4B38C 66502C19100F0E0D0B09090707050303020100000000 0000000000010203050607080A0B0D0E0F111225486693B5A58C94ADB6BCB7A6A9A8AA9E 834E3018110F0E0D0B09080706050302010000000000 000000000000010305070708090B0D0F101114264B85B2B6908899A9B6B7B0A99DA2A4A8 946A331A12100F0D0B09080707050301000000000000 0000000000000002030507090A0C0E0F1113152E6691AB957E8C97A29FA1A2A19B959391 8A774E2113110F0E0B0A090705030200000000000000 0000000000000001020507080A0C0E1113131A4475948A8081959799989D959BA0948B79 787558341B13110E0C0A080705020100000000000000 0000000000000000010305080B0E1114141D2C4E797972717B8A9A9C9694979E94887E6E 64685E412D1C14110E0B080503010000000000000000 0000000000000000000105090D1113121A28334D7470676F828F939296969096948C786D 6058503F32261A13110D090501000000000000000000 0000000000000000000001081012131E2730374D6B6D6D78818384898C8C8A8989867E73 6455443C3731291D1210080100000000000000000000 00000000000000000000001011131522263134675862607A7987818786888483837E786A 60494938372F25201311090000000000000000000000 pop P % End of image % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{461.125, 453.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgoooo003oooooc_ooo`00ooooolkoool00?ooooo>oooo003oooooc_ooo`00ooooolkoool0 0?ooooo>oooo003oooooc_ooo`00ooooolkoool00?ooooo>oooo003oooooc_ooo`002_oood`00008 0@411`X:2PPF5QH7820P22@T90P];Bd?`Pac/8c/k234a<@L^;Rh892@T224Q8@LJ6QX84Q8B1`P820P10@5< 00002oooo`002_oood`000080@411`X:2PPF5QH7820P22@T90P];Bd?`Pac/8 c/k234a<@L^;Rh892@T224Q 8@LJ6QX84Q8B1`P820P10@5<00002oooo`002_oood`000080@411`X:2PPF5QH7820P22@T90P];Bd? `Pac/8c/k1dac/k1dac/k1dac/k1dac/k1dac/k1da