(*********************************************************************** 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[ 45910, 1775]*) (*NotebookOutlinePosition[ 46963, 1809]*) (* CellTagsIndexPosition[ 46919, 1805]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["IgorBinary", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[" Manual", Evaluatable->False, AspectRatioFixed->True] }], "Title", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["An Example Notebook"], "Subtitle", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Arnd Roth\nAbteilung Zellphysiologie\nMax-Planck-Institut fuer Medizinische \ Forschung\nPostfach 10 38 20, D-69028 Heidelberg, Germany\n\ roth@sunny.mpimf-heidelberg.mpg.de"], "Text", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["How it works"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "Here is a little trick that speeds up certain kinds of list processing in \ old releases of ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[ " 2.2. You don't need it if you are working with version 2.2.2 or 2.2.3.", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["SetAttributes[N, Listable];"], "Input", AspectRatioFixed->True], Cell[TextData["This loads the package."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["<True], Cell[TextData["FastBinaryFiles package successfully installed."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?IgorBinary"], "Input", AspectRatioFixed->True], Cell[TextData[ "IgorBinary.m is a package for fast reading and writing of\n Igor binary \ files. It needs the FastBinaryFiles\n package written by Todd Gayley \ (mathsource.wri.com,\n item number 0206-783). IgorBinary.m will \ automatically\n install the FastBinaryFiles package if it can be found\n \ in \":Mathematica 2.2:Packages:Utilities:binary\" or an\n analogous \ location."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?SaveIgorBinary"], "Input", AspectRatioFixed->True], Cell[TextData[ "SaveIgorBinary[\"filename\", symb, opts] writes the\n definition of symb, \ a list of real or complex numbers,\n to filename, in Igor binary file \ format (extension\n .bwav). The name of symb (or the first 18 characters of\ \n it, if longer) is used for the wave name after\n occurrences of \"$\" \ and \"`\" are replaced by \"_\" and\n nothing, respectively. The options \ opts specify some\n ancillary information to be included in the header of\n \ the Igor binary file, such as the x scaling and the x\n and data units. \ Note that the first element of a wave\n is labeled 0 in Igor and 1 in \ Mathematica."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData[{ StyleBox["Make a trial wave in ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[":", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["trialwave = Table[Random[], {100}]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {0.1782422075935649944, 0.08569338484043026588, 0.707597981186205559, 0.2820719772834370779, 0.1615813972817942471, 0.6468086167008844014, 0.9071986550293225581, 0.5818885845917715462, 0.2871146935687084859, 0.7840289502070092581, 0.5251084474511836938, 0.4271568466757184745, 0.2439148129877544025, 0.3118590313212917668, 0.2587483250260921199, 0.6367162362878915631, 0.5245053703530024625, 0.8272701509167222491, 0.8673815856136047073, 0.2544449603880274968, 0.6371030841691537561, 0.07140863180008373523, 0.8575304472313177802, 0.8960522754436400409, 0.5332773730773834483, 0.3463762731893788327, 0.7709851607531160184, 0.8809632478123199151, 0.7522146571195664208, 0.05377352401958371391, 0.5270403455663664485, 0.7075607096347321314, 0.9386758422164790091, 0.2099619828885826775, 0.08503010497709389521, 0.1490793489801599914, 0.4720757393475326829, 0.1428908677624061138, 0.332627556313619736, 0.6520394190231649234, 0.835709618223279004, 0.3895551290378233911, 0.9012187095750455766, 0.8686142003488637636, 0.4553226788711545334, 0.1914083945443050248, 0.2904266896325037597, 0.03223374883991636983, 0.2679237729212695949, 0.1921653427814783453, 0.3363856566167442102, 0.3759692949608642212, 0.9662048110393009695, 0.9017012791559510763, 0.8127540239683686534, 0.8060700808477299311, 0.8738481054505737523, 0.200342185892862416, 0.7946655981810757315, 0.7000801038015947108, 0.09967799007938370408, 0.8542964921429930935, 0.1016045933456659087, 0.9499704691358928644, 0.7295438896843254779, 0.1666900579659570984, 0.6630367277859567081, 0.8704892115904945762, 0.1477332547497289911, 0.6491114195878377882, 0.8079294052683829606, 0.6795896940795682602, 0.0675933455853837609, 0.05062183998452084469, 0.8043986437644767657, 0.283443051326799238, 0.7305165907785478577, 0.4582232355063597196, 0.1047952107675075069, 0.0254163305174084262, 0.1365145155521195335, 0.764093654853631836, 0.7211013855792801155, 0.3949881826925628543, 0.9166266540639252933, 0.6628942715125870126, 0.9101173667436329292, 0.9163975867123489289, 0.47648054422096799, 0.621646448183658663, 0.0226899501675770474, 0.5758045169585172443, 0.9707202326189760746, 0.5339266940202235488, 0.0004912647716089226883, 0.9580034389125286872, 0.610381555590363361, 0.6371299669434135144, 0.5338899534551223662, 0.4034030391484807314}\ \>", "\<\ {0.178242, 0.0856934, 0.707598, 0.282072, 0.161581, 0.646809, 0.907199, 0.581889, 0.287115, 0.784029, 0.525108, 0.427157, 0.243915, 0.311859, 0.258748, 0.636716, 0.524505, 0.82727, 0.867382, 0.254445, 0.637103, 0.0714086, 0.85753, 0.896052, 0.533277, 0.346376, 0.770985, 0.880963, 0.752215, 0.0537735, 0.52704, 0.707561, 0.938676, 0.209962, 0.0850301, 0.149079, 0.472076, 0.142891, 0.332628, 0.652039, 0.83571, 0.389555, 0.901219, 0.868614, 0.455323, 0.191408, 0.290427, 0.0322337, 0.267924, 0.192165, 0.336386, 0.375969, 0.966205, 0.901701, 0.812754, 0.80607, 0.873848, 0.200342, 0.794666, 0.70008, 0.099678, 0.854296, 0.101605, 0.94997, 0.729544, 0.16669, 0.663037, 0.870489, 0.147733, 0.649111, 0.807929, 0.67959, 0.0675933, 0.0506218, 0.804399, 0.283443, 0.730517, 0.458223, 0.104795, 0.0254163, 0.136515, 0.764094, 0.721101, 0.394988, 0.916627, 0.662894, 0.910117, 0.916398, 0.476481, 0.621646, 0.02269, 0.575805, 0.97072, 0.533927, 0.000491265, 0.958003, 0.610382, 0.63713, 0.53389, 0.403403}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData[{ StyleBox["Save ", Evaluatable->False, AspectRatioFixed->True], StyleBox["trialwave", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" in Igor binary file format, without special option settings:", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["SaveIgorBinary[\"test1.bwav\", trialwave]"], "Input", AspectRatioFixed->True], Cell[TextData[ "These are the default option settings which we just used,"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Options[SaveIgorBinary]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ {WaveUnits -> None, XScalingFunction -> Identity, YFullScale -> None, WaveNote -> \"This wave was generated\\ by Mathematica.\"}\ \>", "\<\ {WaveUnits -> None, XScalingFunction -> Identity, YFullScale -> None, WaveNote -> This wave was generated by Mathematica.}\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?WaveUnits"], "Input", AspectRatioFixed->True], Cell[TextData[ "WaveUnits is an option to IgorBinaryWave and\n SaveIgorBinary. WaveUnits \ -> {xunit, dataunit}\n specifies the x-axis and data units for an Igor \ wave.\n Units in Igor are strings not longer than three\n characters."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?XScalingFunction"], "Input", AspectRatioFixed->True], Cell[TextData[ "XScalingFunction is an option to IgorBinaryWave and\n SaveIgorBinary. Its \ value is either Identity or of the\n form (hsA_Real # + hsB_Real &), and \ the argument this\n function takes is the number of the data point in the\n \ Igor wave (starting from zero)."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?YFullScale"], "Input", AspectRatioFixed->True], Cell[TextData[ "YFullScale is an option to IgorBinaryWave and\n SaveIgorBinary. YFullScale \ -> {bottom, top} specifies\n the full scale values for an Igor wave. This \ may be\n useful if the data has been acquired on an instrument\n with a \ full scale setting. However, the setting of this\n option does not affect \ the data at all."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?WaveNote"], "Input", AspectRatioFixed->True], Cell[TextData[ "WaveNote is an option to IgorBinaryWave and\n SaveIgorBinary. Its value is \ a string of arbitrary\n length containing comments, annotations and so \ on."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData[ "Here, the same wave is saved with different option settings."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "SaveIgorBinary[\"test2.bwav\", trialwave,\n WaveUnits -> \ {\"x\", \"y\"},\n XScalingFunction -> (2.5 # + 1.5 &),\n \ YFullScale -> {0, 1},\n WaveNote -> \"Uniformly \ distributed \\\n random numbers.\"]"], "Input", AspectRatioFixed->True], Cell[TextData[{ StyleBox["The following function reads waves from Igor binary files into ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[":", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["?ReadIgorBinary"], "Input", AspectRatioFixed->True], Cell[TextData[ "ReadIgorBinary[\"filename\"] reads an Igor binary file\n (extension .bwav) \ and returns the contents as an\n IgorBinaryWave object. Its name is \ identical to the\n name of the wave read."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?IgorBinaryWave"], "Input", AspectRatioFixed->True], Cell[TextData[ "IgorBinaryWave[\"name\", data, info] is an abstract data\n type \ representing the contents of an Igor binary file."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData[{ StyleBox["For simplicity, we just read ", Evaluatable->False, AspectRatioFixed->True], StyleBox["test1.bwav", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["test2.bwav", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" back into ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[".", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["ibw1 = ReadIgorBinary[\"test1.bwav\"]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ IgorBinaryWave[\"trialwave\", {0.178242207593564989, 0.08569338484043026451, 0.707597981186205538, 0.282071977283437081, 0.161581397281794242, 0.646808616700884409, 0.907198655029322509, 0.581888584591771507, 0.287114693568708501, 0.784028950207009245, 0.52510844745118368, 0.42715684667571846, 0.243914812987754415, 0.31185903132129178, 0.25874832502609213, 0.636716236287891535, 0.524505370353002487, 0.827270150916722291, 0.867381585613604678, 0.254444960388027497, 0.637103084169153733, 0.0714086318000837356, 0.857530447231317772, 0.896052275443640078, 0.533277373077383432, 0.346376273189378858, 0.770985160753116072, 0.8809632478123199381, 0.752214657119566366, 0.0537735240195837128, 0.527040345566366475, 0.707560709634732166, 0.938675842216479039, 0.209961982888582671, 0.085030104977093901, 0.149079348980159981, 0.472075739347532664, 0.142890867762406115, 0.332627556313619732, 0.652039419023164868, 0.835709618223279049, 0.389555129037823411, 0.901218709575045573, 0.868614200348863719, 0.455322678871154518, 0.191408394544305027, 0.290426689632503787, 0.0322337488399163721, 0.267923772921269621, 0.192165342781478343, 0.336385656616744189, 0.375969294960864231, 0.966204811039301004, 0.901701279155951108, 0.8127540239683686, 0.806070080847729908, 0.873848105450573787, 0.200342185892862429, 0.794665598181075739, 0.700080103801594689, 0.099677990079383702, 0.8542964921429930801, 0.101604593345665906, 0.949970469135892892, 0.729543889684325486, 0.166690057965957095, 0.663036727785956681, 0.8704892115904945271, 0.147733254749728982, 0.649111419587837801, 0.807929405268382972, 0.679589694079568263, 0.0675933455853837545, 0.0506218399845208417, 0.8043986437644767841, 0.283443051326799256, 0.730516590778547803, 0.458223235506359738, 0.104795210767507502, 0.025416330517408426, 0.13651451555211952, 0.764093654853631787, 0.721101385579280163, 0.394988182692562861, 0.916626654063925295, 0.662894271512587063, 0.910117366743632972, 0.916397586712348944, 0.476480544220967972, 0.621646448183658662, 0.0226899501675770464, 0.575804516958517199, 0.970720232618976109, 0.533926694020223525, 0.000491264771608922635, 0.9580034389125287041, 0.610381555590363334, 0.637129966943413506, 0.533889953455122357, 0.403403039148480747}, WaveUnits -> None, XScalingFunction -> Identity, YFullScale -> None, WaveNote -> \"This wave was\\ generated by Mathematica.\"]\ \>", "\<\ IgorBinaryWave[trialwave, <>]\ \>"], "Output", Evaluatable->False, LineSpacing->{0.6, 0}, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["ibw2 = ReadIgorBinary[\"test2.bwav\"]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ IgorBinaryWave[\"trialwave\", {0.178242207593564989, 0.08569338484043026451, 0.707597981186205538, 0.282071977283437081, 0.161581397281794242, 0.646808616700884409, 0.907198655029322509, 0.581888584591771507, 0.287114693568708501, 0.784028950207009245, 0.52510844745118368, 0.42715684667571846, 0.243914812987754415, 0.31185903132129178, 0.25874832502609213, 0.636716236287891535, 0.524505370353002487, 0.827270150916722291, 0.867381585613604678, 0.254444960388027497, 0.637103084169153733, 0.0714086318000837356, 0.857530447231317772, 0.896052275443640078, 0.533277373077383432, 0.346376273189378858, 0.770985160753116072, 0.8809632478123199381, 0.752214657119566366, 0.0537735240195837128, 0.527040345566366475, 0.707560709634732166, 0.938675842216479039, 0.209961982888582671, 0.085030104977093901, 0.149079348980159981, 0.472075739347532664, 0.142890867762406115, 0.332627556313619732, 0.652039419023164868, 0.835709618223279049, 0.389555129037823411, 0.901218709575045573, 0.868614200348863719, 0.455322678871154518, 0.191408394544305027, 0.290426689632503787, 0.0322337488399163721, 0.267923772921269621, 0.192165342781478343, 0.336385656616744189, 0.375969294960864231, 0.966204811039301004, 0.901701279155951108, 0.8127540239683686, 0.806070080847729908, 0.873848105450573787, 0.200342185892862429, 0.794665598181075739, 0.700080103801594689, 0.099677990079383702, 0.8542964921429930801, 0.101604593345665906, 0.949970469135892892, 0.729543889684325486, 0.166690057965957095, 0.663036727785956681, 0.8704892115904945271, 0.147733254749728982, 0.649111419587837801, 0.807929405268382972, 0.679589694079568263, 0.0675933455853837545, 0.0506218399845208417, 0.8043986437644767841, 0.283443051326799256, 0.730516590778547803, 0.458223235506359738, 0.104795210767507502, 0.025416330517408426, 0.13651451555211952, 0.764093654853631787, 0.721101385579280163, 0.394988182692562861, 0.916626654063925295, 0.662894271512587063, 0.910117366743632972, 0.916397586712348944, 0.476480544220967972, 0.621646448183658662, 0.0226899501675770464, 0.575804516958517199, 0.970720232618976109, 0.533926694020223525, 0.000491264771608922635, 0.9580034389125287041, 0.610381555590363334, 0.637129966943413506, 0.533889953455122357, 0.403403039148480747}, WaveUnits -> {\"x\", \"y\"}, XScalingFunction -> (1.5 + 2.5*#1 & ), YFullScale -> {0, 1.}, WaveNote -> \"Uniformly distributed random numbers.\"]\ \>", "\<\ IgorBinaryWave[trialwave, <>]\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[TextData["The full internal representation is, e.g.,"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["InputForm[ibw2]"], "Input", AspectRatioFixed->True], Cell[OutputFormData["\<\ InputForm[IgorBinaryWave[\"trialwave\", {0.178242207593564989, 0.08569338484043026451, 0.707597981186205538, 0.282071977283437081, 0.161581397281794242, 0.646808616700884409, 0.907198655029322509, 0.581888584591771507, 0.287114693568708501, 0.784028950207009245, 0.52510844745118368, 0.42715684667571846, 0.243914812987754415, 0.31185903132129178, 0.25874832502609213, 0.636716236287891535, 0.524505370353002487, 0.827270150916722291, 0.867381585613604678, 0.254444960388027497, 0.637103084169153733, 0.0714086318000837356, 0.857530447231317772, 0.896052275443640078, 0.533277373077383432, 0.346376273189378858, 0.770985160753116072, 0.8809632478123199381, 0.752214657119566366, 0.0537735240195837128, 0.527040345566366475, 0.707560709634732166, 0.938675842216479039, 0.209961982888582671, 0.085030104977093901, 0.149079348980159981, 0.472075739347532664, 0.142890867762406115, 0.332627556313619732, 0.652039419023164868, 0.835709618223279049, 0.389555129037823411, 0.901218709575045573, 0.868614200348863719, 0.455322678871154518, 0.191408394544305027, 0.290426689632503787, 0.0322337488399163721, 0.267923772921269621, 0.192165342781478343, 0.336385656616744189, 0.375969294960864231, 0.966204811039301004, 0.901701279155951108, 0.8127540239683686, 0.806070080847729908, 0.873848105450573787, 0.200342185892862429, 0.794665598181075739, 0.700080103801594689, 0.099677990079383702, 0.8542964921429930801, 0.101604593345665906, 0.949970469135892892, 0.729543889684325486, 0.166690057965957095, 0.663036727785956681, 0.8704892115904945271, 0.147733254749728982, 0.649111419587837801, 0.807929405268382972, 0.679589694079568263, 0.0675933455853837545, 0.0506218399845208417, 0.8043986437644767841, 0.283443051326799256, 0.730516590778547803, 0.458223235506359738, 0.104795210767507502, 0.025416330517408426, 0.13651451555211952, 0.764093654853631787, 0.721101385579280163, 0.394988182692562861, 0.916626654063925295, 0.662894271512587063, 0.910117366743632972, 0.916397586712348944, 0.476480544220967972, 0.621646448183658662, 0.0226899501675770464, 0.575804516958517199, 0.970720232618976109, 0.533926694020223525, 0.000491264771608922635, 0.9580034389125287041, 0.610381555590363334, 0.637129966943413506, 0.533889953455122357, 0.403403039148480747}, WaveUnits -> {\"x\", \"y\"}, XScalingFunction -> (1.5 + 2.5*#1 & ), YFullScale -> {0, 1.}, WaveNote -> \"Uniformly distributed random numbers.\"]]\ \>", "\<\ IgorBinaryWave[\"trialwave\", {0.178242207593564989, 0.08569338484043026451, 0.707597981186205538, 0.282071977283437081, 0.161581397281794242, 0.646808616700884409, 0.907198655029322509, 0.581888584591771507, 0.287114693568708501, 0.784028950207009245, 0.52510844745118368, 0.42715684667571846, 0.243914812987754415, 0.31185903132129178, 0.25874832502609213, 0.636716236287891535, 0.524505370353002487, 0.827270150916722291, 0.867381585613604678, 0.254444960388027497, 0.637103084169153733, 0.0714086318000837356, 0.857530447231317772, 0.896052275443640078, 0.533277373077383432, 0.346376273189378858, 0.770985160753116072, 0.8809632478123199381, 0.752214657119566366, 0.0537735240195837128, 0.527040345566366475, 0.707560709634732166, 0.938675842216479039, 0.209961982888582671, 0.085030104977093901, 0.149079348980159981, 0.472075739347532664, 0.142890867762406115, 0.332627556313619732, 0.652039419023164868, 0.835709618223279049, 0.389555129037823411, 0.901218709575045573, 0.868614200348863719, 0.455322678871154518, 0.191408394544305027, 0.290426689632503787, 0.0322337488399163721, 0.267923772921269621, 0.192165342781478343, 0.336385656616744189, 0.375969294960864231, 0.966204811039301004, 0.901701279155951108, 0.8127540239683686, 0.806070080847729908, 0.873848105450573787, 0.200342185892862429, 0.794665598181075739, 0.700080103801594689, 0.099677990079383702, 0.8542964921429930801, 0.101604593345665906, 0.949970469135892892, 0.729543889684325486, 0.166690057965957095, 0.663036727785956681, 0.8704892115904945271, 0.147733254749728982, 0.649111419587837801, 0.807929405268382972, 0.679589694079568263, 0.0675933455853837545, 0.0506218399845208417, 0.8043986437644767841, 0.283443051326799256, 0.730516590778547803, 0.458223235506359738, 0.104795210767507502, 0.025416330517408426, 0.13651451555211952, 0.764093654853631787, 0.721101385579280163, 0.394988182692562861, 0.916626654063925295, 0.662894271512587063, 0.910117366743632972, 0.916397586712348944, 0.476480544220967972, 0.621646448183658662, 0.0226899501675770464, 0.575804516958517199, 0.970720232618976109, 0.533926694020223525, 0.000491264771608922635, 0.9580034389125287041, 0.610381555590363334, 0.637129966943413506, 0.533889953455122357, 0.403403039148480747}, WaveUnits -> {\"x\", \"y\"}, XScalingFunction -> (1.5 + 2.5*#1 & ), YFullScale -> {0, 1.}, WaveNote -> \"Uniformly distributed random numbers.\"]\ \>"], "Output", Evaluatable->False, LineSpacing->{1, 0}, AspectRatioFixed->True] }, Open ]], Cell[TextData[{ StyleBox["These functions give easy access to the parts of an ", Evaluatable->False, AspectRatioFixed->True], StyleBox["IgorBinaryWave", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" object:", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["?WaveName"], "Input", AspectRatioFixed->True], Cell[TextData[ "WaveName[ibw] gives the name field of the IgorBinaryWave\n object ibw."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?RawWaveData"], "Input", AspectRatioFixed->True], Cell[TextData[ "RawWaveData[ibw] gives the data field of the\n IgorBinaryWave object ibw, \ which is a list of real or\n complex numbers. Note that the first element \ of a wave\n is labeled 0 in Igor and 1 in Mathematica."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?ScaledWaveData"], "Input", AspectRatioFixed->True], Cell[TextData[ "ScaledWaveData[ibw] returns a list of {xi, datai} pairs of\n numbers which \ represent the data points in the\n IgorBinaryWave object ibw. The xi are \ real numbers, and\n the datai are either real or complex numbers. Note that\ \n the first element of a wave is labeled 0 in Igor and 1\n in \ Mathematica."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData["?WaveInformation"], "Input", AspectRatioFixed->True], Cell[TextData[ "WaveInformation[ibw] gives the settings of the WaveUnits,\n \ XScalingFunction, YFullScale and WaveNote options in\n the IgorBinaryWave \ object ibw."], "Print", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[TextData[ "ListPlot[ScaledWaveData[ibw2], AxesLabel ->\n WaveUnits /. \ WaveInformation[ibw2]]"], "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00382482 0.0147151 0.606358 [ [(50)] .21505 .01472 0 2 Msboxa [(100)] .40629 .01472 0 2 Msboxa [(150)] .59753 .01472 0 2 Msboxa [(200)] .78877 .01472 0 2 Msboxa [(250)] .98002 .01472 0 2 Msboxa [(x)] 1.025 .01472 -1 0 Msboxa [(0.2)] .01131 .13599 1 0 Msboxa [(0.4)] .01131 .25726 1 0 Msboxa [(0.6)] .01131 .37853 1 0 Msboxa [(0.8)] .01131 .4998 1 0 Msboxa [(y)] .02381 .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 0 g p p .002 w .21505 .01472 m .21505 .02097 L s P [(50)] .21505 .01472 0 2 Mshowa p .002 w .40629 .01472 m .40629 .02097 L s P [(100)] .40629 .01472 0 2 Mshowa p .002 w .59753 .01472 m .59753 .02097 L s P [(150)] .59753 .01472 0 2 Mshowa p .002 w .78877 .01472 m .78877 .02097 L s P [(200)] .78877 .01472 0 2 Mshowa p .002 w .98002 .01472 m .98002 .02097 L s P [(250)] .98002 .01472 0 2 Mshowa p .001 w .06206 .01472 m .06206 .01847 L s P p .001 w .10031 .01472 m .10031 .01847 L s P p .001 w .13855 .01472 m .13855 .01847 L s P p .001 w .1768 .01472 m .1768 .01847 L s P p .001 w .2533 .01472 m .2533 .01847 L s P p .001 w .29155 .01472 m .29155 .01847 L s P p .001 w .3298 .01472 m .3298 .01847 L s P p .001 w .36804 .01472 m .36804 .01847 L s P p .001 w .44454 .01472 m .44454 .01847 L s P p .001 w .48279 .01472 m .48279 .01847 L s P p .001 w .52104 .01472 m .52104 .01847 L s P p .001 w .55928 .01472 m .55928 .01847 L s P p .001 w .63578 .01472 m .63578 .01847 L s P p .001 w .67403 .01472 m .67403 .01847 L s P p .001 w .71228 .01472 m .71228 .01847 L s P p .001 w .75053 .01472 m .75053 .01847 L s P p .001 w .82702 .01472 m .82702 .01847 L s P p .001 w .86527 .01472 m .86527 .01847 L s P p .001 w .90352 .01472 m .90352 .01847 L s P p .001 w .94177 .01472 m .94177 .01847 L s P [(x)] 1.025 .01472 -1 0 Mshowa p .002 w 0 .01472 m 1 .01472 L s P p .002 w .02381 .13599 m .03006 .13599 L s P [(0.2)] .01131 .13599 1 0 Mshowa p .002 w .02381 .25726 m .03006 .25726 L s P [(0.4)] .01131 .25726 1 0 Mshowa p .002 w .02381 .37853 m .03006 .37853 L s P [(0.6)] .01131 .37853 1 0 Mshowa p .002 w .02381 .4998 m .03006 .4998 L s P [(0.8)] .01131 .4998 1 0 Mshowa p .001 w .02381 .03897 m .02756 .03897 L s P p .001 w .02381 .06322 m .02756 .06322 L s P p .001 w .02381 .08748 m .02756 .08748 L s P p .001 w .02381 .11173 m .02756 .11173 L s P p .001 w .02381 .16024 m .02756 .16024 L s P p .001 w .02381 .1845 m .02756 .1845 L s P p .001 w .02381 .20875 m .02756 .20875 L s P p .001 w .02381 .233 m .02756 .233 L s P p .001 w .02381 .28151 m .02756 .28151 L s P p .001 w .02381 .30577 m .02756 .30577 L s P p .001 w .02381 .33002 m .02756 .33002 L s P p .001 w .02381 .35428 m .02756 .35428 L s P p .001 w .02381 .40278 m .02756 .40278 L s P p .001 w .02381 .42704 m .02756 .42704 L s P p .001 w .02381 .45129 m .02756 .45129 L s P p .001 w .02381 .47555 m .02756 .47555 L s P p .001 w .02381 .52406 m .02756 .52406 L s P p .001 w .02381 .54831 m .02756 .54831 L s P p .001 w .02381 .57256 m .02756 .57256 L s P p .001 w .02381 .59682 m .02756 .59682 L s P [(y)] .02381 .61803 0 -4 Mshowa 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 .008 w .02955 .12279 Mdot .03911 .06668 Mdot .04867 .44377 Mdot .05823 .18575 Mdot .06779 .11269 Mdot .07736 .40691 Mdot .08692 .5648 Mdot .09648 .36755 Mdot .10604 .18881 Mdot .11561 .49012 Mdot .12517 .33312 Mdot .13473 .27372 Mdot .14429 .16261 Mdot .15385 .20381 Mdot .16342 .17161 Mdot .17298 .40079 Mdot .18254 .33275 Mdot .1921 .51634 Mdot .20166 .54066 Mdot .21123 .169 Mdot .22079 .40103 Mdot .23035 .05801 Mdot .23991 .53469 Mdot .24947 .55804 Mdot .25904 .33807 Mdot .2686 .22474 Mdot .27816 .48221 Mdot .28772 .54889 Mdot .29728 .47083 Mdot .30685 .04732 Mdot .31641 .33429 Mdot .32597 .44375 Mdot .33553 .58389 Mdot .34509 .14203 Mdot .35466 .06627 Mdot .36422 .10511 Mdot .37378 .30096 Mdot .38334 .10136 Mdot .3929 .21641 Mdot .40247 .41008 Mdot .41203 .52145 Mdot .42159 .25092 Mdot .43115 .56118 Mdot .44072 .54141 Mdot .45028 .2908 Mdot .45984 .13078 Mdot .4694 .19082 Mdot .47896 .03426 Mdot .48853 .17717 Mdot .49809 .13124 Mdot .50765 .21869 Mdot .51721 .24269 Mdot .52677 .60058 Mdot .53634 .56147 Mdot .5459 .50753 Mdot .55546 .50348 Mdot .56502 .54458 Mdot .57458 .13619 Mdot .58415 .49657 Mdot .59371 .43921 Mdot .60327 .07516 Mdot .61283 .53272 Mdot .62239 .07632 Mdot .63196 .59074 Mdot .64152 .45708 Mdot .65108 .11579 Mdot .66064 .41675 Mdot .6702 .54254 Mdot .67977 .10429 Mdot .68933 .40831 Mdot .69889 .50461 Mdot .70845 .42679 Mdot .71801 .0557 Mdot .72758 .04541 Mdot .73714 .50247 Mdot .7467 .18658 Mdot .75626 .45767 Mdot .76583 .29256 Mdot .77539 .07826 Mdot .78495 .03013 Mdot .79451 .09749 Mdot .80407 .47803 Mdot .81364 .45196 Mdot .8232 .25422 Mdot .83276 .57052 Mdot .84232 .41667 Mdot .85188 .56657 Mdot .86145 .57038 Mdot .87101 .30363 Mdot .88057 .39166 Mdot .89013 .02847 Mdot .89969 .36386 Mdot .90926 .60332 Mdot .91882 .33847 Mdot .92838 .01501 Mdot .93794 .59561 Mdot .9475 .38482 Mdot .95707 .40104 Mdot .96663 .33844 Mdot .97619 .25932 Mdot P % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgIIIVH000<3 0d92@X61PL30`000EED0EJX0EOl0EB8R8P00^d@0000cV@3<IVFH0<`L71dI6AXF5QLC4a000 ZUD0ZZX0Z_88Q4A4A000gEH/1@0cc03Ic6H0IP/;2dY:BXV9RLS8b000oeD0ojX0ool0oeEE E@00kWL0000co`3IofH0V@l?3di>CXf=SLch0001Vc03oIS=V03?I03?oc6IVIS/k>gYjN[Vi^OShn03ooeGooj[oo`000?l06`000?l06`000?l06`0004X00ol400;o 7P03o`@00_l400;o7003o`<00ol400;o6`04o`<00_l400;o6`04o`800ol400;o6`0004d000Co003o 0P000ol0000L0003o`00008000Co003o0P001?l00?lL0003o`0000D000Co003o0P000ol0000I0003 o`00008000Co003o0P001?l00?lK0003o`0000D000Co003o0P000ol0000H0000C@001?l00?l20003 o`0001`000?o00000P001?l00?l20004o`00oa`000?o00001@001?l00?l20003o`0001X000Go0000 o`020004o`00o`8000?o00006P000ol000040004o`00o`8000?o0000600004X00ol30004o`00oah0 00?o00000P001?l00?l20004o`00oa`000?o00000P03o`<000Co003o7@001?l00?l20004o`00o`80 00?o00006`000ol00003o`<000Co003o6P0004X000?o00000`001?l00?lN0003o`00008000Co003o 0P001?l00?lL0003o`00008000?o00000`001?l00?lJ0004o`00o`8000Co003o0P001?l00?lJ0004 o`00o`8000?o00000`001?l00?lJ0000BP04o`<00_lN00;o1@02o`@00_lL00;o1004o`<00_lL00;o 1002o`@00_lL00;o0`04o`<00_lK0000o`0K0000o`0K0000o`0K00009@000ol0003b00009@000ol0 003J00;o00<0ool04`0002D000?o0000f`000ol0o`0D0000803Mo`L000?o00004`0002D000?o0000 1@000ol000060003o`0000D000?o00001P000ol000050003o`0000H000?o00001@000ol000050003 o`0000H000?o00001@000ol000060003o`0000D000?o00001P000ol000050003o`0000H000?o0000 1@000ol000050003o`0000H000?o00001@000ol000060003o`0000D000?o00001P000ol000050003 o`00008000Co003o20000ol000080003o`3o01@0000U0003o`0002L000?o00009`000ol0000X0003 o`0002L000?o00009`000ol0000700;o00<0ool04`0002D000?o0000lP0002D000?o0000Y0000ol0 000E0003o`0003<0000U0003o`00064000?o0000SP0002D00_oc00009@000ol0003b00009@000ol0 000k0003o`0005X000?o0000E`0002D000?o0000lP0002D000?o0000:P000ol0001Y0003o`0005T0 000U00;ol`0002D000Co003oA@000ol0002Y00009@000ol0003b00009@000ol0001l0003o`000080 00?o0000KP0002D000?o0000XP000ol0001=00009@000ol0003b00009@02oo<0000U0003o`000?80 000U0003o`000:L000?o0000B00002D000?o0000C0000ol0002S00009@000ol000180003o`000480 00?o0000HP0002D00_l70003o`000>T0000U0003o`0008L000?o0000J00002D000?o0000lP000180 0_l400;o0`04o`@00_oc00004@001?l00?l300;o10000ol000040003o`0005d000?o0000TP000140 00Co003o2P000ol0000300;oIP000ol0002:00004@001?l00?l;0003o`00008000?o0000MP000ol0 001i00004@001?l00?l80004o`00o`@000?o0000@`000ol0002/00004P02o`X00_l50003o`000?80 000U0003o`000?80000U0003o`000?80000U00;o60000ol0003H00009@000ol0003b00009@000ol0 000K0003o`0000P000?o0000b@0002D000?o0000lP0002D000?o0000H`000ol0002<00009@02oo<0 000U0003o`0000@000?o000020000ol0002:0003o`0005<0000U0003o`0005l000?o0000T00002D0 00?o0000lP0002D000?o0000lP0002D00_lJ0003o`000=H0000U0003o`000?80000U0003o`0004h0 00?o0000X@0002D000?o0000I`000ol0002800009@000ol0000c0003o`000;`0000U0003o`000?80 000U00;ol`0002D000?o0000lP0002D000?o0000J@000ol0002600004P02o`@00_l400?o10000ol0 003b00004@001?l00?l300;o1@000ol000030003o`0005@000?o0000V`00014000Co003o2004o`@0 0_n^0003o`000480000A0004o`00o`P000?o0?l01@000ol0003?0003o`000200000A0004o`00o`P0 00?o0?l01@000ol0003b00004P02o`X00_l50003o`000?80000U0003o`0001D000?o0000fP0002D0 0_oc00009@000ol0003b00009@000ol0003b00009@000ol0001K0003o`00048000?o0000C`0002D0 00?o0000lP0002D000?o0000BP000ol0002U00009@02okP000?o0000>00002D000?o0000lP0002D0 00?o0000lP0002D000?o0000lP0002D000?o0000lP0002D00_oc00009@000ol0000C0003o`0000X0 00?o00006P000ol0002b00009@000ol0000a0003o`0008h000?o00001`000ol0000S00009@000ol0 003b00009@000ol0003b00009@02oo<0000U0003o`000?80000U0003o`000?80000U0003o`000;h0 00?o0000<@0001800_l400;o1002o`D000?o00003@000ol0003R00004@001?l00?l300;o0`001?l0 0?l40003o`000?80000A0004o`00o`P000Co003o1002oo<0000A0004o`00o`P00ol50003o`000"], ImageRangeCache->{{{0, 281}, {173, 0}} -> {-44.5013, -0.112213, 1.18599, 0.00748108}}], Cell[OutputFormData["\<\ Graphics[\"<<>>\"]\ \>", "\<\ -Graphics-\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData["Known problems"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["This package is not self-contained. It needs a ", Evaluatable->False, AspectRatioFixed->True], StyleBox["MathLink", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[" program called ", Evaluatable->False, AspectRatioFixed->True], StyleBox["FastBinaryFiles", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ ", written by Todd Gayley (mathsource.wri.com, item number 0206-783). ", Evaluatable->False, AspectRatioFixed->True], StyleBox["IgorBinary.m", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" will automatically install the ", Evaluatable->False, AspectRatioFixed->True], StyleBox["FastBinaryFiles", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" package if it can be found in ", Evaluatable->False, AspectRatioFixed->True], StyleBox["\":Mathematica 2.2:Packages:binary\"", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier"], StyleBox[ " or an analogous location on Unix systems. The autoload mechanism will \ fail if the package is not there, or if the setting of ", Evaluatable->False, AspectRatioFixed->True], StyleBox["$Path", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " is not as expected. It may be necessary to change the code portion \ responsible for autoloading,", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "(* ... *)\nWhich[$OperatingSystem === \"Unix\",\n \ SetDirectory[Last[$Path]]; (* ../Packages *)\n \ SetDirectory[\"Utilities\"];\n link = Install[\"binary\"];\n \ ResetDirectory[];\n ResetDirectory[],\n $OperatingSystem === \ \"MacOS\",\n SetDirectory[First[$Path]]; (* ..:Packages *)\n \ SetDirectory[\"Utilities\"];\n link = Install[\"binary\"];\n \ ResetDirectory[];\n ResetDirectory[],\n(* ... *)"], "Input", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "in order to reflect such changes. Alternatively, you can install the ", Evaluatable->False, AspectRatioFixed->True], StyleBox["MathLink", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[" program manually ", Evaluatable->False, AspectRatioFixed->True], StyleBox["before", Evaluatable->False, AspectRatioFixed->True, FontVariations->{"Underline"->True}], StyleBox[" loading the ", Evaluatable->False, AspectRatioFixed->True], StyleBox["IgorBinary.m", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" package.", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "Warning: At the moment, this package is not useful on the PC. The reason \ is that the current version of the ", Evaluatable->False, AspectRatioFixed->True], StyleBox["FastBinaryFiles", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " package just mentioned, 1.0, addresses the issue of coverting between \ little-endian and big-endian format for integers only, not for float and \ double. This problem does not, of course, affect the use of this package on \ the Macintosh and most Unix workstations (Sun SPARC etc.) since they are \ big-endian machines.", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "Limitation: This package reads single and double precision Igor waves but \ writes only double precision waves. This may be reasonable since machine \ arithmetic in ", Evaluatable->False, AspectRatioFixed->True], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontSlant->"Italic"], StyleBox[" is done in double precision.", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["Important: You need ", Evaluatable->False, AspectRatioFixed->True], StyleBox["ResEdit", Evaluatable->False, AspectRatioFixed->True, FontVariations->{"Underline"->True}], StyleBox[" to make Igor recognize the ", Evaluatable->False, AspectRatioFixed->True], StyleBox[".bwav", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" files generated by ", Evaluatable->False, AspectRatioFixed->True], StyleBox["SaveIgorBinary", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " as Igor binary files. Go to the File menu of the ResEdit application, and \ select the Get File/Folder Info... item. Locate the ", Evaluatable->False, AspectRatioFixed->True], StyleBox[".bwav", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " file, and hit the Get Info button. In the Info window that appears, \ insert ", Evaluatable->False, AspectRatioFixed->True], StyleBox["IGBW", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" in the Type field and ", Evaluatable->False, AspectRatioFixed->True], StyleBox["IGR0", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Courier", FontWeight->"Bold"], StyleBox[ " (zero!) in the Creator field. Close the Info window and click Yes for \ Save.", Evaluatable->False, AspectRatioFixed->True] }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Closed]] }, Open ]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 832}, {0, 604}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 509}, WindowMargins->{{144, Automatic}, {Automatic, 4}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@00000000000000060001T1T00000000000 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, 255, 10, 100, "Title", Evaluatable->False], Cell[1989, 63, 97, 2, 62, "Subtitle", Evaluatable->False], Cell[2089, 67, 273, 6, 94, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2387, 77, 89, 2, 51, "Section", Evaluatable->False], Cell[2479, 81, 483, 16, 48, "Text", Evaluatable->False], Cell[2965, 99, 80, 1, 27, "Input"], Cell[3048, 102, 97, 2, 30, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[3170, 108, 76, 1, 27, "Input"], Cell[3249, 111, 122, 2, 23, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[3408, 118, 64, 1, 27, "Input"], Cell[3475, 121, 453, 8, 113, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[3965, 134, 68, 1, 27, "Input"], Cell[4036, 137, 707, 11, 173, "Print", Evaluatable->False] }, Open ]], Cell[4758, 151, 336, 13, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[5119, 168, 87, 1, 27, "Input"], Cell[5209, 171, 3741, 143, 358, "Output", Evaluatable->False] }, Open ]], Cell[8965, 317, 404, 14, 31, "Text", Evaluatable->False], Cell[9372, 333, 94, 1, 27, "Input"], Cell[9469, 336, 132, 3, 30, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[9626, 343, 76, 1, 27, "Input"], Cell[9705, 346, 375, 15, 60, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[10117, 366, 63, 1, 27, "Input"], Cell[10183, 369, 304, 6, 83, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[10524, 380, 70, 1, 27, "Input"], Cell[10597, 383, 344, 6, 83, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[10978, 394, 64, 1, 27, "Input"], Cell[11045, 397, 405, 7, 98, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[11487, 409, 62, 1, 27, "Input"], Cell[11552, 412, 233, 5, 53, "Print", Evaluatable->False] }, Open ]], Cell[11800, 420, 135, 3, 30, "Text", Evaluatable->False], Cell[11938, 425, 327, 5, 102, "Input"], Cell[12268, 432, 378, 13, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[12671, 449, 68, 1, 27, "Input"], Cell[12742, 452, 270, 5, 68, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[13049, 462, 68, 1, 27, "Input"], Cell[13120, 465, 193, 4, 38, "Print", Evaluatable->False] }, Open ]], Cell[13328, 472, 754, 29, 32, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[14107, 505, 90, 1, 27, "Input"], Cell[14200, 508, 2840, 114, 25, "Output", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[17077, 627, 90, 1, 27, "Input"], Cell[17170, 630, 2837, 115, 25, "Output", Evaluatable->False] }, Open ]], Cell[20022, 748, 116, 2, 30, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[20163, 754, 68, 1, 27, "Input"], Cell[20234, 757, 5493, 170, 727, "Output", Evaluatable->False] }, Open ]], Cell[25742, 930, 403, 14, 31, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[26170, 948, 62, 1, 27, "Input"], Cell[26235, 951, 151, 4, 38, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[26423, 960, 65, 1, 27, "Input"], Cell[26491, 963, 288, 5, 68, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[26816, 973, 68, 1, 27, "Input"], Cell[26887, 976, 392, 7, 98, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[27316, 988, 69, 1, 27, "Input"], Cell[27388, 991, 229, 5, 53, "Print", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[27654, 1001, 145, 3, 42, "Input"], Cell[27802, 1006, 11746, 545, 182, 5341, 461, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[39551, 1553, 131, 7, 25, "Output", Evaluatable->False] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[39731, 1566, 91, 2, 31, "Section", Evaluatable->False], Cell[39825, 1570, 1735, 57, 132, "Text", Evaluatable->False], Cell[41563, 1629, 532, 9, 222, "Input", Evaluatable->False], Cell[42098, 1640, 805, 29, 49, "Text", Evaluatable->False], Cell[42906, 1671, 781, 21, 95, "Text", Evaluatable->False], Cell[43690, 1694, 511, 16, 64, "Text", Evaluatable->False], Cell[44204, 1712, 1678, 59, 98, "Text", Evaluatable->False] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)