(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 273547, 11015]*) (*NotebookOutlinePosition[ 274602, 11051]*) (* CellTagsIndexPosition[ 274558, 11047]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell[TextData[ "Chapter Four Visualizing Data in Two Dimensions"], "Title", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["4.3.3 Legends"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Needs[\"Graphics`Legend`\"]"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Plot[{4 Exp[-x^2],3(1-x^2)},{x,-1,1},\n PlotRange -> {Automatic,{-4,4}},\ \n PlotStyle -> {AbsoluteThickness[1],\n\t \ {AbsoluteThickness[0.5], AbsoluteDashing[{4,4}]}},\n PlotLegend -> \ {\"Theory\",\"Expt\"}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .67549 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.54329 0.4329 0.391855 0.4329 [ [ 0 0 0 0 ] [ 1 .67549 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p % Start of sub-graphic p .11039 .12431 .97619 .6594 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.47619 0.309017 0.0772542 [ [(-1)] .02381 .30902 0 2 Msboxa [(-0.5)] .2619 .30902 0 2 Msboxa [(0.5)] .7381 .30902 0 2 Msboxa [(1)] .97619 .30902 0 2 Msboxa [(-4)] .4875 0 1 0 Msboxa [(-3)] .4875 .07725 1 0 Msboxa [(-2)] .4875 .15451 1 0 Msboxa [(-1)] .4875 .23176 1 0 Msboxa [(1)] .4875 .38627 1 0 Msboxa [(2)] .4875 .46353 1 0 Msboxa [(3)] .4875 .54078 1 0 Msboxa [(4)] .4875 .61803 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .02381 .30902 m .02381 .31527 L s P [(-1)] .02381 .30902 0 2 Mshowa p .002 w .2619 .30902 m .2619 .31527 L s P [(-0.5)] .2619 .30902 0 2 Mshowa p .002 w .7381 .30902 m .7381 .31527 L s P [(0.5)] .7381 .30902 0 2 Mshowa p .002 w .97619 .30902 m .97619 .31527 L s P [(1)] .97619 .30902 0 2 Mshowa p .001 w .07143 .30902 m .07143 .31277 L s P p .001 w .11905 .30902 m .11905 .31277 L s P p .001 w .16667 .30902 m .16667 .31277 L s P p .001 w .21429 .30902 m .21429 .31277 L s P p .001 w .30952 .30902 m .30952 .31277 L s P p .001 w .35714 .30902 m .35714 .31277 L s P p .001 w .40476 .30902 m .40476 .31277 L s P p .001 w .45238 .30902 m .45238 .31277 L s P p .001 w .54762 .30902 m .54762 .31277 L s P p .001 w .59524 .30902 m .59524 .31277 L s P p .001 w .64286 .30902 m .64286 .31277 L s P p .001 w .69048 .30902 m .69048 .31277 L s P p .001 w .78571 .30902 m .78571 .31277 L s P p .001 w .83333 .30902 m .83333 .31277 L s P p .001 w .88095 .30902 m .88095 .31277 L s P p .001 w .92857 .30902 m .92857 .31277 L s P p .002 w 0 .30902 m 1 .30902 L s P p .002 w .5 0 m .50625 0 L s P [(-4)] .4875 0 1 0 Mshowa p .002 w .5 .07725 m .50625 .07725 L s P [(-3)] .4875 .07725 1 0 Mshowa p .002 w .5 .15451 m .50625 .15451 L s P [(-2)] .4875 .15451 1 0 Mshowa p .002 w .5 .23176 m .50625 .23176 L s P [(-1)] .4875 .23176 1 0 Mshowa p .002 w .5 .38627 m .50625 .38627 L s P [(1)] .4875 .38627 1 0 Mshowa p .002 w .5 .46353 m .50625 .46353 L s P [(2)] .4875 .46353 1 0 Mshowa p .002 w .5 .54078 m .50625 .54078 L s P [(3)] .4875 .54078 1 0 Mshowa p .002 w .5 .61803 m .50625 .61803 L s P [(4)] .4875 .61803 1 0 Mshowa p .001 w .5 .01545 m .50375 .01545 L s P p .001 w .5 .0309 m .50375 .0309 L s P p .001 w .5 .04635 m .50375 .04635 L s P p .001 w .5 .0618 m .50375 .0618 L s P p .001 w .5 .09271 m .50375 .09271 L s P p .001 w .5 .10816 m .50375 .10816 L s P p .001 w .5 .12361 m .50375 .12361 L s P p .001 w .5 .13906 m .50375 .13906 L s P p .001 w .5 .16996 m .50375 .16996 L s P p .001 w .5 .18541 m .50375 .18541 L s P p .001 w .5 .20086 m .50375 .20086 L s P p .001 w .5 .21631 m .50375 .21631 L s P p .001 w .5 .24721 m .50375 .24721 L s P p .001 w .5 .26266 m .50375 .26266 L s P p .001 w .5 .27812 m .50375 .27812 L s P p .001 w .5 .29357 m .50375 .29357 L s P p .001 w .5 .32447 m .50375 .32447 L s P p .001 w .5 .33992 m .50375 .33992 L s P p .001 w .5 .35537 m .50375 .35537 L s P p .001 w .5 .37082 m .50375 .37082 L s P p .001 w .5 .40172 m .50375 .40172 L s P p .001 w .5 .41717 m .50375 .41717 L s P p .001 w .5 .43262 m .50375 .43262 L s P p .001 w .5 .44807 m .50375 .44807 L s P p .001 w .5 .47898 m .50375 .47898 L s P p .001 w .5 .49443 m .50375 .49443 L s P p .001 w .5 .50988 m .50375 .50988 L s P p .001 w .5 .52533 m .50375 .52533 L s P p .001 w .5 .55623 m .50375 .55623 L s P p .001 w .5 .57168 m .50375 .57168 L s P p .001 w .5 .58713 m .50375 .58713 L s P p .001 w .5 .60258 m .50375 .60258 L s P p .002 w .5 0 m .5 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p 1 Mabswid .02381 .4227 m .06349 .44239 L .10317 .46333 L .14286 .48509 L .18254 .50715 L .22222 .52891 L .2619 .54968 L .30159 .56878 L .34127 .58554 L .38095 .59931 L .40079 .60491 L .42063 .60957 L .44048 .61324 L .46032 .6159 L .47024 .61683 L .4752 .6172 L .48016 .6175 L .48512 .61773 L .4876 .61782 L .49008 .6179 L .49256 .61796 L .4938 .61798 L .49504 .618 L .49628 .61802 L .49752 .61803 L .49876 .61803 L .5 .61803 L .50124 .61803 L .50248 .61803 L .50372 .61802 L .50496 .618 L .50744 .61796 L .50992 .6179 L .5124 .61782 L .51488 .61773 L .51984 .6175 L .5248 .6172 L .52976 .61683 L .53968 .6159 L .55952 .61324 L .57937 .60957 L .61905 .59931 L .65873 .58554 L .69841 .56878 L .7381 .54968 L .77778 .52891 L .81746 .50715 L .85714 .48509 L .89683 .46333 L .93651 .44239 L Mistroke .97619 .4227 L Mfstroke P P p [ 4 4 ] 0 Mabsdash p .5 Mabswid .02381 .30902 m .06349 .34603 L .10317 .37983 L .14286 .41041 L .18254 .43777 L .22222 .46192 L .2619 .48284 L .30159 .50054 L .34127 .51503 L .38095 .52629 L .40079 .53072 L .42063 .53434 L .44048 .53716 L .4504 .53826 L .46032 .53917 L .47024 .53987 L .4752 .54015 L .48016 .54038 L .48512 .54055 L .4876 .54062 L .49008 .54068 L .49256 .54072 L .4938 .54074 L .49504 .54075 L .49628 .54077 L .49752 .54077 L .49876 .54078 L .5 .54078 L .50124 .54078 L .50248 .54077 L .50372 .54077 L .50496 .54075 L .50744 .54072 L .50992 .54068 L .5124 .54062 L .51488 .54055 L .51984 .54038 L .5248 .54015 L .52976 .53987 L .53968 .53917 L .5496 .53826 L .55952 .53716 L .57937 .53434 L .59921 .53072 L .61905 .52629 L .65873 .51503 L .69841 .50054 L .7381 .48284 L .77778 .46192 L .81746 .43777 L Mistroke .85714 .41041 L .89683 .37983 L .93651 .34603 L .97619 .30902 L Mfstroke P P P MathSubEnd P % End of sub-graphic p p .04545 .01608 m .04545 .27582 L .39177 .27582 L .39177 .01608 L F 1 g .02381 .03773 m .02381 .29747 L .37013 .29747 L .37013 .03773 L F 0 g .001 w .02381 .03773 m .37013 .03773 L .37013 .29747 L .02381 .29747 L .02381 .03773 L s % Start of sub-graphic p .02381 .03773 .37013 .29747 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0297619 0.297619 0.0297619 0.297619 [ [ 0 0 0 0 ] [ 1 .75 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .75 L 0 .75 L closepath clip newpath p p p % Start of sub-graphic p .05357 .05357 .35119 .35119 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p [ 4 4 ] 0 Mabsdash .5 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [(Expt)] .38988 .20238 -1 0 Mshowa P p % Start of sub-graphic p .05357 .39881 .35119 .69643 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [(Theory)] .38988 .54762 -1 0 Mshowa P P p P P MathSubEnd P % End of sub-graphic P P P 0 0 m 1 0 L 1 .67549 L 0 .67549 L closepath clip newpath % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{216, 145}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc004o`/01OlJ0004o`00o`<000?o0000H00000D000?o0000>P000ol0000:00Go7@001?l00002of40 00050003o`0001/00ol200?o00<0ool00P04o`800ol200Co10000ol0000900Go5004o`<00_l40003 o`00060000050003o`0001`000?o00000P001?l00?l20003o`0000<000Go0000o`020003o`0000<0 0_l;00Go7@001Ol0003o068000050003o`0001`000?o00000P001?l00?l200Go00<0o`000P001?l0 0?l50003o`3o00X01OlJ0004o`00o`<00_mQ00001@000ol0000201Ko10000ol0000200;o00D0o`00 o`030003o`3o00<000?o00000_l30004o`00o`X01OlK00;o10000ol0001P00001@000ol0000J0005 o`3o0?l00P000ol0o`0400?o0`03o`800_l00`3oo`02o`040?ooo`T01OlQ0003o`00060000050003 o`0001X01Ol20003o`0002<01OlQ00;oH@0000D000?o00008002obD01OlQ0003o`00060000050003 o`0004L01OlQ00;oH@0000D000?o0000A`05ob4000?o0000H00000D000?o0000A`05ob4000?o0000 H00000D000?o0000A`05oaX01?l300;oH@0000D000?o0000A`05oaX000Co003o0`000ol0001P0000 1@000ol0001700Go6`000ol0000300;oH@0000D000?o0000A`05oa@01?l40003o`00008000?o0000 H00000D000?o0000A`000ol0000O0005o`000?l0HP0000D000?o0000A`000ol0000L0004o`00o`<0 0_mQ00001@000ol000170003o`0001d00_l40003o`00060000050003o`0004L000?o00008`02of40 000504_o9@000ol0001P0000M@000ol0001P0000M@02of40001e0003o`000600001e0003o`000600 001^00Go0P02of40001`0003o`00008000?o0000H00002L01OlM00;o10000ol0000200?o6@000ol0 000200;o7`02o`@000?o00000P03oal01Ol@0000:@000ol0000L0004o`00o`/000?o00003P04o`@0 00?o00000P000ol0000M0004o`00o`/000?o00007P000ol0000@0000:@000ol0000L0004o`00o`/0 00?o00005P000ol000020003o`0001d000Co003o2`000ol0000N0003o`000100000Q00Co10000ol0 000F00Co0P001?l00?l800?o5`03o`@00_lN0004o`00o`P00olQ0003o`000100000Y0003o`0001`0 00Co003o20000ol0000I0003o`00008000?o00007@001?l00?l80003o`00024000?o0000400002L0 0olN0004o`00o`P000?o00007P02oah000Co003o20000ol0000O00?o4P0002T000?o00007@02o`T0 1?lM0003o`0001h00_l900Co80000ol0000@0000M@000ol0001P0000M@02of40001e0003o`000600 001e00;oH@0007D000?o0000H00007D000?o0000H0000280Z?l>00009P000ol000050003o`0000D0 00?o00001@000ol000040003o`0000D000?o00001@000ol000050003o`0000D000?o00001@000ol0 00050003o`0000D000?o00001@000ol000050003o`0000D000?o00001@000ol000050003o`0000D0 00?o00001@000ol000050003o`0000@00_lB0000M@000ol0001;0003o`000180000Y0003o`0004T0 0_m;0003o`0001<0000Z0003o`0004P000?o0000B@000ol0000D0000:`000ol0001700;oH@0002`0 00?o0000AP000ol000160003o`0001L0001e0003o`0004D000?o0000600007D00_m50003o`0001T0 000_00;oA0000ol000130003o`0001X0000a0003o`0003X01Ol200;oH@00038000?o0000>`000ol0 00020003o`000600001`0003o`00008000?o0000?`02oal0001`0003o`0000800_lo0003o`0001l0 000e00;o>@000ol000020003o`0003d000?o0000800003L000?o0000=003o`@000?o0000H00003P0 00?o0000=@000ol0000200;oH@0007D000?o0000>002obH0001e00;o>0000ol0000V00009P02oa@0 0_lg0003o`0003H000?o00004`02oa80000X00;o50000ol0000d0003o`0004T00olD0000:P02oa<0 00?o0000<`02oc@000?o00004@02oaL0000/00;oA`000ol0000b0003o`0001000_lI0000;P02oa80 0_lZ00Co0`02oc000_lB00;o6`00030000?o00004@02obP000Co003o0`000ol0000^0003o`000140 00?o00006`0003400_lC0003o`0002H000?o00000`000ol0000]0003o`0001000_lN0000<`02oc/0 00?o00000P02ocl00_lP0000=@03oa400_lV0005o`000?l0:P02oa800_lR0000>002oa400_lQ0004 o`00o`<00_lX0003o`0001000_lT0000>P02oa4000?o00007`02o`@000?o00009P000ol0000?00;o 9P0003`000?o0000=P000ol0000Q00;o4`02obP0000m00;o4@03ob800_lP00;o50000ol0000X0000 ?`000ol0000A00;o80000ol0000N0003o`0001800_l[0000@002oaH00olJ0003o`0001X00_lE00;o ;@0004800_lG0003o`0001L00_lI00;o5@02obl000140003o`0001D000?o00005P000ol0000G0003 o`0001@000?o0000;`0004D00_lI00?o3002o`@00_lA00Co6002oc80001700;o6P000ol000080004 o`00o`<000?o00003`000ol0000H00;o=00004T00_lL00Go1@001Ol0003o00T01OlL00;o=P0004/0 0_lR00Go00<0ool01OlR00;o>00004d00_lR0005o`000?l09P02ocX0001?00?o70001?l00?l300;o 8P03oc`0001B00;o6`02o`@000?o00007`02ocl0001D00;o7`000ol0000M00;o@@0005H00olL00;o 7002od<0001I00;o6P000ol0000I00;oA@0005/00olG00;o5`03odL0001N00?o50000ol0000C00?o BP0006400olA0003o`0000l01?m=0000I004o`P000?o00000P02o`d00omA0000J003o`D000?o0000 0P000ol0000900?oE00006/01ol30004o`0000SoE`0006d000Go003o0007oel0001^0003o`3o06L0 001_00;oI`00070000?o0000I@000=P0003H0000f0000=P0003H0000\ \>"], ImageRangeCache->{{{0, 215}, {144, 0}} -> {-1.26488, -0.905194, 0.0108361, 0.0108361}, {{24.4375, 209}, {117.5, 3.375}} -> {-1.48047, -6.48248, 0.0125855, 0.0775761}, {{5.9375, 79.8125}, {135.938, 80.5625}} -> {-0.371171, -0.466924, 0.0455084, 0.0455084}, {{9.875, 31.875}, {131.938, 110}} -> {-0.496317, -1.77859, 0.0477277, 0.0772251}, {{ 9.875, 31.875}, {106.438, 84.5}} -> {-0.496317, -3.74783, 0.0477277, 0.0772251}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "dataone = Table[N[{2 Pi i/20, Sin[2 Pi i/20]}], {i, 0, 40}];\ndatatwo = \ Table[N[{2 Pi i/20, Cos[2 Pi i/20]}], {i, 0, 40}];"], "Input", AspectRatioFixed->True], Cell[TextData[ "fnone = Interpolation[dataone];\nfntwo = Interpolation[datatwo];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Plot[{fnone[x], fntwo[x]}, {x, 0, 4 Pi},\n\tPlotStyle -> {\n \ {AbsoluteThickness[1], RGBColor[0, 0, 1]},\n {AbsoluteThickness[1], \ AbsoluteDashing[{4,4}]}},\n\tPlotLegend -> {\" Sindata\",\" Cosdata\"},\n\t\ LegendPosition -> {1.2, 0},\n\tLegendShadow -> {0, 0},\n\tLegendSize -> {1, \ 0.5},\n\tLegendLabel -> FontForm[\"Key\", {\"Helvetica\" ,12}]]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .38627 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.321429 0.297619 0.193136 0.297619 [ [ 0 0 0 0 ] [ 1 .38627 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p % Start of sub-graphic p .02381 .0092 .61905 .37707 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0757881 0.309017 0.294302 [ [(2)] .17539 .30902 0 2 Msboxa [(4)] .32696 .30902 0 2 Msboxa [(6)] .47854 .30902 0 2 Msboxa [(8)] .63011 .30902 0 2 Msboxa [(10)] .78169 .30902 0 2 Msboxa [(12)] .93327 .30902 0 2 Msboxa [(-1)] .01131 .01472 1 0 Msboxa [(-0.5)] .01131 .16187 1 0 Msboxa [(0.5)] .01131 .45617 1 0 Msboxa [(1)] .01131 .60332 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .17539 .30902 m .17539 .31527 L s P [(2)] .17539 .30902 0 2 Mshowa p .002 w .32696 .30902 m .32696 .31527 L s P [(4)] .32696 .30902 0 2 Mshowa p .002 w .47854 .30902 m .47854 .31527 L s P [(6)] .47854 .30902 0 2 Mshowa p .002 w .63011 .30902 m .63011 .31527 L s P [(8)] .63011 .30902 0 2 Mshowa p .002 w .78169 .30902 m .78169 .31527 L s P [(10)] .78169 .30902 0 2 Mshowa p .002 w .93327 .30902 m .93327 .31527 L s P [(12)] .93327 .30902 0 2 Mshowa p .001 w .05412 .30902 m .05412 .31277 L s P p .001 w .08444 .30902 m .08444 .31277 L s P p .001 w .11476 .30902 m .11476 .31277 L s P p .001 w .14507 .30902 m .14507 .31277 L s P p .001 w .2057 .30902 m .2057 .31277 L s P p .001 w .23602 .30902 m .23602 .31277 L s P p .001 w .26633 .30902 m .26633 .31277 L s P p .001 w .29665 .30902 m .29665 .31277 L s P p .001 w .35728 .30902 m .35728 .31277 L s P p .001 w .38759 .30902 m .38759 .31277 L s P p .001 w .41791 .30902 m .41791 .31277 L s P p .001 w .44822 .30902 m .44822 .31277 L s P p .001 w .50885 .30902 m .50885 .31277 L s P p .001 w .53917 .30902 m .53917 .31277 L s P p .001 w .56948 .30902 m .56948 .31277 L s P p .001 w .5998 .30902 m .5998 .31277 L s P p .001 w .66043 .30902 m .66043 .31277 L s P p .001 w .69074 .30902 m .69074 .31277 L s P p .001 w .72106 .30902 m .72106 .31277 L s P p .001 w .75137 .30902 m .75137 .31277 L s P p .001 w .81201 .30902 m .81201 .31277 L s P p .001 w .84232 .30902 m .84232 .31277 L s P p .001 w .87264 .30902 m .87264 .31277 L s P p .001 w .90295 .30902 m .90295 .31277 L s P p .001 w .96358 .30902 m .96358 .31277 L s P p .001 w .9939 .30902 m .9939 .31277 L s P p .002 w 0 .30902 m 1 .30902 L s P p .002 w .02381 .01472 m .03006 .01472 L s P [(-1)] .01131 .01472 1 0 Mshowa p .002 w .02381 .16187 m .03006 .16187 L s P [(-0.5)] .01131 .16187 1 0 Mshowa p .002 w .02381 .45617 m .03006 .45617 L s P [(0.5)] .01131 .45617 1 0 Mshowa p .002 w .02381 .60332 m .03006 .60332 L s P [(1)] .01131 .60332 1 0 Mshowa p .001 w .02381 .04415 m .02756 .04415 L s P p .001 w .02381 .07358 m .02756 .07358 L s P p .001 w .02381 .10301 m .02756 .10301 L s P p .001 w .02381 .13244 m .02756 .13244 L s P p .001 w .02381 .1913 m .02756 .1913 L s P p .001 w .02381 .22073 m .02756 .22073 L s P p .001 w .02381 .25016 m .02756 .25016 L s P p .001 w .02381 .27959 m .02756 .27959 L s P p .001 w .02381 .33845 m .02756 .33845 L s P p .001 w .02381 .36788 m .02756 .36788 L s P p .001 w .02381 .39731 m .02756 .39731 L s P p .001 w .02381 .42674 m .02756 .42674 L s P p .001 w .02381 .4856 m .02756 .4856 L s P p .001 w .02381 .51503 m .02756 .51503 L s P p .001 w .02381 .54446 m .02756 .54446 L s P p .001 w .02381 .57389 m .02756 .57389 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p 0 0 1 r p 1 Mabswid .02381 .30902 m .06349 .45614 L .08333 .51707 L .09325 .54249 L .10317 .56384 L .1131 .58087 L .11806 .58769 L .12302 .59326 L .12798 .5976 L .13046 .59932 L .13294 .60074 L .13542 .60185 L .1379 .60265 L .13914 .60293 L .14038 .60314 L .14162 .60327 L .14286 .60332 L .1441 .60327 L .14534 .60314 L .14658 .60293 L .14782 .60265 L .1503 .60185 L .15278 .60074 L .15774 .5976 L .1627 .59326 L .16766 .58769 L .17262 .58087 L .18254 .56384 L .20238 .51707 L .22222 .45614 L .2619 .30902 L .30159 .16189 L .32143 .10096 L .33135 .07555 L .34127 .0542 L .35119 .03716 L .35615 .03034 L .36111 .02478 L .36607 .02043 L .36855 .01871 L .37103 .0173 L .37351 .01619 L .37475 .01575 L .37599 .01539 L .37723 .0151 L .37847 .0149 L .37971 .01477 L .38095 .01472 L .38219 .01477 L .38343 .0149 L Mistroke .38467 .0151 L .38591 .01539 L .38839 .01619 L .39087 .0173 L .39583 .02043 L .40079 .02478 L .40575 .03034 L .41071 .03716 L .42063 .0542 L .44048 .10096 L .46032 .16189 L .5 .30902 L .53968 .45614 L .55952 .51707 L .56944 .54249 L .57937 .56384 L .58929 .58087 L .59425 .58769 L .59921 .59326 L .60417 .5976 L .60665 .59932 L .60913 .60074 L .61161 .60185 L .61285 .60229 L .61409 .60265 L .61533 .60293 L .61657 .60314 L .61781 .60327 L .61905 .60332 L .62029 .60327 L .62153 .60314 L .62277 .60293 L .62401 .60265 L .62649 .60185 L .62897 .60074 L .63393 .5976 L .63889 .59326 L .64385 .58769 L .64881 .58087 L .65873 .56384 L .67857 .51707 L .69841 .45614 L .7381 .30902 L .77778 .16189 L .79762 .10096 L .80754 .07555 L .81746 .0542 L .82738 .03716 L .83234 .03034 L .8373 .02478 L Mistroke .84226 .02043 L .84474 .01871 L .84722 .0173 L .8497 .01619 L .85094 .01575 L .85218 .01539 L .85342 .0151 L .85466 .0149 L .8559 .01477 L .85714 .01472 L .85838 .01477 L .85962 .0149 L .86086 .0151 L .8621 .01539 L .86458 .01619 L .86706 .0173 L .87202 .02043 L .87698 .02478 L .88194 .03034 L .8869 .03716 L .89683 .0542 L .91667 .10096 L .93651 .16189 L .97619 .30902 L Mfstroke P P p [ 4 4 ] 0 Mabsdash p 1 Mabswid .02381 .60332 m .02505 .60331 L .02629 .60322 L .02753 .60304 L .02877 .60278 L .03001 .60243 L .03125 .60201 L .03373 .60091 L .03621 .59949 L .03869 .59775 L .04365 .59333 L .05357 .58087 L .06349 .56384 L .08333 .51707 L .10317 .45614 L .14286 .30902 L .18254 .16189 L .20238 .10096 L .2123 .07555 L .22222 .0542 L .23214 .03716 L .2371 .03034 L .24206 .02478 L .24702 .02043 L .2495 .01871 L .25198 .0173 L .25446 .01619 L .2557 .01575 L .25694 .01539 L .25818 .0151 L .25942 .0149 L .26066 .01477 L .2619 .01472 L .26314 .01477 L .26438 .0149 L .26562 .0151 L .26687 .01539 L .26935 .01619 L .27183 .0173 L .27679 .02043 L .28175 .02478 L .28671 .03034 L .29167 .03716 L .30159 .0542 L .32143 .10096 L .34127 .16189 L .38095 .30902 L .42063 .45614 L .44048 .51707 L .4504 .54249 L Mistroke .46032 .56384 L .47024 .58087 L .4752 .58769 L .48016 .59326 L .48512 .5976 L .4876 .59932 L .49008 .60074 L .49256 .60185 L .4938 .60229 L .49504 .60265 L .49628 .60293 L .49752 .60314 L .49876 .60327 L .5 .60332 L .50124 .60327 L .50248 .60314 L .50372 .60293 L .50496 .60265 L .50744 .60185 L .50992 .60074 L .51488 .5976 L .51984 .59326 L .5248 .58769 L .52976 .58087 L .53968 .56384 L .55952 .51707 L .57937 .45614 L .61905 .30902 L .65873 .16189 L .67857 .10096 L .68849 .07555 L .69841 .0542 L .70833 .03716 L .71329 .03034 L .71825 .02478 L .72321 .02043 L .72569 .01871 L .72817 .0173 L .73065 .01619 L .73189 .01575 L .73313 .01539 L .73437 .0151 L .73562 .0149 L .73686 .01477 L .7381 .01472 L .73934 .01477 L .74058 .0149 L .74182 .0151 L .74306 .01539 L .74554 .01619 L Mistroke .74802 .0173 L .75298 .02043 L .75794 .02478 L .7629 .03034 L .76786 .03716 L .77778 .0542 L .79762 .10096 L .81746 .16189 L .85714 .30902 L .89683 .45614 L .91667 .51707 L .93651 .56384 L .94643 .58087 L .95635 .59333 L .96131 .59775 L .96379 .59949 L .96627 .60091 L .96751 .6015 L .96875 .60201 L .96999 .60243 L .97123 .60278 L .97247 .60304 L .97371 .60322 L .97495 .60331 L .97619 .60332 L Mfstroke P P P MathSubEnd P % End of sub-graphic p p .67857 .19314 m .67857 .34195 L .97619 .34195 L .97619 .19314 L F 1 g .67857 .19314 m .67857 .34195 L .97619 .34195 L .97619 .19314 L F 0 g .001 w .67857 .19314 m .97619 .19314 L .97619 .34195 L .67857 .34195 L .67857 .19314 L s % Start of sub-graphic p .67857 .19314 .97619 .34195 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0297619 0.297619 0.0142045 0.142045 [ [ 0 0 0 0 ] [ 1 .5 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .5 L 0 .5 L closepath clip newpath p p p % Start of sub-graphic p .05357 .02557 .35119 .16761 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p [ 4 4 ] 0 Mabsdash 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [( Cosdata)] .38988 .09659 -1 0 Mshowa P p % Start of sub-graphic p .05357 .19034 .35119 .33239 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.952381 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p 0 0 1 r 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [( Sindata)] .38988 .26136 -1 0 Mshowa P P p /Helvetica findfont 12 scalefont setfont [(Key)] .5 .41477 0 0 Mshowa P P MathSubEnd P % End of sub-graphic P P P 0 0 m 1 0 L 1 .38627 L 0 .38627 L closepath clip newpath % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{328, 126}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc003oa401DbD00007P000ol000020003o`0002<000?o00000P000ol0000<009<0`000d`0000e00;o 0`000ol0000<009<10000d`0002A00007003o`@000?o00008P000ol0000400;o2`000d`000040003 C00003X000?o00002`000d`000030003C0000940000N0003o`00008000?o00008@000ol0000B0003 C00000D000=<0000>P000ol000090003C00000D000=<0000T00002<000?o000080000ol0000B0003 C00000L000=<0000;`000ol000080003o`0000L000=<00001`000d`0002?00008`02ocH000=<0000 1`000d`0000_0003o`00018000=<00001`000d`0002?00008`000ol0000/0003o`0000D000=<0000 2@000d`0000]0003o`00018000=<00002@000d`0002>00008`000ol0000/0003o`0000@000=<0000 2`000d`0000/0003o`0000/000?o00000`000d`0000;0003C00008d0000S0003o`0001h000?o0000 2`000ol000040003C00000/000=<0000:`000ol0000<0003o`0000<000=<00002`000d`0002=0000 8`000ol0000N0003o`0000`000?o00000P000d`0000=0003C00003T000?o00000P000d`0000=0003 C00008`0000S00;o7P000ol0000A0003C00000h000=<0000>P001Ol0001<00l000=<0000S00002<0 00?o00007@000ol0000A0003C00000h000=<0000>P001Ol0001<00l000=<0000S00002<000?o0000 <@000d`0000?0003C00002P000?o00004@000d`0000?0003C00008/0000S0003o`0002l000?oC000 4@000d`0000X0003o`00014000=<00003`000d`0002;00008`000ol0000_0003od`0014000=<0000 9`000ol0000B0003C00000l000=<0000R`0002<00_lL0003o`00018000?o00004@000d`0000U00;o 4`000ol0000A0003C00008X0000S0003o`0001/000?o00004P000ol0000A0003C00003X000?o0000 4@000d`0002:00008`000ol0000K0003o`00014000=0000d`0o`0C0003C00008T0000S0003 o`0001X000?o00004P000d`0000C0003C00002<000?o00004P000d`0o`0C0003C00008T0000S00;o ;`000d`0000D0003C00002<000?o00004@000d`0000E0003C00008P0000S0003o`0002h000E<0000 o`0C0003C000028000?o00004@000d`0000E0003C00008P0000A00;o10000ol0000200?o10000ol0 000]0003C000008000?o00004@000d`0000Q0003o`00014000=<00000P000ol0000B0003C00008L0 000@0004o`00o`/000Go0000o`0K0003o`00014000=<00000`000ol0000@0003C000024000?o0000 4@000d`000020003o`00018000=<0000Q`00010000Co003o2`001Ol0003o01/000?o00004@000d`0 00030003o`00014000=<0000=0000d`000030003o`00014000=<0000Q`0000X01?l20004o`00o`P0 0ol400;o6@000ol0000A0003C00001P000=<0000<`000d`000040003o`00018000=<0000QP000100 00Co003o20000ol000040003o`0001P000?o00004@000d`0000H0003C00003<000=<00001@000ol0 000A0003C00008H0000@0004o`00o`P000?o000010000ol0000H0003o`00014000=<000060000d`0 000O0003o`00014000=<00006@000d`0002600004@02o`T01?l30003o`0002/000=<00001P000ol0 000A0003C00001h000?o000040000d`0000K0003C00008D0000S0003o`0002/000=<00001P000ol0 000A0003C00001h000?o000040000d`0000K0003C00008D0000S00;o60000ol0000A0003C00000H0 00?o00004@000d`0000M0003o`00014000=<00001`000ol0000A0003C00008D0000S0003o`0001L0 00?o00004@000d`000070003o`00014000=<000070000ol0000A0003C00000L000?o00004@000d`0 002500008`000ol0000F0003o`00014000=<000020000ol0000A0003C00002l000=<000020000ol0 000B0003C00008@0000S0003o`0001H000?o00004@000d`0000L0003C00002l000=<00002@000ol0 000A0003C00008@0000S0003o`0001D000?o00004P000d`0000L0003C00002l000=<00002@000ol0 000A0003C00008@0000S00;o:`000d`0000M0003C00001X000?o00004@000d`0000M0003C00008@0 000S0003o`0002T000=<00002P000ol0000A0003C00001X000?o000040000d`0000O0003C00008<0 000S0003o`0001D01?l@0003C00000D000?o00000P000ol0000@0003od`001L00_l00`3o000A0003 odco00;o0P02oa401Ol01@3ooom<08D0000S0003o`0001@00_l20003o`0000h000=<00001@000ol0 00020003o`0000l000Co001<5P000ol00002oa<000=0004o`00C1H0 00Co003o50000dco00020004o`00o`D000?o00002P000ol000020003o`1<08D0000S00;o5@001?l0 0?lA0003C000008000Co003o1@000ol0000>00?o00=<00005@02oaD000=P000ol0C00B0003C00002L0 00?o00007P000ol0000T0003o`00008000?o00001?l50003o`0002D000?o0000200002<000?o0000 20000d`0000?0003C00003X000?o04`04@000d`000190003o`0002@000Go0000o`020003o`000080 00Oo0000o`3o02H000?o0000200002<00_l:0003C00000d000=<0000:P000ol0000=0005o`0004`0 40000d`000190003o`0002@000Go0000o`020003o`0000H000?o0?l09P000ol0000800008`000ol0 00090003C00000d000=<0000:P000ol0000=0005o`0004`03`000d`0000[0003o`0001`000?o0000 90001?l00?l300Ko0`000ol0o`0V0003o`0000P0000S0003o`0000@000?o00000`000d`0000<0003 C00002X000?o000030000ol000030003C00000`000=<0000:`000ol0000L0003o`0002@00ol40003 o`00008000Co003o0`000ol0000S0003o`0000P0000S0003o`0000@000?o00000`000d`0000;0003 C00002`000?o00004P000d`0000:0003C00002d000?o00006`000ol0000T0003o`3o00@000?o0000 0P001?l00?l30003o`0002<000?o0000200002<000?o000010000ol000030003C00000/000=<0000 ;0000ol0000B0003C00000X000=<0000;@000ol0000K0003o`0002@000Co003o1004o`<000Go0000 o`0U0003o`0000P0000S00;o10000ol000050003C00000T000=<0000;P000ol0000B0003C00000P0 00=<0000;P000ol0000K0003o`0002@000Go0000o`0d0003o`0000P0000S0003o`0000`000=<0000 1`000d`0000j00;o20000d`000070003C00004d000?o000090000ol000020003o`00034000?o0000 200002<000?o000030000d`000070003C00003X000?o00001`000d`000070003C00004d000?o0000 G@000ol0000800007005o`8000?o00003@02C0H000=<0000003oh80000N0003 o`00008000?o0000o`0S00007P000ol000020003o`000?l08`0001`00ol40003o`000?l08`0001h0 00?o0000o`0X0000o`190000o`190000o`190000o`190000o`190000o`190000o`190000o`190000 \ \>"], ImageRangeCache->{{{0, 327}, {125, 0}} -> {-1.09763, -0.648944, 0.010383, 0.010383}, {{9.375, 202}, {122, 2.9375}} -> {-2.74385, -1.24658, 0.077414, 0.0199355}, {{221.25, 317.562}, {62.5, 14.3125}} -> {-7.81872, -4.66968, 0.0348868, 0.0730964}, {{226.375, 255.062}, {60, 46.3125}} -> {-10.9127, -5.51132, 0.047411, 0.0767126}, {{226.375, 255.062}, {44.125, 30.4375}} -> {-10.9127, -6.72914, 0.047411, 0.0767126}}],\ Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[ "ShowLegend[\n\t\tParametricPlot[{{s, s^2}, {Sin[s], Sin[2 s]}}, \n\t\t{s, -2 \ Pi, 2 Pi}, \n\t\tPlotStyle -> {{AbsoluteThickness[1]}, \n\t\t\t\t\t \ {AbsoluteThickness[2], \n\t\t\t\t\t\tRGBColor[1, 0, 0]}},\n\t\t\ DisplayFunction -> Identity],\n\t{{{Graphics[{AbsoluteThickness[1], \n\t\ Line[{{-0.05, 0}, {0.05,0}}]}], \" y = x^2\"}, \n\t\ {Graphics[{AbsoluteThickness[2], RGBColor[1, 0, 0], \n\tLine[{{-0.05, 0}, \ {0.05,0}}]}], \" BowTie\"}},\n\tLegendPosition -> {0.7, 0.15}}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .53648 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.397292 0.373483 0.243598 0.373483 [ [ 0 0 0 0 ] [ 1 .53648 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p % Start of sub-graphic p .02381 .01277 .77077 .47442 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.128856 0.135158 0.120443 [ [(-3)] .11343 .13516 0 2 Msboxa [(-2)] .24229 .13516 0 2 Msboxa [(-1)] .37114 .13516 0 2 Msboxa [(1)] .62886 .13516 0 2 Msboxa [(2)] .75771 .13516 0 2 Msboxa [(3)] .88657 .13516 0 2 Msboxa [(-1)] .4875 .01472 1 0 Msboxa [(1)] .4875 .2556 1 0 Msboxa [(2)] .4875 .37604 1 0 Msboxa [(3)] .4875 .49649 1 0 Msboxa [(4)] .4875 .61693 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .11343 .13516 m .11343 .14141 L s P [(-3)] .11343 .13516 0 2 Mshowa p .002 w .24229 .13516 m .24229 .14141 L s P [(-2)] .24229 .13516 0 2 Mshowa p .002 w .37114 .13516 m .37114 .14141 L s P [(-1)] .37114 .13516 0 2 Mshowa p .002 w .62886 .13516 m .62886 .14141 L s P [(1)] .62886 .13516 0 2 Mshowa p .002 w .75771 .13516 m .75771 .14141 L s P [(2)] .75771 .13516 0 2 Mshowa p .002 w .88657 .13516 m .88657 .14141 L s P [(3)] .88657 .13516 0 2 Mshowa p .001 w .1392 .13516 m .1392 .13891 L s P p .001 w .16497 .13516 m .16497 .13891 L s P p .001 w .19075 .13516 m .19075 .13891 L s P p .001 w .21652 .13516 m .21652 .13891 L s P p .001 w .26806 .13516 m .26806 .13891 L s P p .001 w .29383 .13516 m .29383 .13891 L s P p .001 w .3196 .13516 m .3196 .13891 L s P p .001 w .34537 .13516 m .34537 .13891 L s P p .001 w .39692 .13516 m .39692 .13891 L s P p .001 w .42269 .13516 m .42269 .13891 L s P p .001 w .44846 .13516 m .44846 .13891 L s P p .001 w .47423 .13516 m .47423 .13891 L s P p .001 w .52577 .13516 m .52577 .13891 L s P p .001 w .55154 .13516 m .55154 .13891 L s P p .001 w .57731 .13516 m .57731 .13891 L s P p .001 w .60308 .13516 m .60308 .13891 L s P p .001 w .65463 .13516 m .65463 .13891 L s P p .001 w .6804 .13516 m .6804 .13891 L s P p .001 w .70617 .13516 m .70617 .13891 L s P p .001 w .73194 .13516 m .73194 .13891 L s P p .001 w .78348 .13516 m .78348 .13891 L s P p .001 w .80925 .13516 m .80925 .13891 L s P p .001 w .83503 .13516 m .83503 .13891 L s P p .001 w .8608 .13516 m .8608 .13891 L s P p .001 w .08766 .13516 m .08766 .13891 L s P p .001 w .06189 .13516 m .06189 .13891 L s P p .001 w .03612 .13516 m .03612 .13891 L s P p .001 w .01035 .13516 m .01035 .13891 L s P p .001 w .91234 .13516 m .91234 .13891 L s P p .001 w .93811 .13516 m .93811 .13891 L s P p .001 w .96388 .13516 m .96388 .13891 L s P p .001 w .98965 .13516 m .98965 .13891 L s P p .002 w 0 .13516 m 1 .13516 L s P p .002 w .5 .01472 m .50625 .01472 L s P [(-1)] .4875 .01472 1 0 Mshowa p .002 w .5 .2556 m .50625 .2556 L s P [(1)] .4875 .2556 1 0 Mshowa p .002 w .5 .37604 m .50625 .37604 L s P [(2)] .4875 .37604 1 0 Mshowa p .002 w .5 .49649 m .50625 .49649 L s P [(3)] .4875 .49649 1 0 Mshowa p .002 w .5 .61693 m .50625 .61693 L s P [(4)] .4875 .61693 1 0 Mshowa p .001 w .5 .0388 m .50375 .0388 L s P p .001 w .5 .06289 m .50375 .06289 L s P p .001 w .5 .08698 m .50375 .08698 L s P p .001 w .5 .11107 m .50375 .11107 L s P p .001 w .5 .15925 m .50375 .15925 L s P p .001 w .5 .18333 m .50375 .18333 L s P p .001 w .5 .20742 m .50375 .20742 L s P p .001 w .5 .23151 m .50375 .23151 L s P p .001 w .5 .27969 m .50375 .27969 L s P p .001 w .5 .30378 m .50375 .30378 L s P p .001 w .5 .32787 m .50375 .32787 L s P p .001 w .5 .35195 m .50375 .35195 L s P p .001 w .5 .40013 m .50375 .40013 L s P p .001 w .5 .42422 m .50375 .42422 L s P p .001 w .5 .44831 m .50375 .44831 L s P p .001 w .5 .4724 m .50375 .4724 L s P p .001 w .5 .52057 m .50375 .52057 L s P p .001 w .5 .54466 m .50375 .54466 L s P p .001 w .5 .56875 m .50375 .56875 L s P p .001 w .5 .59284 m .50375 .59284 L s P p .002 w .5 0 m .5 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p 1 Mabswid s s s s s s s s s .24339 .61803 m .29759 .43234 L s .29759 .43234 m .33133 .34153 L .36506 .26724 L .3988 .20945 L .41566 .18675 L .43253 .16818 L .4494 .15373 L .45783 .14806 L .46627 .14341 L .4747 .1398 L .47892 .13838 L .48313 .13722 L .48735 .13632 L .48946 .13596 L .49157 .13567 L .49367 .13545 L .49578 .13529 L .49789 .13519 L .5 .13516 L .50211 .13519 L .50422 .13529 L .50633 .13545 L .50843 .13567 L .51265 .13632 L .51687 .13722 L .52108 .13838 L .5253 .1398 L .53373 .14341 L .54217 .14806 L .5506 .15373 L .56747 .16818 L .58434 .18675 L .6012 .20945 L .63494 .26724 L .66867 .34153 L .70241 .43234 L s .75661 .61803 m .70241 .43234 L s s s s s s s s s s P P p 1 0 0 r p 2 Mabswid .5 .13516 m .53335 .19538 L .54931 .22032 L .55699 .23071 L .56443 .23946 L .57159 .24643 L .57506 .24921 L .57844 .2515 L .58175 .25329 L .58336 .25399 L .58496 .25457 L .58653 .25502 L .58809 .25534 L .58961 .25554 L .59112 .2556 L .59259 .25554 L .59405 .25534 L .59548 .25502 L .59688 .25457 L .59826 .25399 L .59961 .25329 L .60223 .2515 L .60474 .24921 L .60714 .24643 L .61159 .23946 L .61557 .23071 L .61905 .22032 L .62202 .20848 L .62447 .19538 L .62549 .18843 L .62638 .18125 L .62714 .17387 L .62775 .16633 L .62824 .15865 L .62843 .15478 L .62858 .15088 L .6287 .14696 L .62879 .14304 L .62884 .1391 L .62886 .13516 L .62884 .13122 L .62879 .12728 L .6287 .12335 L .62858 .11944 L .62824 .11166 L .62775 .10398 L .62714 .09644 L .62638 .08907 L .62447 .07494 L .62202 .06184 L Mistroke .61905 .04999 L .61557 .0396 L .61159 .03085 L .60942 .02714 L .60714 .02388 L .60474 .02111 L .60223 .01882 L .59961 .01703 L .59826 .01632 L .59688 .01575 L .59548 .0153 L .59405 .01497 L .59259 .01478 L .59112 .01472 L .58961 .01478 L .58809 .01497 L .58653 .0153 L .58496 .01575 L .58175 .01703 L .57844 .01882 L .57159 .02388 L .56443 .03085 L .54931 .04999 L .53335 .07494 L .5 .13516 L .46665 .19538 L .45069 .22032 L .44301 .23071 L .43557 .23946 L .42841 .24643 L .42494 .24921 L .42156 .2515 L .41825 .25329 L .41664 .25399 L .41504 .25457 L .41347 .25502 L .41191 .25534 L .41039 .25554 L .40888 .2556 L .40741 .25554 L .40595 .25534 L .40452 .25502 L .40312 .25457 L .40174 .25399 L .40039 .25329 L .39777 .2515 L .39526 .24921 L .39286 .24643 L .38841 .23946 L .38443 .23071 L Mistroke .38095 .22032 L .37798 .20848 L .37553 .19538 L .37451 .18843 L .37362 .18125 L .37286 .17387 L .37225 .16633 L .37176 .15865 L .37157 .15478 L .37142 .15088 L .3713 .14696 L .37121 .14304 L .37116 .1391 L .37114 .13516 L .37116 .13122 L .37121 .12728 L .3713 .12335 L .37142 .11944 L .37176 .11166 L .37225 .10398 L .37286 .09644 L .37362 .08907 L .37553 .07494 L .37798 .06184 L .38095 .04999 L .38443 .0396 L .38841 .03085 L .39058 .02714 L .39286 .02388 L .39526 .02111 L .39777 .01882 L .39907 .01786 L .40039 .01703 L .40174 .01632 L .40312 .01575 L .40452 .0153 L .40595 .01497 L .40741 .01478 L .40888 .01472 L .41039 .01478 L .41191 .01497 L .41347 .0153 L .41504 .01575 L .41825 .01703 L .42156 .01882 L .42841 .02388 L .43557 .03085 L .45069 .04999 L .46665 .07494 L .5 .13516 L Mistroke .53335 .19538 L .54931 .22032 L .55699 .23071 L .56443 .23946 L .57159 .24643 L .57506 .24921 L .57844 .2515 L .58175 .25329 L .58336 .25399 L .58496 .25457 L .58653 .25502 L .58809 .25534 L .58961 .25554 L .59112 .2556 L .59259 .25554 L .59405 .25534 L .59548 .25502 L .59688 .25457 L .59826 .25399 L .59961 .25329 L .60223 .2515 L .60474 .24921 L .60714 .24643 L .61159 .23946 L .61557 .23071 L .61905 .22032 L .62202 .20848 L .62447 .19538 L .62549 .18843 L .62638 .18125 L .62714 .17387 L .62775 .16633 L .62824 .15865 L .62843 .15478 L .62858 .15088 L .6287 .14696 L .62879 .14304 L .62884 .1391 L .62886 .13516 L .62884 .13122 L .62879 .12728 L .6287 .12335 L .62858 .11944 L .62824 .11166 L .62775 .10398 L .62714 .09644 L .62638 .08907 L .62447 .07494 L .62202 .06184 L .61905 .04999 L Mistroke .61557 .0396 L .61159 .03085 L .60942 .02714 L .60714 .02388 L .60474 .02111 L .60223 .01882 L .59961 .01703 L .59826 .01632 L .59688 .01575 L .59548 .0153 L .59405 .01497 L .59259 .01478 L .59112 .01472 L .58961 .01478 L .58809 .01497 L .58653 .0153 L .58496 .01575 L .58175 .01703 L .57844 .01882 L .57159 .02388 L .56443 .03085 L .54931 .04999 L .53335 .07494 L .5 .13516 L .46665 .19538 L .45069 .22032 L .44301 .23071 L .43557 .23946 L .42841 .24643 L .42494 .24921 L .42156 .2515 L .41825 .25329 L .41664 .25399 L .41504 .25457 L .41347 .25502 L .41191 .25534 L .41039 .25554 L .40888 .2556 L .40741 .25554 L .40595 .25534 L .40452 .25502 L .40312 .25457 L .40174 .25399 L .40039 .25329 L .39777 .2515 L .39526 .24921 L .39286 .24643 L .38841 .23946 L .38443 .23071 L .38095 .22032 L Mistroke .37798 .20848 L .37553 .19538 L .37451 .18843 L .37362 .18125 L .37286 .17387 L .37225 .16633 L .37176 .15865 L .37157 .15478 L .37142 .15088 L .3713 .14696 L .37121 .14304 L .37116 .1391 L .37114 .13516 L .37116 .13122 L .37121 .12728 L .3713 .12335 L .37142 .11944 L .37176 .11166 L .37225 .10398 L .37286 .09644 L .37362 .08907 L .37553 .07494 L .37798 .06184 L .38095 .04999 L .38443 .0396 L .38841 .03085 L .39058 .02714 L .39286 .02388 L .39526 .02111 L .39777 .01882 L .39907 .01786 L .40039 .01703 L .40174 .01632 L .40312 .01575 L .40452 .0153 L .40595 .01497 L .40741 .01478 L .40888 .01472 L .41039 .01478 L .41191 .01497 L .41347 .0153 L .41504 .01575 L .41825 .01703 L .42156 .01882 L .42841 .02388 L .43557 .03085 L .45069 .04999 L .46665 .07494 L .5 .13516 L Mfstroke P P P MathSubEnd P % End of sub-graphic p p .6774 .28095 m .6774 .50504 L .97619 .50504 L .97619 .28095 L F 1 g .65873 .29962 m .65873 .52371 L .95752 .52371 L .95752 .29962 L F 0 g .001 w .65873 .29962 m .95752 .29962 L .95752 .52371 L .65873 .52371 L .65873 .29962 L s % Start of sub-graphic p .65873 .29962 .95752 .52371 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0297619 0.297619 0.0297619 0.297619 [ [ 0 0 0 0 ] [ 1 .75 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .75 L 0 .75 L closepath clip newpath p p p % Start of sub-graphic p .05357 .05357 .35119 .35119 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 9.52381 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p 1 0 0 r 2 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [( BowTie)] .38988 .20238 -1 0 Mshowa P p % Start of sub-graphic p .05357 .39881 .35119 .69643 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 9.52381 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [( y = x^2)] .38988 .54762 -1 0 Mshowa P P p P P MathSubEnd P % End of sub-graphic P P P 0 0 m 1 0 L 1 .53648 L 0 .53648 L closepath clip newpath % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{313, 166}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLcP000?l0>P000?l0>P000?l0>P000?l0 >P000?l0>P000?l0>P0007@01Ol30003o`000;X0001f0003o`0000<000?o0000^P0007H000?o0000 0`000ol0002j0000I@067`<01?l40003o`0000<00_l?00HOYP0006@021l:0003o`0000<000?o0000 30097jD0001T00008OXP0006000Ql@000003o`0002/00_l/0003 o`0001l000?o00009`04o`@00ol30003o`3o00800ol300Go0P04o`h01_l;0000C@000ol0000/0003 o`0002`000?o00007P000ol0000X0004o`00o`8000Go0000o`020003o`3o00<000?o000010001Ol0 003o01801_l;0000C@000ol0000/0003o`0002`000?o00007P000ol0000201`O2P001?l00?l2000; o`000?l0o`3o0?l00P000ol000040004o`0000Go3P06o`/0001=0003o`0002D00_l50003o`0002`0 00?o00007P000ol0000201`O2P03o`<000_o0000o`3o0?l0o`020003o`0000@000Go0000o`030003 o`0000`01_l;0000C@000ol0000T0004o`00o`@000?o0000;0000ol0000N0003o`0002P000Co003o 0`03o`8000Co0?l00_l0103o0?l300;o1003o`l01_l;0000C0000ol0000X0003o`00008000?o0000 ;@000ol0000M0003o`0002L01?l>00Go6`06o`/0001<0003o`0002H00_l500;o;P000ol0000M0003 o`00048000?o00005006o`/0001<0003o`0002P000?o00000P000ol0000]0003o`0001d000?o0000 F@06o`/0001;0003o`0002H000Co003o10000ol0000^0003o`0001`000?o0000F@06o`/0001;0003 o`0002L00_l50003o`0002h000?o000070000ol0001I00Ko2`0004/000?o0000;P000ol0000^0003 o`0001`000?o0000F@06o`/0001:0003o`0002l00_l`0003o`0001/000?o0000F@06o`/0001:0003 o`0002l000?o0000;`000ol0000K0003o`0005T01_l;0000BP000ol0000_0003o`0002l000?o0000 6`000ol0001I00Ko2`0004X000?o0000;`000ol0000_0003o`0001/000?o0000F@06o`/000190003 o`00030000?o0000<0000ol0000J0003o`0005T01_l;0000B@000ol0000`00;o<@000ol0000J0003 o`0005T01_l;0000B@000ol0000`0003o`00030000?o00006P000ol0001I00Ko2`0004P000?o0000 <@000ol0000a0003o`0001T000?o0000F@06o`/000180003o`00034000?o0000<@000ol0000I0003 o`0005T01_l;0000B0000ol0000a0003o`00034000?o00006@000ol0001I00Ko2`0004L000?o0000 0000c0000ol0001I0003o`0000h0003<0003o`0005T000?o00003P000<`000?o0000F@000ol0 000>0000c01Moa00003o03X0003o03X0003o03X00000\ \>"], ImageRangeCache->{{{0, 312}, {165, 0}} -> {-1.08309, -0.65224, 0.00870569, 0.00870569}, {{9.5, 239.25}, {161.062, 19.0625}} -> {-4.4372, -1.36019, 0.035676, 0.038168}, {{204.812, 296.688}, {72.8125, 3.875}} -> {-7.59038, -3.47205, 0.0365718, 0.0365718}, {{209.688, 237.062}, {67.875, 40.5}} -> {-0.856789, -6.87727, 0.00383565, 0.0620622}, {{209.688, 237.062}, {36.125, 8.8125}} -> {-0.856789, -8.8458, 0.00383565, 0.0620622}}]}, Open]], Cell[TextData[ "stdstyles = {{AbsoluteThickness[1]}, \n\t\t\t {AbsoluteDashing[{5, 5, 5, \ 5}], AbsoluteThickness[1]},\n\t\t\t {RGBColor[1, 0, 0], \ AbsoluteThickness[1]},\n\t\t\t {RGBColor[0, 0, 1], AbsoluteThickness[1]}};\n\ stdline = Line[{{-1, 0}, {1,0}}];"], "Input", AspectRatioFixed->True], Cell[TextData[ "makelegend[data_List, styles_List, line_] := \nModule[{len, baseprims, \ outlist},\nlen = Length[data];\nlenstyles = Length[styles];\nbaseprims = \ Map[Graphics, Map[Append[#, stdline]&, stdstyles]];\noutlist = {};\n\ Do[outlist = Append[outlist, {baseprims[[1]], data[[i]]}];\nbaseprims = \ RotateLeft[baseprims],\n{i, 1, len}];\noutlist]\n"], "Input", AspectRatioFixed->True], Cell[TextData[ "ShowLegend[\n\t\tParametricPlot[{{Sin[s], Sin[2 s]}, \n\t\t\t\t\t\t{Sin[s], \ Sin[3 s]},\n\t\t\t\t\t\t{Sin[s], Sin[4 s]},\n\t\t\t\t\t\t{Sin[s], Sin[5 s]}},\ \n\t\t{s, - Pi/2, Pi/2}, \n\t\tPlotStyle -> stdstyles,\n\t\tDisplayFunction \ -> Identity],\n{{{Graphics[{stdstyles[[1, 1]], stdline}], \" Sin[2 s]\"}, \n\ {Graphics[{stdstyles[[2, 1]], stdline}], \" Sin[3 s]\"},\n\ {Graphics[{stdstyles[[3, 1]], stdstyles[[3, 2]], stdline}], \" Sin[4 s]\"}, \ \n{Graphics[{stdstyles[[4, 1]], stdstyles[[4, 2]], stdline}], \" Sin[5 \ s]\"}},\nLegendPosition -> {1.2, -0.3},\nLegendSize -> {0.7, 0.6}}]"], "Input",\ AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "ShowLegend[\n\t\tParametricPlot[{{Sin[s], Sin[2 s]}, \n\t\t\t\t\t\t{Sin[s], \ Sin[3 s]},\n\t\t\t\t\t\t{Sin[s], Sin[4 s]},\n\t\t\t\t\t\t{Sin[s], Sin[5 s]}},\ \n\t\t{s, - Pi/2, Pi/2}, \n\t\tPlotStyle -> stdstyles,\n\t\tDisplayFunction \ -> Identity],\n\t{makelegend[{\"Sin[2 s]\", \"Sin[3 s]\", \"Sin[4 s]\", \ \"Sin[5 s]\"}, \n\t\t\t\tstdstyles, stdline],\n\tLegendPosition -> {1.2, \ -0.3},\n\tLegendSize -> {0.7, 0.6}}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .41901 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.346651 0.322841 0.209503 0.322841 [ [ 0 0 0 0 ] [ 1 .41901 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p % Start of sub-graphic p .02381 .00998 .66949 .40903 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.47619 0.309017 0.294302 [ [(-1)] .02381 .30902 0 2 Msboxa [(-0.5)] .2619 .30902 0 2 Msboxa [(0.5)] .7381 .30902 0 2 Msboxa [(1)] .97619 .30902 0 2 Msboxa [(-1)] .4875 .01472 1 0 Msboxa [(-0.5)] .4875 .16187 1 0 Msboxa [(0.5)] .4875 .45617 1 0 Msboxa [(1)] .4875 .60332 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .02381 .30902 m .02381 .31527 L s P [(-1)] .02381 .30902 0 2 Mshowa p .002 w .2619 .30902 m .2619 .31527 L s P [(-0.5)] .2619 .30902 0 2 Mshowa p .002 w .7381 .30902 m .7381 .31527 L s P [(0.5)] .7381 .30902 0 2 Mshowa p .002 w .97619 .30902 m .97619 .31527 L s P [(1)] .97619 .30902 0 2 Mshowa p .001 w .07143 .30902 m .07143 .31277 L s P p .001 w .11905 .30902 m .11905 .31277 L s P p .001 w .16667 .30902 m .16667 .31277 L s P p .001 w .21429 .30902 m .21429 .31277 L s P p .001 w .30952 .30902 m .30952 .31277 L s P p .001 w .35714 .30902 m .35714 .31277 L s P p .001 w .40476 .30902 m .40476 .31277 L s P p .001 w .45238 .30902 m .45238 .31277 L s P p .001 w .54762 .30902 m .54762 .31277 L s P p .001 w .59524 .30902 m .59524 .31277 L s P p .001 w .64286 .30902 m .64286 .31277 L s P p .001 w .69048 .30902 m .69048 .31277 L s P p .001 w .78571 .30902 m .78571 .31277 L s P p .001 w .83333 .30902 m .83333 .31277 L s P p .001 w .88095 .30902 m .88095 .31277 L s P p .001 w .92857 .30902 m .92857 .31277 L s P p .002 w 0 .30902 m 1 .30902 L s P p .002 w .5 .01472 m .50625 .01472 L s P [(-1)] .4875 .01472 1 0 Mshowa p .002 w .5 .16187 m .50625 .16187 L s P [(-0.5)] .4875 .16187 1 0 Mshowa p .002 w .5 .45617 m .50625 .45617 L s P [(0.5)] .4875 .45617 1 0 Mshowa p .002 w .5 .60332 m .50625 .60332 L s P [(1)] .4875 .60332 1 0 Mshowa p .001 w .5 .04415 m .50375 .04415 L s P p .001 w .5 .07358 m .50375 .07358 L s P p .001 w .5 .10301 m .50375 .10301 L s P p .001 w .5 .13244 m .50375 .13244 L s P p .001 w .5 .1913 m .50375 .1913 L s P p .001 w .5 .22073 m .50375 .22073 L s P p .001 w .5 .25016 m .50375 .25016 L s P p .001 w .5 .27959 m .50375 .27959 L s P p .001 w .5 .33845 m .50375 .33845 L s P p .001 w .5 .36788 m .50375 .36788 L s P p .001 w .5 .39731 m .50375 .39731 L s P p .001 w .5 .42674 m .50375 .42674 L s P p .001 w .5 .4856 m .50375 .4856 L s P p .001 w .5 .51503 m .50375 .51503 L s P p .001 w .5 .54446 m .50375 .54446 L s P p .001 w .5 .57389 m .50375 .57389 L s P p .002 w .5 0 m .5 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p 1 Mabswid .02381 .30902 m .02381 .30661 L .02383 .3042 L .02385 .30179 L .02387 .29939 L .02395 .29458 L .02406 .28977 L .02421 .28497 L .02438 .28017 L .02483 .2706 L .0254 .26108 L .0261 .2516 L .02788 .23285 L .03017 .21442 L .03296 .19639 L .04004 .16187 L .04908 .12986 L .06006 .10091 L .07292 .07553 L .08761 .05414 L .09562 .04507 L .10406 .03712 L .11293 .03033 L .12221 .02474 L .12701 .0224 L .1319 .02037 L .13689 .01865 L .14198 .01723 L .14456 .01664 L .14717 .01613 L .14979 .0157 L .15245 .01535 L .15512 .01507 L .15647 .01496 L .15782 .01487 L .15918 .0148 L .16054 .01475 L .16191 .01472 L .16328 .01472 L .16466 .01472 L .16605 .01475 L .16744 .0148 L .16884 .01487 L .17165 .01507 L .17448 .01535 L .18021 .01613 L .18603 .01723 L .19791 .02037 L .21011 .02474 L .23544 .03712 L Mistroke .2619 .05414 L .31777 .10091 L .37675 .16187 L .43784 .23285 L .5 .30902 L .56216 .38519 L .62325 .45617 L .68223 .51712 L .71061 .5425 L .7381 .56389 L .76456 .58092 L .77737 .5877 L .78989 .59329 L .80209 .59766 L .80807 .59939 L .81397 .6008 L .81979 .6019 L .82267 .60233 L .82552 .60269 L .82835 .60296 L .82976 .60307 L .83116 .60316 L .83256 .60323 L .83395 .60328 L .83534 .60331 L .83672 .60332 L .83809 .60331 L .83946 .60328 L .84082 .60323 L .84218 .60316 L .84488 .60296 L .84755 .60269 L .85021 .60233 L .85283 .6019 L .85802 .6008 L .86311 .59939 L .8681 .59766 L .87779 .59329 L .88707 .5877 L .89594 .58092 L .91239 .56389 L .92708 .5425 L .93994 .51712 L .95092 .48818 L .95996 .45617 L .96375 .43918 L .96704 .42164 L .96983 .40362 L .97212 .38519 L .9739 .36643 L Mistroke .9746 .35696 L .97517 .34743 L .97562 .33786 L .97579 .33307 L .97594 .32827 L .97605 .32346 L .97609 .32105 L .97613 .31865 L .97615 .31624 L .97617 .31383 L .97619 .31142 L .97619 .30902 L Mfstroke P P p [ 5 5 5 5 ] 0 Mabsdash p 1 Mabswid .02381 .60332 m .02788 .58092 L .04004 .51712 L .06006 .42164 L .08761 .30902 L .12221 .19639 L .14198 .14551 L .16328 .10091 L .17448 .08152 L .18603 .06431 L .19791 .04947 L .21011 .03712 L .22263 .02739 L .229 .02353 L .23544 .02037 L .24196 .0179 L .24524 .01693 L .24854 .01613 L .25186 .01551 L .25352 .01527 L .25519 .01507 L .25686 .01491 L .25854 .0148 L .26022 .01474 L .2619 .01472 L .26359 .01474 L .26529 .0148 L .26698 .01491 L .26868 .01507 L .2721 .01551 L .27553 .01613 L .28243 .0179 L .28939 .02037 L .30347 .02739 L .31777 .03712 L .34693 .06431 L .37675 .10091 L .43784 .19639 L .5 .30902 L .56216 .42164 L .5929 .47252 L .62325 .51712 L .65307 .55372 L .66774 .56857 L .68223 .58092 L .69653 .59065 L .7036 .5945 L .71061 .59766 L .71757 .60013 L .72103 .60111 L Mistroke .72447 .6019 L .7279 .60252 L .72961 .60277 L .73132 .60296 L .73302 .60312 L .73471 .60323 L .73641 .6033 L .7381 .60332 L .73978 .6033 L .74146 .60323 L .74314 .60312 L .74481 .60296 L .74814 .60252 L .75146 .6019 L .75476 .60111 L .75804 .60013 L .76456 .59766 L .771 .5945 L .77737 .59065 L .78989 .58092 L .80209 .56857 L .81397 .55372 L .83672 .51712 L .85802 .47252 L .87779 .42164 L .91239 .30902 L .93994 .19639 L .95996 .10091 L .97212 .03712 L .97619 .01472 L Mfstroke P P p 1 0 0 r p 1 Mabswid .02381 .30902 m .02381 .31383 L .02383 .31865 L .02385 .32346 L .02387 .32827 L .02395 .33786 L .02406 .34743 L .02421 .35696 L .02438 .36643 L .02483 .38519 L .0254 .40362 L .0261 .42164 L .02788 .45617 L .03017 .48818 L .03296 .51712 L .03625 .5425 L .04004 .56389 L .04211 .57297 L .04431 .58092 L .04664 .5877 L .04908 .59329 L .05035 .59563 L .05165 .59766 L .05297 .59939 L .05433 .6008 L .05502 .60139 L .05572 .6019 L .05642 .60233 L .05713 .60269 L .05785 .60296 L .05858 .60316 L .05932 .60328 L .06006 .60332 L .06081 .60328 L .06156 .60316 L .06233 .60296 L .0631 .60269 L .06466 .6019 L .06626 .6008 L .06953 .59766 L .07292 .59329 L .08004 .58092 L .08761 .56389 L .12221 .45617 L .16328 .30902 L .18603 .23285 L .21011 .16187 L .23544 .10091 L .24854 .07553 L .2619 .05414 L Mistroke .27553 .03712 L .28243 .03033 L .28939 .02474 L .2964 .02037 L .29993 .01865 L .30347 .01723 L .30703 .01613 L .30881 .0157 L .3106 .01535 L .31238 .01507 L .31418 .01487 L .31597 .01475 L .31777 .01472 L .31957 .01475 L .32138 .01487 L .32318 .01507 L .32499 .01535 L .32862 .01613 L .33226 .01723 L .33958 .02037 L .34693 .02474 L .36177 .03712 L .37675 .05414 L .4071 .10091 L .43784 .16187 L .5 .30902 L .56216 .45617 L .5929 .51712 L .60813 .5425 L .62325 .56389 L .63823 .58092 L .64567 .5877 L .65307 .59329 L .66042 .59766 L .66409 .59939 L .66774 .6008 L .67138 .6019 L .67319 .60233 L .67501 .60269 L .67682 .60296 L .67862 .60316 L .68043 .60328 L .68223 .60332 L .68403 .60328 L .68582 .60316 L .68762 .60296 L .6894 .60269 L .69297 .6019 L .69653 .6008 L .70007 .59939 L Mistroke .7036 .59766 L .71061 .59329 L .71757 .5877 L .72447 .58092 L .7381 .56389 L .76456 .51712 L .78989 .45617 L .83672 .30902 L .87779 .16187 L .89594 .10091 L .91239 .05414 L .91996 .03712 L .92358 .03033 L .92708 .02474 L .93047 .02037 L .93212 .01865 L .93374 .01723 L .93534 .01613 L .93612 .0157 L .9369 .01535 L .93767 .01507 L .93844 .01487 L .93919 .01475 L .93994 .01472 L .94068 .01475 L .94142 .01487 L .94215 .01507 L .94287 .01535 L .94358 .0157 L .94428 .01613 L .94567 .01723 L .94703 .01865 L .94835 .02037 L .95092 .02474 L .95336 .03033 L .95569 .03712 L .95996 .05414 L .96375 .07553 L .96704 .10091 L .96983 .12986 L .97212 .16187 L .97307 .17885 L .9739 .19639 L .9746 .21442 L .97517 .23285 L .97562 .2516 L .97579 .26108 L .97594 .2706 L .97605 .28017 L .97609 .28497 L Mistroke .97613 .28977 L .97615 .29458 L .97617 .29939 L .97619 .3042 L .97619 .30902 L Mfstroke P P p 0 0 1 r p 1 Mabswid .02381 .01472 m .02788 .07553 L .04004 .23285 L .04908 .32827 L .06006 .42164 L .06626 .46443 L .07292 .50306 L .08004 .53652 L .08761 .56389 L .09156 .57506 L .09562 .58446 L .09979 .59201 L .10191 .59507 L .10406 .59766 L .10624 .59977 L .10734 .60064 L .10844 .60139 L .10956 .60202 L .11067 .60252 L .1118 .6029 L .11293 .60316 L .11407 .6033 L .11521 .60331 L .11636 .6032 L .11752 .60296 L .11868 .60261 L .11985 .60213 L .12221 .6008 L .1246 .59899 L .12701 .59669 L .1319 .59065 L .14198 .57297 L .15245 .54824 L .16328 .51712 L .21011 .34743 L .2619 .16187 L .28939 .08775 L .30347 .0591 L .3106 .04723 L .31777 .03712 L .32499 .02882 L .32862 .02538 L .33226 .0224 L .33591 .01991 L .33958 .0179 L .34141 .01708 L .34325 .01638 L .34509 .0158 L .34693 .01535 L .34878 .01501 L Mistroke .35063 .0148 L .35248 .01472 L .35433 .01475 L .35619 .01491 L .35805 .0152 L .35991 .0156 L .36177 .01613 L .3655 .01756 L .36924 .01947 L .37675 .02474 L .3843 .03192 L .39187 .04095 L .4071 .06431 L .43784 .12986 L .5 .30902 L .53114 .40362 L .56216 .48818 L .57757 .52382 L .5929 .55372 L .60053 .56626 L .60813 .57709 L .6157 .58612 L .62325 .59329 L .62701 .59617 L .63076 .59856 L .6345 .60048 L .63637 .60125 L .63823 .6019 L .64009 .60243 L .64195 .60284 L .64381 .60312 L .64567 .60328 L .64752 .60332 L .64937 .60323 L .65122 .60302 L .65307 .60269 L .65491 .60223 L .65675 .60166 L .66042 .60013 L .66409 .59812 L .66774 .59563 L .67501 .58921 L .68223 .58092 L .69653 .55894 L .71061 .53028 L .7381 .45617 L .78989 .2706 L .81397 .17885 L .83672 .10091 L .84755 .06979 L Mistroke .85802 .04507 L .86311 .03531 L .8681 .02739 L .87056 .02413 L .87299 .02135 L .8754 .01905 L .87779 .01723 L .88015 .01591 L .88132 .01543 L .88248 .01507 L .88364 .01484 L .88479 .01472 L .88593 .01474 L .88707 .01487 L .8882 .01513 L .88933 .01551 L .89044 .01602 L .89156 .01664 L .89376 .01826 L .89594 .02037 L .90021 .02603 L .90438 .03358 L .91239 .05414 L .91996 .08152 L .92708 .11497 L .93994 .19639 L .95092 .28977 L .95996 .38519 L .97212 .5425 L .97619 .60332 L Mfstroke P P P MathSubEnd P % End of sub-graphic p p .7502 .09651 m .7502 .29021 L .97619 .29021 L .97619 .09651 L F 1 g .73406 .11265 m .73406 .30636 L .96005 .30636 L .96005 .11265 L F 0 g .001 w .73406 .11265 m .96005 .11265 L .96005 .30636 L .73406 .30636 L .73406 .11265 L s % Start of sub-graphic p .73406 .11265 .96005 .30636 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0297619 0.297619 0.0177096 0.177096 [ [ 0 0 0 0 ] [ 1 .85714 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .85714 L 0 .85714 L closepath clip newpath p p p % Start of sub-graphic p .05357 .03188 .35119 .20897 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.47619 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p 0 0 1 r 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [(Sin[5 s])] .38988 .12043 -1 0 Mshowa P p % Start of sub-graphic p .05357 .23731 .35119 .4144 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.47619 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p 1 0 0 r 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [(Sin[4 s])] .38988 .32586 -1 0 Mshowa P p % Start of sub-graphic p .05357 .44274 .35119 .61983 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.47619 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p [ 5 5 5 5 ] 0 Mabsdash 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [(Sin[3 s])] .38988 .53129 -1 0 Mshowa P p % Start of sub-graphic p .05357 .64817 .35119 .82527 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.47619 0.309017 0.588604 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p 1 Mabswid .02381 .30902 m .97619 .30902 L s P MathSubEnd P % End of sub-graphic [(Sin[2 s])] .38988 .73672 -1 0 Mshowa P P p P P MathSubEnd P % End of sub-graphic P P P 0 0 m 1 0 L 1 .41901 L 0 .41901 L closepath clip newpath % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{375, 154}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc00037`0000P000=<000020000ol0000:0003o`0000<000DO0000 C00@0003o`0004T000=<00002P000al000050003C00000H00000057`0004`03P000ol000180003C00000X0000003o`0004L0 00=<00002`000al000070003C00000<000Co000O9`1Bo`l0000H0004C000obH00000037`0000T000=<00005@000ol000070005o`00oal00P000d`000050003o`00008000?o0000 AP000d`0000:00037`0000T000=<00001`000al0000N05So3`0001P000=00037`0000T000=<00007P000ol000040005o`0001l0 0P000d`000070003o`0004@000=<00002`000al0000<0003C?l000D00000037`0000X000=<0000:0000ol000020005o`007d`0 1P000ol000110003C00000/00000;o1006o`l0000F0005o`0004`070000al0000:0003C00003P00_l00d`0 o`100003C00000X0000000d`0 000:00037`0001X000E<0000o`0P0003o`0001h00ol300So00<0ool00P000ol0000300;o2@03o`D0 00?o00000P06o`l0000F00037`00008000=<00005P000al0000:0003C00003l000Ko04`O0?lh0003 C00000X0000003o`0000T000E<0000o`0P0003 o`0002000_l40005o`000?l00P001Ol0003o00L000?o00001`02o`D000?o00000P06o`l0000F0003 7`0000<000=<00000`000ol0000>00037`0000X000=<0000@0001Ol004`O008000?o0000<`000d`0 000:00037`0000h000?o00002P001D`0003o020000?o00000P06o`@01_l400Co1@000ol000040004 o`0000;o00<0o`000P000ol0000300;o2@000ol000050003o`0000801_l?00005P000al000030003 C00000<000?o00003P000al0000:0003C000040000Go001<7`030003o`00038000=<00002P000al0 000>0003o`0000X000E<0000o`0P0003o`0001h000Co003o0`02o`800_l00`3o00030003o`0000D0 00?o00001`03o`@000?o00000P06o`l0000F00037`0000<000=<00000`000ol0000>00037`0000X0 00=<0000@0001Ol004`O00@000?o0000<@000d`0000:00037`0000d000?o00002`001D`0003o0200 00?o00007`03o`l000?o00000P001?l00?l@0003o`0000801_l?00005P000al000030003C0000080 00?o00003`000al000090003C000044000Oo0000C1oo008000?o0000<0000d`0000:00037`0001`0 00E<0000o`0P0003o`0002H000?o00002002o`@00_l@00;o1006o`l0000F00037`0000<000=<0000 0P000ol0000>00037`0000X000=<0000@@001ol0001<7ol00`000ol0000_0003C00000X0000003o`0000d000A<003o80000ol0 001?00Ko3`0001H0000004C000ob0000?o0000C`06o`l0000F00037`0000@000A<003o3`000al0 000:0003C00004<000?o00000`000d`07`070003o`0002L000=<00002P000al0000>0003o`0000h0 00=<0?l08@000ol0001?00Ko3`0001H0000003C03o024000?o0000 <@02oaH00_l400Ko3`0001H00000037`0000/000=<0000@`000ol000040003C00O0080 00?o000010000ol0000S0003C00000X0000003o`0001@0 00=<00002@000al0000>0003o`0001<000Co0010005C00001l01`000ol0000;0003o`0000<000=<000020000al0000=0003o`0001D000?o0000 1@000d`00025000060000aoo00070003C0000080000003C00004`000?o00004@001D`0000O00P0 00?o00002`0014`00?l600037`0000d000?o00005@000ol000080003C00008D0000H00037`0000P0 00=<01l03@000d`0001=0003o`00014000=<00000P000al000060003o`0000T000=<00000P000ol0 000200037`0000d000?o00005@000ol000090003C00008D0000I00037`0000P000=<7`0030000d`0 001=0003o`00018000=<00000P000al000060003o`0000P000=<00000`001?l001l?0003o`0001D0 00?o00002P000d`0002500006@000al000080003C00000/000=<0000CP000ol0000B0003C00000<0 00"], ImageRangeCache->{{{0, 374}, {153, 0}} -> {-1.11132, -0.648942, 0.00848298, 0.00848298}, {{13.0625, 248.875}, {149.312, 3.625}} -> {-1.20328, -1.13642, 0.00917734, 0.0148492}, {{272.438, 354.938}, {111.812, 41.125}} -> {-11.2006, -2.92016, 0.040743, 0.0684707}, {{276.812, 301.375}, {109.125, 94.5625}} -> {-25.7654, -3.68853, 0.0891246, 0.0721032}, {{276.812, 301.375}, {92.1875, 77.625}} -> {-25.7654, -4.90978, 0.0891246, 0.0721032}, {{276.812, 301.375}, {75.25, 60.6875}} -> {-25.7654, -6.13103, 0.0891246, 0.0721032}, {{276.812, 301.375}, {58.3125, 43.75}} -> {-25.7654, -7.35228, 0.0891246, 0.0721032}}]}\ , Open]], Cell[CellGroupData[{Cell[TextData[ "Combining MultipleListPlot and Legend"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "\nNeeds[\"Graphics`MultipleListPlot`\"];\ngaussdata = Table[ N[1000 \ Exp[-i/5]] ,{i,1,10}];\ncubedata = Table[i^3,{i,1,10}];"], "Input", AspectRatioFixed->True], Cell[TextData[ "NewMakeSymbol[{a_, Line[x_]}] := \n Module[{yugh, y}, y = Line[(Scaled[#1, \ yugh] & ) /@ x]; \n y = y /. yugh -> #1; Evaluate[{a, y}]&]\n\n\ NewMakeSymbol[Line[x_]] := \nNewMakeSymbol[{AbsoluteThickness[0.1], \ Line[x]}]"], "Input", AspectRatioFixed->True], Cell[TextData[ "diamond = RegularPolygon[4, 0.02];\nstar = RegularPolygon[5, 0.02, {0, 0}, \ 0, 2];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "MultipleListPlot[gaussdata, cubedata,\nDotShapes -> {NewMakeSymbol[diamond], \ NewMakeSymbol[star]}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0952381 0.0147151 0.000588604 [ [(2)] .21429 .01472 0 2 Msboxa [(4)] .40476 .01472 0 2 Msboxa [(6)] .59524 .01472 0 2 Msboxa [(8)] .78571 .01472 0 2 Msboxa [(10)] .97619 .01472 0 2 Msboxa [(200)] .01131 .13244 1 0 Msboxa [(400)] .01131 .25016 1 0 Msboxa [(600)] .01131 .36788 1 0 Msboxa [(800)] .01131 .4856 1 0 Msboxa [(1000)] .01131 .60332 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .21429 .01472 m .21429 .02097 L s P [(2)] .21429 .01472 0 2 Mshowa p .002 w .40476 .01472 m .40476 .02097 L s P [(4)] .40476 .01472 0 2 Mshowa p .002 w .59524 .01472 m .59524 .02097 L s P [(6)] .59524 .01472 0 2 Mshowa p .002 w .78571 .01472 m .78571 .02097 L s P [(8)] .78571 .01472 0 2 Mshowa p .002 w .97619 .01472 m .97619 .02097 L s P [(10)] .97619 .01472 0 2 Mshowa p .001 w .0619 .01472 m .0619 .01847 L s P p .001 w .1 .01472 m .1 .01847 L s P p .001 w .1381 .01472 m .1381 .01847 L s P p .001 w .17619 .01472 m .17619 .01847 L s P p .001 w .25238 .01472 m .25238 .01847 L s P p .001 w .29048 .01472 m .29048 .01847 L s P p .001 w .32857 .01472 m .32857 .01847 L s P p .001 w .36667 .01472 m .36667 .01847 L s P p .001 w .44286 .01472 m .44286 .01847 L s P p .001 w .48095 .01472 m .48095 .01847 L s P p .001 w .51905 .01472 m .51905 .01847 L s P p .001 w .55714 .01472 m .55714 .01847 L s P p .001 w .63333 .01472 m .63333 .01847 L s P p .001 w .67143 .01472 m .67143 .01847 L s P p .001 w .70952 .01472 m .70952 .01847 L s P p .001 w .74762 .01472 m .74762 .01847 L s P p .001 w .82381 .01472 m .82381 .01847 L s P p .001 w .8619 .01472 m .8619 .01847 L s P p .001 w .9 .01472 m .9 .01847 L s P p .001 w .9381 .01472 m .9381 .01847 L s P p .002 w 0 .01472 m 1 .01472 L s P p .002 w .02381 .13244 m .03006 .13244 L s P [(200)] .01131 .13244 1 0 Mshowa p .002 w .02381 .25016 m .03006 .25016 L s P [(400)] .01131 .25016 1 0 Mshowa p .002 w .02381 .36788 m .03006 .36788 L s P [(600)] .01131 .36788 1 0 Mshowa p .002 w .02381 .4856 m .03006 .4856 L s P [(800)] .01131 .4856 1 0 Mshowa p .002 w .02381 .60332 m .03006 .60332 L s P [(1000)] .01131 .60332 1 0 Mshowa p .001 w .02381 .03826 m .02756 .03826 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .08535 m .02756 .08535 L s P p .001 w .02381 .10889 m .02756 .10889 L s P p .001 w .02381 .15598 m .02756 .15598 L s P p .001 w .02381 .17952 m .02756 .17952 L s P p .001 w .02381 .20307 m .02756 .20307 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .2737 m .02756 .2737 L s P p .001 w .02381 .29724 m .02756 .29724 L s P p .001 w .02381 .32079 m .02756 .32079 L s P p .001 w .02381 .34433 m .02756 .34433 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .41497 m .02756 .41497 L s P p .001 w .02381 .43851 m .02756 .43851 L s P p .001 w .02381 .46205 m .02756 .46205 L s P p .001 w .02381 .50914 m .02756 .50914 L s P p .001 w .02381 .53269 m .02756 .53269 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57977 m .02756 .57977 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p .1 Mabswid .11905 .50898 m .09905 .49662 L .11905 .48426 L .13905 .49662 L .11905 .50898 L s P p .1 Mabswid .21429 .42163 m .19429 .40927 L .21429 .39691 L .23429 .40927 L .21429 .42163 L s P p .1 Mabswid .30952 .35011 m .28952 .33775 L .30952 .32539 L .32952 .33775 L .30952 .35011 L s P p .1 Mabswid .40476 .29155 m .38476 .27919 L .40476 .26683 L .42476 .27919 L .40476 .29155 L s P p .1 Mabswid .5 .24361 m .48 .23125 L .5 .21889 L .52 .23125 L .5 .24361 L s P p .1 Mabswid .59524 .20436 m .57524 .192 L .59524 .17964 L .61524 .192 L .59524 .20436 L s P p .1 Mabswid .69048 .17222 m .67048 .15986 L .69048 .1475 L .71048 .15986 L .69048 .17222 L s P p .1 Mabswid .78571 .14591 m .76571 .13355 L .78571 .12119 L .80571 .13355 L .78571 .14591 L s P p .1 Mabswid .88095 .12437 m .86095 .11201 L .88095 .09965 L .90095 .11201 L .88095 .12437 L s P p .1 Mabswid .97619 .10673 m .95619 .09437 L .97619 .08201 L .99619 .09437 L .97619 .10673 L s P .008 w .11905 .49662 Mdot .21429 .40927 Mdot .30952 .33775 Mdot .40476 .27919 Mdot .5 .23125 Mdot .59524 .192 Mdot .69048 .15986 Mdot .78571 .13355 Mdot .88095 .11201 Mdot .97619 .09437 Mdot P p p .1 Mabswid .11905 .02766 m .10729 .0053 L .13807 .01912 L .10003 .01912 L .1308 .0053 L .11905 .02766 L s P p .1 Mabswid .21429 .03178 m .20253 .00942 L .23331 .02324 L .19526 .02324 L .22604 .00942 L .21429 .03178 L s P p .1 Mabswid .30952 .04297 m .29777 .02061 L .32854 .03443 L .2905 .03443 L .32128 .02061 L .30952 .04297 L s P p .1 Mabswid .40476 .06475 m .39301 .04239 L .42378 .05621 L .38574 .05621 L .41652 .04239 L .40476 .06475 L s P p .1 Mabswid .5 .10065 m .48824 .07829 L .51902 .09211 L .48098 .09211 L .51176 .07829 L .5 .10065 L s P p .1 Mabswid .59524 .15421 m .58348 .13185 L .61426 .14567 L .57622 .14567 L .60699 .13185 L .59524 .15421 L s P p .1 Mabswid .69048 .22897 m .67872 .20661 L .7095 .22043 L .67146 .22043 L .70223 .20661 L .69048 .22897 L s P p .1 Mabswid .78571 .32844 m .77396 .30608 L .80474 .3199 L .76669 .3199 L .79747 .30608 L .78571 .32844 L s P p .1 Mabswid .88095 .45617 m .8692 .43381 L .89997 .44763 L .86193 .44763 L .89271 .43381 L .88095 .45617 L s P p .1 Mabswid .97619 .61568 m .96443 .59332 L .99521 .60714 L .95717 .60714 L .98795 .59332 L .97619 .61568 L s P .008 w .11905 .0153 Mdot .21429 .01942 Mdot .30952 .03061 Mdot .40476 .05239 Mdot .5 .08829 Mdot .59524 .14185 Mdot .69048 .21661 Mdot .78571 .31608 Mdot .88095 .44381 Mdot .97619 .60332 Mdot P P % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{252, 155}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc00;o0P02ok40000G0>;o0`0001d000?o00001@000ol0000600Wo20000ol0 000200Co00@0oooo10000ol000050004o`3oo`800_l00`3o00060003o`0000H000?o00001P000ol0 00050003o`0000H000?o00001@000ol000060003o`0000D000?o00001P000ol000050003o`0000H0 00?o00001@000ol000060003o`0000H000?o00001@000ol000060003o`0000D000?o00001`0001d0 00?o00004@000ol0o`0?00[o3@06oi`0000M0003o`00018000?o00004@000ol0o`0@00?o0P03oi/0 000M0003o`0002L000?o00003P0:oiX0000M0003o`0003`000?o0?l0W@0001d000?o0000?@000ol0 000?00;o0`02ohH0000M0003o`0004l000?o0?l00_l00`3o002500007@000ol0001?00;o0`02ohH0 000M0003o`0004h02On500007@000ol0001A0003o`3o08P0000M0003o`00058000?o0000Q`0001d0 00?o0000g00001d000?o0000g00001d000?o0000I@02o`800_ma00007@000ol0001U00KoIP03o`P0 000M0003o`0006@00ol200?oI0001?l00002o`H0000M0003o`0006<02_mR0003o`0000@000?o0000 0`0001d000?o0000IP000ol0o`1U00;o0P001?l00002o`@0000M0003o`0006L000?o0000DP03oa40 00Co00000_l600007@000ol0002j00;o0`000ol0000?0003o`3o00P0000M0003o`000;T000?o0000 10000ol0000?0003o`0000L0000M0003o`000;P00_l20004o`0000;o6P0001d000?o0000^P02o`<0 00?o00006P0000T01?l300;o1002o`D000?o0000YP03oa<000?o0?l07@0000T000Co003o0P001?l0 0?l20004o`00o`@000?o0000Y@001?l00002oa8000?o0000700000X000?o00000P001?l00?l20004 o`00o`@00_mk00;o0P02ob@000?o000010000ol0000^00002`001Ol0003o008000Co003o0P000ol0 00020003o`0007X01_lS00;o0P001?l00002obl0000<0004o`00o`8000Co003o0P000ol000020003 o`0007T00ol200?o9002o`040?oooc4000090004o`00o`8000Co003o0P001?l00?l40003o`0007P0 2_lU0003o`000380000:00;o1002o`@00_l50003o`0007`000?o0?l04P03odP0000M0003o`0007d0 00?o000040001?l00002odH0000M0003o`0008l000?o000010000ol0001300007@000ol0002>00;o 0P001?l00002od@0000M0003o`0009000_l0103ooom600007@000ol0002B0003o`0004L0000M0003 o`000=`0000M0003o`0007`00omM00007@000ol0001j00;o0`000ol0001J00007@000ol0001i0003 o`0000@000?o0000F@0001d000?o0000N002o`8000Co00000_mJ00007@000ol0001j00;o0`000ol0 001J00007@000ol0001l0003o`3o05d0000M0003o`0007d000?o00003`02o`<00_m600007@000ol0 002?0003o`3o00;o00<0o`00A@0001d000?o0000S`02o`<00_m600007@000ol0001V00?o9@09odD0 000M0003o`0006D000Co00000_lV0003o`3o04P0000M0003o`0006@000?o000010000ol0000T0003 o`0004L0000M0003o`0006<00_l20004o`0000;oK`0000/000?o00000P02o`@00_l50003o`0006D0 0_l0103oooma00002`001Ol0003o008000Co003o0P000ol000020003o`0006L000?o0000LP0000P0 1Ol20004o`00o`8000Co003o10000ol0003L000020001?l00?l30004o`00o`8000Co003o1002omd0 00090003o`3o00<000Co003o0P001?l00?l40003o`000=`0000:00;o0`001?l00?l20004o`00o`@0 00?o0000g00000/000?o00000P02o`@00_l50003o`000=`0000M0003o`0005400on800007@000ol0 001?00;o0`03ohD0000M0003o`0004h00_l600;oQ00001d000?o0000D0001?l0o`02ohH0000M0003 o`00054000?o0?l0R00001d000?o0000DP000ol0002700007@000ol0003L00007@000ol0003L0000 7@000ol0002U00;o0P02oc40000M0003o`000:D01_la00007@000ol0002T00?o0P03oc00000M0003 o`000:<02_l_00007@000ol0002V0003o`3o03<0000M0003o`0003`00omX0003o`000380000M0003 o`0003T00ol300;oV`0001d000?o0000>002o`H00_nJ00007@000ol0000j00?o0P000ol0002J0000 7@000ol0000l0003o`3o09d0000M0003o`0003d000?o0000W00001d000?o0000g00000X00_l400;o 1002o`D000?o0000g00000T000Co003o0P001?l00?l20004o`00o`@000?o0000g00000T000Co003o 0P001?l00?l20004o`00o`@00_oM00002@03o`<000Co003o0P001?l00?l40003o`000=`000090003 o`0000<000Co003o0P001?l00?l40003o`000=`0000:0003o`00008000Co003o0P001?l00?l40003 o`000=`0000;00;o0`02o`@00_l50003o`000=`0000M0003o`000=`0000M0003o`000=`0000M0003 o`0002H00onc00007@000ol0000T00;o0`03ok00000M0003o`0002<00_l600;o[`0001d000?o0000 9@001?l0o`02ok40000M0003o`0002H000?o0?l0/`0001d000?o00009`000ol0002b00007@000ol0 003L00007@000ol0003L00007@000ol0002j00;o0P02oa`0000M0003o`000;X000?o0?l00olL0000 7@000ol0002j00;o0P03oa/0000M0003o`000;T02OlJ00007@000ol0002l0003o`3o01d0000M0003 o`000;d000?o0000700001d000?o0000g00001d000?o0000g00001d000?o0000g00000X00_l400;o 1002o`D000?o0000g00000T000Co003o0P001?l00?l20004o`00o`@000?o0000g00000T000Co003o 0P001?l00?l20004o`00o`@000?o00004@03olP0000:00;o0`001?l00?l20004o`00o`@00_l@00;o 0`000ol0003500002@001?l00?l20004o`00o`8000Co003o10000ol0000>0003o`0000@000?o0000 a00000T000Co003o0P001?l00?l20004o`00o`@000?o00003@02o`<000?o00000_o500002P02o`@0 0_l400;o1@000ol0000?00;o0`000ol0003500007@000ol0000A0003o`3o000Wo1@0000<00ol30004o`00o`8000Co003o0P001?l0 0?l40003o`000=4000?o0?l0200000D000?o00000P02o`@00_l400;o1@000ol0003B0003o`0000L0 003l0000o0000001\ \>"], ImageRangeCache->{{{0, 251}, {154, 0}} -> {-1.36231, -124.997, 0.0468209, 7.57578}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[ "ShowLegend[\n\t\tMultipleListPlot[gaussdata, cubedata,\n\t\tDotShapes -> \ {NewMakeSymbol[diamond], NewMakeSymbol[star]},\n\t\tDisplayFunction -> \ Identity],\n\t{{{Graphics[diamond], \" gaussdata\"}, \n\t {Graphics[star], \ \" cubedata\"}},\n\tLegendPosition -> {1.2, -0.25}}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .40527 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.336066 0.312256 0.202634 0.312256 [ [ 0 0 0 0 ] [ 1 .40527 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p % Start of sub-graphic p .02381 .00965 .64832 .39562 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.0952381 0.0147151 0.000588604 [ [(2)] .21429 .01472 0 2 Msboxa [(4)] .40476 .01472 0 2 Msboxa [(6)] .59524 .01472 0 2 Msboxa [(8)] .78571 .01472 0 2 Msboxa [(10)] .97619 .01472 0 2 Msboxa [(200)] .01131 .13244 1 0 Msboxa [(400)] .01131 .25016 1 0 Msboxa [(600)] .01131 .36788 1 0 Msboxa [(800)] .01131 .4856 1 0 Msboxa [(1000)] .01131 .60332 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .21429 .01472 m .21429 .02097 L s P [(2)] .21429 .01472 0 2 Mshowa p .002 w .40476 .01472 m .40476 .02097 L s P [(4)] .40476 .01472 0 2 Mshowa p .002 w .59524 .01472 m .59524 .02097 L s P [(6)] .59524 .01472 0 2 Mshowa p .002 w .78571 .01472 m .78571 .02097 L s P [(8)] .78571 .01472 0 2 Mshowa p .002 w .97619 .01472 m .97619 .02097 L s P [(10)] .97619 .01472 0 2 Mshowa p .001 w .0619 .01472 m .0619 .01847 L s P p .001 w .1 .01472 m .1 .01847 L s P p .001 w .1381 .01472 m .1381 .01847 L s P p .001 w .17619 .01472 m .17619 .01847 L s P p .001 w .25238 .01472 m .25238 .01847 L s P p .001 w .29048 .01472 m .29048 .01847 L s P p .001 w .32857 .01472 m .32857 .01847 L s P p .001 w .36667 .01472 m .36667 .01847 L s P p .001 w .44286 .01472 m .44286 .01847 L s P p .001 w .48095 .01472 m .48095 .01847 L s P p .001 w .51905 .01472 m .51905 .01847 L s P p .001 w .55714 .01472 m .55714 .01847 L s P p .001 w .63333 .01472 m .63333 .01847 L s P p .001 w .67143 .01472 m .67143 .01847 L s P p .001 w .70952 .01472 m .70952 .01847 L s P p .001 w .74762 .01472 m .74762 .01847 L s P p .001 w .82381 .01472 m .82381 .01847 L s P p .001 w .8619 .01472 m .8619 .01847 L s P p .001 w .9 .01472 m .9 .01847 L s P p .001 w .9381 .01472 m .9381 .01847 L s P p .002 w 0 .01472 m 1 .01472 L s P p .002 w .02381 .13244 m .03006 .13244 L s P [(200)] .01131 .13244 1 0 Mshowa p .002 w .02381 .25016 m .03006 .25016 L s P [(400)] .01131 .25016 1 0 Mshowa p .002 w .02381 .36788 m .03006 .36788 L s P [(600)] .01131 .36788 1 0 Mshowa p .002 w .02381 .4856 m .03006 .4856 L s P [(800)] .01131 .4856 1 0 Mshowa p .002 w .02381 .60332 m .03006 .60332 L s P [(1000)] .01131 .60332 1 0 Mshowa p .001 w .02381 .03826 m .02756 .03826 L s P p .001 w .02381 .0618 m .02756 .0618 L s P p .001 w .02381 .08535 m .02756 .08535 L s P p .001 w .02381 .10889 m .02756 .10889 L s P p .001 w .02381 .15598 m .02756 .15598 L s P p .001 w .02381 .17952 m .02756 .17952 L s P p .001 w .02381 .20307 m .02756 .20307 L s P p .001 w .02381 .22661 m .02756 .22661 L s P p .001 w .02381 .2737 m .02756 .2737 L s P p .001 w .02381 .29724 m .02756 .29724 L s P p .001 w .02381 .32079 m .02756 .32079 L s P p .001 w .02381 .34433 m .02756 .34433 L s P p .001 w .02381 .39142 m .02756 .39142 L s P p .001 w .02381 .41497 m .02756 .41497 L s P p .001 w .02381 .43851 m .02756 .43851 L s P p .001 w .02381 .46205 m .02756 .46205 L s P p .001 w .02381 .50914 m .02756 .50914 L s P p .001 w .02381 .53269 m .02756 .53269 L s P p .001 w .02381 .55623 m .02756 .55623 L s P p .001 w .02381 .57977 m .02756 .57977 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p .1 Mabswid .11905 .50898 m .09905 .49662 L .11905 .48426 L .13905 .49662 L .11905 .50898 L s P p .1 Mabswid .21429 .42163 m .19429 .40927 L .21429 .39691 L .23429 .40927 L .21429 .42163 L s P p .1 Mabswid .30952 .35011 m .28952 .33775 L .30952 .32539 L .32952 .33775 L .30952 .35011 L s P p .1 Mabswid .40476 .29155 m .38476 .27919 L .40476 .26683 L .42476 .27919 L .40476 .29155 L s P p .1 Mabswid .5 .24361 m .48 .23125 L .5 .21889 L .52 .23125 L .5 .24361 L s P p .1 Mabswid .59524 .20436 m .57524 .192 L .59524 .17964 L .61524 .192 L .59524 .20436 L s P p .1 Mabswid .69048 .17222 m .67048 .15986 L .69048 .1475 L .71048 .15986 L .69048 .17222 L s P p .1 Mabswid .78571 .14591 m .76571 .13355 L .78571 .12119 L .80571 .13355 L .78571 .14591 L s P p .1 Mabswid .88095 .12437 m .86095 .11201 L .88095 .09965 L .90095 .11201 L .88095 .12437 L s P p .1 Mabswid .97619 .10673 m .95619 .09437 L .97619 .08201 L .99619 .09437 L .97619 .10673 L s P .008 w .11905 .49662 Mdot .21429 .40927 Mdot .30952 .33775 Mdot .40476 .27919 Mdot .5 .23125 Mdot .59524 .192 Mdot .69048 .15986 Mdot .78571 .13355 Mdot .88095 .11201 Mdot .97619 .09437 Mdot P p p .1 Mabswid .11905 .02766 m .10729 .0053 L .13807 .01912 L .10003 .01912 L .1308 .0053 L .11905 .02766 L s P p .1 Mabswid .21429 .03178 m .20253 .00942 L .23331 .02324 L .19526 .02324 L .22604 .00942 L .21429 .03178 L s P p .1 Mabswid .30952 .04297 m .29777 .02061 L .32854 .03443 L .2905 .03443 L .32128 .02061 L .30952 .04297 L s P p .1 Mabswid .40476 .06475 m .39301 .04239 L .42378 .05621 L .38574 .05621 L .41652 .04239 L .40476 .06475 L s P p .1 Mabswid .5 .10065 m .48824 .07829 L .51902 .09211 L .48098 .09211 L .51176 .07829 L .5 .10065 L s P p .1 Mabswid .59524 .15421 m .58348 .13185 L .61426 .14567 L .57622 .14567 L .60699 .13185 L .59524 .15421 L s P p .1 Mabswid .69048 .22897 m .67872 .20661 L .7095 .22043 L .67146 .22043 L .70223 .20661 L .69048 .22897 L s P p .1 Mabswid .78571 .32844 m .77396 .30608 L .80474 .3199 L .76669 .3199 L .79747 .30608 L .78571 .32844 L s P p .1 Mabswid .88095 .45617 m .8692 .43381 L .89997 .44763 L .86193 .44763 L .89271 .43381 L .88095 .45617 L s P p .1 Mabswid .97619 .61568 m .96443 .59332 L .99521 .60714 L .95717 .60714 L .98795 .59332 L .97619 .61568 L s P .008 w .11905 .0153 Mdot .21429 .01942 Mdot .30952 .03061 Mdot .40476 .05239 Mdot .5 .08829 Mdot .59524 .14185 Mdot .69048 .21661 Mdot .78571 .31608 Mdot .88095 .44381 Mdot .97619 .60332 Mdot P P MathSubEnd P % End of sub-graphic p p .72639 .10896 m .72639 .29631 L .97619 .29631 L .97619 .10896 L F 1 g .71077 .12457 m .71077 .31192 L .96058 .31192 L .96058 .12457 L F 0 g .001 w .71077 .12457 m .96058 .12457 L .96058 .31192 L .71077 .31192 L .71077 .12457 L s % Start of sub-graphic p .71077 .12457 .96058 .31192 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0297619 0.297619 0.0297619 0.297619 [ [ 0 0 0 0 ] [ 1 .75 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .75 L 0 .75 L closepath clip newpath p p p % Start of sub-graphic p .05357 .05357 .35119 .35119 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 25.0348 0.277947 16.2686 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .004 w .5 .60332 m .2057 .01472 L .97619 .37849 L .02381 .37849 L .7943 .01472 L .5 .60332 L s MathSubEnd P % End of sub-graphic [( cubedata)] .38988 .20238 -1 0 Mshowa P p % Start of sub-graphic p .05357 .39881 .35119 .69643 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 23.8095 0.309017 14.7151 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .004 w .5 .60332 m .02381 .30902 L .5 .01472 L .97619 .30902 L .5 .60332 L s MathSubEnd P % End of sub-graphic [( gaussdata)] .38988 .54762 -1 0 Mshowa P P p P P MathSubEnd P % End of sub-graphic P P P 0 0 m 1 0 L 1 .40527 L 0 .40527 L closepath clip newpath % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{420, 169}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc0003 o`3o00;o00<0o`00o`0e0000:0000ol0000C0003o`00018000?o0?l04`02o`030?oo0?l0=`0002P0 00?o0000:@000ol0000@00Co0P02ool0=P0002P000?o0000>`0:ool0=@0002P00_m00003o`3o0140 0_l300;oo`0P0000:0000ol000100003o`00010000?o0?l00_l00`3o003o01l0000X0003o`0005@0 0_l00`3oo`3o0240000X0003o`0005<00_l00`3o0003ool07`0002P000?o0000DP0:ool07P0002P0 0_mF0003o`3o0?l08P0002P000?o0000EP000ol0003o0240000X0003o`000?l0NP0002P000?o0000 o`1j0000:0000ol0001Z00;o0P02ool02P0002P000?o0000JP06of/00onK0000:002ofX00ol200?o J002o`<00_nI0000:0000ol0001X00[oIP000ol000050003o`0009H0000X0003o`0006/000?o0?l0 J@02o`<000Co00000_nG0000:0000ol0001/0003o`0005H00olA00;o0`02oiT0000X0003o`000<<0 0_l30003o`00010000?o0?l0V`0002P00_o30003o`0000@000?o000040000ol0002J0000:0000ol0 003100;o0P001?l00002ojh0000X0003o`000<<00_l30003o`000:h0000D00Co0`02o`@00_l50003 o`000:h00olD0003o`3o0;40000D0004o`00o`8000Co003o0P001?l00?l40003o`000:d000Co0000 0_lC0003o`0003/0Iol>00005@000ol000020004o`00o`8000Co003o10000ol0002000;o0`02obD0 00?o000010000ol0001>06Oo3P0001H000Go0000o`020004o`00o`8000?o00000P02oh4000?o0?l0 0_l00`3o000S00;o0P001?l00002odl0Iol>00005`001?l00?l20004o`00o`8000?o00000P000ol0 002100;o00<0ool09`001?l00002oe40Iol>000050001?l00?l20004o`00o`8000Co003o10000ol0 001o00Co0P02obL000?o0?l0D`1Wo`h0000E00;o1002o`@00_l50003o`0007h02_l@00?o50000ol0 001;06ko3P0002P000?o0000PP000ol0o`0A00;o0`02of0000?o0000I@06o`h0000X00;oQ0000ol0 000?0003o`0000D000?o0000G@000ol0001U00Ko3P0002P000?o0000U002o`<000Co00000_mN0003 o`0006D01_l>0000:0000ol0002F00;o0`02of0000?o0000I@06o`h0000X0003o`0009P000?o0?l0 HP000ol0001U00Ko3P0002P000?o0000V@000ol0001Q0003o`0006D01_l>0000:0000ol0003m0003 o`0006D01_l>0000:002oh<00omh0003o`0006D01_l>0000:0000ol0002000;o0`000ol0001e0003 o`0006D01_l>0000:0000ol0001o0003o`0000@000?o0000M0000ol0001U00Ko3P0002P000?o0000 OP02o`8000Co00000_me0003o`0006D01_l>0000:0000ol0002000?o00<0ool0M`000ol0000900;o 3`02odT01_l>0000:002oh@000?o0000M`000ol000090004o`3oo`/00_l00`3o001800Ko3P0002P0 00?o0000UP02o`<00_mP0003o`0000X000?o00000_l700;o0P000ol0001800Ko3P0002P000?o0000 UP000ol0o`02o`030?l005l000?o00002P000ol0000200?o0P02o`@000?o0000B006o`h0000X0003 o`0009H00_l300?oG`000ol0000;0003o`0000@00_l50003o`0004T01_l>0000:0000ol0001[00?o 9`0:oeh000?o00002`001?l00003o`800_l30003o`0004T01_l>0000:0000ol0001Z0004o`0000;o :0000ol0o`1R0003o`0000`00ol700?oC006o`h0000X00;oJP000ol000040003o`0002H000?o0000 H@000ol0000;00;o2`02oa@00ol30003o`3o00?o00<0ool00`04o`040?oo00;o00@0ool00_l300;o 0P02o`030?oo00T01_l>0000:0000ol0001X00;o0P001?l00002oh/000?o00002@02o`8000?o0000 1`000ol00003oa0000So0000o`3o00;o0P02o`8000?o0?l010000ol00002o`040?l000;o0`000ol0 0002o`800_l:00Ko3P0002P000?o0000JP001?l00002ohd000?o00001`02o`@000?o00001`000ol0 000300;o3P000ol000030004o`00o`8000Ko0000o`06o`<000?o00001?l30003o`0000801?l:00Ko 3P0001H000?o00000P02o`@00_l50003o`0006/000?o0?l0S`000ol0000500;o1`000ol000050003 o`0000H00_l<0007o`000?l0o`020003o`0000;o0P000ol0o`0300;o0P02o`D000Go0000o`070003 o`0000P01_l>00005P001Ol0003o008000Co003o0P000ol000020003o`0006`000?o0000SP000ol0 000401ko3006o`030?oo008000Co0?oo0`03o`800_l0103o0003o`<01?l200?o2`06o`h0000C00Go 0P001?l00?l20004o`00o`@00_on0003o`0000l000?o00000`000ol0000Q0003o`0000`000?o0000 1`000ol0000@00Ko3P0001<000Co003o0`001?l00?l20004o`00o`@000?o0000o@000ol0000?0003 o`0000<000?o00008002o``00ol90003o`0001001_l>000050000ol0o`030004o`00o`8000Co003o 10000ol0003m0003o`00010000Go0000o`1@00Ko3P0001D00_l30004o`00o`8000Co003o10000ol0 003m0003o`00010000Go0000o`1@00Ko3P0001H000?o00000P02o`@00_l50003o`0005D00onU0003 o`00014000?o0?l0D@06o`h0000X0003o`0005<00_l300;oX`000ol0000A0003o`3o05401_l>0000 :002oe<000?o00001@000ol0002P0003o`00018000?o0000D006o`h0000X0003o`0005400_l30004 o`0000;oX@000ol0001U00Ko3P0002P000?o0000D`02o`<00_nS0003o`0006D01_l>0000:0000ol0 001E0003o`3o0:D000?o0000I@06o`h0000X0003o`0005H000?o0000Y0000ol0001U00Ko3P0002P0 0_on0003o`0006D01_l>0000:0000ol0003m0003o`0006D01_l>0000:0000ol0002]00;o0P02odX0 00?o0000I@06o`h0000X0003o`000:d000Ko0?oo0?m:0003o`0006D01_l>0000:0000ol0002^0004 o`00od/000?o0000I@06o`h0000X0003o`000:`01?l0103ooom90003o`0006D01_l>0000:002oj`0 2_m80003o`0006D01_l>0000:0000ol0000o00?oK@02od`000?o0000I@06o`h0000X0003o`0003d0 0_l30003o`0006X000?o0000B`000ol0001U00Ko3P0002P000?o0000?0000ol000040003o`000;L0 00?o0000I@06o`h0000X0003o`0003/00_l20004o`0000;o^0000ol0001U00Ko3P0002P00_ln00;o 0`000ol0002h0003o`0006D01_l>0000:0000ol0000o0003o`3o0;/000?o0000I@06o`h0000X0003 o`00040000?o0000^P000ol0000A00?oD@06o`h0000E00;o1002o`@00_l50003o`000?d000?o0000 40001?l00002odl01_l>000050001?l00?l20004o`00o`8000Co003o10000ol0003m0003o`0000h0 0_l60003o`0004`01_l>000050001?l00?l20004o`00o`8000Co003o10000ol0003m0003o`0000d0 00?o00001`02od`01_l>00005003o`<000Co003o0P001?l00?l400;ooP000ol0000;00;o3002oa80 0ole00Ko3P0001@000?o00000`001?l00?l20004o`00o`@000?o0000o@000ol0000900;o40000ol0 000B0003o`0003801_l>00005@000ol000020004o`00o`8000Co003o10000ol0003m0003o`0000P0 00?o00004@02o`l00_l0103o0002o`030?oo008000Go0?oo0003o`<00ol300;o00@0ool00_l00`3o o`0300;o0P02o`030?oo00<01_l>00005P02o`<00_l400;o1@000ol0003m0003o`0000H00_lF00;o 30000ol00002o`040?l000;o0P001?l0ool50003o`0000<000?o0?l00P02o`040?l000;o0`000ol0 0002o`800_l400Ko3P0002P000?o0000o@000ol000050003o`0001P000?o00002@001Ol0003o0080 1?l20004o`00o`<00_l400;o0P001Ol0003o00801?l30003o`0000801?l400Ko3P0002P00_on0003 o`0000@00_lJ00;o2P000ol00002o`D000Co003o0P001?l00?l50003o`00008000?o00000_l50005 o`000?l01`000ol0000200Ko3P0002P000?o0000o@000ol000060003o`0001D00_l=00;o00@0ool0 0ol200;o00<0ool00`03o`<00ol200;o00@0o`000ol300Co0P03o`D01_l>0000:0000ol0000X00?o dP000ol0000700;o50000ol0000^0003o`0000L000?o00002P06o`h0000X0003o`0002L000Co0000 0_o@0003o`0000T000?o00003`02obl00ol90003o`0000X01_l>0000:0000ol0000V0003o`0000@0 00?o0000c@000ol0000:00;o3@02odX01_l>0000:0000ol0000U00;o0P001?l00002olh000?o0000 3002o`X000?o0000BP06o`h0000X00;o:002o`040?ooom0000?o00003P000ol0000500;oC@06o`h0 000X0003o`0002T000?o0000d@000ol0000?00;o0`02odl01_l>0000:0000ol0003m0003o`000140 00?o0?l0D@06o`h0000X0003o`000?d000?o00004P000ol0001@00Ko3P0002P000?o0000``02o`<0 0_lc0003o`0006D01_l>0000:002ol@000?o0?l00_l00`3o000b0003o`0006D01_l>0000:0000ol0 003200?o0`02oc<000?o0000I@06o`h0000X0003o`000<402_lb0003o`0006D01_l>0000:0000ol0 00350003o`3o03D000?o0000I@06o`h0000X0003o`00000;o 0`001?l00002ool0H@0001D00_l400;o1002o`D000?o00004002o`<00_oo06<0000X0003o`000180 00?o0?l0o`1U0000:002oa@000?o0000o`1T0000:0000ol0003o07X0000X0003o`000?l0NP0002P0 00?o0000o`1j0000:0000ol0003o07X0000X00;oo`1k0000:0000ol0003o07X0000X0003o`000?l0 NP0002P000?o0000o`1j0000:0000ol0003o07X0000X0003o`000?l0NP0002P00_oo07/0000X0003 o`000?l0NP0002P000?o0000o`1j0000:0000ol0003o07X0000X0003o`000?l0NP0002P00_oo07/0 000X0003o`000?l0NP0002P000?o0000o`1j00003P05o`800_l400;o1002o`D000?o0000o`1j0000 40001Ol0003o008000Co003o0P001?l00?l20003o`00008000?o0000f@02o`<00_nI000040001Ol0 003o008000Co003o0P001?l00?l20003o`00008000?o0000f@000ol0o`02o`030?l009P0000@0005 o`000?l00P001?l00?l20004o`00o`8000?o00000P02omX00_l00`3o0003oiP0000@0005o`000?l0 0P001?l00?l20004o`00o`8000?o00000P000ol0003H00[oU`0000h00ol30004o`00o`8000Co003o 0P001?l00?l40003o`000=/000?o0?l0V`00010000?o00000P02o`@00_l400;o1@000ol0003L0003 o`0009X0003o0:D0003o0:D0003o0:D0003o0:D0003o0:D0003o0:D00000\ \>"], ImageRangeCache->{{{0, 419}, {168, 0}} -> {-1.0935, -0.648942, 0.00772554, 0.00772554}, {{12.0625, 270.938}, {164, 4}} -> {-1.8051, -148.548, 0.0447852, 7.2464}, {{296.812, 400.375}, {116.312, 38.6875}} -> {-9.73678, -1.778, 0.0324641, 0.0324641}, {{302.375, 333.188}, {110.75, 79.9375}} -> {-0.411966, -0.143034, 0.00129638, 0.00199493}, {{302.375, 333.188}, {75, 44.1875}} -> {-0.433167, -0.239094, 0.0013631, 0.00220554}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["4.7 Exploring an Historic Data Set"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["Built-in Approach"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["temps = Map[#[[2]]&, tempdata]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {0, 0, -9, -21, -11, -20, -24, -30, -26}\ \>", "\<\ {0, 0, -9, -21, -11, -20, -24, -30, -26}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[ "ListPlot[temps, \nDefaultFont -> {\"Helvetica\", 12}, PlotJoined -> True, \n\ AxesOrigin -> {1,0}, PlotRange -> {{1, 9}, {-30, 0}},\nFrame -> True,\n\ RotateLabel -> False,\nFrameLabel -> {\"Observation Point\", \"Deg R\",\n\ \"Temperature on Napoleon's Return from Moscow\", \" \"}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Helvetica findfont 12 scalefont setfont % Scaling calculations -0.125 0.125 0.618034 0.0206011 [ [(2)] .125 0 0 2 0 Minner Mrotsboxa [(3)] .25 0 0 2 0 Minner Mrotsboxa [(4)] .375 0 0 2 0 Minner Mrotsboxa [(5)] .5 0 0 2 0 Minner Mrotsboxa [(6)] .625 0 0 2 0 Minner Mrotsboxa [(7)] .75 0 0 2 0 Minner Mrotsboxa [(8)] .875 0 0 2 0 Minner Mrotsboxa [(9)] 1 0 0 2 0 Minner Mrotsboxa [(Observation Point)] .5 0 0 2 0 0 -1 Mouter Mrotsboxa [(-30)] -0.0125 0 1 0 0 Minner Mrotsboxa [(-25)] -0.0125 .10301 1 0 0 Minner Mrotsboxa [(-20)] -0.0125 .20601 1 0 0 Minner Mrotsboxa [(-15)] -0.0125 .30902 1 0 0 Minner Mrotsboxa [(-10)] -0.0125 .41202 1 0 0 Minner Mrotsboxa [(-5)] -0.0125 .51503 1 0 0 Minner Mrotsboxa [(0)] -0.0125 .61803 1 0 0 Minner Mrotsboxa [(Deg R)] -0.0125 .30902 1 0 0 -1 0 Mouter Mrotsboxa [(Temperature on Napoleon's Return from Moscow)] .5 .61803 0 -4 Msboxa [( )] 1.0375 .30902 -1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .125 0 m .125 .00625 L s P [(2)] .125 0 0 2 0 Minner Mrotshowa p .002 w .25 0 m .25 .00625 L s P [(3)] .25 0 0 2 0 Minner Mrotshowa p .002 w .375 0 m .375 .00625 L s P [(4)] .375 0 0 2 0 Minner Mrotshowa p .002 w .5 0 m .5 .00625 L s P [(5)] .5 0 0 2 0 Minner Mrotshowa p .002 w .625 0 m .625 .00625 L s P [(6)] .625 0 0 2 0 Minner Mrotshowa p .002 w .75 0 m .75 .00625 L s P [(7)] .75 0 0 2 0 Minner Mrotshowa p .002 w .875 0 m .875 .00625 L s P [(8)] .875 0 0 2 0 Minner Mrotshowa p .002 w 1 0 m 1 .00625 L s P [(9)] 1 0 0 2 0 Minner Mrotshowa p .001 w .025 0 m .025 .00375 L s P p .001 w .05 0 m .05 .00375 L s P p .001 w .075 0 m .075 .00375 L s P p .001 w .1 0 m .1 .00375 L s P p .001 w .15 0 m .15 .00375 L s P p .001 w .175 0 m .175 .00375 L s P p .001 w .2 0 m .2 .00375 L s P p .001 w .225 0 m .225 .00375 L s P p .001 w .275 0 m .275 .00375 L s P p .001 w .3 0 m .3 .00375 L s P p .001 w .325 0 m .325 .00375 L s P p .001 w .35 0 m .35 .00375 L s P p .001 w .4 0 m .4 .00375 L s P p .001 w .425 0 m .425 .00375 L s P p .001 w .45 0 m .45 .00375 L s P p .001 w .475 0 m .475 .00375 L s P p .001 w .525 0 m .525 .00375 L s P p .001 w .55 0 m .55 .00375 L s P p .001 w .575 0 m .575 .00375 L s P p .001 w .6 0 m .6 .00375 L s P p .001 w .65 0 m .65 .00375 L s P p .001 w .675 0 m .675 .00375 L s P p .001 w .7 0 m .7 .00375 L s P p .001 w .725 0 m .725 .00375 L s P p .001 w .775 0 m .775 .00375 L s P p .001 w .8 0 m .8 .00375 L s P p .001 w .825 0 m .825 .00375 L s P p .001 w .85 0 m .85 .00375 L s P p .001 w .9 0 m .9 .00375 L s P p .001 w .925 0 m .925 .00375 L s P p .001 w .95 0 m .95 .00375 L s P p .001 w .975 0 m .975 .00375 L s P [(Observation Point)] .5 0 0 2 0 0 -1 Mouter Mrotshowa p .002 w 0 0 m 1 0 L s P p .002 w 0 0 m .00625 0 L s P [(-30)] -0.0125 0 1 0 0 Minner Mrotshowa p .002 w 0 .10301 m .00625 .10301 L s P [(-25)] -0.0125 .10301 1 0 0 Minner Mrotshowa p .002 w 0 .20601 m .00625 .20601 L s P [(-20)] -0.0125 .20601 1 0 0 Minner Mrotshowa p .002 w 0 .30902 m .00625 .30902 L s P [(-15)] -0.0125 .30902 1 0 0 Minner Mrotshowa p .002 w 0 .41202 m .00625 .41202 L s P [(-10)] -0.0125 .41202 1 0 0 Minner Mrotshowa p .002 w 0 .51503 m .00625 .51503 L s P [(-5)] -0.0125 .51503 1 0 0 Minner Mrotshowa p .002 w 0 .61803 m .00625 .61803 L s P [(0)] -0.0125 .61803 1 0 0 Minner Mrotshowa p .001 w 0 .0206 m .00375 .0206 L s P p .001 w 0 .0412 m .00375 .0412 L s P p .001 w 0 .0618 m .00375 .0618 L s P p .001 w 0 .0824 m .00375 .0824 L s P p .001 w 0 .12361 m .00375 .12361 L s P p .001 w 0 .14421 m .00375 .14421 L s P p .001 w 0 .16481 m .00375 .16481 L s P p .001 w 0 .18541 m .00375 .18541 L s P p .001 w 0 .22661 m .00375 .22661 L s P p .001 w 0 .24721 m .00375 .24721 L s P p .001 w 0 .26781 m .00375 .26781 L s P p .001 w 0 .28842 m .00375 .28842 L s P p .001 w 0 .32962 m .00375 .32962 L s P p .001 w 0 .35022 m .00375 .35022 L s P p .001 w 0 .37082 m .00375 .37082 L s P p .001 w 0 .39142 m .00375 .39142 L s P p .001 w 0 .43262 m .00375 .43262 L s P p .001 w 0 .45322 m .00375 .45322 L s P p .001 w 0 .47383 m .00375 .47383 L s P p .001 w 0 .49443 m .00375 .49443 L s P p .001 w 0 .53563 m .00375 .53563 L s P p .001 w 0 .55623 m .00375 .55623 L s P p .001 w 0 .57683 m .00375 .57683 L s P p .001 w 0 .59743 m .00375 .59743 L s P [(Deg R)] -0.0125 .30902 1 0 0 -1 0 Mouter Mrotshowa p .002 w 0 0 m 0 .61803 L s P P p p .002 w 0 .61178 m 0 .61803 L s P p .002 w .125 .61178 m .125 .61803 L s P p .002 w .25 .61178 m .25 .61803 L s P p .002 w .375 .61178 m .375 .61803 L s P p .002 w .5 .61178 m .5 .61803 L s P p .002 w .625 .61178 m .625 .61803 L s P p .002 w .75 .61178 m .75 .61803 L s P p .002 w .875 .61178 m .875 .61803 L s P p .001 w .025 .61428 m .025 .61803 L s P p .001 w .05 .61428 m .05 .61803 L s P p .001 w .075 .61428 m .075 .61803 L s P p .001 w .1 .61428 m .1 .61803 L s P p .001 w .15 .61428 m .15 .61803 L s P p .001 w .175 .61428 m .175 .61803 L s P p .001 w .2 .61428 m .2 .61803 L s P p .001 w .225 .61428 m .225 .61803 L s P p .001 w .275 .61428 m .275 .61803 L s P p .001 w .3 .61428 m .3 .61803 L s P p .001 w .325 .61428 m .325 .61803 L s P p .001 w .35 .61428 m .35 .61803 L s P p .001 w .4 .61428 m .4 .61803 L s P p .001 w .425 .61428 m .425 .61803 L s P p .001 w .45 .61428 m .45 .61803 L s P p .001 w .475 .61428 m .475 .61803 L s P p .001 w .525 .61428 m .525 .61803 L s P p .001 w .55 .61428 m .55 .61803 L s P p .001 w .575 .61428 m .575 .61803 L s P p .001 w .6 .61428 m .6 .61803 L s P p .001 w .65 .61428 m .65 .61803 L s P p .001 w .675 .61428 m .675 .61803 L s P p .001 w .7 .61428 m .7 .61803 L s P p .001 w .725 .61428 m .725 .61803 L s P p .001 w .775 .61428 m .775 .61803 L s P p .001 w .8 .61428 m .8 .61803 L s P p .001 w .825 .61428 m .825 .61803 L s P p .001 w .85 .61428 m .85 .61803 L s P p .001 w .9 .61428 m .9 .61803 L s P p .001 w .925 .61428 m .925 .61803 L s P p .001 w .95 .61428 m .95 .61803 L s P p .001 w .975 .61428 m .975 .61803 L s P [(Temperature on Napoleon's Return from Moscow)] .5 .61803 0 -4 Mshowa p .002 w 0 .61803 m 1 .61803 L s P p .002 w .99375 0 m 1 0 L s P p .002 w .99375 .10301 m 1 .10301 L s P p .002 w .99375 .20601 m 1 .20601 L s P p .002 w .99375 .30902 m 1 .30902 L s P p .002 w .99375 .41202 m 1 .41202 L s P p .002 w .99375 .51503 m 1 .51503 L s P p .001 w .99625 .0206 m 1 .0206 L s P p .001 w .99625 .0412 m 1 .0412 L s P p .001 w .99625 .0618 m 1 .0618 L s P p .001 w .99625 .0824 m 1 .0824 L s P p .001 w .99625 .12361 m 1 .12361 L s P p .001 w .99625 .14421 m 1 .14421 L s P p .001 w .99625 .16481 m 1 .16481 L s P p .001 w .99625 .18541 m 1 .18541 L s P p .001 w .99625 .22661 m 1 .22661 L s P p .001 w .99625 .24721 m 1 .24721 L s P p .001 w .99625 .26781 m 1 .26781 L s P p .001 w .99625 .28842 m 1 .28842 L s P p .001 w .99625 .32962 m 1 .32962 L s P p .001 w .99625 .35022 m 1 .35022 L s P p .001 w .99625 .37082 m 1 .37082 L s P p .001 w .99625 .39142 m 1 .39142 L s P p .001 w .99625 .43262 m 1 .43262 L s P p .001 w .99625 .45322 m 1 .45322 L s P p .001 w .99625 .47383 m 1 .47383 L s P p .001 w .99625 .49443 m 1 .49443 L s P p .001 w .99625 .53563 m 1 .53563 L s P p .001 w .99625 .55623 m 1 .55623 L s P p .001 w .99625 .57683 m 1 .57683 L s P p .001 w .99625 .59743 m 1 .59743 L s P [( )] 1.0375 .30902 -1 0 Mshowa p .002 w 1 0 m 1 .61803 L s P P p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .004 w 0 .61803 m .125 .61803 L .25 .43262 L .375 .18541 L .5 .39142 L .625 .20601 L .75 .12361 L .875 0 L 1 .0824 L s % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{317, 195}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc@000ol0000/0000AP000ol000290003o`0003T000?o0000;00004H000?o0000Q`02oc`000?o0000 ;00004H00_n70003o`0003/00_l^0000AP000ol0002400;o?`000ol0000/0000AP000ol000230003 o`0003l000?o0000;00004H000?o0000P@02od8000?o0000;00004H00_m90003o`0003@00_m300;o ;P0004H000?o0000B0000ol0000c0003o`0004@000?o0000;00003L01_l200Co0`000ol000170003 o`3o03800_m70003o`0002`0000g0003o`0000@000?o00000P001?l00?m90004o`00oc0000?o0000 A`000ol0000/0000>0000ol000030003o`00008000?o00000om60005o`000?l0;`000ol0001700;o ;P0003<00ol300;o0`000ol000020004o`00odP000?o00000P000ol0000/0003o`0004P000?o0000 ;00003/000Co003o10001?l00?m70003o`0000<000?o0000:`000ol000190003o`0002`0000l0003 o`3o00@000Co003oA`000ol000040003o`0002T000?o0000BP000ol0000/0000=`000ol000020003 o`3o00@000?o00000_m50003o`0000H000?o0000:0000ol0001900;o;P0003L000?o00000P000ol0 o`040004o`00odH000?o00001P000ol0000W0003o`0004/000?o0000;00003P01?l300Co0`000ol0 00130003o`0000P000?o00009@000ol0001<0003o`0002`000160003o`0004<000?o000020000ol0 000U0003o`0004`000?o0000;00004H00_m30003o`0000X000?o00008`000ol0001<00;o;P0004H0 00?o0000@P000ol0000;0003o`00024000?o0000CP000ol0000/0000AP000ol000110003o`0000`0 00?o00008@000ol0001>0003o`0002`000160003o`00044000?o00003@000ol0000O0003o`0004l0 00?o0000;00004H000?o0000@0000ol0000>0003o`0001h000?o0000D0000ol0000/0000AP02od40 00?o00003`000ol0000M0003o`0004l00_l^0000AP000ol0000o0003o`00014000?o00006`000ol0 001A0003o`0002`000160003o`0003l000?o00004@000ol0000J0003o`00058000?o0000;00001h0 1?lT0003o`0003h000?o00004`000ol0000I0003o`00058000?o0000;00001d000?o00000P000ol0 000Q00;o?`000ol0000D0003o`0001L000?o0000DP02obh0000R0003o`00024000?o0000?@000ol0 000E0003o`0001H000?o0000E0000ol0000/00003`05o`@01?l200?o00<0o`0010000ol000030003 o`0000T000?o00000P04o`<000?o0000?@000ol0000F0003o`0001@000?o0000E@000ol0000/0000 3`000ol000020004o`00o`@00_l300;o1@000ol000030003o`0000T000Go0000o`040004o`00och0 00?o00005`000ol0000D0003o`0005D000?o0000;00000l000?o00000`000ol0o`050003o`000080 00?o00000`000ol000030003o`0000T000?o00001P000ol00003oc/000?o00006@000ol0000B0003 o`0005D00_l^00003`000ol000030003o`3o00Ko10000ol000030003o`0000<000?o00000P03o`@0 00?o00001P001?l00?lm0003o`0001X000?o000040000ol0001G0003o`0002`0000?0003o`0000<0 00?o0?l01002o`@000?o00000`06o``000Go0000o`040004o`00oc`000?o00006`000ol0000@0003 o`0005L000?o0000;00000l000?o00000`000ol0o`0400;o0`02o`D000?o00000`000ol000090004 o`0000Go0`000ol0000j0003o`0001`000?o00003P000ol0001H0003o`0002`0000?0003o`0000<0 00?o00001?l200?o00<0o`0010000ol000030003o`0000L00ol30003o`0000D00_lj0003o`0001d0 00?o00003@000ol0001H00;o;P0000l000?o00000P000ol0000A0003o`0000<000?o00002@000ol0 00020003o`0000@000?o0000>@000ol0000N0003o`0000`000?o0000F@000ol0000/00003`05oa@0 1_l<0003o`0000801Ol20003o`0003P000?o000080000ol0000:0003o`0005X000?o0000;00004H0 00?o0000>0000ol0000P0003o`0000T000?o0000F`000ol0000/0000AP02ocP000?o00008P000ol0 00080003o`0005X00_l^0000AP000ol0000g0003o`00028000?o00001`000ol0001L0003o`0002`0 00160003o`0003H000?o000090000ol000050003o`0005d000?o0000;00004H000?o0000=P000ol0 000U0003o`0000@000?o0000G@000ol0000/0000AP02ocH000?o00009P000ol000030003o`0005d0 0_l^0000AP000ol0000e0003o`0002L000Go0000o`1Q0003o`0002`000160003o`0003@000?o0000 :0001Ol0003o064000?o0000;00004H000?o0000=0000ol0000Y0003o`3o068000?o0000;00004H0 0_ld0003o`0002/000?o0000H002obh000160003o`0003<000?o0000S`000ol0000/0000>P000ol0 000200Co0`000ol0000b0003o`00090000?o0000;00003X000Go0000o`040004o`00oc@000?o0000 T0000ol0000/0000>P001Ol0003o00@000?o00000ola0003o`0009000_l^0000<`03o`@000Go0000 o`040004o`00oc<000?o0000T@000ol0000/0000>P001Ol0003o00@000Co003oP001Ol0003o00@000Co003o<@000ol0002C0003o`0002`0 000j0003o`0000801?l30003o`0002h000?o0000U0000ol0000/0000AP000ol0000]0003o`0009D0 00?o0000;00004H000?o0000;@000ol0002E0003o`0002`0001600;o;@000ol0002E00;o;P0004H0 00?o0000:`000ol0002G0003o`0002`000160003o`0002/000?o0000U`000ol0000/0000AP000ol0 000Z0003o`0009P000?o0000;00004H00_lZ0003o`0009P00_l^0000AP000ol0000Y0003o`0009T0 00?o0000;00004H000?o0000:0000ol0002J0003o`0002`000160003o`0002L000?o0000V`000ol0 000/0000AP02obP000?o0000VP02obh000160003o`0002H000?o0000W0000ol0000/0000?P04o`@0 00?o00009@000ol0002M0003o`0002`0000m0003o`00008000Go0000o`0W0003o`0009d000?o0000 ;000048000Co00000olT0003o`0009d00_l^0000>@03o`H000Go0000o`0U0003o`0009l000?o0000 ;00003d000?o00000P001Ol0003o02@000?o0000X0000ol0000/0000?@05o`@000?o00008P000ol0 002P0003o`0002`0000m0003o`0000H00_lR0003o`000:000_l^0000?P000ol000050003o`000200 00?o0000XP000ol0000/0000?P05o`<000?o000080000ol0002R0003o`0002`000160003o`0001l0 00?o0000X`000ol0000/0000AP02oal000?o0000X`02obh000160003o`0001h000?o0000Y0000ol0 000/0000AP000ol0000M0003o`000:D000?o0000;00004H000?o000070000ol0002V0003o`0002`0 001600;o7@000ol0002U00;o;P0004H000?o00006`000ol0002W0003o`0002`000160003o`0001X0 00?o0000Z0000ol0000/0000AP000ol0000J0003o`000:P000?o0000;00004H00_lJ0003o`000:P0 0_l^0000AP000ol0000H0003o`000:X000?o0000;00003h01?l40003o`0001P000?o0000ZP000ol0 000/0000?@000ol000020005o`000?l06002oaL000?o00005P000ol0000F0003o`0001H000?o0000 5P000ol0000F0003o`0001H000?o0000;00003d000?o00000P001?l00039obh0000m0003o`000080 00?o0000n00003d000?o00000P000ol0003h0000?@000ol000020003o`000?P0000m0003o`000080 00?o0000n00003d000?o00000P000ol0003h0000?P04oo/0003o03h0003o03h0003o03h0003o03h0 003o03h0003o03h0003o03h0003o03h0003o03h0003o03h0003o03h0003o03h000100003o`0004d0 00?o0000ZP00040000?o0000C@000ol0002Z0000@0000ol0001=0003o`000:X0000Z0003o`000080 1?l20005o`000?l00`001Ol00?l000?o0P04o`030?l000<00_l00`3oo`0200;o00D0ool0o`020003 o`0000801?l600Co0P001Ol0003o00H000?o00000`001Ol0ool000;o0P000ol0o`02o`801?l00`3o 000200Co0`04o`030?l0008000?o00000`03o`L000?o00000`000ol0o`03o`<00_l01@3oo`3o0080 00Go0000o`030003o`0000@000?o0?l01004o`8000Go0000o`030003o`0000<000Go0000o`030003 o`3o00?o0`03o`<00ol300Co10001Ol0003o0140000Z0005o`000?l010000ol0o`030005o`000?l0 0P02o`<00_l400;o0`000ol00002o`<000?o0?l00P02o`8000Go0000o`040003o`00008000?o0000 0P000ol0o`030003o`0000@000?o00000P03o`800_l300;o0`02o`@00_l20003o`00008000?o0?l0 1002o`<000?o00000P001Ol0003o00H000?o00000`02o`@000Ko003o0?l200;o0P001Ol0003o00<0 00?o000010000ol0o`030003o`00008000?o0?l00`001Ol0003o00D000Ko003o0?l200;o10000ol0 o`030003o`3o00<000?o0?l010001Ol0003o00<000?o00003`0002X000Go0000o`060005o`000?l0 0`001?l00?l400;o1@001Ol0003o00<000Oo0000o`3o00<000Co003o0`000ol000070003o`000080 00?o0?l00`000ol000040006o`000?l00_l30005o`000?l01002o`@00_l20003o`0000@000?o0000 0P02o`<000?o00001P000ol000040003o`0000<00_l70003o`3o00<000Co003o0`001Ol0003o00H0 00?o0?l00`000ol000020003o`3o00<000Go0000o`050006o`00o`3o0P02o`@000?o00000`000ol0 o`050003o`00008000[o003o0?l0o`3o400002X000Co00001_l00`3o00020005o`000?l00P000ol0 000200So1004o`<000?o0?l00`001?l00?l300Ko10000ol000020003o`3o00<000?o000010002?l0 003o0?l01?l30003o`0000800_l400;o0P06o`030?l000<00_l30003o`0000<00ol70003o`0000<0 1ol20003o`3o00<000Co003o0`001Ol0003o00H000?o0?l00`000ol000020003o`3o00<000Go0000 o`050006o`00o`3o0P02o`@000?o00000ol20003o`0000<000?o00000P002_l00?l0o`3o0?l@0000 :P001Ol0003o00@000?o0?l00`001Ol0003o008000?o00000P02o`@00_l70007o`000?l0o`030004 o`00o`<000?o00000P000ol000020003o`00008000?o0?l00`000ol000040004o`00o`8000?o0000 0P001Ol0003o00@00_l400;o0P000ol000020003o`3o00@00_l30003o`00008000?o00002006o`03 0?l000<000Ko003o0?l30004o`00o`<000Go0000o`060003o`3o00<000?o00000P000ol0o`030005 o`000?l01@000ol0o`030004o`3oo`@000?o0?l01@000ol000030003o`00008000[o003o0?l0o`3o 400002X000Go0000o`040004o`3oo`8000Go0000o`0200;o0`02o`@00ol20005o`000?l00`000ol0 o`030003o`0000;o0P000ol000020003o`00008000?o00000P001?l0ool20003o`0000@000?o0?l0 0`02o`<000Co00000_l300;o1002o`8000?o00000P000ol0o`0400?o0P000ol000020005o`000?l0 1P000ol0000300;o10001_l00?l0o`<000?o00000_l200;o0P000ol000040004o`3oo`8000?o0000 0P001?l0ool20005o`000?l01@000ol0o`030004o`3oo`@000?o0?l00`000ol0o`030003o`3o00@0 00[o003o0?l0o`3o400002X000?o00000P04o`8000Go0?oo0003o`<000?o0?l00_l200Co00@0o`3o 0P03o`<01?l30006o`00o`3o0P04o`H01?l20004o`3oo`L000?o0?l00`000ol0o`02o`@000?o0?l0 0_l200Co00<0o`000P04o`<01?l00`3o0002o`<000?o00000ol70003o`0000<000?o0?l00ol200Co 0`002Ol00?l0o`3o0002o`H01?l0103o0004o`8000Go0?oo0003o`H000?o0?l00`001?l0o`04o`<0 0ol300?o0`04o`<000Co003o0P000ol0000>0000:P000ol0000[0003o`0002H00_l40003o`000180 00?o000050000ol0000:0003o`0000<000?o00001P000ol0000E0003o`0001P00_l500;o"], ImageRangeCache->{{{0, 316}, {194, 0}} -> {-1.83665, -39.8383, 0.0400347, 0.242916}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Adding Functionality via Packages"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Needs[\"Miscellaneous`Calendar`\"]"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["dates = Map[#[[1]]&, tempdata]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{1812, 10, 18}, {1812, 10, 24}, {1812, 11, 9}, {1812, 11, 14}, {1812, \ 11, 25}, {1812, 11, 28}, {1812, 12, 1}, {1812, 12, 6}, {1812, 12, 7}}\ \>", "\<\ {{1812, 10, 18}, {1812, 10, 24}, {1812, 11, 9}, {1812, 11, 14}, {1812, \ 11, 25}, {1812, 11, 28}, {1812, 12, 1}, {1812, 12, 6}, {1812, 12, 7}}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True, FontSize->9]}, Open]], Cell[CellGroupData[{Cell[TextData["?DaysBetween"], "Input", AspectRatioFixed->True], Cell[TextData[ "DaysBetween[{y1,m1, d1}, {y2,m2,d2}, cal] gives the number of days between\n \ the dates {y1, m1, d1} and {y2, m2, d2} in calendar cal. The default\n \ calendar is the usual American calendar."], "Info", Evaluatable->False, AspectRatioFixed->True, FontSize->9]}, Open]], Cell[CellGroupData[{Cell[TextData["dayseps = Map[DaysBetween[#, dates[[1]] ]&, dates]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {0, 6, 22, 27, 38, 41, 44, 49, 50}\ \>", "\<\ {0, 6, 22, 27, 38, 41, 44, 49, 50}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["plottemp = Transpose[{dayseps, temps}]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{0, 0}, {6, 0}, {22, -9}, {27, -21}, {38, -11}, {41, -20}, {44, -24}, \ {49, -30}, {50, -26}}\ \>", "\<\ {{0, 0}, {6, 0}, {22, -9}, {27, -21}, {38, -11}, {41, -20}, {44, -24}, \ {49, -30}, {50, -26}}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True, FontSize->9]}, Open]], Cell[CellGroupData[{Cell[TextData[ "ListPlot[plottemp, \nDefaultFont -> {\"Helvetica\", 12}, PlotJoined -> True, \ \nAxesOrigin -> {0,0}, PlotRange -> All,\nFrame -> True,\nRotateLabel -> \ False,\nFrameLabel -> {\"Elapsed Days\", \"Deg R\",\n\"Temperature on \ Napoleon's Return from Moscow\", \" \"}]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Helvetica findfont 12 scalefont setfont % Scaling calculations 0.0238095 0.0190476 0.603319 0.0196201 [ [(0)] .02381 0 0 2 0 Minner Mrotsboxa [(10)] .21429 0 0 2 0 Minner Mrotsboxa [(20)] .40476 0 0 2 0 Minner Mrotsboxa [(30)] .59524 0 0 2 0 Minner Mrotsboxa [(40)] .78571 0 0 2 0 Minner Mrotsboxa [(50)] .97619 0 0 2 0 Minner Mrotsboxa [(Elapsed Days)] .5 0 0 2 0 0 -1 Mouter Mrotsboxa [(-30)] -0.0125 .01472 1 0 0 Minner Mrotsboxa [(-25)] -0.0125 .11282 1 0 0 Minner Mrotsboxa [(-20)] -0.0125 .21092 1 0 0 Minner Mrotsboxa [(-15)] -0.0125 .30902 1 0 0 Minner Mrotsboxa [(-10)] -0.0125 .40712 1 0 0 Minner Mrotsboxa [(-5)] -0.0125 .50522 1 0 0 Minner Mrotsboxa [(0)] -0.0125 .60332 1 0 0 Minner Mrotsboxa [(Deg R)] -0.0125 .30902 1 0 0 -1 0 Mouter Mrotsboxa [(Temperature on Napoleon's Return from Moscow)] .5 .61803 0 -4 Msboxa [( )] 1.0375 .30902 -1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .02381 0 m .02381 .00625 L s P [(0)] .02381 0 0 2 0 Minner Mrotshowa p .002 w .21429 0 m .21429 .00625 L s P [(10)] .21429 0 0 2 0 Minner Mrotshowa p .002 w .40476 0 m .40476 .00625 L s P [(20)] .40476 0 0 2 0 Minner Mrotshowa p .002 w .59524 0 m .59524 .00625 L s P [(30)] .59524 0 0 2 0 Minner Mrotshowa p .002 w .78571 0 m .78571 .00625 L s P [(40)] .78571 0 0 2 0 Minner Mrotshowa p .002 w .97619 0 m .97619 .00625 L s P [(50)] .97619 0 0 2 0 Minner Mrotshowa p .001 w .0619 0 m .0619 .00375 L s P p .001 w .1 0 m .1 .00375 L s P p .001 w .1381 0 m .1381 .00375 L s P p .001 w .17619 0 m .17619 .00375 L s P p .001 w .25238 0 m .25238 .00375 L s P p .001 w .29048 0 m .29048 .00375 L s P p .001 w .32857 0 m .32857 .00375 L s P p .001 w .36667 0 m .36667 .00375 L s P p .001 w .44286 0 m .44286 .00375 L s P p .001 w .48095 0 m .48095 .00375 L s P p .001 w .51905 0 m .51905 .00375 L s P p .001 w .55714 0 m .55714 .00375 L s P p .001 w .63333 0 m .63333 .00375 L s P p .001 w .67143 0 m .67143 .00375 L s P p .001 w .70952 0 m .70952 .00375 L s P p .001 w .74762 0 m .74762 .00375 L s P p .001 w .82381 0 m .82381 .00375 L s P p .001 w .8619 0 m .8619 .00375 L s P p .001 w .9 0 m .9 .00375 L s P p .001 w .9381 0 m .9381 .00375 L s P [(Elapsed Days)] .5 0 0 2 0 0 -1 Mouter Mrotshowa p .002 w 0 0 m 1 0 L s P p .002 w 0 .01472 m .00625 .01472 L s P [(-30)] -0.0125 .01472 1 0 0 Minner Mrotshowa p .002 w 0 .11282 m .00625 .11282 L s P [(-25)] -0.0125 .11282 1 0 0 Minner Mrotshowa p .002 w 0 .21092 m .00625 .21092 L s P [(-20)] -0.0125 .21092 1 0 0 Minner Mrotshowa p .002 w 0 .30902 m .00625 .30902 L s P [(-15)] -0.0125 .30902 1 0 0 Minner Mrotshowa p .002 w 0 .40712 m .00625 .40712 L s P [(-10)] -0.0125 .40712 1 0 0 Minner Mrotshowa p .002 w 0 .50522 m .00625 .50522 L s P [(-5)] -0.0125 .50522 1 0 0 Minner Mrotshowa p .002 w 0 .60332 m .00625 .60332 L s P [(0)] -0.0125 .60332 1 0 0 Minner Mrotshowa p .001 w 0 .03434 m .00375 .03434 L s P p .001 w 0 .05396 m .00375 .05396 L s P p .001 w 0 .07358 m .00375 .07358 L s P p .001 w 0 .0932 m .00375 .0932 L s P p .001 w 0 .13244 m .00375 .13244 L s P p .001 w 0 .15206 m .00375 .15206 L s P p .001 w 0 .17168 m .00375 .17168 L s P p .001 w 0 .1913 m .00375 .1913 L s P p .001 w 0 .23054 m .00375 .23054 L s P p .001 w 0 .25016 m .00375 .25016 L s P p .001 w 0 .26978 m .00375 .26978 L s P p .001 w 0 .2894 m .00375 .2894 L s P p .001 w 0 .32864 m .00375 .32864 L s P p .001 w 0 .34826 m .00375 .34826 L s P p .001 w 0 .36788 m .00375 .36788 L s P p .001 w 0 .3875 m .00375 .3875 L s P p .001 w 0 .42674 m .00375 .42674 L s P p .001 w 0 .44636 m .00375 .44636 L s P p .001 w 0 .46598 m .00375 .46598 L s P p .001 w 0 .4856 m .00375 .4856 L s P p .001 w 0 .52484 m .00375 .52484 L s P p .001 w 0 .54446 m .00375 .54446 L s P p .001 w 0 .56408 m .00375 .56408 L s P p .001 w 0 .5837 m .00375 .5837 L s P [(Deg R)] -0.0125 .30902 1 0 0 -1 0 Mouter Mrotshowa p .002 w 0 0 m 0 .61803 L s P P p p .002 w .02381 .61178 m .02381 .61803 L s P p .002 w .21429 .61178 m .21429 .61803 L s P p .002 w .40476 .61178 m .40476 .61803 L s P p .002 w .59524 .61178 m .59524 .61803 L s P p .002 w .78571 .61178 m .78571 .61803 L s P p .002 w .97619 .61178 m .97619 .61803 L s P p .001 w .0619 .61428 m .0619 .61803 L s P p .001 w .1 .61428 m .1 .61803 L s P p .001 w .1381 .61428 m .1381 .61803 L s P p .001 w .17619 .61428 m .17619 .61803 L s P p .001 w .25238 .61428 m .25238 .61803 L s P p .001 w .29048 .61428 m .29048 .61803 L s P p .001 w .32857 .61428 m .32857 .61803 L s P p .001 w .36667 .61428 m .36667 .61803 L s P p .001 w .44286 .61428 m .44286 .61803 L s P p .001 w .48095 .61428 m .48095 .61803 L s P p .001 w .51905 .61428 m .51905 .61803 L s P p .001 w .55714 .61428 m .55714 .61803 L s P p .001 w .63333 .61428 m .63333 .61803 L s P p .001 w .67143 .61428 m .67143 .61803 L s P p .001 w .70952 .61428 m .70952 .61803 L s P p .001 w .74762 .61428 m .74762 .61803 L s P p .001 w .82381 .61428 m .82381 .61803 L s P p .001 w .8619 .61428 m .8619 .61803 L s P p .001 w .9 .61428 m .9 .61803 L s P p .001 w .9381 .61428 m .9381 .61803 L s P [(Temperature on Napoleon's Return from Moscow)] .5 .61803 0 -4 Mshowa p .002 w 0 .61803 m 1 .61803 L s P p .002 w .99375 .01472 m 1 .01472 L s P p .002 w .99375 .11282 m 1 .11282 L s P p .002 w .99375 .21092 m 1 .21092 L s P p .002 w .99375 .30902 m 1 .30902 L s P p .002 w .99375 .40712 m 1 .40712 L s P p .002 w .99375 .50522 m 1 .50522 L s P p .002 w .99375 .60332 m 1 .60332 L s P p .001 w .99625 .03434 m 1 .03434 L s P p .001 w .99625 .05396 m 1 .05396 L s P p .001 w .99625 .07358 m 1 .07358 L s P p .001 w .99625 .0932 m 1 .0932 L s P p .001 w .99625 .13244 m 1 .13244 L s P p .001 w .99625 .15206 m 1 .15206 L s P p .001 w .99625 .17168 m 1 .17168 L s P p .001 w .99625 .1913 m 1 .1913 L s P p .001 w .99625 .23054 m 1 .23054 L s P p .001 w .99625 .25016 m 1 .25016 L s P p .001 w .99625 .26978 m 1 .26978 L s P p .001 w .99625 .2894 m 1 .2894 L s P p .001 w .99625 .32864 m 1 .32864 L s P p .001 w .99625 .34826 m 1 .34826 L s P p .001 w .99625 .36788 m 1 .36788 L s P p .001 w .99625 .3875 m 1 .3875 L s P p .001 w .99625 .42674 m 1 .42674 L s P p .001 w .99625 .44636 m 1 .44636 L s P p .001 w .99625 .46598 m 1 .46598 L s P p .001 w .99625 .4856 m 1 .4856 L s P p .001 w .99625 .52484 m 1 .52484 L s P p .001 w .99625 .54446 m 1 .54446 L s P p .001 w .99625 .56408 m 1 .56408 L s P p .001 w .99625 .5837 m 1 .5837 L s P [( )] 1.0375 .30902 -1 0 Mshowa p .002 w 1 0 m 1 .61803 L s P P p P .004 w .02381 .60332 m .1381 .60332 L .44286 .42674 L .5381 .1913 L .74762 .3875 L .80476 .21092 L .8619 .13244 L .95714 .01472 L .97619 .0932 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{317, 195}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc004o`<01Ol20003o`000:P000?o00006P000ol0000/0000 AP02ojP000?o00006P02obh000160003o`000:L000?o00006`000ol0000/0000AP000ol0002V0003 o`0001`000?o0000;00004H000?o0000Y@000ol0000M0003o`0002`0001600;oY@000ol0000M00;o ;P0004H000?o0000Y0000ol0000N0003o`0002`000160003o`000:<000?o00007`000ol0000/0000 AP000ol0002R0003o`00020000?o0000;00004H00_mZ00;o=P000ol0000P00;o;P0004H000?o0000 J@000ol0o`0e0003o`00024000?o0000;00003L01_l200Co0`000ol0001X0005o`000?l0<`000ol0 000R0003o`0002`0000g0003o`0000@000?o00000P001?l00?mZ0003o`00008000?o0000;`000ol0 000S0003o`0002`0000h0003o`0000<000?o00000P000ol00003ofP000?o00000`000ol0000]0003 o`0002<00_l^0000<`03o`<00_l30003o`00008000Co003oJ@000ol000050003o`0002`000?o0000 90000ol0000/0000>`001?l00?l40004o`00ofT000?o00001P000ol0000[0003o`0002@000?o0000 ;00003`000?o0?l010001?l00?mX0003o`0000P000?o0000:@000ol0000U0003o`0002`0000g0003 o`00008000?o0?l010000ol00002ofL000?o00002@000ol0000X0003o`0002@00_l^0000=`000ol0 00020003o`3o00@000Co003oJ0000ol0000:0003o`0002L000?o00009@000ol0000/0000>004o`<0 1?l30003o`0006D000?o000030000ol0000U0003o`0002H000?o0000;00004H000?o0000I@000ol0 000=0003o`0002@000?o00009P000ol0000/0000AP02ofD000?o00003`000ol0000S0003o`0002D0 0_l^0000AP000ol0001T0003o`0001000_lR0003o`0002L000?o0000;00004H000?o0000I0000ol0 000B0003o`0001l000?o00009`000ol0000/0000AP000ol0001S0003o`0001@000?o00007P000ol0 000W0003o`0002`0001600;oI0000ol0000E0003o`0001`000?o00009`02obh000160003o`000680 00?o00005`000ol0000K0003o`0002P000?o0000;00004H000?o0000HP000ol0000H0003o`0001X0 00?o0000:0000ol0000/00007P04ob@000?o0000HP000ol0000I0003o`0001P000?o0000:@000ol0 000/00007@000ol000020003o`0002400_mR0003o`0001/000?o00005`000ol0000X00;o;P000280 00?o00008@000ol0001Q0003o`0001`000?o00005P000ol0000Y0003o`0002`0000?00Go1004o`80 0ol00`3o00040003o`0000<000?o00002@000ol0000200Co0`000ol0001P0003o`0001h000?o0000 50000ol0000Z0003o`0002`0000?0003o`00008000Co003o1002o`<00_l50003o`0000<000?o0000 2@001Ol0003o00@000Co003oHP000ol0000O0003o`0001<000?o0000:P000ol0000/00003`000ol0 00030003o`3o00D000?o00000P000ol000030003o`0000<000?o00002@000ol000060003o`0000?o G`000ol0000Q0003o`00018000?o0000:@02obh0000?0003o`0000<000?o0?l01_l40003o`0000<0 00?o00000`000ol0000200?o10000ol000060004o`00of4000?o00008P000ol0000A0003o`0002X0 00?o0000;00000l000?o00000`000ol0o`0400;o10000ol0000300Ko30001Ol0003o00@000Co003o H@000ol0000S00;o40000ol0000[0003o`0002`0000?0003o`0000<000?o0?l01002o`<00_l50003 o`0000<000?o00002@001?l00005o`<000?o0000GP000ol0000V0003o`0000d000?o0000:`000ol0 000/00003`000ol000030003o`0000Co0P03o`030?l000@000?o00000`000ol0000700?o0`000ol0 000500;oG`000ol0000W0003o`0000`000?o0000:P02obh0000?0003o`00008000?o00004@000ol0 00030003o`0000T000?o00000P000ol000040003o`0005d000?o0000:@000ol0000:0003o`0002`0 00?o0000;00000l01OlD00Ko30000ol0000200Go0P000ol0001M0003o`0002X000?o00002@000ol0 000/0003o`0002`000160003o`0005d000?o0000:`000ol000080003o`0002`000?o0000;00004H0 0_mM0003o`0002d000?o00001P000ol0000/00;o;P0004H000?o0000G0000ol0000^0003o`0000D0 00?o0000;@000ol0000/0000AP000ol0001K0003o`00030000?o000010000ol0000]0003o`0002`0 00160003o`0005/000?o0000<@000ol000020003o`0002h000?o0000;00004H00_mL0003o`000380 00Go0000o`0_00;o;P0004H000?o0000FP000ol0000d0004o`00oc0000?o0000;00004H000?o0000 FP000ol0000e00;o<@000ol0000/0000AP02oeX000?o0000=`000ol0000^00;o;P0004H000?o0000 F@000ol0001Y0003o`0002`0000j0003o`0000801?l30003o`0005T000?o0000J@000ol0000/0000 >P001Ol0003o00@000Co003oFP000ol0001Z0003o`0002`0000j0005o`000?l010000ol00003oeP0 00?o0000J@02obh0000c00?o10001Ol0003o00@000Co003oF@000ol0001[0003o`0002`0000j0005 o`000?l010001?l00?mI0003o`0006/000?o0000;00003X000Go0000o`040004o`00oeT000?o0000 J`000ol0000/0000>003o`<000?o00000P000ol00002oeH00_m]00;o;P0003X000Go0000o`040004 o`00oeD00_m`0003o`0002`0000j0003o`0000801?l30003o`00058000?o0000L0000ol0000/0000 AP000ol0001@00;oL`000ol0000/0000AP02odl00_md00;o;P0004H000?o0000C@000ol0001e0003 o`0002`000160003o`0004/00_mh0003o`0002`000160003o`0004T00_mj0003o`0002`0001600;o B@000ol0001i00;o;P0004H000?o0000AP02ogd000?o0000;00004H000?o0000A002ogl000?o0000 ;00004H000?o0000@`000ol0001o0003o`0002`0001600;o@P02oh400_l^0000AP000ol0000o00;o Q0000ol0000/0000?P04o`@000?o0000?@02ohH000?o0000;00003d000?o00000P001Ol0003o03h0 00?o0000QP000ol0000/0000@P001?l00003ocX00_n800;o;P0003T00ol60005o`000?l0>P02oh/0 00?o0000;00003d000?o00000P001Ol0003o03T000?o0000R`000ol0000/0000?@05o`@000?o0000 =@02ohh000?o0000;00003d000?o00001P02oc@00_n?00;o;P0003h000?o00001@000ol0000b0003 o`00090000?o0000;00003h01Ol30003o`0003000_nC0003o`0002`000160003o`0002h00_nE0003 o`0002`0001600;o;@02oiH00_l^0000AP000ol0000[0003o`0009L000?o0000;00004H000?o0000 :@02oiX000?o0000;00004H000?o00009`02oi`000?o0000;00004H00_lW0003o`0009/00_l^0000 AP000ol0000T00;oW`000ol0000/0000AP000ol0000R00;oX@000ol0000/0000AP000ol0000Q0003 o`000:4000?o0000;00004H00_lP00;oX`02obh000160003o`0001d00_nV0003o`0002`0000n00Co 10000ol0000L0003o`000:H000?o0000;00003d000?o00000P001Ol0003o01`00_nY0003o`0002`0 000m0003o`00008000Co00000ol201SoZP02obh0000m0003o`00008000Go0000o`040003o`0002<0 00?o00008`000ol0000S0003o`0002<000?o00008`000ol000020003o`0002`0000m0003o`000080 00Co0000bOl^0000?@000ol000020003o`000?P0000m0003o`00008000?o0000n00003d000?o0000 0P000ol0003h0000?P04oo/0003o03h0003o03h0003o03h0003o03h0003o03h0003o03h0003o03h0 003o03h0003o03h0003o03h0003o03h0003o03h0003o03h0003o03h000100003o`0004d000?o0000 ZP00040000?o0000C@000ol0002Z0000@0000ol0001=0003o`000:X0000Z0003o`0000801?l20005 o`000?l00`001Ol00?l000?o0P04o`030?l000<00_l00`3oo`0200;o00D0ool0o`020003o`000080 1?l600Co0P001Ol0003o00H000?o00000`001Ol0ool000;o0P000ol0o`02o`801?l00`3o000200Co 0`04o`030?l0008000?o00000`03o`L000?o00000`000ol0o`03o`<00_l01@3oo`3o008000Go0000 o`030003o`0000@000?o0?l01004o`8000Go0000o`030003o`0000<000Go0000o`030003o`3o00?o 0`03o`<00ol300Co10001Ol0003o0140000Z0005o`000?l010000ol0o`030005o`000?l00P02o`<0 0_l400;o0`000ol00002o`<000?o0?l00P02o`8000Go0000o`040003o`00008000?o00000P000ol0 o`030003o`0000@000?o00000P03o`800_l300;o0`02o`@00_l20003o`00008000?o0?l01002o`<0 00?o00000P001Ol0003o00H000?o00000`02o`@000Ko003o0?l200;o0P001Ol0003o00<000?o0000 10000ol0o`030003o`00008000?o0?l00`001Ol0003o00D000Ko003o0?l200;o10000ol0o`030003 o`3o00<000?o0?l010001Ol0003o00<000?o00003`0002X000Go0000o`060005o`000?l00`001?l0 0?l400;o1@001Ol0003o00<000Oo0000o`3o00<000Co003o0`000ol000070003o`00008000?o0?l0 0`000ol000040006o`000?l00_l30005o`000?l01002o`@00_l20003o`0000@000?o00000P02o`<0 00?o00001P000ol000040003o`0000<00_l70003o`3o00<000Co003o0`001Ol0003o00H000?o0?l0 0`000ol000020003o`3o00<000Go0000o`050006o`00o`3o0P02o`@000?o00000`000ol0o`050003 o`00008000[o003o0?l0o`3o400002X000Co00001_l00`3o00020005o`000?l00P000ol0000200So 1004o`<000?o0?l00`001?l00?l300Ko10000ol000020003o`3o00<000?o000010002?l0003o0?l0 1?l30003o`0000800_l400;o0P06o`030?l000<00_l30003o`0000<00ol70003o`0000<01ol20003 o`3o00<000Co003o0`001Ol0003o00H000?o0?l00`000ol000020003o`3o00<000Go0000o`050006 o`00o`3o0P02o`@000?o00000ol20003o`0000<000?o00000P002_l00?l0o`3o0?l@0000:P001Ol0 003o00@000?o0?l00`001Ol0003o008000?o00000P02o`@00_l70007o`000?l0o`030004o`00o`<0 00?o00000P000ol000020003o`00008000?o0?l00`000ol000040004o`00o`8000?o00000P001Ol0 003o00@00_l400;o0P000ol000020003o`3o00@00_l30003o`00008000?o00002006o`030?l000<0 00Ko003o0?l30004o`00o`<000Go0000o`060003o`3o00<000?o00000P000ol0o`030005o`000?l0 1@000ol0o`030004o`3oo`@000?o0?l01@000ol000030003o`00008000[o003o0?l0o`3o400002X0 00Go0000o`040004o`3oo`8000Go0000o`0200;o0`02o`@00ol20005o`000?l00`000ol0o`030003 o`0000;o0P000ol000020003o`00008000?o00000P001?l0ool20003o`0000@000?o0?l00`02o`<0 00Co00000_l300;o1002o`8000?o00000P000ol0o`0400?o0P000ol000020005o`000?l01P000ol0 000300;o10001_l00?l0o`<000?o00000_l200;o0P000ol000040004o`3oo`8000?o00000P001?l0 ool20005o`000?l01@000ol0o`030004o`3oo`@000?o0?l00`000ol0o`030003o`3o00@000[o003o 0?l0o`3o400002X000?o00000P04o`8000Go0?oo0003o`<000?o0?l00_l200Co00@0o`3o0P03o`<0 1?l30006o`00o`3o0P04o`H01?l20004o`3oo`L000?o0?l00`000ol0o`02o`@000?o0?l00_l200Co 00<0o`000P04o`<01?l00`3o0002o`<000?o00000ol70003o`0000<000?o0?l00ol200Co0`002Ol0 0?l0o`3o0002o`H01?l0103o0004o`8000Go0?oo0003o`H000?o0?l00`001?l0o`04o`<00ol300?o 0`04o`<000Co003o0P000ol0000>0000:P000ol0000[0003o`0002H00_l40003o`00018000?o0000 50000ol0000:0003o`0000<000?o00001P000ol0000E0003o`0001P00_l500;o"], ImageRangeCache->{{{0, 316}, {194, 0}} -> {-19.8656, -41.0802, 0.262728, 0.255062}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData["Adding the Fate of the Army"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "armydata = {\n{{1812,10,18},100000},{{1812,10,24}, 96000},\n{{1812,11, 1}, \ 87000},{{1812,11, 4}, 87000},\n{{1812,11, 4}, 55000},{{1812,11, 9}, 55000},\n\ {{1812,11, 9}, 37000},{{1812,11,14}, 37000},\n{{1812,11,14}, \ 24000},{{1812,11,19}, 24000},\n{{1812,11,19}, 20000},{{1812,11,25}, 20000},\n\ {{1812,11,25}, 50000},{{1812,11,28}, 50000},\n{{1812,11,28}, \ 28000},{{1812,12, 6}, 12000},\n{{1812,12, 7}, 8000}};"], "Input", AspectRatioFixed->True], Cell[TextData[ "Elapsify[datedata_, yscale_] :=\nModule[{dates, values, days},\ndates = \ Map[#[[1]]&, datedata];\nvalues = Map[#[[2]]&, datedata];\ndays = \ Map[DaysBetween[#, dates[[1]] ]&, dates];\nTranspose[{days, \ values/yscale}]]"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["elapsedarmy = Elapsify[armydata, 1000]"], "Input", AspectRatioFixed->True], Cell[OutputFormData[ "\<\ {{0, 100}, {6, 96}, {14, 87}, {17, 87}, {17, 55}, {22, 55}, {22, 37}, \ {27, 37}, {27, 24}, {32, 24}, {32, 20}, {38, 20}, {38, 50}, {41, 50}, {41, 28}, {49, 12}, {50, 8}}\ \>", "\<\ {{0, 100}, {6, 96}, {14, 87}, {17, 87}, {17, 55}, {22, 55}, {22, 37}, \ {27, 37}, {27, 24}, {32, 24}, {32, 20}, {38, 20}, {38, 50}, {41, 50}, {41, 28}, {49, 12}, {50, 8}}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True, FontSize->9]}, Open]], Cell[TextData[ "Needs[\"Graphics`MultipleListPlot`\"];\nNeeds[\"Graphics`Legend`\"]"], "Input", AspectRatioFixed->True], Cell[TextData[ "snowflake = Line[{{0,0},{0,0.025},{0,0},{Sqrt[3]/80,0.0125},{0,0},\n\ {Sqrt[3]/80,-0.0125},{0,0},{0,-0.025},{0,0},\n\ {-Sqrt[3]/80,-0.0125},{0,0},{-Sqrt[3]/80, 0.0125},{0,0}} ];"], "Input", AspectRatioFixed->True], Cell[TextData[ "gundata = {{-0.0375,0.005},{0.0375,0.005},{0.0375, 0.},\n\ {0.,0.},{0.,-0.005},{-0.0125, -0.005}, \n{-0.0125, 0.},{-0.0375, \ -0.0125},{-0.0375, 0.005}};"], "Input", AspectRatioFixed->True], Cell[TextData[ "gun = Line[Map[Dot[N[{{1/Sqrt[2], -1/Sqrt[2]}, \n{1/Sqrt[2], 1/Sqrt[2]}}], \ #]&, gundata]];"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Show[Graphics[{gun, snowflake}], \nAspectRatio -> Automatic]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1.15625 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.529762 16.8359 0.622768 16.8359 [ [ 0 0 0 0 ] [ 1 1.15625 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 1.15625 L 0 1.15625 L closepath clip newpath p .004 w .02381 .23586 m .91667 1.12872 L .97619 1.0692 L .52976 .62277 L .58929 .56324 L .44048 .41443 L .38095 .47396 L .23214 .02753 L .02381 .23586 L s .52976 .62277 m .52976 1.04366 L .52976 .62277 L .89427 .83322 L .52976 .62277 L .89427 .41232 L .52976 .62277 L .52976 .20187 L .52976 .62277 L .16525 .41232 L .52976 .62277 L .16525 .83322 L .52976 .62277 L s P % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{143, 165}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc0003o`0006L0000C0003 o`0000l000?o0000I`00018000?o00004@000ol0001V00004@000ol0000B0003o`0006H0000@0003 o`0001<000?o0000IP0000l000?o00005@000ol0001U00003P000ol0000F0003o`0006D0000=0003 o`0001L000?o0000I@0000`000?o00006@000ol0001T00002`000ol0000J0003o`0006@0000:0003 o`0001/000?o0000I00000T000?o00007@000ol0001S000020000ol0000N0003o`0001l000?o0000 @@0000L000?o00007`000ol0000O0003o`00044000060003o`00024000?o00007P000ol000110000 1@000ol0000R0003o`0001h000?o0000@@0000@000?o00008`000ol0000N0003o`00044000030003 o`0002D000?o00007@000ol00011000010000ol0000T0003o`0001d000?o0000@@0000D000?o0000 8`000ol0000M0003o`00044000060003o`0002<000?o000070000ol0001100001`000ol0000R0003 o`0001`000?o0000@@0000P000?o00008@000ol0000L0003o`00044000090003o`00024000?o0000 6`000ol0001100002P000ol0000P0003o`0001/000?o0000@@0000/000?o00007`000ol0000K0003 o`000440000<0003o`0001l000?o00006P000ol0001100003@000ol0000N0003o`0001X000?o0000 @@0000h000?o00007@000ol0000J0003o`000440000?0003o`0001d000?o00006@000ol000110000 40000ol0000L0003o`0001T000?o0000@@00014000?o00006`000ol0000I0003o`000440000B0003 o`0001/000?o000060000ol0001100004`000ol0000J0003o`0001P000?o0000@@0001@000?o0000 6@000ol0000H0003o`000440000E0003o`0001T000?o00005`000ol0001100005P000ol0000H0003 o`0001L000?o0000@@0001L000?o00005`000ol0000G0003o`000440000H0003o`0001L000?o0000 5P000ol0001100006@000ol0000F0003o`0001H000?o0000@@0001X000?o00005@000ol0000F0003 o`000440000K0003o`0001D000?o00005@000ol0001100005`02o`<000?o000050000ol000080003 o`0000X000?o0000;`02oa00000I00;o0P000ol0000C0003o`0000P00_l;0003o`0002d00_lB0000 6`001?l00?lE0003o`0000H000Co003o2P000ol0000/0003o`000180000L00;o00<0o`004`000ol0 00050003o`00008000?o00001`000ol0000Z00;o5@0001h00olC0003o`0000@000?o000010000ol0 00060003o`0002P00_lG00008002oa<000?o00000P000ol000060003o`0000D000?o00009`000ol0 000G00008P000ol0000@0005o`000?l02P000ol000040003o`0002D00_lJ00008`02oa0000Co003o 30000ol000030003o`0002<00_lL00009003o`l00_l>0003o`00008000?o00008P000ol0000L0000 9@000ol0o`0>0003o`0000h000Go0000o`0R00;o7`0002H000Co0?oo7P001?l00?lP00;o8@0002L0 00?o00000_lM0003o`3o01h00_lS0000:0001?l00002oa`00_lM0003o`0002<0000Y0003o`000080 00?o00006P000ol0000I00;o9P0002X000?o00000P02oaX00_lH00;o:00002/000?o00000`02oaP0 00?o0?l05P000ol0000X0000;0000ol0000400;o5P001?l00?lC00;o:`0002d000?o00001@000ol0 000C0005o`000?l04002obd0000^0003o`0000D00_lC0003o`00008000?o000030000ol0000]0000 ;`000ol0000600;o4@000ol000030003o`0000T00_l`0000<0000ol0000700;o3`000ol000040003 o`0000H00_lb0000<@000ol000080003o`0000`000?o00001@000ol0000300;o=000038000?o0000 2002o``000?o00001@000ol000020003o`0003@0000c0003o`0000T00_l:0003o`0000@000Co0000 0_lg0000=0000ol0000:0003o`0000L000?o00000`000ol00002ocT0000e0003o`0000X00_l70003 o`00008000Co003o>`0003H000?o00002`02o`D000Ko0000o`02oc`0000g0003o`0000`00_l30003 o`0000?o?P0003P000?o00003@001Ol00?l000;o@00003T000?o00003@05od40000j0003o`0000d0 0om20000>`000ol0000:00;o00<0ool00_m00000?0000ol000080009o`000?l0o`3o03l0000m0003 o`0000D00_l40005o`00o`000_lm0000?P000ol0000200;o1P001Ol0003o00800_lk0000?`001?l0 ool80003o`00008000Go0000o`0j0000@0000ol000080003o`0000<000Co00000_lh0000?P02o`03 0?l000P000?o000010000ol0000200;o=P0003`00_l40003o`0000H000?o00001@000ol000030003 o`0003<0000k0003o`0000D000?o00001@000ol000060003o`0000<00_lc0000>@02o`T000?o0000 10000ol000070003o`0000@00_la0000=`02o``000?o00000`000ol000080003o`0000D00_l_0000 =@02o`l000?o00000P000ol000090003o`0000H000?o0000;00003@000?o000040001Ol0003o00`0 00?o00001P02ob`0000b00;o50001?l00?l=0003o`0000L00_lZ0000<002oaL000?o0?l03P000ol0 00080003o`0002L0000^00;o6P02o`l000?o00002002obL0000]0003o`0001/000?o00003P000ol0 000900;o9@0002/00_lN00;o40000ol0000:0003o`000280000Y00;o80000ol0o`0@0003o`0000X0 0_lR00009`02ob8000Co003o40000ol0000;00;o800002H000?o00008P001Ol0003o010000?o0000 3002oah0000T00;o9@000ol000020003o`0000h000?o00003@000ol0000K00008P02obL000?o0000 0`000ol0000>0003o`0000d00_lK00008@000ol0000W0003o`0000@000?o00003P000ol0000>00;o 6@0001l00_lZ0003o`0000D000?o00003P000ol0000?0003o`0001H0000M00;o;0000ol000060003 o`0000h000?o00003`02oaH0000K00;o;P000ol000070003o`0000h000?o00004002oa@0000J0003 o`0002h000?o000020000ol0000>0003o`00014000?o00004@0001P00_la0003o`0000T000?o0000 3P000ol0000A00;o4@0001L000?o0000<@000ol0000:0003o`0000h000?o00004P000ol0000>0000 B`000ol0000;0003o`0000h000?o00008P0004/000?o000030000ol0000>0003o`000240001;0003 o`0000d000?o00003P000ol0000P0000B`000ol0000>0003o`0000h000?o00007`0004/000?o0000 3`000ol0000>0003o`0001h0001;0003o`00010000?o00003P000ol0000M0000B`000ol0000A0003 o`0000h000?o0000700004/000?o00004P000ol0000>0003o`0001/0001;0003o`0001<000?o0000 3P000ol0000J0000B`000ol0000D0003o`0000h000?o00006@0004/000?o00005@000ol0000>0003 o`0001P0001;0003o`0001H000?o00003P000ol0000G0000B`000ol0000G0003o`0000h000?o0000 5P0004/000?o000060000ol0000>0003o`0001D0001;0003o`0001T000?o00003P000ol0000D0000 B`000ol0000J0003o`0000h000?o00004`0004/000?o00006`000ol0000>0003o`000180001;0003 o`0001`000?o00003P000ol0000A0000B`000ol0000M0003o`0000h000?o0000400004/000?o0000 7P000ol0000>0003o`0000l0001;0003o`0001l000?o00003P000ol0000>0000B`000ol0000P0003 o`0000h000?o00003@0004/000?o00008@000ol0000>0003o`0000`0001;0003o`00028000?o0000 3P000ol0000;0000B`000ol0000S0003o`0000h000?o00002P0004/000?o000090000ol0000>0003 o`0000T0001;0003o`0002D000?o00003P000ol000080000B`000ol0000V0003o`0000h000?o0000 1`0004/000?o00009`000ol0000>0003o`0000H0001;0003o`0002P000?o00003P000ol000050000 M`000ol0000>0003o`0000@0001h0003o`0000h000?o00000`0007T000?o00003P000ol000020000 NP000ol0000=0003o`000080001k0003o`0000/000?o00000`0007`000?o00002@000ol000040000 O@000ol000070003o`0000D0001n0003o`0000D000?o00001P0007l000?o00000`000ol000070000 P0001Ol0003o00X000210003o`3o00/000220003o`0000X0002?0000S`0008l00000\ \>"], ImageRangeCache->{{{0, 142}, {164, 0}} -> {-0.0315005, -0.0369908, 0.00041877, 0.00041877}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[ "ShowLegend[\nMultipleListPlot[\n\tplottemp, elapsedarmy,\n\tDotShapes -> \ {NewMakeSymbol[snowflake],\n\t\t\t\t NewMakeSymbol[gun]},\n\tPlotRange -> \ {{-4, 55}, {-40, 120}},\n\tPlotJoined -> True,\n\tLineStyles \ ->{{AbsoluteThickness[1], Dashing[{0.01,0.02}]},\n\t{AbsoluteThickness[1], \ Dashing[{0.01,0.01}] }},\n\tPlotLabel -> \n\tFontForm[\"Napoleon's Return \ from Moscow\",\n\t{\"Helvetica-Bold\", 18}],\n\tAxesLabel -> {\"Days \ Elapsed\", \" \"},\n\tDisplayFunction -> Identity\n\t],\n{Graphics[If[#==1, \ snowflake, gun]]&, \n2, \"Soldiers [1000s]\", \"Temp [Deg R]\", \n\ LegendPosition -> {0.0, 0.15},\nLegendSize ->{1, 0.15}}]"], "Input", AspectRatioFixed->True, RenderingOptions->{"RenderThickness"->False}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .60296 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.488386 0.464576 0.30148 0.464576 [ [ 0 0 0 0 ] [ 1 .60296 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P p % Start of sub-graphic p .02381 .01436 .95296 .5886 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0677966 0.0169492 0.154508 0.00386271 [ [(10)] .23729 .15451 0 2 Msboxa [(20)] .40678 .15451 0 2 Msboxa [(30)] .57627 .15451 0 2 Msboxa [(40)] .74576 .15451 0 2 Msboxa [(50)] .91525 .15451 0 2 Msboxa [(Days Elapsed)] 1.025 .15451 -1 0 Msboxa p /Helvetica-Bold findfont 18 scalefont setfont [(Napoleon's Return from Moscow)] .5 .61803 0 -2 0 0 1 Mouter Mrotsboxa P [(-40)] .0553 0 1 0 Msboxa [(-20)] .0553 .07725 1 0 Msboxa [(20)] .0553 .23176 1 0 Msboxa [(40)] .0553 .30902 1 0 Msboxa [(60)] .0553 .38627 1 0 Msboxa [(80)] .0553 .46353 1 0 Msboxa [(100)] .0553 .54078 1 0 Msboxa [(120)] .0553 .61803 1 0 Msboxa [( )] .0678 .61803 0 -4 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p p .002 w .23729 .15451 m .23729 .16076 L s P [(10)] .23729 .15451 0 2 Mshowa p .002 w .40678 .15451 m .40678 .16076 L s P [(20)] .40678 .15451 0 2 Mshowa p .002 w .57627 .15451 m .57627 .16076 L s P [(30)] .57627 .15451 0 2 Mshowa p .002 w .74576 .15451 m .74576 .16076 L s P [(40)] .74576 .15451 0 2 Mshowa p .002 w .91525 .15451 m .91525 .16076 L s P [(50)] .91525 .15451 0 2 Mshowa p .001 w .10169 .15451 m .10169 .15826 L s P p .001 w .13559 .15451 m .13559 .15826 L s P p .001 w .16949 .15451 m .16949 .15826 L s P p .001 w .20339 .15451 m .20339 .15826 L s P p .001 w .27119 .15451 m .27119 .15826 L s P p .001 w .30508 .15451 m .30508 .15826 L s P p .001 w .33898 .15451 m .33898 .15826 L s P p .001 w .37288 .15451 m .37288 .15826 L s P p .001 w .44068 .15451 m .44068 .15826 L s P p .001 w .47458 .15451 m .47458 .15826 L s P p .001 w .50847 .15451 m .50847 .15826 L s P p .001 w .54237 .15451 m .54237 .15826 L s P p .001 w .61017 .15451 m .61017 .15826 L s P p .001 w .64407 .15451 m .64407 .15826 L s P p .001 w .67797 .15451 m .67797 .15826 L s P p .001 w .71186 .15451 m .71186 .15826 L s P p .001 w .77966 .15451 m .77966 .15826 L s P p .001 w .81356 .15451 m .81356 .15826 L s P p .001 w .84746 .15451 m .84746 .15826 L s P p .001 w .88136 .15451 m .88136 .15826 L s P p .001 w .0339 .15451 m .0339 .15826 L s P p .001 w .94915 .15451 m .94915 .15826 L s P p .001 w .98305 .15451 m .98305 .15826 L s P [(Days Elapsed)] 1.025 .15451 -1 0 Mshowa p .002 w 0 .15451 m 1 .15451 L s P p /Helvetica-Bold findfont 18 scalefont setfont [(Napoleon's Return from Moscow)] .5 .61803 0 -2 0 0 1 Mouter Mrotshowa P p .002 w .0678 0 m .07405 0 L s P [(-40)] .0553 0 1 0 Mshowa p .002 w .0678 .07725 m .07405 .07725 L s P [(-20)] .0553 .07725 1 0 Mshowa p .002 w .0678 .23176 m .07405 .23176 L s P [(20)] .0553 .23176 1 0 Mshowa p .002 w .0678 .30902 m .07405 .30902 L s P [(40)] .0553 .30902 1 0 Mshowa p .002 w .0678 .38627 m .07405 .38627 L s P [(60)] .0553 .38627 1 0 Mshowa p .002 w .0678 .46353 m .07405 .46353 L s P [(80)] .0553 .46353 1 0 Mshowa p .002 w .0678 .54078 m .07405 .54078 L s P [(100)] .0553 .54078 1 0 Mshowa p .002 w .0678 .61803 m .07405 .61803 L s P [(120)] .0553 .61803 1 0 Mshowa p .001 w .0678 .01545 m .07155 .01545 L s P p .001 w .0678 .0309 m .07155 .0309 L s P p .001 w .0678 .04635 m .07155 .04635 L s P p .001 w .0678 .0618 m .07155 .0618 L s P p .001 w .0678 .09271 m .07155 .09271 L s P p .001 w .0678 .10816 m .07155 .10816 L s P p .001 w .0678 .12361 m .07155 .12361 L s P p .001 w .0678 .13906 m .07155 .13906 L s P p .001 w .0678 .16996 m .07155 .16996 L s P p .001 w .0678 .18541 m .07155 .18541 L s P p .001 w .0678 .20086 m .07155 .20086 L s P p .001 w .0678 .21631 m .07155 .21631 L s P p .001 w .0678 .24721 m .07155 .24721 L s P p .001 w .0678 .26266 m .07155 .26266 L s P p .001 w .0678 .27812 m .07155 .27812 L s P p .001 w .0678 .29357 m .07155 .29357 L s P p .001 w .0678 .32447 m .07155 .32447 L s P p .001 w .0678 .33992 m .07155 .33992 L s P p .001 w .0678 .35537 m .07155 .35537 L s P p .001 w .0678 .37082 m .07155 .37082 L s P p .001 w .0678 .40172 m .07155 .40172 L s P p .001 w .0678 .41717 m .07155 .41717 L s P p .001 w .0678 .43262 m .07155 .43262 L s P p .001 w .0678 .44807 m .07155 .44807 L s P p .001 w .0678 .47898 m .07155 .47898 L s P p .001 w .0678 .49443 m .07155 .49443 L s P p .001 w .0678 .50988 m .07155 .50988 L s P p .001 w .0678 .52533 m .07155 .52533 L s P p .001 w .0678 .55623 m .07155 .55623 L s P p .001 w .0678 .57168 m .07155 .57168 L s P p .001 w .0678 .58713 m .07155 .58713 L s P p .001 w .0678 .60258 m .07155 .60258 L s P [( )] .0678 .61803 0 -4 Mshowa p .002 w .0678 0 m .0678 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p p .1 Mabswid .0678 .15451 m .0678 .16996 L .0678 .15451 L .08945 .16223 L .0678 .15451 L .08945 .14678 L .0678 .15451 L .0678 .13906 L .0678 .15451 L .04615 .14678 L .0678 .15451 L .04615 .16223 L .0678 .15451 L s P p .1 Mabswid .16949 .15451 m .16949 .16996 L .16949 .15451 L .19114 .16223 L .16949 .15451 L .19114 .14678 L .16949 .15451 L .16949 .13906 L .16949 .15451 L .14784 .14678 L .16949 .15451 L .14784 .16223 L .16949 .15451 L s P p .1 Mabswid .44068 .11974 m .44068 .13519 L .44068 .11974 L .46233 .12747 L .44068 .11974 L .46233 .11202 L .44068 .11974 L .44068 .10429 L .44068 .11974 L .41903 .11202 L .44068 .11974 L .41903 .12747 L .44068 .11974 L s P p .1 Mabswid .52542 .07339 m .52542 .08884 L .52542 .07339 L .54707 .08112 L .52542 .07339 L .54707 .06567 L .52542 .07339 L .52542 .05794 L .52542 .07339 L .50377 .06567 L .52542 .07339 L .50377 .08112 L .52542 .07339 L s P p .1 Mabswid .71186 .11202 m .71186 .12747 L .71186 .11202 L .73352 .11974 L .71186 .11202 L .73352 .10429 L .71186 .11202 L .71186 .09657 L .71186 .11202 L .69021 .10429 L .71186 .11202 L .69021 .11974 L .71186 .11202 L s P p .1 Mabswid .76271 .07725 m .76271 .09271 L .76271 .07725 L .78436 .08498 L .76271 .07725 L .78436 .06953 L .76271 .07725 L .76271 .0618 L .76271 .07725 L .74106 .06953 L .76271 .07725 L .74106 .08498 L .76271 .07725 L s P p .1 Mabswid .81356 .0618 m .81356 .07725 L .81356 .0618 L .83521 .06953 L .81356 .0618 L .83521 .05408 L .81356 .0618 L .81356 .04635 L .81356 .0618 L .79191 .05408 L .81356 .0618 L .79191 .06953 L .81356 .0618 L s P p .1 Mabswid .89831 .03863 m .89831 .05408 L .89831 .03863 L .91996 .04635 L .89831 .03863 L .91996 .0309 L .89831 .03863 L .89831 .02318 L .89831 .03863 L .87665 .0309 L .89831 .03863 L .87665 .04635 L .89831 .03863 L s P p .1 Mabswid .91525 .05408 m .91525 .06953 L .91525 .05408 L .9369 .0618 L .91525 .05408 L .9369 .04635 L .91525 .05408 L .91525 .03863 L .91525 .05408 L .8936 .04635 L .91525 .05408 L .8936 .0618 L .91525 .05408 L s P .008 w .0678 .15451 Mdot .16949 .15451 Mdot .44068 .11974 Mdot .52542 .07339 Mdot .71186 .11202 Mdot .76271 .07725 Mdot .81356 .0618 Mdot .89831 .03863 Mdot .91525 .05408 Mdot P [ .01 .02 ] 0 setdash 1 Mabswid .0678 .15451 m .16949 .15451 L .44068 .11974 L .52542 .07339 L .71186 .11202 L .76271 .07725 L .81356 .0618 L .89831 .03863 L .91525 .05408 L s P p p p .1 Mabswid .03774 .52658 m .09078 .55935 L .09431 .55717 L .0678 .54078 L .07133 .53859 L .06249 .53313 L .05896 .53532 L .05012 .51893 L .03774 .52658 L s P p .1 Mabswid .13944 .51113 m .19247 .5439 L .19601 .54172 L .16949 .52533 L .17303 .52314 L .16419 .51768 L .16065 .51987 L .15181 .50348 L .13944 .51113 L s P p .1 Mabswid .27503 .47636 m .32807 .50914 L .3316 .50695 L .30508 .49056 L .30862 .48838 L .29978 .48292 L .29625 .4851 L .28741 .46871 L .27503 .47636 L s P p .1 Mabswid .32588 .47636 m .37891 .50914 L .38245 .50695 L .35593 .49056 L .35947 .48838 L .35063 .48292 L .34709 .4851 L .33825 .46871 L .32588 .47636 L s P p .1 Mabswid .32588 .35275 m .37891 .38553 L .38245 .38335 L .35593 .36696 L .35947 .36477 L .35063 .35931 L .34709 .36149 L .33825 .34511 L .32588 .35275 L s P p .1 Mabswid .41063 .35275 m .46366 .38553 L .46719 .38335 L .44068 .36696 L .44421 .36477 L .43537 .35931 L .43184 .36149 L .423 .34511 L .41063 .35275 L s P p .1 Mabswid .41063 .28323 m .46366 .316 L .46719 .31382 L .44068 .29743 L .44421 .29524 L .43537 .28978 L .43184 .29197 L .423 .27558 L .41063 .28323 L s P p .1 Mabswid .49537 .28323 m .5484 .316 L .55194 .31382 L .52542 .29743 L .52896 .29524 L .52012 .28978 L .51658 .29197 L .50775 .27558 L .49537 .28323 L s P p .1 Mabswid .49537 .23301 m .5484 .26579 L .55194 .2636 L .52542 .24721 L .52896 .24503 L .52012 .23957 L .51658 .24175 L .50775 .22536 L .49537 .23301 L s P p .1 Mabswid .58012 .23301 m .63315 .26579 L .63669 .2636 L .61017 .24721 L .61371 .24503 L .60487 .23957 L .60133 .24175 L .59249 .22536 L .58012 .23301 L s P p .1 Mabswid .58012 .21756 m .63315 .25034 L .63669 .24815 L .61017 .23176 L .61371 .22958 L .60487 .22411 L .60133 .2263 L .59249 .20991 L .58012 .21756 L s P p .1 Mabswid .68181 .21756 m .73485 .25034 L .73838 .24815 L .71186 .23176 L .7154 .22958 L .70656 .22411 L .70303 .2263 L .69419 .20991 L .68181 .21756 L s P p .1 Mabswid .68181 .33344 m .73485 .36622 L .73838 .36403 L .71186 .34764 L .7154 .34546 L .70656 .34 L .70303 .34218 L .69419 .32579 L .68181 .33344 L s P p .1 Mabswid .73266 .33344 m .78569 .36622 L .78923 .36403 L .76271 .34764 L .76625 .34546 L .75741 .34 L .75387 .34218 L .74503 .32579 L .73266 .33344 L s P p .1 Mabswid .73266 .24846 m .78569 .28124 L .78923 .27905 L .76271 .26266 L .76625 .26048 L .75741 .25502 L .75387 .2572 L .74503 .24081 L .73266 .24846 L s P p .1 Mabswid .86825 .18666 m .92129 .21943 L .92482 .21725 L .89831 .20086 L .90184 .19868 L .893 .19321 L .88947 .1954 L .88063 .17901 L .86825 .18666 L s P p .1 Mabswid .8852 .17121 m .93824 .20398 L .94177 .2018 L .91525 .18541 L .91879 .18323 L .90995 .17776 L .90642 .17995 L .89758 .16356 L .8852 .17121 L s P .008 w .0678 .54078 Mdot .16949 .52533 Mdot .30508 .49056 Mdot .35593 .49056 Mdot .35593 .36696 Mdot .44068 .36696 Mdot .44068 .29743 Mdot .52542 .29743 Mdot .52542 .24721 Mdot .61017 .24721 Mdot .61017 .23176 Mdot .71186 .23176 Mdot .71186 .34764 Mdot .76271 .34764 Mdot .76271 .26266 Mdot .89831 .20086 Mdot .91525 .18541 Mdot P [ .01 .01 ] 0 setdash 1 Mabswid .0678 .54078 m .16949 .52533 L .30508 .49056 L .35593 .49056 L .35593 .36696 L .44068 .36696 L .44068 .29743 L .52542 .29743 L .52542 .24721 L .61017 .24721 L .61017 .23176 L .71186 .23176 L .71186 .34764 L .76271 .34764 L .76271 .26266 L .89831 .20086 L .91525 .18541 L s P P MathSubEnd P % End of sub-graphic p p .51161 .34794 m .51161 .41762 L .97619 .41762 L .97619 .34794 L F 1 g .48839 .37117 m .48839 .44085 L .95296 .44085 L .95296 .37117 L F 0 g .001 w .48839 .37117 m .95296 .37117 L .95296 .44085 L .48839 .44085 L .48839 .37117 L s % Start of sub-graphic p .48839 .37117 .95296 .44085 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.03125 0.3125 0.00681818 0.0681818 [ [ 0 0 0 0 ] [ 1 .15 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .15 L 0 .15 L closepath clip newpath p p p % Start of sub-graphic p .03125 .00682 .34375 .075 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 21.9943 0.309017 11.7721 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .004 w .5 .30902 m .5 .60332 L .5 .30902 L .97619 .45617 L .5 .30902 L .97619 .16187 L .5 .30902 L .5 .01472 L .5 .30902 L .02381 .16187 L .5 .30902 L .02381 .45617 L .5 .30902 L s MathSubEnd P % End of sub-graphic [(Temp [Deg R])] .35937 .04091 -1 0 Mshowa P p % Start of sub-graphic p .03125 .075 .34375 .14318 MathSubStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.529762 16.8359 0.332879 8.99904 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .004 w .02381 .12607 m .91667 .60332 L .97619 .5715 L .52976 .33288 L .58929 .30106 L .44048 .22152 L .38095 .25334 L .23214 .01472 L .02381 .12607 L s MathSubEnd P % End of sub-graphic [(Soldiers [1000s])] .35937 .10909 -1 0 Mshowa P P p P P MathSubEnd P % End of sub-graphic P P P 0 0 m 1 0 L 1 .60296 L 0 .60296 L closepath clip newpath % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{406, 244}, ImageMargins->{{48, Inherited}, {Inherited, Inherited}}, RenderingOptions->{"RenderThickness"->False}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc`0 0_l20003o`0000?oO@00020000?o0000kP05oh00000P0003o`000>l01?l20003o`0007/0000P0003 o`000>/01?l00`3o0004ogd0000P00;of@000ol0000>00?o0`03o`030?l000?o0P03ogH0000P0003 o`000=P000?o00002002o`/000?o0?l00ol0103ooomi000080000ol0003A00?o10000ol0000200;o 0P02o`d000Co00001?mk000080000ol000230003o`0004h00ol00`3o0003oa@00ol0103o0003ogP0 000P00;oQ0000ol000130003o`0000/00olE00;o10000ol0000300;oMP00020000?o0000P`000ol0 00130003o`0000P00ol00`3o0002oaT000?o0000N`00020000?o0000O@03o`<000?o00000P02ocl0 00?o00001P02o`@000Co00000_lG0003o`0007/0000A00Co0`02o`H000?o0000P004o`040?ooocX0 0ol40003o`0000801?l60003o`0000<000?o000050000ol0001k00004@001?l00?l20004o`00o`D0 00?o0000PP06ocd00ol00`3o0003o`X000?o0000V000018000?o00000P001?l00?l500?oO`03o`04 0?l000?o?P05o``000?o0000V00000/01?l40005o`000?l00P000ol000030003o`0007d01?l20003 o`0000<000?o00000P03oc<00ol00`3oo`0200?oY00001@000Co003o0P000ol000030003o`0007d0 0_l40003o`0000/000?o0000;P02o`D000?o00000`000ol0002Q00004@001?l00?l20004o`00o`D0 00?o0000P`000ol0000A00;o<0000ol0002W00004P02o`@00_l60003o`0009T000?o00009P02o`D0 00?o0000Y`0002000_mh00;o9P04oah000?o00001@000ol0002W000080000ol0001f0003o`000440 00?o00000`000ol0002`000080000ol0002X00Co3P000ol0002f000080000ol0001Z0003o`0004<0 1_l40003o`0000800_nb00008002obX01Ol200;o:@04o`<00_l60003o`0000800_lM00;o1002oad0 00?o00000ol00`3oo`03o`8000?o00000P02obP00ol400;oNP00020000?o0000:`001Ol0003o0080 00?o00009P001?l00?l20003o`0000?o0`001?l00003oa`000Co003o0P001?l00?lQ00Go10001Ol0 003o008000?o0000:0001?l00?l20003o`0007L0000P0003o`0002/000Go0000o`020003o`0002L0 00?o00000P001?l00?l200Co00@0oooo8@001?l00?l20003o`0001`00ol20003o`0000Ko0P001?l0 0?lZ0004o`00o`8000?o0000M`00020000?o0000:`001Ol0003o008000?o0000:0001Ol0003o0080 00?o00000P03ob800_l30004o`00oa`00_l50006o`000?l00_l30004o`00obL00ol30004o`00ogT0 000P0003o`0002/000Go0000o`020003o`0002T000Co003o0P000ol0o`04o`030?oo028000Co003o 0P000ol0000Q0003o`00008000?o0?l00`001?l00?lW0003o`0000<000Co003oN@0002000_lZ00?o 0`001?l00?lX0003o`3o00Co0P03o`<000Co00000_lM0004o`00o`8000Co003o8`000ol0000300;o 0`001?l00?lW0003o`0000<000Co003oN@00020000?o0000:`000ol0000200;o8P04o`@00_l400?o 1@000ol000030003o`0001/00_l400;o90000ol000040003o`0000800_lX00Co0`02ogX0000P0003 o`0004/01?lK0003o`000?l01`00020000?o0000A@02ob<000?o0000o`0700008002oa`000?o0000 7P02o`D00_oM00Co8004obT0000P0003o`0001/000?o00005@02o`D00_oX0003o`00020000?o0000 :@0001T00_l50003o`0000800_l@00;o1@000ol0000200;o3`02on<01?l300;o00<0ool00`001?l0 0003o`P01Ol200Go00@0ool00_l00`3o0002o`800ol400Co00@0ool00_lE00006`03o`8000?o0000 0_lD00?o0P000ol00002o`T00oo[0006o`00o`3o0P02o`<00_l60003o`0000H000Co003o10001?l0 0?l200;o0P02o`8000?o00000P001?l00?l40003o`0000;o5P0001h01OlI00Go0P04oo<000Co003o 0P04o`<000?o0?l00`02o`T000?o00001@001?l00004o`8000Go0000o`0200;o0`06o`<000?o0000 500000`0oolWo`P000Co003o1@001?l00?l20004o`00o`/00ol50003o`0000@000?o00000_l20003 o`3o00D000Co00000_l200;o5P0001H000?o00000P03o`8000?o00000ol40003o`0000L000?o0000 0P03o`8000?o00000ol30003o`0000L000?o00001`000ol000070003o`0000L000?o00001`000ol0 00070003o`0000L000?o00001`000ol000070003o`0000L000?o00001`000ol000070003o`0000L0 00?o00001`000ol000070003o`0000L000?o00001`000ol000070003o`0000H000?o00001`000ol0 00070003o`0000L000?o00001`000ol0000;0004o`00o`800ol200;o00@0oooo0P03o`P000Co003o 10001?l00003o`800_l00`3oo`0300?o0`03o`800_l00`3o000E00006@02o`D000?o00000`000ol0 000>00;o1@000ol000030003o`0000X000?o0000;`000ol0000_0003o`0002l000?o0000:@000ol0 00020003o`0001h01?lJ00Go10000ol0000L0003o`0001@0000P0003o`0001/000?o0000d@02odX0 0olL00?o5P0002000_lL0003o`000=0000Co003oP@00020000?o0000k@02o`<000?o0000OP000200 00?o0000k`02o`030?l007l0000P0003o`000>X00_l50003o`3o00;oO@00020000?o0000j@000ol0 o`0600;o0P000ol0001j00008002onT00_l20003o`0000D00oml000080000ol0003Z0004o`00o`H0 00Co0?ooN`00020000?o0000j`03o`030?l0008000Co00000omi000080000ol0003]00;o00<0o`00 1`03ogL0000P00;ok`04o`T00_mf000080000ol0003^0005o`3o0?l02@02ogD0000P0003o`000?40 1?mn000080000ol0002F00;o6`02ocD00_l70004o`3oog`0000P0003o`0009@00_l00`3o000I0003 o`3o03@000?o00002002o`030?l007X0000P00;oU002o`<000?o00005P02o`8000?o0000;@02o`l0 00?o0?l0NP00020000?o0000U@001?l00?lJ0004o`00ob`00_lB0003o`0007T0000A00Co0`02o`H0 00?o0000O@02oaL00ol00`3oo`0H00?o00<0ool0^@00014000Co003o0P001?l00?l50003o`0007`0 00?o0?l05P000ol0o`02o`8000?o00005`02o`8000?o00008`02oi40000B0003o`00008000Co003o 1@03og/000Go0000o`0D0008o`000?l0o`02o`801?l200?o0P04o`801?l200Go8P02oi<0000C0005 o`000?l00P000ol000030003o`0007X00_l30003o`0001400_l30003o`0000;o00<0o`006@02o`03 0?l001`00_nG000050001?l00?l20003o`0000<000?o0000O002o`030?l001@00_l00`3o000200;o 00<0ool06@02o`030?oo01X000?o0000U`00014000Co003o0P001?l00?l50003o`0007h000?o0?l0 0olC0003o`3o00?o00@0ool00_lI0004o`00o`800_lA00;oW00001800_l400;o1P000ol0001o00;o 0`000ol0000A00;o0`000ol00002o`030?l001D000?o00000_l01@3oo`3o010000?o0000W0000200 0_n200Co0P04o`801?l200Co0P05o`@000?o0?l05@000ol0000200?o0P000ol0000<0003o`0009d0 000P0003o`0008<00olF00?o10000ol0000D0003o`0000<000?o0?l00P000ol0000800;oX@000200 00?o0000P`000ol0o`02oaH00olI0003o`0000H00ol00`3oo`0500;oX`00020000?o0000Q`03oaH0 0olR00;o0P03ojL0000P00;oR@03oaH00olR00;o00<0ool0Z000020000?o0000P`000ol0000400;o 5`02oaD000?o00002`001?l00?nW000080000ol000230003o`0003@000?o00003002o`030?oo0:D0 000P0003o`0008<000?o0000=0000ol0000<0003o`3o008000?o0000XP00020000?o0000I002oaL0 0_l40003o`0003@000?o000030000ol00002o`030?l00:80000P00;oH`02o`030?l001@00_l00`3o 00190003o`00008000?o0?l0XP00020000?o0000H@02o`<000?o00004@02o`<000?o0000A`000ol0 00030003o`000:40000P0003o`0006<000Co003o5@001?l00?l30003o`0003@000?o0000]P000200 00?o0000I003o`030?oo01<00ol0103ooolf0003o`000;H0000P00;oI`02o`8000?o00004P02o`80 00?o0000=0000ol0000<0003o`000:L0000P0003o`0006P000Co003o5@001?l0oom40003o`000:L0 000P0003o`0006T00ol00`3oo`02o`030?oo00;o0P04o`801om40003o`000:L0000C0003o`000080 0_l60003o`0006X01?lF00?o<`000ol0000<0003o`000:L0000C0005o`000?l00P000ol000030003 o`0006X000?o0?l00olE00Co<@000ol0002f00004005o`8000Co003o1@03ofX000Co00001?lE00Co ;`000ol0002f000040001?l00?l30004o`00o`D000?o0000L0000ol0o`0F0003o`3o02h000?o0000 30000ol0002W00004@000ol0o`030004o`00o`D000?o0000L@000ol0000F0003o`0003`000?o0000 Y`0001800_l30004o`00o`D000?o0000JP000ol0001L0003o`000:L0000C0003o`0000800_l60003 o`0006X000?o0000C@000ol0000<0003o`000:L0000P00;oJ`000ol0001600;o1@000ol0000500;o [`00020000?o0000JP000ol000150003o`3o00D000?o000010000ol0o`2_000080000ol0002a00;o 0P000ol000020003o`0000<00_l20003o`00008000?o0000Y`00020000?o0000/`001?l00?l;0004 o`00o`<000?o0000Y`0002000_m[0003o`0004L00ol00`3oo`0900?o00@0ooooZ@00020000?o0000 JP000ol0001900;o0P000ol0000800;o0P000ol0002W000080000ol0001;00;o5`02o`@000?o0000 BP02o`030?oo00801?l200Co00<0ool0Z000020000?o0000B@02o`030?l001@00_l00`3o00030003 o`0004`000Co003o2`001?l00?nW000080000ol0001800;o0`000ol0000A00;o0`000ol0001A00;o 00<0ool02P02o`030?oo0:D0000P00;oB`02o`8000?o00004P02o`030?l005@000Co003o2`001?l0 0?nT000080000ol0001<0003o`0000?o4`000ol0o`03oe800_l00`3o000:00;o00<0o`00XP000200 00?o0000C@02o`<000?o00004@02o`800_mC0003o`3o00`000?o0?l0XP00020000?o0000C`07o`80 1?l200Co0P08oe@000?o000030000ol0002Q00008002oe800olF00?oo`07000080000ol0001A0003 o`3o00;o5P03ool01@0001800_l400;o1P000ol0001A0004o`0000?o5P03ool00`00014000Co003o 0P001?l00?l50003o`00054000?o00000P03oaH00ooo0080000A0004o`00o`8000Co003o1@000ol0 001A0003o`0000@00_lG00;oo`0100004@03o`<000Co003o1@03ool0M000014000?o00000`001?l0 0?l50003o`000?l0M000018000?o00000P001?l00?l50003o`00054000?o0000o`0P00004`02o`<0 0_l60003o`00054000?o0000o`0P00008002oe8000?o0000o`0P000080000ol0001A0003o`000?l0 8000020000?o0000o`1d000080000ol0003o07@0000P0003o`00054000?o0000F02ko``0000P00;o DP000ol0001H0;_o3000020000?o0000D@000ol0001H0;_o3000020000?o0000D@000ol0001H0;_o 3000020000?o0000[02ko``0000P00;o[@2ko``0000P0003o`00054000?o0000F02ko``0000P0003 o`00054000?o0000F02ko``0000P0003o`00054000?o0000CP35o``0000P0003o`00054000?o0000 CP000ol0002i00Wo300002000_nS0003o`00020000?o0000UP09o``0000P0003o`000:8000?o0000 80000ol0000`00Co2P02o`l00ol@00;o0003 o`00020000?o0000<@000ol0000:0003o`00014000?o00003P000ol0000`00Wo3000014000Co003o 0P001?l00?l50003o`00054000?o0000CP000ol0000G00?o1P000ol0000500?o5`03o`@01?l02@3o 0?l0o`3o0002o`T000Co00001?l400Co00D0ool0o`0700?o00<0ool00`000ol0000`00Wo30000140 00Co003o0P001?l00?l500?oD@000ol0001>0003o`0001X00ol30003o`0000800olK0003o`000080 00?o00000`001_l0o`3o00;o0P000ol000060003o`00008000Co003o0P000ol000020003o`0000;o 20001?l00?l40003o`0003002Ol<00004P02o`<000Co003o1@000ol0001A0003o`0004h000?o0000 7@04o`040?oooah000?o00000P05o`080?l0o`3o0?l30003o`0000H000?o00000P001?l00?l200Ko 0`000ol0000600?o1@000ol0000`00Wo3000014000Co003o0P001?l00?l50003o`0003`00_l=00;o E@000ol0000O00Co80000ol0000200000Co0P02o`D01?n30003o`0002L00_l00`3o002=0003o`000180000;00Go0P02o`@0 0_l00`3o0004o`X01?lA0003o`3o088000?o0000:@000ol0002=0003o`000180000=0005o`000?l0 0P001?l00?l20004o`3oo`800_l300Co6004oh00_OlD00003@001Ol0003o008000Co003o0P001?l0 0006oal000?o0?l0o`1A00003@001Ol0003o008000Co003o0P000ol000030003o`3o024000?o0000 o`1@00003@001Ol0003o008000Co003o0P000ol0000300Goo`1b00002`03o`<000Co003o0P001?l0 0?l50003o`0000?oo`1a00003@000ol0000200;o1002o`H000?o00000P02ool0L00002000_l400;o o`1_000080000ol0003o07@0000P0003o`000?l0M000020000?o0000o`1d00008002ool0M@000200 00?o0000o`1d000080000ol0003o07@0000P0003o`000?l0M000020000?o0000o`1d00008002ool0 M@00020000?o0000o`1d000080000ol0003o07@0000P0003o`000?l0M00002000_oo07D0000P0003 o`000?l0M00000/01Ol00`3oo`02o`<00_l60003o`000?l0M00000d000Go0000o`020004o`00o`80 00?o00000`000ol0003o07@0000=0003o`00008000?o00000P001?l00?l50003o`000?l0M00000d0 00?o00000`001Ol0003o008000?o00000`03ool0M00000d000?o000010001?l00?l20003o`000?l0 NP0000/00ol30004o`00o`8000Co003oo`1l00003@000ol0000200;o1002ool0O@000?l0U`000?l0 U`000?l0U`000?l0U`000?l0U`000?l0U`0002X00ooo06X0000Z00?oo`1Z0000:P03ool0JP0002X0 0ooo06X0000C00?o1003o`@01?l01@3oool000?o00@0oooo1`04o`@00ol400Go1P04o`@00ol300?o 2005o`P00ol500?o1005o`D01?l00`3oo`02o`040?ooo`800ol400?o0`03o`P00ol200?o1`04o`@0 0ol300?o0`03o`H00ol200?o0P03o`D01?l600Go1@05o`H01?l500Co0`03ofh0000C00?o0`04o`<0 2?l200So1008o`800ol300Oo0`08o`800ol300?o1P08o`L00ol500?o0`07o`<03_l200?o1003o`<0 0ol800?o0P03o`D02?l200?o0`03o`<00ol600?o0P03o`800ol300So0P08o`<01ol300So0`04o`<0 1?m]00004`03o`<01?l300?o0P03o`801?l00`3oo`02o`<00ol200?o0P03o`801?l200?o0P03o`80 0ol200?o0`03o`H00ol300?o1P03o`D00ol200Co0P03o`800ol200?o0P04o`800ol400?o0`03o`P0 0ol200?o1@03o`800ol200?o0`03o`<00ol600?o0P03o`800ol300?o0P03o`800ol300?o0P03o`80 0ol200?o0P03o`<01?l300CoK@0001<00ol200Go0`03o`800ol200?o0`03o`800ol400?o00@0oooo 0P03o`L00ol400?o00@0oooo0`03o`/01?l600?o1@03o`800ol800?o0P03o`<00ol200?o1003o`<0 0ol800?o0P03o`@00ol400?o00@0oooo0`03o`<00ol600?o0P000ol0o`0200?o0P03o`@00ol600Co 00@0oooo0`03o`040?ooo`@00ol200;o00@0ool00_l00`3oo`1]00004`03o`801Ol300Co00@0oooo 0P03o`<00ol200?o1003o`040?ooo`802Ol0103oool400?o00@0oooo0`03o`P01ol600?o1@03o`80 2Ol200?o0P03o`<00ol200?o1003o`<00ol800?o0P03o`@00ol400?o00@0oooo0`03o`<00ol600?o 00@0ool00_l0103oool200?o1003o`<01ol0103oool700?o1003o`050?ooo`000_l0103oo`03of`0 000C00?o00<0ool01?l400Oo0P03o`<00ol200?o1003o`040?ooo`802Ol0103oool400?o00@0oooo 0`03o`H01ol800[o0`09o`800ol200?o0`03o`800ol400?o0`03o`P00ol200?o1003o`@00ol0103o ool300?o0`03o`H00ol0103oo`02o`040?ooo`800ol400?o00<0ool01Ol300?o1`03o`@00ol01@3o ool000;o00@0ool00om/00004`03o`040?oo00?o2003o`800ol300?o0P03o`@00ol0103oool200?o 0`03o`040?ooo`@00ol0103oool300?o1P04o`/02_l300?o0`03o`800ol200?o0`03o`801?l300?o 0`03o`P00ol200Co0`03o`@00ol0103oool300?o0`03o`H00ol0103oo`02o`040?ooo`800ol400?o 00<0ool00_l600?o0`03o`040?ooo`@00ol01@3oool000;o00@0ool00om/00004`06o`040?ooo`<0 0ol200?o0P04o`030?oo00;o0`03o`800ol200?o0P03o`<00ol200?o0P03o`801?l200?o1P03o`<0 0ol600?o1@03o`800ol300?o0P03o`800ol300?o0P06o`030?oo00;o0P03o`P00ol200Ko0P03o`80 0ol200Co0P04o`800ol600?o00<0o`000P000ol0o`02o`<00ol200?o0P03o`<00ol200?o0P03o`80 0ol200?o0P03o`800ol200?oK00001<01Ol200?o0`08o`802?l400So0P03o`<01ol300So0P09o`80 0_l300Oo1`03o`D00ol300Oo0P09o`<00ol200Ko00<0ool01ol700co0P08o`803ol600Go0`05o`<0 2?l300Oo0`07o`<02?l0103oool300?o0`03of/0000C00Go0P03o`D01?l400?o00@0oooo1`04o`@0 0ol400Go1P04o`@00ol00`3oo`02o`<00_l400Go2003o`D00ol400Go0`09o`<00ol200?o00@0ool0 0ol00`3oo`02o`P02Ol00`3oo`0400Co1003o`030?oo00;o0P04o`L01Ol300Go1@04o`H01Ol500Go 1P04o`<00ol300?o0`03of/0000C00Co0`03ob<00olR00;o4@03o`D00ol=00?o9@03obT01Ol300Go Y@0001<01?l300?o8`03ob800_lA00[o3P03obD01OlW00Co1@04ojD0000C00?o1003ob<00olR00;o 4@09ocP01?lW00Co1@04ojD0003o09L0003o09L0003o09L0003o09L0003o09L0003o09L0003o09L0 003o09L0003o09L0003o09L0003o09L0003o09L0003o09L0003o09L0003o09L00000\ \>"], ImageRangeCache->{{{0, 405}, {243, 0}} -> {-1.05657, -0.648942, 0.00534109, 0.00534109}, {{10.5625, 385}, {237.188, 5.75}} -> {-6.46765, -57.5121, 0.201055, 0.88221}, {{197.812, 385}, {93.375, 65.3125}} -> {-3.48446, -11.8302, 0.0171048, 0.0783972}, {{203.688, 262.125}, {92.0625, 79.3125}} -> {-0.513304, -0.647758, 0.00220391, 0.00411765}, {{203.688, 262.125}, {79.3125, 66.5625}} -> {-0.672345, -0.918695, 0.00287917, 0.00538651}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell[TextData["Minard's Chart and Full use of Primitives"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "TempData = {{0.955, 0.306, 0},{0.885, 0.304, 0},{0.7, 0.259, -9},\n{0.612, \ 0.228, -21},{0.433, 0.177, -11},{0.372, 0.17, -20},\n{0.316, 0.201, -24}, \ {0.279, 0.181, -30},{0.158, 0.195, -26}};\n"], "Input", AspectRatioFixed->True, FontSize->6], Cell[TextData[ "TitleData = {{0.5,0.45, \"Napoleon's Russian Campaign of 1812\"}};\n\ PointData = {{0.965,0.396, \"Moscow\"}};\nTextData = {{0.98, 0.085, \"0\"}, \ {0.98, 0.026, \"-30\"},\n {0.111, 0.1502, \"R. Niemen\"}, {0.37, 0.20, \"R. \ Berezina\"},\n{0.5,0.015,\"Temperature in degrees Reaumur - return march\"},\n\ {0.1, 0.22, \"422,000\"},{0.9, 0.38, \"100,000\"},{0.04, 0.175, \"10,000\"},\n\ {0.4, 0.4, \"Strength of army = approximate thickness of track\"},\n{0.4, \ 0.38, \"Return marches shown in black\"}};"], "Input", AspectRatioFixed->True, FontSize->12], Cell[TextData[ "StrengthData = {\n{{0.142, 0.238, 50000, 1},{0.257, 0.331, 50000, 1},{0.312, \ 0.326, 50000, 1},\n{0.312, 0.326, 33000, 1},{0.392, 0.318, 33000, \ 0}},{{0.392, 0.318, 30000, 0},\n{0.433, 0.177, 30000, 0}},{{0.105, 0.242, \ 22000, 1},{0.111,0.351, 22000, 1}},\n{{0.103, 0.353, 6000, 0},{0.0916,0.193, \ 6000, 0}},{{0.0565, 0.23, 422000,1},\n{0.105, 0.242, 422000, 1},{0.105, \ 0.242, 400000, 1},{0.181, 0.234, 400000, 1},\n{0.181, 0.234, 340000, \ 1},{0.333, 0.273, 257000, 1},{0.476, 0.288, 175000, 1},\n{0.595, 0.250, \ 145000, 1},{0.704, 0.290, 136000, 1},{0.789, 0.368, 127000, 1},\n{0.84 , \ 0.355, 127000, 1},{0.84, 0.355, 100000, 1},{0.856, 0.349, 100000, 1},\n\ {0.955, 0.4 , 100000, 1}},{{0.965, 0.382,100000, 0},{0.953, 0.374, 100000, \ 0},\n{0.945, 0.312, 100000, 0},{0.932, 0.302, 98000, 0},{0.838, 0.326, \ 87000, 0},\n{0.768, 0.296, 87000, 0},{0.768, 0.296, 55000, 0},{0.7, \ 0.259, 55000, 0},\n{0.7 , 0.259, 37000, 0},{0.612, 0.228, 37000, \ 0},{0.612, 0.228, 24000, 0},\n{0.511, 0.209, 24000, 0},{0.511, 0.209, \ 20000, 0},{0.433, 0.177, 20000, 0},\n{0.433, 0.177, 50000, 0},{0.390, \ 0.162, 50000, 0},{0.380, 0.164, 50000, 0},\n{0.380, 0.164, 28000, \ 0},{0.316, 0.201, 22000, 0},{0.279, 0.181, 22000, 0},\n{0.248, 0.191, \ 14000, 0},{0.158, 0.195, 8000, 0},{0.125, 0.193, 8000, 0},\n{0.125, \ 0.193, 4000, 0},{0.0916,0.193, 4000, 0},{0.0916,0.193, 10000, 0},\n\ {0.0682,0.193, 10000, 0}}};"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True, AnimationCycleOffset->0.0625, AnimationCycleRepetitions->Infinity, FontSize->6], Cell[TextData[ "RiverData = {{{0.39, 0.123}, {0.39, 0.131}, {0.388, 0.135}, {0.388, 0.14}, \ {0.382, 0.144}, \n {0.382, 0.152}, {0.378, 0.156}, \n {0.38, 0.17}, {0.376, \ 0.17}, {0.378, 0.177}, {0.374, 0.187}, {0.376, 0.195}, {0.372, 0.199}, \ {0.366, 0.199}, \n {0.357, 0.203}, {0.349, 0.214}}, {{0.513, 0.123}, \ {0.513, 0.133}, {0.511, 0.138}, {0.509, 0.15}, {0.517, 0.166}, \n {0.517, \ 0.181}, {0.509, 0.185}, {0.511, 0.195}, {0.509, 0.199}, {0.511, 0.207}, \ {0.513, 0.212}, {0.522, 0.226}, \n {0.536, 0.23}, {0.548, 0.23}, {0.55, \ 0.234}}, \n {{0.0702, 0.121}, {0.0712, 0.13}, {0.076, 0.134}, {0.077, \ 0.142}, {0.0721, 0.148}, {0.0673, 0.153}, \n {0.0653, 0.156}, {0.0692, \ 0.161}, {0.0721, 0.165}, {0.0712, 0.169}, {0.0692, 0.173}, {0.0692, 0.175}, \n\ {0.0712, 0.179}, {0.076, 0.184}, {0.076, 0.191}, {0.0702, 0.202}, {0.0692, \ 0.212}, {0.0682, 0.218}, \n {0.0624, 0.222}, {0.0575, 0.224}, {0.0546, \ 0.23}, {0.0575, 0.238}, {0.0585, 0.245}, {0.0585, 0.251}, \n {0.0546, \ 0.255}, {0.0546, 0.259}, {0.0507, 0.265}, {0.0507, 0.271}, {0.0448, 0.275}, \ {0.039, 0.276}, \n {0.0331, 0.275}, {0.0292, 0.277}, {0.0292, 0.283}, \ {0.0292, 0.287}, {0.0224, 0.286}, {0.0175, 0.281}, \n {0.0146, 0.278}, \ {0.0107, 0.278}, {0.00487, 0.278}}, \n {{0.847, 0.363}, {0.847, 0.365}, \ {0.847, 0.371}, \n {0.844, 0.374}, {0.843, 0.379}, {0.841, 0.381}, {0.833, \ 0.382}, \n {0.830, 0.383}, {0.828, 0.383}, {0.825, 0.383}, {0.822, 0.383}, \ {0.821, 0.385}, {0.817, 0.386}, \n {0.814, 0.388}, {0.813, 0.392}, {0.811, \ 0.394}, {0.809, 0.397}, {0.807, 0.4}, \n {0.804, 0.402}, {0.804, 0.405}, \ {0.802, 0.407}, {0.798, 0.411}, {0.794, 0.415}}};"], "Input", AspectRatioFixed->True, FontSize->6], Cell[TextData[ "StrengthData = {\n{{0.142, 0.238, 50000, 1},{0.257, 0.331, 50000, 1},{0.312, \ 0.326, 50000, 1},\n{0.312, 0.326, 33000, 1},{0.392, 0.318, 33000, \ 0}},{{0.392, 0.318, 30000, 0},\n{0.433, 0.177, 30000, 0}},{{0.105, 0.242, \ 22000, 1},{0.111,0.351, 22000, 1}},\n{{0.103, 0.353, 6000, 0},{0.0916,0.193, \ 6000, 0}},{{0.0565, 0.23, 422000,1},\n{0.105, 0.242, 422000, 1},{0.105, \ 0.242, 400000, 1},{0.181, 0.234, 400000, 1},\n{0.181, 0.234, 340000, \ 1},{0.333, 0.273, 257000, 1},{0.476, 0.288, 175000, 1},\n{0.595, 0.250, \ 145000, 1},{0.704, 0.290, 136000, 1},{0.789, 0.368, 127000, 1},\n{0.84 , \ 0.355, 127000, 1},{0.84, 0.355, 100000, 1},{0.856, 0.349, 100000, 1},\n\ {0.955, 0.4 , 100000, 1}},{{0.965, 0.382,100000, 0},{0.953, 0.374, 100000, \ 0},\n{0.945, 0.312, 100000, 0},{0.932, 0.302, 98000, 0},{0.838, 0.326, \ 87000, 0},\n{0.768, 0.296, 87000, 0},{0.768, 0.296, 55000, 0},{0.7, \ 0.259, 55000, 0},\n{0.7 , 0.259, 37000, 0},{0.612, 0.228, 37000, \ 0},{0.612, 0.228, 24000, 0},\n{0.511, 0.209, 24000, 0},{0.511, 0.209, \ 20000, 0},{0.433, 0.177, 20000, 0},\n{0.433, 0.177, 50000, 0},{0.390, \ 0.162, 50000, 0},{0.380, 0.164, 50000, 0},\n{0.380, 0.164, 28000, \ 0},{0.316, 0.201, 22000, 0},{0.279, 0.181, 22000, 0},\n{0.248, 0.191, \ 14000, 0},{0.158, 0.195, 8000, 0},{0.125, 0.193, 8000, 0},\n{0.125, \ 0.193, 4000, 0},{0.0916,0.193, 4000, 0},{0.0916,0.193, 10000, 0},\n\ {0.0682,0.193, 10000, 0}}};"], "Input", PageBreakWithin->Automatic, AspectRatioFixed->True, FontSize->6], Cell[TextData[ "BoxData = {{{0, 0.121},{1.05, 0.121},{1.05, 0}, {0, 0}, {0, 0.121}},\n{{0, \ 0.121}, {1.05, 0.121}, {1.05, 0.474}, {0, 0.474}, {0, 0.121}}\n};"], "Input", AspectRatioFixed->True, FontSize->6], Cell[TextData["Needs[\"Minard`\"]"], "Input", AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData["?Minard"], "Input", AspectRatioFixed->True], Cell[TextData[ "Minard.m is a package for producing thematic maps in the style of C. J. \ Minard"], "Info", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[CellGroupData[{Cell[TextData[ "NapoleonicMarchOnMoscowAndBackAgainPlot[StrengthData, TempData, RiverData,\n\ BoxData, TitleData, PointData, TextData]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.907029 0.0147151 1.24178 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p p p p 0 1 0 r .15532 .30566 m .25827 .41964 L .25556 .43185 L .14989 .31486 L F P p 0 1 0 r .25827 .41964 m .30639 .41365 L .30721 .42542 L .25556 .43185 L F P p 0 1 0 r .30639 .41365 m .30652 .41565 L .30709 .42342 L .30721 .42542 L F P p 0 1 0 r .30652 .41565 m .37908 .40572 L .37965 .41348 L .30709 .42342 L F P P p p 0 0 0 r .37688 .40861 m .41406 .23352 L .41904 .2355 L .38185 .41059 L F P P p p 0 1 0 r .12095 .31508 m .12639 .45044 L .12259 .45072 L .11715 .31537 L F P P p p 0 0 0 r .11672 .45311 m .10638 .25443 L .10741 .25433 L .11775 .45301 L F P P p p 0 1 0 r .08381 .25188 m .12159 .26468 L .1165 .36578 L .0663 .34877 L F P p 0 1 0 r .12159 .26468 m .11543 .26818 L .12266 .36227 L .1165 .36578 L F P p 0 1 0 r .11543 .26818 m .19055 .25735 L .18542 .35323 L .12266 .36227 L F P p 0 1 0 r .19055 .25735 m .19528 .26634 L .18068 .34424 L .18542 .35323 L F P p 0 1 0 r .19528 .26634 m .32979 .32373 L .32191 .38372 L .18068 .34424 L F P p 0 1 0 r .32979 .32373 m .45398 .35131 L .45713 .39338 L .32191 .38372 L F P p 0 1 0 r .45398 .35131 m .56377 .30704 L .56321 .34328 L .45713 .39338 L F P p 0 1 0 r .56377 .30704 m .66859 .36083 L .65613 .38883 L .56321 .34328 L F P p 0 1 0 r .66859 .36083 m .7425 .45513 L .73641 .48825 L .65613 .38883 L F P p 0 1 0 r .7425 .45513 m .78242 .4412 L .78901 .4699 L .73641 .48825 L F P p 0 1 0 r .78242 .4412 m .78268 .44447 L .78875 .46662 L .78901 .4699 L F P p 0 1 0 r .78268 .44447 m .80078 .43518 L .79967 .46101 L .78875 .46662 L F P p 0 1 0 r .80078 .43518 m .89398 .50091 L .88607 .52194 L .79967 .46101 L F P P p p 0 0 0 r .8943 .49892 m .88014 .48599 L .89627 .47229 L .90388 .47923 L F P p 0 0 0 r .88014 .48599 m .87284 .40853 L .88906 .39577 L .89627 .47229 L F P p 0 0 0 r .87284 .40853 m .86726 .40236 L .87106 .37711 L .88906 .39577 L F P p 0 0 0 r .86726 .40236 m .78329 .43037 L .78451 .4087 L .87106 .37711 L F P p 0 0 0 r .78329 .43037 m .71712 .39155 L .72369 .37301 L .78451 .4087 L F P p 0 0 0 r .71712 .39155 m .71814 .388 L .72268 .37657 L .72369 .37301 L F P p 0 0 0 r .71814 .388 m .65679 .3423 L .66067 .33037 L .72268 .37657 L F P p 0 0 0 r .65679 .3423 m .65767 .34046 L .65979 .33221 L .66067 .33037 L F P p 0 0 0 r .65767 .34046 m .57808 .30208 L .57974 .2936 L .65979 .33221 L F P p 0 0 0 r .57808 .30208 m .57853 .30063 L .57929 .29505 L .57974 .2936 L F P p 0 0 0 r .57853 .30063 m .48671 .27698 L .48789 .27151 L .57929 .29505 L F P p 0 0 0 r .48671 .27698 m .48665 .27644 L .48796 .27206 L .48789 .27151 L F P p 0 0 0 r .48665 .27644 m .41594 .23672 L .41717 .2323 L .48796 .27206 L F P p 0 0 0 r .41594 .23672 m .41513 .24009 L .41798 .22893 L .41717 .2323 L F P p 0 0 0 r .41513 .24009 m .37724 .222 L .37786 .20977 L .41798 .22893 L F P p 0 0 0 r .37724 .222 m .37003 .22397 L .36694 .21276 L .37786 .20977 L F P p 0 0 0 r .37003 .22397 m .36969 .22123 L .36727 .2155 L .36694 .21276 L F P p 0 0 0 r .36969 .22123 m .31046 .26729 L .3104 .26133 L .36727 .2155 L F P p 0 0 0 r .31046 .26729 m .27668 .24229 L .27706 .23666 L .3104 .26133 L F P p 0 0 0 r .27668 .24229 m .24897 .25354 L .24854 .25025 L .27706 .23666 L F P p 0 0 0 r .24897 .25354 m .16711 .25781 L .16713 .25591 L .24854 .25025 L F P p 0 0 0 r .16711 .25781 m .13717 .25532 L .13721 .25343 L .16713 .25591 L F P p 0 0 0 r .13717 .25532 m .13719 .25485 L .13719 .25391 L .13721 .25343 L F P p 0 0 0 r .13719 .25485 m .10689 .25485 L .10689 .25391 L .13719 .25391 L F P p 0 0 0 r .10689 .25485 m .10689 .25556 L .10689 .2532 L .10689 .25391 L F P p 0 0 0 r .10689 .25556 m .08567 .25556 L .08567 .2532 L .10689 .2532 L F P P P p p .001 w .89002 .12846 m .16712 .12846 L s P p .001 w .89002 .10508 m .16712 .10508 L s P p .001 w .89002 .08169 m .16712 .08169 L s P p .001 w .89002 .0583 m .16712 .0583 L s P p .001 w .89002 .3947 m .89002 .12846 L s P p .001 w .82653 .39222 m .82653 .12846 L s P p .001 w .65873 .33634 m .65873 .10741 L s P p .001 w .57891 .29784 m .57891 .07935 L s P p .001 w .41655 .23451 m .41655 .10274 L s P p .001 w .36122 .22582 m .36122 .08169 L s P p .001 w .31043 .26431 m .31043 .07233 L s P p .001 w .27687 .23948 m .27687 .0583 L s P p .001 w .16712 .25686 m .16712 .06766 L s P p .001 w .89002 .12846 m .82653 .12846 L s P p .001 w .82653 .12846 m .65873 .10741 L s P p .001 w .65873 .10741 m .57891 .07935 L s P p .001 w .57891 .07935 m .41655 .10274 L s P p .001 w .41655 .10274 m .36122 .08169 L s P p .001 w .36122 .08169 m .31043 .07233 L s P p .001 w .31043 .07233 m .27687 .0583 L s P p .001 w .27687 .0583 m .16712 .06766 L s P P p p 0 0 1 r .001 w .37755 .16745 m .37755 .17739 L .37574 .18236 L .37574 .18856 L .37029 .19353 L .37029 .20347 L .36667 .20843 L .36848 .22582 L .36485 .22582 L .36667 .23451 L .36304 .24693 L .36485 .25686 L .36122 .26183 L .35578 .26183 L .34762 .2668 L .34036 .28046 L s P p 0 0 1 r .001 w .48912 .16745 m .48912 .17987 L .4873 .18608 L .48549 .20098 L .49274 .22085 L .49274 .23948 L .48549 .24444 L .4873 .25686 L .48549 .26183 L .4873 .27176 L .48912 .27797 L .49728 .29536 L .50998 .30032 L .52086 .30032 L .52268 .30529 L s P p 0 0 1 r .001 w .08748 .16497 m .08839 .17615 L .09274 .18111 L .09365 .19105 L .08921 .1985 L .08485 .20471 L .08304 .20843 L .08658 .21464 L .08921 .21961 L .08839 .22458 L .08658 .22954 L .08658 .23203 L .08839 .23699 L .09274 .2432 L .09274 .2519 L .08748 .26555 L .08658 .27797 L .08567 .28542 L .08041 .29039 L .07596 .29287 L .07333 .30032 L .07596 .31026 L .07687 .31895 L .07687 .3264 L .07333 .33137 L .07333 .33634 L .0698 .34379 L .0698 .35124 L .06444 .3562 L .05918 .35745 L .05383 .3562 L .05029 .35869 L .05029 .36614 L .05029 .37111 L .04413 .36986 L .03968 .36366 L .03705 .35993 L .03351 .35993 L .02823 .35993 L s P p 0 0 1 r .001 w .79206 .46548 m .79206 .46796 L .79206 .47542 L .78934 .47914 L .78844 .48535 L .78662 .48783 L .77937 .48908 L .77664 .49032 L .77483 .49032 L .77211 .49032 L .76939 .49032 L .76848 .4928 L .76485 .49404 L .76213 .49653 L .76122 .50149 L .75941 .50398 L .7576 .5077 L .75578 .51143 L .75306 .51391 L .75306 .51764 L .75125 .52012 L .74762 .52509 L .74399 .53005 L s P P p p 0 0 0 r .002 w .02381 .16497 m .97619 .16497 L .97619 .01472 L .02381 .01472 L .02381 .16497 L s P p 0 0 0 r .002 w .02381 .16497 m .97619 .16497 L .97619 .60332 L .02381 .60332 L .02381 .16497 L s P P p /Helvetica-Bold findfont 14 scalefont setfont [(Napoleon's Russian Campaign of 1812)] .47732 .57352 0 0 Mshowa P p p .008 w .89909 .50646 Mdot p /Times-Roman findfont 8 scalefont setfont [(Moscow)] .90816 .51888 0 -1 Mshowa P P P p p /Times-Roman findfont 6 scalefont setfont [(0)] .9127 .12027 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(-30)] .9127 .047 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(R. Niemen)] .12449 .20123 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(R. Berezina)] .35941 .26307 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(Temperature in degrees Reaumur - return march)] .47732 .03334 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(422,000)] .11451 .28791 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(100,000)] .84014 .48659 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(10,000)] .06009 .23203 0 -1 Mshowa P p /Times-Roman findfont 6 scalefont setfont [(Strength of army = approximate thickness of track)] .38662 .51143 0 -1 \ Mshowa P p /Times-Roman findfont 6 scalefont setfont [(Return marches shown in black)] .38662 .48659 0 -1 Mshowa P P P % End of Graphics MathPictureEnd\ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{382, 236}, ImageMargins->{{32, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[oooclo5H/1EGooj[ooc/k>gYjN[Vi^OShn03o oclo?ginO[fm_Oclo5D00:X00?l00000EED0EJX00=d81Slo?ginO[fm_Oclo0<30d92@X61PL30`000 EED0EJX0EOl0E@00ZUD0ZZX0E@<30d92@X61PL30`000E@L71dI6AXF5QLC4a000ZUD0ZZX0Z_l0ZP00 e5D0ojX0ZPL71dI6AXF5QLC4a000ZP/;2dY:BXV9RLS8b000oeD0ojX0ool0o`1E05EE0:X0o`/;2dY: BXV9RLS8b000o`l?3di>CXf=SLcCXf=SLc`000ol0000K00GoM0000ol0000800002@000ol0000c0003o`0002L000?o0000 2P000ol0000@0003o`00018000?o0000>`000ol0000K0003o`0000802?m/0003o`0000P000090003 o`0003<000?o00009`000ol0000:0003o`00010000?o00004P000ol0000k0003o`0001/000?o0000 2P08of@000?o0000200000T000?o0000<`000ol0000W0003o`0000X000?o000040000ol0000B0003 o`0003/000?o00006`000ol0000B00SoG0000ol0000800002@000ol0000c0003o`0002L000?o0000 2P000ol0000@0003o`00018000?o0000>`000ol0000K0003o`0001X02?mD0003o`0000P000090003 o`0003<000?o00009`000ol0000:0003o`00010000?o00004P000ol0000k0003o`0001/000?o0000 8P08od`000?o0000200000T000?o0000<`000ol0000W0003o`0000X000?o000040000ol0000B0003 o`0003/000?o00006`000ol0000Z00SoA0000ol0000800002@000ol0000c0003o`0002L000?o0000 2P000ol0000@0003o`00018000?o0000>`000ol0000K0003o`0003802?lS0003o`0001H000?o0000 200000T000?o0000<`3ooaGo1P000ol0o`0G0003o`0000P000090003o`0003<000?o00009`000ol0 000:0003o`00010000?o00004P000ol0000k0003o`0001/000?o0000?@000ol0000E0003o`0000@0 00?o0?l05`000ol0000800002@000ol0000c0003o`0002L000?o00002P000ol0000@0003o`000180 00?o0000>`000ol0000K0003o`0003d000?o00005@000ol000050003o`0001H000?o0000200000T0 00?o0000<`000ol0000W0003o`0000X000?o000040000ol0000B0003o`0003/000?o00006`000ol0 000m0003o`0001D000?o00007P000ol0000800002@000ol0000c0003o`0002L000?o00002P000ol0 000@0003o`00018000?o0000>`000ol0000K0003o`0003d000?o00005@000ol0000N0003o`0000P0 00090003o`0003<000?o00009`000ol0000:0003o`00010000?o00004P000ol0000k0003o`0001/0 00?o0000?@000ol0000E0003o`0001h000?o0000200000T000?o0000<`000ol0000W0003o`0000X0 00?o000040000ol0000B0003o`0003/000?o00006`000ol0000m0003o`0001D000?o00007P000ol0 000800002@000ol0000c0003o`0002L000?o00002P000ol0000@0003o`00018000?o0000>`000ol0 000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090003o`0003<000?o00009`000ol0 000:0003o`00010000?o00004P000ol0000k0003o`0001/000?o0000?@000ol0000E0003o`0001h0 00?o0000200000T000?o0000<`000ol0000W0003o`0000X000?o000040000ol0000B0003o`0003/0 00?o00006`000ol0000m0003o`0001D000?o00007P000ol0000800002@000ol0000c0003o`0002L0 00?o00002P000ol0000@0003o`00018000?o0000>`000ol0000K0003o`0003d000?o00005@000ol0 000N0003o`0000P000090003o`0003<000?o00009`000ol0000:0003o`00010000?o00004P000ol0 000k0003o`0001/000?o0000?@000ol0000E0003o`0001h000?o0000200000T000?o0000<`000ol0 000W0003o`0000X000?o000040000ol0000B0003o`0003/000?o00006`000ol0000m0003o`0001D0 00?o00007P000ol0000800002@000ol0000c0003o`0002L000?o00002P000ol0000@0003o`000180 00?o0000>`000ol0000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090?ooK?l:0000 2@000ol0000E0003C00001/000?o00009`000ol0000:0003o`00010000?o00000`000d`0000<0003 o`0001T000=<00007`000ol0000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090003 o`0001D000=<00006`000ol0000W0003o`0000X000?o000040000ol000030003C00000`000?o0000 6@000d`0000O0003o`0001/000?o0000?@000ol0000E0003o`0001h000?o0000200000T000?o0000 5@000d`0000K0003o`0002L000?o00002P000ol0000@0003o`0000<000=<000030000ol0000I0003 C00001l000?o00006`000ol0000m0003o`0001D000?o00007P000ol0000800002@000ol0000E0003 C00001/000?o00009`000ol0000:0003o`00010000?o00000`000d`0000<0003o`0001T000=<0000 7`000ol0000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090003o`0001H000=<0000 6P000ol0000W0003o`0000X000?o000040000ol000030003C00000`000?o00006@000d`0000O0003 o`0001/000?o0000?@000ol0000E0003o`0001h000?o0000200000T000?o00005`000d`0000I0003 o`0002L000?o00002P000ol0000@0003o`0000<000=<000030000ol0000I0003C00001l000?o0000 6`000ol0000m0003o`0001D000?o00007P000ol0000800002@000ol0000G0003C00001T000?o0000 9`000ol0000:0003o`00010000?o00000`000d`0000<0003o`0001T000=<00007`000ol0000K0003 o`0003d000?o00005@000ol0000N0003o`0000P000090003o`0001L000=<00006@000ol0000W0003 o`0000X000?o000040000ol000030003C00000`000?o000060000d`0000P0003o`0001/000?o0000 ?@000ol0000E0003o`0001h000?o0000200000T000?o00005`000d`0000I0003o`0002L000?o0000 2P000ol0000@0003o`0000<000=<000030000ol0000H0003C000020000?o00006`000ol0000m0003 o`0001D000?o00007P000ol0000800002@000ol0000G0003C00001T000?o00009`000ol0000:0003 o`00010000?o00000P000d`0000=0003o`0001P000=<000080000ol0000K0003o`0003d000?o0000 5@000ol0000N0003o`0000P000090003o`0001L000=<00006@000ol0000W0003o`0000X000?o0000 40001Ol0001<010000?o000060000d`0000P0003o`0001/000?o0000?@000ol0000E0003o`0001h0 00?o0000200000T000?o00005P000d`0000J0003o`0002L000?o00002P000ol0000@0005o`0004`0 40000ol0000G0003C000024000?o00006`000ol0000m0003o`0001D000?o00007P000ol000080000 2@000ol0000F0003C00001X000?o00009`000ol0000:0003o`00010000Go0000C00@0003o`0001L0 00=<00008@000ol0000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090003o`0001D0 00=<00006`000ol0000W0003o`0000X000?o000040001Ol0001<010000?o00005`000d`0000Q0003 o`0001/000?o0000?@000ol0000E0003o`0001h000?o0000200000T000?o000050000d`0000L0003 o`0002L000?o00002P000ol0000@0005o`0004`040000ol0000G0003C000024000?o00006`000ol0 000m0003o`0001D000?o00007P000ol0000800002@000ol0000D0003C03o00Co0P03o`040?l000Go 0P03o`030?l0008000?o00009`000ol0000:0003o`00010000Co001<4@000ol0000H0003C0000200 00?o00006`000ol0000m0003o`0001D000?o00007P000ol0000800002@000ol0000C0004C00000;o 1@02o`030?l000Ko00<0ool00_l00`3o00020003o`0002L000?o00002P000ol0000@0003o`1<0180 00?o000060000d`0000P0003o`0001/000?o0000?@000ol0000E0003o`0001h000?o0000200000T0 00?o000050000d`00002o`D00_l01P3o003o00?o0P001?l0ool40003o`0002L000?o00002P000ol0 000@0003o`1<00801?l<0003o`0001T000=<00007`000ol0000K0003o`0003d000?o00005@000ol0 000N0003o`0000P000090003o`0001D000=00Oo60000d`0000N0003o`0001/000?o0000?@000ol0000E0003 o`0001h000?o0000200000T000?o00000`001Ol0o`3o008000Go0?oo0002o`030?l0008000=<0000 6P000ol0000T00Ko2P000ol0000700Co1`000d`0000?00;o00<0ool00_lF009<80000ol0000K0003 o`0003d000?o00005@000ol0000N0003o`0000P000090003o`0000<000Go0?l0o`020005o`3oo`00 0_l00`3o00030003C00001T000?o00008P09o`T000?o00001P03o`P000=<00003`03o`<01?lB009< 8P000ol0000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090003o`0000800_l20003 o`00008000Co003o0P000ol000030003C00001T000?o00008@05o`<01?l70003o`0000D00ol90003 C00000l00_l600Co40000d`0000Q0003o`0001/000?o0000?@000ol0000E0003o`0001h000?o0000 200000T000?o00005`000d`0000I0003o`0001l01?l700Co1P000ol0000400?o2P000d`0000?00;o 1`05o`h000=<00008@000ol0000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090003 o`0001L000=<00006@000ol0000M00Co2`03o`D000?o00000P03o``000=<00003`02o`T01?l>0003 C000020000?o00006`000ol0000m0003o`0001D000?o00007P000ol0000800002@000ol0000D00;@ 00<0C0006P000ol0000D00[o3`03o`@000Co00000ol>0003C00000h00_l;00Co30000d`0000P0003 o`0001/000?o0000?@000ol0000E0003o`0001h000?o0000200000T000?o00005002o`03C?oo00Co 2`07o`@000?o00001@0@oaX00ol20003o`0000?o3`000d`0000=00?o3@04o`X000=<000080000ol0 000K0003o`0003d000?o00005@000ol0000N0003o`0000P000090003o`0001@00]000dc@d003d003 o`0001003?l00m00000X00?o00<0o`000ol?0003C00000h00_l@00?o2@000d`0000P0003o`0001/0 00?o0000?@000ol0000E0003o`0001h000?o0000200000T000?o00005002d003C=3@00K@4`0;d2X0 1_l=00A<4@02oa401?l60003C000024000?o00006`000ol0000m0003o`0001D000?o00007P000ol0 000800002@000ol0000C00;@00=00;@00=00;@00=00;@00=00G@301ad1P06]0600So<0000ol0000E0003 o`0001h000?o0000200000T000?o00000P000d`000020003C00001003M0F00G@3`1[d1`06]0600Oo ;`000ol0000E0003o`0001h000?o0000200000T000?o00000`001D`0001<01D01]0J00K@4P1Ud200 6=0700So;@000ol0000E0003o`0001h000?o0000200000T000?o0000100014`004`F0003o`3@00;@ 6`05d1D0H=0U01K@2007ob`000?o00005@000ol0000N0003o`0000P000090003o`0000D00d`F0003 o`0000;@7005d1P0F]0Y01G@2007ob/000?o00005@000ol0000N0003o`0000P000090003o`0000L0 00=<000050000ol00002d1d01M0J05G@;@0Dd0P02?lY0003o`0001D000?o00007P000ol000080000 2@000ol0000N0003o`0000;@7P05d1d0Cm0a01?@2@07o`030?oo02D000?o00005@000ol0000N0003 o`0000P000090003o`0001h000?o00000]0O00G@7`1:d3D04M0:00[o90000ol0000E0003o`0001h0 00?o0000200000T000?o00007`001?l0d=0P00G@8P14d3T04=0:00_o8P000ol0000=00;o1P000ol0 000N0003o`0000P000090003o`0001l000Co0=3@8@05d2@0?]0n00o@2`0;ob0000?o00002P06o`D0 00?o00007P000ol0000800002@000ol0000O0004o`3@d2801M0/03?@@P0>d0/02olO0003o`0000L0 2_l40003o`0001h000?o0000200000T000?o00007`001?l0d=0R00K@>00Td4H03=0<00co7@000ol0 000400ko0`000ol0000N0003o`0000P000090003o`0001l000Co0=3@8`06d3T00_l901G@B00=d0/0 3_lK0003o`0000804Ol20003o`0001h000?o0000200000T000?o00007`001?l0d=0T00G@>@02oaH0 1]1;00g@300=oaX000?o0?l05?l00`3o000O0003o`0000P000090003o`0001l000Co0=3@9@05d3L0 0omX00g@3@0=oaL06_lP0003o`0000P000090003o`0001l000Co0=3@9P05d3H00_mZ00g@3@0>oa80 7?lQ0003o`0000P000090003o`0001l000Co0=3@9`05d3D00_m[00c@3`0=o`l07_lQ0003o`0000P0 00090003o`0001l000Co0=3@:005d3@00_m[00g@400=o`X06?l00`3oo`06ob4000?o0000200000T0 00?o00007`001?l0d=0Y00G@<`02of`03M0@00ko1@0Ho`D01olQ0003o`0000P000090003o`0001l0 00Co0=3@:P05d2l00]03ofd03M0A00go00<0ool05_l900Ko8@000ol0000800002@000ol0000O0004 o`3@d2X01]0W00[@L00P06ob0000?o0000200000T000?o0000 80001?l0d=3G00c@>P07oal000?o0000200000T000?o000080001?l0d=3H00c@6`03d1/01olO0003 o`0000P000090003o`00020000Co0=3@f@0"], ImageRangeCache->{{{0, 381}, {235, 0}} -> {-0.0273567, -0.0118525, 0.00289951, 0.00211788}}], Cell[OutputFormData[ "\<\ The Unformatted text for this cell was not generated. Use options in the Actions Preferences dialog box to control when Unformatted text is generated.\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]], Cell[TextData[ "BeginPackage[\"Minard`\"]\n\nMinard::usage = \"Minard.m is a package for \ producing thematic maps\nin the style of C. J. Minard\"\n\nProcessTemp::usage \ = \"ProcessTemp[list] computes the graphics primitives to be associated with \ a list of elements of the form {x, y, temp}\"\n\nstuff::usage = \"stuff[list] \ computes the graphics primitives to be associated with a list of elements of \ the form {x, y, strength}\"\n\nProcessStrength::usage = \ \"ProcessStrength[list] computes the graphics primitives to be associated \ with a list of elements of the form {{x1, y1, strength1},....., {xn, yn, \ strengthn}}\"\n\nProcessRivers::usage = \"ProcessRivers[list] computes the \ graphics primitives to be associated with a list of river coordinates\"\n\n\ ProcessPoints::usage = \"ProcessPoints[list] computes the graphics primitives \ to be associated with a list of city or other point coordinates\"\n\n\ ProcessTitle::usage = \"ProcessTitle[location, title] computes the graphics \ primitives to be associated with the title\"\n\nProcessBoxes::usage = \ \"ProcessBoxes[list] computes the graphics primitives to be associated with a \ list of box coordinates\"\n\nProcessText::usage = \"ProcessText[list] \ computes the graphics primitives to be associated with a list of coordinates \ and associated text\"\n\nNapoleonicMarchOnMoscowAndBackAgainPlot::usage = \n\ \"NapoleonicMarchOnMoscowAndBackAgainPlot[strength_list, temp_list, \ riverdata_list, boxdata_list, titledata_list, pointdata_list, textdata_list] \ shows the thematic chart associated with the strength temperature, river, \ box, title, point and text lists, in the style of C. J. Minard.\"\n\n\ Begin[\"`Private`\"]\n\nProcessTemp[tdata_] :=\nModule[{tprimlist, coords = \ Array[coordarr, 100], numb, k,\ntemprules, firstx, lastx},\ntemprules = {0, \ -10, -20, -30};\nfirstx = First[tdata][[1]];\nlastx = Last[tdata][[1]];\n\ tprimlist = Map[({Thickness[0.001], Line[{{firstx, 0.0916 + 0.00188333*#}, \n\ {lastx, 0.0916 + 0.00188333*#}}]})&, temprules];\nnumb = Length[tdata];\nDo[\n\ coords[[k]] = {tdata[[k, 1]], 0.0916 + tdata[[k,3]]*0.0018833}\n,{k, 1, \ numb}];\nDo[\ntprimlist = Append[tprimlist, \n{Thickness[0.001], \ Line[{tdata[[k, Range[2]]] , coords[[k]]} ]}];\n,{k, 1, numb}];\nDo[\n\ tprimlist = Append[tprimlist, \n{Thickness[0.001], Line[{coords[[k]] , \ coords[[k+1]]} ]}];\n,{k, 1, numb-1}];\ntprimlist]\n\nstuff[sd_] := \ Module[{k, m, primlist,pca, pcb, pcc, pcd,\nscale, dir = Array[dirarr, 100], \ \nrotdir = Array[rotdirarr, 100], \nl = Array[larr, 100],\navevec = \ Array[avevecarr, 100]},\nscale = 10500000;\nprimlist = { };\nk = Length[sd];\n\ Do[(dir[[m]] = sd[[m+1, Range[2] ]] - sd[[m, Range[2] ]];\nl[[m]] = \ Sqrt[dir[[m, 1]]^2 + dir[[m, 2]]^2]),\n{m, 1, k-1}];\nDo[\nIf[l[[m]] > \ 0.0001,\nrotdir[[m]] = {-dir[[m, 2]], dir[[m, 1]]}/l[[m]], \nrotdir[[m]] = \n\ {-dir[[m+1, 2]], dir[[m+1, 1]]}/l[[m+1]]], \n{m, 1, k-1}];\navevec[[1]] = \ rotdir[[1]];\navevec[[k]] = rotdir[[k-1]];\nDo[\navevec[[m]] = \n(rotdir[[m]] \ + rotdir[[m-1]])/(1 + \nrotdir[[m,1]]*rotdir[[m-1,1]]\n+ \ rotdir[[m,2]]*rotdir[[m-1,2]]), {m, 2, k-1}];\nDo[\npca = sd[[m,Range[2]]] - \ sd[[m,3]]*avevec[[m]]/scale;\npcb = sd[[m+1,Range[2]]] - \ sd[[m+1,3]]*avevec[[m+1]]/scale;\npcc = sd[[m+1,Range[2]]] + \ sd[[m+1,3]]*avevec[[m+1]]/scale;\npcd = sd[[m,Range[2]]] + \ sd[[m,3]]*avevec[[m]]/scale;\nu = {If[sd[[m, 4]] == 1,\nRGBColor[0,1,0],\n\ RGBColor[0,0,0]], \nPolygon[{pca, pcb, pcc, pcd}]};\nprimlist = \ Append[primlist, u],\n{m, 1, k-1}];\nprimlist]\n\nProcessStrength[data_] :=\n\ Module[{strengthprims, str, len, v},\nstrengthprims = {};\nlen = \ Length[data];\nDo[\n(strengthprims = \nAppend[strengthprims, \ stuff[data[[v]]]]),\n{v, 1, len}];\nstrengthprims\n]\n\n\ ProcessTitle[titledata_] := \nText[FontForm[titledata[[1, \ 3]],{\"Helvetica-Bold\", 14}],\n {titledata[[1, 1]], titledata[[1, 2]]}]\n\n\ ProcessPoints[pointdata_] := \nMap[({Point[Drop[#, -1]], \ Text[FontForm[Last[#], {\"Times-Roman\", 8}], \nDrop[#, -1]+{0.01,0.01}, \ {0, -1}]})&, pointdata]\n\nProcessText[textdata_] := \n\ Map[(Text[FontForm[Last[#], {\"Times-Roman\", 6}], Drop[#, -1], {0, -1}])&, \ textdata]\n\nProcessRivers[riverdata_] := \nMap[({RGBColor[0, 0, 1], \ Thickness[0.001], Line[#]}&), riverdata]\n\nProcessBoxes[boxdata_] := \n\ Map[({RGBColor[0, 0, 0], Thickness[0.002], Line[#]}&), boxdata]\n\n\ NapoleonicMarchOnMoscowAndBackAgainPlot[sdata_, tdata_, riverdata_, boxdata_, \ titledata_, pointdata_, textdata_] := \nShow[Graphics[\n\ {ProcessStrength[sdata],\n ProcessTemp[tdata],\n ProcessRivers[riverdata],\n \ ProcessBoxes[boxdata],\n ProcessTitle[titledata],\n ProcessPoints[pointdata],\ \n ProcessText[textdata]}\n]]\n\nEnd[]\nEndPackage[]\n"], "Input", AspectRatioFixed->True, FontSize->9]}, Open]]}, Open]]}, Open]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 365}, WindowMargins->{{52, Automatic}, {30, Automatic}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ AVU/IFiQKFD000000V8nh09RAj0000000OXQ<097PXP0AP1Y06`0I@1^0642HSkP 0V97`0000001nR4@0TN2R000000000000000009R?^0000000000000000000000 00000000000000000000000000000000\>" ] (*********************************************************************** 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[1731, 51, 123, 3, 70, "Title", Evaluatable->False], Cell[CellGroupData[{ Cell[1877, 56, 93, 2, 70, "Subsection", Evaluatable->False], Cell[1973, 60, 80, 1, 70, "Input"], Cell[CellGroupData[{ Cell[2076, 63, 289, 5, 70, "Input"], Cell[2368, 70, 15042, 796, 153, 8125, 705, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[17413, 868, 265, 10, 70, "Output", Evaluatable->False] }, Open ]], Cell[17690, 880, 178, 3, 70, "Input"], Cell[17871, 885, 118, 2, 70, "Input"], Cell[CellGroupData[{ Cell[18012, 889, 412, 6, 70, "Input"], Cell[18427, 897, 23481, 969, 134, 10475, 803, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[41913, 1869, 265, 10, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[42210, 1881, 536, 8, 70, "Input"], Cell[42749, 1891, 22321, 1105, 174, 12494, 978, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]], Cell[65082, 2998, 298, 5, 70, "Input"], Cell[65383, 3005, 395, 6, 70, "Input"], Cell[65781, 3013, 650, 10, 70, "Input"], Cell[CellGroupData[{ Cell[66454, 3025, 475, 7, 70, "Input"], Cell[66932, 3034, 37326, 1328, 162, 14703, 1043, "GraphicsData", "PostScript", "Graphics", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[104292, 4365, 121, 3, 70, "Subsubsection", Evaluatable->False], Cell[104416, 4370, 179, 3, 70, "Input"], Cell[104598, 4375, 279, 5, 70, "Input"], Cell[104880, 4382, 137, 3, 70, "Input"], Cell[CellGroupData[{ Cell[105040, 4387, 154, 3, 70, "Input"], Cell[105197, 4392, 13207, 668, 163, 6439, 579, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[118407, 5062, 265, 10, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[118704, 5074, 333, 5, 70, "Input"], Cell[119040, 5081, 18882, 872, 177, 8555, 739, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[137925, 5955, 265, 10, 70, "Output", Evaluatable->False] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[138240, 5967, 111, 2, 70, "Section", Evaluatable->False], Cell[CellGroupData[{ Cell[138374, 5971, 97, 2, 70, "Subsection", Evaluatable->False], Cell[CellGroupData[{ Cell[138494, 5975, 83, 1, 70, "Input"], Cell[138580, 5978, 183, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[138795, 5987, 337, 5, 70, "Input"], Cell[139135, 5994, 22312, 1130, 203, 8334, 952, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[161450, 7126, 265, 10, 70, "Output", Evaluatable->False] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[161756, 7138, 113, 2, 70, "Subsection", Evaluatable->False], Cell[161872, 7142, 87, 1, 70, "Input"], Cell[CellGroupData[{ Cell[161982, 7145, 83, 1, 70, "Input"], Cell[162068, 7148, 411, 14, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[162511, 7164, 65, 1, 70, "Input"], Cell[162579, 7167, 286, 6, 70, "Info", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[162897, 7175, 103, 1, 70, "Input"], Cell[163003, 7178, 171, 7, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[163206, 7187, 91, 1, 70, "Input"], Cell[163300, 7190, 307, 11, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[163639, 7203, 320, 5, 70, "Input"], Cell[163962, 7210, 21227, 962, 203, 7420, 786, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[185192, 8174, 265, 10, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[185489, 8186, 110, 2, 70, "Subsubsection", Evaluatable->False], Cell[185602, 8190, 469, 7, 70, "Input"], Cell[186074, 8199, 277, 5, 70, "Input"], Cell[CellGroupData[{ Cell[186374, 8206, 91, 1, 70, "Input"], Cell[186468, 8209, 467, 14, 70, "Output", Evaluatable->False] }, Open ]], Cell[186947, 8225, 124, 3, 70, "Input"], Cell[187074, 8230, 231, 4, 70, "Input"], Cell[187308, 8236, 207, 4, 70, "Input"], Cell[187518, 8242, 148, 3, 70, "Input"], Cell[CellGroupData[{ Cell[187689, 8247, 114, 2, 70, "Input"], Cell[187806, 8251, 8251, 152, 173, 856, 56, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[196060, 8405, 265, 10, 70, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[196357, 8417, 742, 11, 70, "Input"], Cell[197102, 8430, 31118, 1321, 252, 13841, 1102, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[228223, 9753, 265, 10, 70, "Output", Evaluatable->False] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[228538, 9765, 121, 2, 70, "Subsection", Evaluatable->False], Cell[228662, 9769, 265, 5, 70, "Input"], Cell[228930, 9776, 574, 9, 70, "Input"], Cell[229507, 9787, 1609, 25, 70, "Input", PageBreakWithin->Automatic], Cell[231119, 9814, 1722, 24, 70, "Input"], Cell[232844, 9840, 1538, 23, 70, "Input", PageBreakWithin->Automatic], Cell[234385, 9865, 211, 4, 70, "Input"], Cell[234599, 9871, 71, 1, 70, "Input"], Cell[CellGroupData[{ Cell[234693, 9874, 60, 1, 70, "Input"], Cell[234756, 9877, 155, 4, 70, "Info", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[234943, 9883, 172, 3, 70, "Input"], Cell[235118, 9888, 33328, 1045, 244, 8627, 735, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[268449, 10935, 265, 10, 70, "Output", Evaluatable->False] }, Open ]], Cell[268726, 10947, 4791, 67, 70, "Input"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)