(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 189960, 4609] NotebookOptionsPosition[ 163598, 3955] NotebookOutlinePosition[ 177412, 4253] CellTagsIndexPosition[ 176961, 4239] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Cvi\[CHacek]en\[IAcute]", "Section", CellChangeTimes->{{3.573904057453125*^9, 3.573904061609375*^9}}, CounterAssignments->{{"Chapter", 7}, {"ExerciseNumber", 0}}, CellTags->"Exercises"], Cell[TextData[StyleBox["Z\[AAcute]pis dat do souboru", "Subsubsection"]], \ "ExerciseHeading", CellChangeTimes->{ 3.4814605393832397`*^9, {3.573904075625*^9, 3.573904083234375*^9}}, CellTags->{"Exercises", "Writing Data"}], Cell[TextData[{ "Pou\[ZHacek]ijte p\[RHacek]\[IAcute]kaz ", Cell[BoxData[ ButtonBox["Export", BaseStyle->"Link", ButtonData->"paclet:ref/Export"]], "InlineFormula"], " k z\[AAcute]pisu matice \[CHacek]\[IAcute]sel do souboru v ", Cell[BoxData[ ButtonBox["XLS", BaseStyle->"Link", ButtonData->"paclet:ref/format/XLS"]], "InlineFormula"], " form\[AAcute]tu. Zkontrolujte v\[YAcute]sledek pou\[ZHacek]it\[IAcute]m p\ \[RHacek]\[IAcute]kazu ", Cell[BoxData[ ButtonBox["FilePrint", BaseStyle->"Link", ButtonData->"paclet:ref/FilePrint"]], "InlineFormula"], " k zobrazen\[IAcute] v soubour notebooku nebo otev\[RHacek]en\[IAcute]m \ souboru v b\[EHacek]\[ZHacek]n\[EAcute]m textov\[EAcute]m editoru." }], "Exercise", CellChangeTimes->{{3.4935594545578213`*^9, 3.493559460645748*^9}, { 3.573904200125*^9, 3.573904309234375*^9}}, CellTags->{"Exercises", "Writing Data"}], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"2.8", " ", RowBox[{"10", "^", "6"}]}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4.1", ",", RowBox[{"5.3", " ", RowBox[{"10", "^", "6"}]}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"7.3", ",", RowBox[{"1.25", " ", RowBox[{"10", "^", "7"}]}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"8.1", ",", RowBox[{"2.71", " ", RowBox[{"10", "^", "7"}]}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5", ",", RowBox[{"3.11", " ", RowBox[{"10", "^", "7"}]}], ",", "3"}], "}"}]}], "}"}]}], ";"}]], "Input", CellTags->{"Exercises", "Writing Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"filename", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.578370324359375*^9, 3.578370362953125*^9}, { 3.578370411015625*^9, 3.5783704140625*^9}, {3.578370540078125*^9, 3.57837054153125*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\data.dat\"\>\ "], "Output", CellChangeTimes->{3.578370365234375*^9, 3.5783704151875*^9, 3.57837054375*^9, 3.578371597078125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"filename", ",", "data", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.578370085546875*^9, 3.578370128640625*^9}, { 3.578370421640625*^9, 3.57837042490625*^9}, {3.578370533921875*^9, 3.578370536359375*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\data.dat\"\>\ "], "Output", CellChangeTimes->{3.5783701311875*^9, 3.578370265984375*^9, 3.57837042765625*^9, 3.57837054584375*^9, 3.578371597125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FilePrint", "[", "filename", "]"}]], "Input", CellChangeTimes->{{3.57837013859375*^9, 3.578370178953125*^9}, { 3.5783702735*^9, 3.578370274328125*^9}, {3.57837046384375*^9, 3.578370467*^9}}], Cell["\<\ 1.5\t2.8e6\t1 4.1\t5.3e6\t3 7.3\t1.25e7\t7 8.1\t2.71e7\t6 9.5\t3.11e7\t3\ \>", "Print", CellChangeTimes->{{3.57837016784375*^9, 3.578370180875*^9}, 3.57837027546875*^9, 3.57837046875*^9, 3.578370568578125*^9, 3.578371597171875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"XLSfilename", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.5783707078125*^9, 3.578370712875*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\data.xls\"\>\ "], "Output", CellChangeTimes->{3.57837071425*^9, 3.578371597203125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"XLSfilename", ",", "data", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.57837073159375*^9, 3.578370736265625*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\data.xls\"\>\ "], "Output", CellChangeTimes->{3.578370738390625*^9, 3.578371597546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FilePrint", "[", "XLSfilename", "]"}]], "Input", CellChangeTimes->{{3.57837074590625*^9, 3.578370754515625*^9}}], Cell["\[CapitalEth]\[CapitalIDoubleDot]\.11\[AGrave]\[DownExclamation]\ \[PlusMinus]", "Print", CellChangeTimes->{3.5783707575625*^9, 3.57837159759375*^9}] }, Open ]], Cell["\<\ FilePrint nen\[IAcute] funk\[CHacek]n\[IAcute], pou\[ZHacek]ijeme p\[RHacek]\ \[IAcute]kaz SystemOpen\ \>", "Text", CellChangeTimes->{{3.578370798*^9, 3.578370826984375*^9}}], Cell[BoxData[ RowBox[{"SystemOpen", "[", "XLSfilename", "]"}]], "Input", CellChangeTimes->{{3.578370759453125*^9, 3.5783707821875*^9}}], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.573904313015625*^9}], Cell[TextData[{ "Pou\[ZHacek]ijte p\[RHacek]\[IAcute]kaz ", Cell[BoxData[ ButtonBox["Import", BaseStyle->"Link", ButtonData->"paclet:ref/Import"]], "InlineFormula"], " k p\[RHacek]e\[CHacek]ten\[IAcute] dat z exportovan\[EAcute]ho souboru \ jako tabulky \[CHacek]\[IAcute]sel." }], "Exercise", CellChangeTimes->{{3.57390431540625*^9, 3.57390434634375*^9}}, CellTags->{"Exercises", "Writing Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "=", RowBox[{"Import", "[", RowBox[{"filename", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.578370846890625*^9, 3.578370866421875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5`", ",", "2.8`*^6", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4.1`", ",", "5.3`*^6", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"7.3`", ",", "1.25`*^7", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"8.1`", ",", "2.71`*^7", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "3.11`*^7", ",", "3"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.578370867515625*^9, 3.578371597671875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "\[Equal]", "data"}]], "Input", CellChangeTimes->{{3.57837087621875*^9, 3.578370878625*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.578370879421875*^9, 3.578371597703125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dataXLS", " ", "=", " ", RowBox[{"Import", "[", RowBox[{"XLSfilename", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.578370882671875*^9, 3.57837089565625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5`", ",", "2.8`*^6", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.1`", ",", "5.3`*^6", ",", "3.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.3`", ",", "1.25`*^7", ",", "7.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.1`", ",", "2.71`*^7", ",", "6.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "3.11`*^7", ",", "3.`"}], "}"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.578370898875*^9, 3.578371597875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"dataXLS", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "\[Equal]", " ", "data"}]], "Input", CellChangeTimes->{{3.578370900609375*^9, 3.578370923875*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.57837090459375*^9, 3.578370924640625*^9}, 3.5783715979375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "dataXLS", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"dataXLS", " ", "=", " ", RowBox[{"Import", "[", "XLSfilename", "]"}]}]}], "Input", CellChangeTimes->{{3.578370962921875*^9, 3.578370977140625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5`", ",", "2.8`*^6", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.1`", ",", "5.3`*^6", ",", "3.`"}], "}"}], ",", RowBox[{"{", RowBox[{"7.3`", ",", "1.25`*^7", ",", "7.`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.1`", ",", "2.71`*^7", ",", "6.`"}], "}"}], ",", RowBox[{"{", RowBox[{"9.5`", ",", "3.11`*^7", ",", "3.`"}], "}"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5783709781875*^9, 3.578371598265625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"dataXLS", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "\[Equal]", " ", "data"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.578370955*^9, 3.578371598328125*^9}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.57390435865625*^9}], Cell[TextData[StyleBox["Export a import grafick\[YAcute]ch obraz\[URing]", \ "Subsubsection"]], "ExerciseHeading", CellChangeTimes->{{3.573904372046875*^9, 3.573904389234375*^9}}, CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[TextData[{ "Prove\[DHacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] dva \ p\[RHacek]\[IAcute]kazy (glob\[AAcute]ln\[IAcute] prom\[EHacek]nn\[EAcute] ", Cell[BoxData[ ButtonBox["$ExportFormats", BaseStyle->"Link", ButtonData->"paclet:ref/$ExportFormats"]], "InlineFormula"], " a ", Cell[BoxData[ ButtonBox["$ImportFormats", BaseStyle->"Link", ButtonData->"paclet:ref/$ImportFormats"]], "InlineFormula"], "), kter\[EAcute] vrac\[IAcute] seznam form\[AAcute]t\[URing] \ soubor\[URing], podporovan\[EAcute] p\[RHacek]\[IAcute]kazy ", Cell[BoxData[ ButtonBox["Export", BaseStyle->"Link", ButtonData->"paclet:ref/Export"]], "InlineFormula"], " a ", Cell[BoxData[ ButtonBox["Import", BaseStyle->"Link", ButtonData->"paclet:ref/Import"]], "InlineFormula"], " v aktu\[AAcute]ln\[IAcute] verzi ", StyleBox["Mathematica", FontSlant->"Italic"], ". Mnoho z t\[EHacek]chto form\[AAcute]t\[URing] jsou grafick\[EAcute] form\ \[AAcute]ty" }], "Exercise", CellChangeTimes->{{3.378482832921875*^9, 3.3784828335625*^9}, { 3.573904405375*^9, 3.57390451221875*^9}}, CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[BoxData["$ExportFormats"], "Input", PageBreakWithin->True, CellChangeTimes->{{3.481460124174897*^9, 3.481460124501072*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"3DS\"\>", ",", "\<\"ACO\"\>", ",", "\<\"AIFF\"\>", ",", "\<\"AU\"\>", ",", "\<\"AVI\"\>", ",", "\<\"Base64\"\>", ",", "\<\"Binary\"\>", ",", "\<\"Bit\"\>", ",", "\<\"BMP\"\>", ",", "\<\"Byte\"\>", ",", "\<\"BYU\"\>", ",", "\<\"BZIP2\"\>", ",", "\<\"C\"\>", ",", "\<\"CDF\"\>", ",", "\<\"Character16\"\>", ",", "\<\"Character8\"\>", ",", "\<\"Complex128\"\>", ",", "\<\"Complex256\"\>", ",", "\<\"Complex64\"\>", ",", "\<\"CSV\"\>", ",", "\<\"CUR\"\>", ",", "\<\"DICOM\"\>", ",", "\<\"DIF\"\>", ",", "\<\"DIMACS\"\>", ",", "\<\"DOT\"\>", ",", "\<\"DXF\"\>", ",", "\<\"EMF\"\>", ",", "\<\"EPS\"\>", ",", "\<\"ExpressionML\"\>", ",", "\<\"FASTA\"\>", ",", "\<\"FASTQ\"\>", ",", "\<\"FCS\"\>", ",", "\<\"FITS\"\>", ",", "\<\"FLAC\"\>", ",", "\<\"FLV\"\>", ",", "\<\"GIF\"\>", ",", "\<\"Graph6\"\>", ",", "\<\"Graphlet\"\>", ",", "\<\"GraphML\"\>", ",", "\<\"GXL\"\>", ",", "\<\"GZIP\"\>", ",", "\<\"HarwellBoeing\"\>", ",", "\<\"HDF\"\>", ",", "\<\"HDF5\"\>", ",", "\<\"HTML\"\>", ",", "\<\"ICNS\"\>", ",", "\<\"ICO\"\>", ",", "\<\"Integer128\"\>", ",", "\<\"Integer16\"\>", ",", "\<\"Integer24\"\>", ",", "\<\"Integer32\"\>", ",", "\<\"Integer64\"\>", ",", "\<\"Integer8\"\>", ",", "\<\"JPEG\"\>", ",", "\<\"JPEG2000\"\>", ",", "\<\"JSON\"\>", ",", "\<\"JVX\"\>", ",", "\<\"KML\"\>", ",", "\<\"LEDA\"\>", ",", "\<\"List\"\>", ",", "\<\"LWO\"\>", ",", "\<\"MAT\"\>", ",", "\<\"MathML\"\>", ",", "\<\"Maya\"\>", ",", "\<\"MGF\"\>", ",", "\<\"MIDI\"\>", ",", "\<\"MOL\"\>", ",", "\<\"MOL2\"\>", ",", "\<\"MTX\"\>", ",", "\<\"MX\"\>", ",", "\<\"NASACDF\"\>", ",", "\<\"NB\"\>", ",", "\<\"NetCDF\"\>", ",", "\<\"NEXUS\"\>", ",", "\<\"NOFF\"\>", ",", "\<\"OBJ\"\>", ",", "\<\"OFF\"\>", ",", "\<\"Package\"\>", ",", "\<\"Pajek\"\>", ",", "\<\"PBM\"\>", ",", "\<\"PCX\"\>", ",", "\<\"PDB\"\>", ",", "\<\"PDF\"\>", ",", "\<\"PGM\"\>", ",", "\<\"PLY\"\>", ",", "\<\"PNG\"\>", ",", "\<\"PNM\"\>", ",", "\<\"POV\"\>", ",", "\<\"PPM\"\>", ",", "\<\"PXR\"\>", ",", "\<\"QuickTime\"\>", ",", "\<\"RawBitmap\"\>", ",", "\<\"Real128\"\>", ",", "\<\"Real32\"\>", ",", "\<\"Real64\"\>", ",", "\<\"RIB\"\>", ",", "\<\"RTF\"\>", ",", "\<\"SCT\"\>", ",", "\<\"SDF\"\>", ",", "\<\"SND\"\>", ",", "\<\"Sparse6\"\>", ",", "\<\"STL\"\>", ",", "\<\"String\"\>", ",", "\<\"SurferGrid\"\>", ",", "\<\"SVG\"\>", ",", "\<\"SWF\"\>", ",", "\<\"Table\"\>", ",", "\<\"TAR\"\>", ",", "\<\"TerminatedString\"\>", ",", "\<\"TeX\"\>", ",", "\<\"Text\"\>", ",", "\<\"TGA\"\>", ",", "\<\"TGF\"\>", ",", "\<\"TIFF\"\>", ",", "\<\"TSV\"\>", ",", "\<\"UnsignedInteger128\"\>", ",", "\<\"UnsignedInteger16\"\>", ",", "\<\"UnsignedInteger24\"\>", ",", "\<\"UnsignedInteger32\"\>", ",", "\<\"UnsignedInteger64\"\>", ",", "\<\"UnsignedInteger8\"\>", ",", "\<\"UUE\"\>", ",", "\<\"VideoFrames\"\>", ",", "\<\"VRML\"\>", ",", "\<\"VTK\"\>", ",", "\<\"WAV\"\>", ",", "\<\"Wave64\"\>", ",", "\<\"WDX\"\>", ",", "\<\"WMF\"\>", ",", "\<\"X3D\"\>", ",", "\<\"XBM\"\>", ",", "\<\"XHTML\"\>", ",", "\<\"XHTMLMathML\"\>", ",", "\<\"XLS\"\>", ",", "\<\"XLSX\"\>", ",", "\<\"XML\"\>", ",", "\<\"XYZ\"\>", ",", "\<\"ZIP\"\>", ",", "\<\"ZPR\"\>"}], "}"}]], "Output", CellChangeTimes->{3.57837102290625*^9, 3.57837159834375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["$ImportFormats"], "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"3DS\"\>", ",", "\<\"ACO\"\>", ",", "\<\"Affymetrix\"\>", ",", "\<\"AgilentMicroarray\"\>", ",", "\<\"AIFF\"\>", ",", "\<\"ApacheLog\"\>", ",", "\<\"ArcGRID\"\>", ",", "\<\"AU\"\>", ",", "\<\"AVI\"\>", ",", "\<\"Base64\"\>", ",", "\<\"BDF\"\>", ",", "\<\"Binary\"\>", ",", "\<\"Bit\"\>", ",", "\<\"BMP\"\>", ",", "\<\"Byte\"\>", ",", "\<\"BYU\"\>", ",", "\<\"BZIP2\"\>", ",", "\<\"CDED\"\>", ",", "\<\"CDF\"\>", ",", "\<\"Character16\"\>", ",", "\<\"Character8\"\>", ",", "\<\"CIF\"\>", ",", "\<\"Complex128\"\>", ",", "\<\"Complex256\"\>", ",", "\<\"Complex64\"\>", ",", "\<\"CSV\"\>", ",", "\<\"CUR\"\>", ",", "\<\"DBF\"\>", ",", "\<\"DICOM\"\>", ",", "\<\"DIF\"\>", ",", "\<\"DIMACS\"\>", ",", "\<\"Directory\"\>", ",", "\<\"DOT\"\>", ",", "\<\"DXF\"\>", ",", "\<\"EDF\"\>", ",", "\<\"EPS\"\>", ",", "\<\"ExpressionML\"\>", ",", "\<\"FASTA\"\>", ",", "\<\"FASTQ\"\>", ",", "\<\"FCS\"\>", ",", "\<\"FITS\"\>", ",", "\<\"FLAC\"\>", ",", "\<\"GenBank\"\>", ",", "\<\"GeoTIFF\"\>", ",", "\<\"GIF\"\>", ",", "\<\"GPX\"\>", ",", "\<\"Graph6\"\>", ",", "\<\"Graphlet\"\>", ",", "\<\"GraphML\"\>", ",", "\<\"GRIB\"\>", ",", "\<\"GTOPO30\"\>", ",", "\<\"GXL\"\>", ",", "\<\"GZIP\"\>", ",", "\<\"HarwellBoeing\"\>", ",", "\<\"HDF\"\>", ",", "\<\"HDF5\"\>", ",", "\<\"HIN\"\>", ",", "\<\"HTML\"\>", ",", "\<\"ICC\"\>", ",", "\<\"ICNS\"\>", ",", "\<\"ICO\"\>", ",", "\<\"ICS\"\>", ",", "\<\"Integer128\"\>", ",", "\<\"Integer16\"\>", ",", "\<\"Integer24\"\>", ",", "\<\"Integer32\"\>", ",", "\<\"Integer64\"\>", ",", "\<\"Integer8\"\>", ",", "\<\"JCAMP-DX\"\>", ",", "\<\"JPEG\"\>", ",", "\<\"JPEG2000\"\>", ",", "\<\"JSON\"\>", ",", "\<\"JVX\"\>", ",", "\<\"KML\"\>", ",", "\<\"LaTeX\"\>", ",", "\<\"LEDA\"\>", ",", "\<\"List\"\>", ",", "\<\"LWO\"\>", ",", "\<\"MAT\"\>", ",", "\<\"MathML\"\>", ",", "\<\"MBOX\"\>", ",", "\<\"MDB\"\>", ",", "\<\"MGF\"\>", ",", "\<\"MIDI\"\>", ",", "\<\"MMCIF\"\>", ",", "\<\"MOL\"\>", ",", "\<\"MOL2\"\>", ",", "\<\"MPS\"\>", ",", "\<\"MTP\"\>", ",", "\<\"MTX\"\>", ",", "\<\"MX\"\>", ",", "\<\"NASACDF\"\>", ",", "\<\"NB\"\>", ",", "\<\"NDK\"\>", ",", "\<\"NetCDF\"\>", ",", "\<\"NEXUS\"\>", ",", "\<\"NOFF\"\>", ",", "\<\"OBJ\"\>", ",", "\<\"ODS\"\>", ",", "\<\"OFF\"\>", ",", "\<\"OpenEXR\"\>", ",", "\<\"Package\"\>", ",", "\<\"Pajek\"\>", ",", "\<\"PBM\"\>", ",", "\<\"PCX\"\>", ",", "\<\"PDB\"\>", ",", "\<\"PDF\"\>", ",", "\<\"PGM\"\>", ",", "\<\"PLY\"\>", ",", "\<\"PNG\"\>", ",", "\<\"PNM\"\>", ",", "\<\"PPM\"\>", ",", "\<\"PXR\"\>", ",", "\<\"QuickTime\"\>", ",", "\<\"RawBitmap\"\>", ",", "\<\"Real128\"\>", ",", "\<\"Real32\"\>", ",", "\<\"Real64\"\>", ",", "\<\"RIB\"\>", ",", "\<\"RSS\"\>", ",", "\<\"RTF\"\>", ",", "\<\"SCT\"\>", ",", "\<\"SDF\"\>", ",", "\<\"SDTS\"\>", ",", "\<\"SDTSDEM\"\>", ",", "\<\"SFF\"\>", ",", "\<\"SHP\"\>", ",", "\<\"SMILES\"\>", ",", "\<\"SND\"\>", ",", "\<\"SP3\"\>", ",", "\<\"Sparse6\"\>", ",", "\<\"STL\"\>", ",", "\<\"String\"\>", ",", "\<\"SurferGrid\"\>", ",", "\<\"SXC\"\>", ",", "\<\"Table\"\>", ",", "\<\"TAR\"\>", ",", "\<\"TerminatedString\"\>", ",", "\<\"Text\"\>", ",", "\<\"TGA\"\>", ",", "\<\"TGF\"\>", ",", "\<\"TIFF\"\>", ",", "\<\"TIGER\"\>", ",", "\<\"TLE\"\>", ",", "\<\"TSV\"\>", ",", "\<\"UnsignedInteger128\"\>", ",", "\<\"UnsignedInteger16\"\>", ",", "\<\"UnsignedInteger24\"\>", ",", "\<\"UnsignedInteger32\"\>", ",", "\<\"UnsignedInteger64\"\>", ",", "\<\"UnsignedInteger8\"\>", ",", "\<\"USGSDEM\"\>", ",", "\<\"UUE\"\>", ",", "\<\"VCF\"\>", ",", "\<\"VCS\"\>", ",", "\<\"VTK\"\>", ",", "\<\"WAV\"\>", ",", "\<\"Wave64\"\>", ",", "\<\"WDX\"\>", ",", "\<\"XBM\"\>", ",", "\<\"XHTML\"\>", ",", "\<\"XHTMLMathML\"\>", ",", "\<\"XLS\"\>", ",", "\<\"XLSX\"\>", ",", "\<\"XML\"\>", ",", "\<\"XPORT\"\>", ",", "\<\"XYZ\"\>", ",", "\<\"ZIP\"\>"}], "}"}]], "Output", CellChangeTimes->{3.57837103109375*^9, 3.578371598375*^9}, CellTags->{"Exercises", "Exporting and Importing Images"}] }, Open ]], Cell[TextData[{ "Prove\[DHacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]kaz \ a definujte ", StyleBox["gr", "MR"], " jako grafick\[YAcute] v\[YAcute]raz generovan\[YAcute] vykreslen\[IAcute]m \ funkce." }], "Exercise", CellChangeTimes->{ 3.37848283921875*^9, {3.573904517625*^9, 3.57390457965625*^9}}, CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gr", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4814601403424892`*^9, 3.481460140718301*^9}}, CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwlmXk4lN/7x61ZUmaeISRF+0pKaaH7VEKRUqJFSFpIEhGSSiUk2SvZUpb4 RHZJTpSikKiEopAsM/NYx8xk+Z3v9fvrXK/rmvMs7/f7vu/zXKNhf27fCTER EZFsURGR/63iWLauc921Lbyy/18X9ZZtnhtpC/cKmobnkFX4XMuhOeIcnI/O N/hC1j8Kp/mFEVfg6tNyn2SythjeqEiJuAtq15Jq9pP1q23EkviIRFi/Y4bF gfBE2Oes0nI/IhvWYeEr7zvZED5knRcTgWGD4lMDNT8Mmyt3yW5zr4ebpa92 yO6oB1cfs2N5rt+h6OIbndLmJjhbfCJUbMEvWJw595Mxuw2+9OyUSbPvgq7u 5kOV0p0QrMUTKTzUAxpSGaK7mN1wfkVV9OsUNgjd36/L5PdA14muq0mFbDjv WbxgnXgvWCaJOF99z4bnV2eoFc/ohU2KG7ehXjY02Oksfjq/F8SmnnLxSg5s 7521Vde0FyIabhvhPA4cP5WsIJrQC7neewSvyrlg1tzkoavXB8LjZ7J+ugzA f7N66u7Z94Mdc9ir1HMAXk4dmffCqR8qy3y2P/QbgEiHyNpGt34IUwn+fjB0 AF6YeG4e9e+HJZ/Sxb48G4D1ZsGLe5L7wWJTt+UH9gDkHl90O+R3P2Qxjk0V Og2CSozF2YpDbFAo66mOdhuElHKx6unH2OB9xjXqgs8gmPxoMTQ7zQaDd1eW rQkeBPdG8eQyTza0XkrY/+zpINzNdUsxjWSD9N/WtMc9g/DRYKbdnI9ssH9l uTfs5BAEHMA8v3UcWFOoTKmcGwI33oJgdz0OiGW3ND66OATe81fX2G7nQHKS jVVe4BCsemRnMc+cAx3XT9p8yxgC3eTwLZucOWC/y9N5Dj0Erzf41v5MItwU HZh+cRgYZzZx6sS5sKbeapf21WE42tWUWyDDBbFqFbmSwGEIdChiR8pzIbkk /u7HB8PQeyS8cL0qFzriU2K4L4fhYP7tC4pruGDvUPBER2QEfr1xXb3ehgvH B7+8fh04Ao7+ju2CbC7Y+YRZFYeNQFvunOM++VywFjflZt8fAU/d2p3DxVyw VHyjmpg+AqFxxZvriI/GG3M8L1eNQLvRgsiljVzQvHZn5SbpUZCZ+KzhMsKF 5bI732gzRkEt1tniAp8LSyIlDi9THoW3xcua3ca5oJ5y6Zby0lG4A0pfD0rQ wKp27OAZjcKWMN9LVSwa+AzD+3m3RmF9ZlzWOm0aRh6IamXeHYX2j3lhr3Vo GJz/qjL53ij4iwoLtm+goU9HZzg8bRSK6x+8WwM0/Dw438z1/SiIBuv35JnS UJE0Kb5KigdctvKFrSdpKFtWErtQngfVHl8W7nWk4WWuh/YcJR5wygunWznT kP+WbTN9CQ9oyUGv3W40pPW0vOg15MH9BbmlPy7TELK66FxqAA+OaJ0zuRFJ w4c1Td0eoTwY3Jm8QiaGBul1Y0d3xPDAmC1yM+A+DTc26pp2pZDrszqTnOJp uLStaOn8Sh6MXpU/+z2VhmKDpsTBGh7sazs5TeMpDTzDsVnlX3gwQ/qogn0m DW4mupJ2XTxouSkaUptNg5NF0e948TF4tyuidWcxDemWTQfPTh+DVTGbpluW 0NB9cOyTHmsMykROZx4upeHYUd2y1vlj0BBxavPu1zQcPFkUq7JtDBx0R0Ka 3tNg5FW0P/rqGOjME4+6+pU8r0/TB4fAMVhxelMMq4no5zu2VSdsDIoi1cQS v9Ow5Zru6sbEMXju46qY2ErD+uAiOSYeg9fLnNUNftNwIaTp+q93Y5ByTeVk bAcNuaFjwuy6MVgdnUf1dtKwKlK316xtDNhlronnumlYGFdUGTIxBvnrq/w0 +mmwT2jSs5bkw/XmW8Ob2DQkJY3lrZjBh1kDPTWmHBrmpOgmf5jDh9xtIf8d omk4nGalEruQD+rO5rkWAzTcf3oxzHElHzZ1vVI1HiT5yiryk9bjQ/OdVGXl YRr2Pm8abdrOhwHN/MwRwqG5Y85pJnwYnrj9qHqEBtki3SOGR/hQJ6jPt+bR YPzCqkHxOB+mz277PHuMhoCXF3f+cSLPs2d072fCYq+LdG/48MH8a/SFJQIa MmZQqRP+fAiR+L33C+F9R5wVLt7mw8/0Jh0vIQ3C9Hf+A5F8CK8yUWf9o+Ex T33QMY4PWlwmK4WwqcEl284nfAhYKjpDc5zkP/xrrfUzPhTIDs/IImywKjhj TxkfJtLNF0ZO0MD26VKufscHMw2/jXzCUVVbbm37xIfxFysPWEzSoDfrwejL Jj5YxW2/mEb4z/Hh4+t+8WG9Z2biIOHQnN0NWT18mPLeU7dmivg5lYaWDvLh mY2a+BnCbaZi2Y8EfGi0ldwSSzgg1lpNVUwAKfpCv9eENXsKb0fJCmBMb7Dy J+Fv65jCGSwBbF/SQQ0R9rt+5vQtVQFk7Hp/YoLwks+V30QWCmDEO75sinD9 XPUdPisFEC3noCYg7OXskzesI4DMtjn+vYTVS75onNUXwPjeGnY94SoprbDu HQLgGXsfzSbseiBo0tZMANmrV325QVj5cadzs6UA2nnDe80Jvx7Qb91nS3jm j0YFwo5b7u+sOSWAx64860/k/amQoaIdrgJ4cd+SfZVwSbPpYuwlgC2BlP8y wvZL0qI2XBPAj7fb5lYTfWU9RMVzgwRQcVCs3JZwbsWR8ysiBJDQ4OLEIf4c ZhS2P4kVwN0d6bPdCIvZMMzmPhbAgp2fP3OIv5mZTqX3MgVgIpgZZkfYQvB2 OTNfALt5gQc+kHyMG857EFwqgFcOjvNXEDbtaPS4XCuAC6+oxs98kgctzS7e V/L+N/WKlAjHXQ7c59omAOQb+tiC5JGjrK91nBbAlSOB0XmjxN89qT3GTCGZ Py5/JIeIv/EiVhUqQsgcs2dKkPpo6ztcuXm+EI7lXjISkHrSCpBP1lwrBFrH uLGK1Ft9qdcRhQNCqDNRdRvvIf7INlbfOSoEdWl6LPcv8efgqg1SJ4WgpX8j 2I7Us+vwbwWhpxDELc43JZF6Zy43qWu/L4Q9UZaqhT9Jf5JKZFYlCaH/rJsW +kH0/jNk8TxdCAmRvpcqWmhweBTberVYCLnhDaXZpP8UK/f1aHwXwpFjWvTK zzTc4emvlP0lBIbl4VqvT8SfL+Hnhv4KYUlMRHdpLQ3TwzbyKsaEwA1q+7jq Aw02UkHiDkr/gH1e1yW3goa1f34Yms77B54ZlPZr0g+l36wO1lnyD+oSIte8 KyN++n1nSOr+g9YRz+ES0k8leUvmplr+A6nBMh+jXBr+63q3oSf6HxQLTyhy Emm4VjHbtz7+H3z2yxK5Qvq7ZZILLk75B7WyG9fKPKRBxHqWYVDBP6g4edl1 GpkP+xtP7F/+9R98HJA7+uQ26QflEi7OCuOQxKsIdfEg/SZx2+OBiHF4Fyi3 eet2Gm5V1f/0fzgOxaoei6LIfHs3aKOs+IT8fsdq5bbNNOwwuHRnY8E4zLvW OduKzMdtvXkX/ZvG4eeNnLyfC0n9r11kqjBnAjKDxjS3kHm7+r3UqG7KBFyL 6cy1KOXCuYForQ/PJgA9v9kbXMSFLJWFTtaFE/DW6sae4lwurHJG7VffT4CM 7IJsfjqZ70zv6ureCSi8s6NLPpoLC4/0xR/RnIQzmcccH5zhghJdY3ilaBIq JDt8F1BcuB+Oj/XiSQi9ZqxkI8cFZZ1c3/1Vk/AybZl92DTC3vdylzST/Z3V 8j+EHJgtbj+3XjgJq7Qk+PKdHJirNDaqvmUKRjuGz/XncGAxaKRUvJ2CVK8x 5uWdHIh9XyIq7iiCjij8WuRux4aBX8+9aWcRZP88Ll2TnP+MhKmDra4i6GRG 7KFOczaMrIz8ne8lghaqHdu9YTsbzCLOlJ8MFEGKzknPwhaxQezonGsf0kRQ SUNAx3hPP5wZuiwS0S2CfJtEROrJ+VRPbeuUuoMoqr8VeKj2cB8YW39xsz8t ir63v+nWMO8Di4enuh87i6LDgpui54z64IxKaO1iD1HU9i+2b2htH8Qqtj5c GSCKPhWf+P5Irg/4Mzw2bEgXRZfKDKMSSnshfzL9/B62KLoVYRi4RKkXVvxi dF2+IIYO6Q53qRX9hWfp1OkCN3Ekx5P65NreBb5tRxtXBEign/tOLLvu8hvO 620wSYiSRL71RlFr/VpBmGhg3x82DbV0mz6q0vwC9a6xdheTpdBcOe+lbl/e w0aj+ZM/H0mjz9/kTk6KPIfqHRvTUZwM2lhvMzc7JAun5DzY2JEpi+pZ6nop F6uw4oKVTjZPpyOLJbkLDf804gZRaX+VUjkk8SHxqU5LKy6Qdk+tr56BorxX F7yJ+Y1XKjKc7CtnohVhjw9av+zCdChPYe03ebT6DrNzcfVfzB6YW7GqRR4Z Jr4pqW78i/v2GZ1b2iaPKun9z062/cVds+5Xq3UTHr/7PXT4L25J2OgnzZNH myJMJ++p9WB7q7JhriwDqS+333bbtQfvPiV69O1yBtoe79DUyezFC27d0jrn xEAy1Zb+jVv7sNs3HT97ZwZaXyge+3JXH369qKPmgAsDLW07eT5+fx+2eavn pOfGQOGtbZZmJ/pwrOjQExkfBjrT/7ncIbAPU77Ws58EMZCXWZihfW0fFjuv LdmczkCOx8brw/f1Y/PXbftrMhhoVZDin2eH+3GSfEgy/o+BfGP0vN7Y9+Mt Wd2Q+pyBfuRIKrS69WOf/oc+7sUMFPSXxX4Z0Y+HTkwbmFHFQPWfSi5u+9yP Ow63tmz7y0DaO7bOsdzJxnL6Vml2vQyU8Kr1k545G6+b1+ju189AnJnyMaqH 2Diw84NcCc1Asy3dzMtPs7GWc8kWbT4DORVNM3p2i419Lz9InifDRBl2kSaS b9lYMcnKaXw5E+2TDtFIW8/BW/wb189exUSvTjXMDNHn4NMOe8Q3aDGR4dLg mtMGHFy61CjOfS0T6fUl5cjs42D7nPV1fZuZ6E29NqfHmYOzKhTXNJsykYZ6 8i3VRxxs/KdRUODCRF0LTHMMxLn48orQS9muTGRUGjX8UpqLc88bT6S7MdHl cPWuFTO5WHWyVCTOk4netxd+GFXmYu6sVCl/PyaaDNMJ0tbk4ihjL0WzUCZq WCX9n5EVF//KnKPd/YyJahPl2X8ec7Hi0Lfc9mwmWvPcMNA1nYt3bQjXac5h otQLXzOH/+PivLeSG2oKmCjrT/SNzgIuDvjJ3ZL7iolWMExsHN+TT1n5clO/ WiYS5FVXyvVysZfbidOzOEy0P9neNnMxjQNNuKc20Uy0tXr1tIjlNL638OIp m0EmOsUWe31Ok8aF3wJPpo4yUXC/0WnGehoPb/rPYf0kE3W6jzp3G9DYRXzY zlKeQiGOptZddjS+/OOSnQ+TQovHZuVvdqBxSIGEXQKLQoZ/j80MPkXjzFOz bLuVKETxct5Nd6Fxz8eNRz3VKcQxObzysQ+Nj0ddPRSjTSGGHEhqRNDY7azM oZK1FOq9p6jSE0Vjf8OIg23rKHRg4pJG6j0aJ/EfWy3eRKHIvG9yUvE0brN+ f6BwG4UWhDhusE6jMWfd3gMtBhRK9N/X2vKUxuMzmy0mDSm0+dJH573/0Vi1 vG+/oQmFzn1LOKieQ+ODi2bu+7afQpruhWh/CY1PT8aYCw9QKDiEbxBUSuOL TfPM5x6k0DLJ82sKy2gcE6S996Q1hVY8D3o3UkHjRo6FGc+BQo4yIRUSH2ls Vvhw1yxPCm1SHb59rplcb9h+StGLQtvkHu7lt9D4+url+Yo+FNIbbVX3/kHj 4oxiNUU/CrmZZnTYt9N4fuLXAVYAhRaluP/+1kVjvR9xKaxAopd4PX9eN42t VBwOs4IpZLdtXPnYX6J35NAbKpRCLx/cdPvYS2PeLfl7zBgKsTDLH3FpzKj8 ZsK8T/ZvftC0k6bxCrEEEWYs8aP2yVqTARrb+a50YiRQ6InKnsl1QzT2eTE8 l5FEIQ9Dd+d5wzSO5pU0yicTdlr6S2SExh9cd+rLp1IoweFkU+YojbueMYZm plPIIu7GYQ8ejaf6mlJnZhB9Q2061o/RWOfEScbMLArNMQ+YesQn+iSvqpzx nNzfwzvKREBjx/YR7xm5FDISuq3iEE44dL1TrpBCp141Oyn/I/rE7LovV0yh 4a3jM5MJNzYyd8uVUEih4G7hgnEacxnNonKlFHIpdD8WT1jaLKlwehmF1nUF yctPED1vnzoz/TWFtrQWvPYirF+lqT69gkLiuj8vtBA+KMn7IvuWQmnhf1fo TJL8bXsVJPuOQhPXy/7cJBxy5cYW2SoKRaTsTibnbZxWajIs84FC/4X4H2NO 0bhCQKXL1FBoX53pAhPCP9a3WMvUUWjvZPxfX8I890dMmXoKbcx2zEolzMw5 /U66gUJn3cg0IrySq3VJ+guFlL4bb+8gbLhiTEv6G4XWntvNHCFsd7qsS+o7 hcIqs36T7w98KeXmA6kWCtWdcson3x84psPUTOoHycPvK0Hk+wM/n6cgLtVG 6rN0wK6f8Afr1qJpv8j9/F9v+kr4z4Nk52kdJA8lI7OKCIs0OWpM66JQNTtq NIzwbAXtb5LdZH98xjd7wjrm/GDJHgrdMd9aspLwnlAMkn1k/+2TSVyih9PH gBEJNtGnbllQOuEb0mZPJbgUWhIbd+Ew4YQdijYSAxRiujTYSxB+4f+Dkhii 0PmqX/tTif7ccSdfcR6FQsX+bmkg/h06aLJMMEahM/Yi8TaE3+at+MYVUKip snR3J/H/gRNbq2WCQiINMWlfhTSWeFfz49MUyc/a0b3bCbtoPAuqFGUhDRmv 3U9Jngy+n+18LslCPu+vIhuSv+y1ZmGpUixkschS9xnJ5+y7mvpxMixk18G9 NkLyO7CDjrk1g4Wmp6mxnEm+H+a57rJRJJz7avnUII2nyZuP7VdioUO+3LcM wq5O2k92qrDQ2E+v/Nmkngw1hiZ01Fjo2aXAKCVSf0Oh7jnTF7GQZ6GvbQGp z6N9+21El7DQe65lZlAPjat26EwfW8pCCSUxZpaknuPHRxw6VpL9wnNx30n9 Gzt5Kr/QYaHsmzNtrpH+kFdpWZm1noU4XXfOKrfReK6GrtuTDSwU6jXyLY30 k+GmsY939VhIf6ilOLv5f/p7XzlpwEJFvaveHG+kscyjQyutDVmo56Mw89Vn Gl8Y39hsbsxCV0VTB+XrabwzT7hG35SFTOrWRcfX0HhE3bebZcFCs214xkcr aWzrax0pY8lC+R4OC33ekHw16aEpK6LnXjW7u+U0TgydeNB3hIV27zEWJr+i 8a5xv93lx1lo6Z/v71wKaPyo6Vq+izsLxcy+q/3gMY27K1e3h3qwkBAVFkk/ IvWQ3y6TfZGFZoDBnnMJZB6F6dvSl1joJjugQOMBjWt2CmRcb7DQRptGd9VQ GvNfutqejybXN9d0PO5J4y0Z84LD77GQVu3h4wbupN/er8vPeUD8rW+5NMeV xjM9VsoOxbOQV9Dp6bmONF6g2ZPvlspCl/tNy9ysSX9KspW9UMRCCuKixiaI xlGhM9dFvWChFrOGewl6NG72fWWb/5KFaptOKPZuoLHDIdWCEcxCU1nTEo5r 09ibarL1qGKhgDXq4rQGjZ/cMCvwbGahbratgp0ojYWn9e28/7FQQ21wRN4L Mt9fLkceEyz0JifjGiLz/OEMZfXzUyzkfFays/I5F+vlDrWfFldAjX5fRUrS uNjvX5rtwekKiHNZs8oomovFQylbXVUF9CzbJEDowsVyeX+Pjm5SQOX/HVhU OYeLrSW/6g/qKaDtNXOT7ZW4+JlVhRpniwKqpfhFfCYXm43H/ezapoBiI1bn z5Ti4rAd+45+2aWA0hI8FDoGOFjhe6l13mEF1FO1KH3JGw5Wmwg/ct6H8N9Y lQ325HzUsfvFPV8F1FGXp+VwhIMvvJdRKvNTQIUDDR9uWXDwh/BrDbLXFdDM Rtb9AkMO9lx8fueT2wro5/Xid5nLObh+z17dpjgFdE3CXF9ikI39k2ey9LEC ailWPHDhIht3G93+IC2hiKxtOWs/nenH9iZ26oumKaIrO320lY73459m6zy3 SiuiccHvUCtyXv1yoF3DR04R/dEScy837scVx9d69ysQVkKLNi3qx/FXWpfU LVJE5iMuNuU/+rBF0YqbkUaKKKn+yNgGwz78ZnENzL2tiJqOv9WwF+/FTtKp Ehoys5DnDtldtbbduChpof6b8FlI6tUqp1KNTly3Wa9yH1MJBbiVVL651475 Tg/324UqIa0ii5L3kd9x1d7EAzNmKaOJtu/v1UPrsf1GvbS0KGX00NM6XS2u HDtyakd/xCijUkk7TTXLcuz6yNaAeqCMano/nlFilOMrMtd/+8YrI9a0zfbj 11/juOZq1X2pyijowtvFik1l+Ju3Vdh4kTJq7JnlGe1egneVuHmbtyqjBueE Gb9Sc7C5i0RVwE9ltPF7U2u7Sg4+OD9mVmm7Mlpw/at7S8hzfCr4Rd7iLmV0 3J86fO1PFr5xWIT7j62Mqnw0BzJ9M3CZ8I596qQy8nwavTjy6SNcmTUvp1VE BfGczpkq3E3CNfY5UwxxFdQall+j3puAWz98ibskpYI+Gz2IH/WLxfxY1aa9 DBX0a3tiyfaMcDxl9mxRAKWCHBbv2szoC8XTxOHCSwUVtGbYPvrulWCscMae uViF7P/699TFjGtYdd6I7RFVFbSQap9fecUHz2+8mRWmpoJepHrYR2acx8tv KU1UzlNBunFnrxRnHMPam5+a/NMgv9e+87//t8r+D73i2XM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{ 0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.578371043515625*^9, 3.57837159840625*^9}, CellTags->{"Exercises", "Exporting and Importing Images"}] }, Open ]], Cell[TextData[{ "Pou\[ZHacek]ijte p\[RHacek]\[IAcute]kaz ", Cell[BoxData[ ButtonBox["Export", BaseStyle->"Link", ButtonData->"paclet:ref/Export"]], "InlineFormula"], " k z\[AAcute]pisu obr\[AAcute]zku do souboru v ", StyleBox["GIF", "MR"], " form\[AAcute]tu, a pou\[ZHacek]ijte p\[RHacek]\[IAcute]kaz ", Cell[BoxData[ ButtonBox["Import", BaseStyle->"Link", ButtonData->"paclet:ref/Import"]], "InlineFormula"], " k na\[CHacek]ten\[IAcute] obsahu souboru zp\[EHacek]t do ", StyleBox["Mathematica", FontSlant->"Italic"], ". Zobrazte v\[YAcute]sledn\[YAcute] grafick\[YAcute] v\[YAcute]raz v ", StyleBox["Mathematica", FontSlant->"Italic"], ", a srovnejte s p\[URing]vodn\[IAcute]m obr\[AAcute]zkem. " }], "Exercise", CellChangeTimes->{{3.57390458234375*^9, 3.573904709765625*^9}}, CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GIFfilename", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.57837109146875*^9, 3.578371102390625*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\Sinus.gif\"\>\ "], "Output", CellChangeTimes->{3.5783711038125*^9, 3.5783715984375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"GIFfilename", ",", "gr", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.57837110690625*^9, 3.578371141625*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\Sinus.gif\"\>\ "], "Output", CellChangeTimes->{3.578371143140625*^9, 3.57837159875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"grIn", "=", " ", RowBox[{"Import", "[", "GIFfilename", "]"}]}]], "Input", CellChangeTimes->{{3.57837115696875*^9, 3.5783711931875*^9}}], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U9rG0kax3Hvn8O+jX0hw7B7W/YwzCwhB+PD2OxiX2yYdVgmuSSX5GJf kot9SQ5jB5z4IGOQCdgQxhAiCBaEGEwSGBQwyiHBYDEHQUD77DRohSS3WlJX PU9VfT94BsdG8mNZ+umprurqP8+vfPev38/MzPz7T/K/777/z19++OH7H//x R/nHX39c/ef8H+STM/lv8XczM//7vAMAAKBk5jcFv07fAiCTkw993yI3AGTI DQDjIjcAjGus3OjlqT6/Pn/+9ejw/aOHr26sVleW9+Xj+rXHS4uV7PP1tWP5 Vv3kXLtMQBn9hjh98/HB/RcSEd9+89Od24cSDrWXHyQf5KPZvJTvZp/vVU7l WxIgX3+1Kf+Xf8p3tWsHfOtrHno/SWE+pdVqb2/Vs47i6ZPXY4WAxIi0H3Jb 6UykRXFXJBC0mHJDxiPSYEh3sblRm7JnkM5EWhS5K0messoDohFHbrTbX2Ss IX2CvMzl87LuNguiudmd459/Kes+gQhEkBvyopbEkNwoMTF6NRoXt24+k5EL xz2ATNC50Wq15RUtH9IYuP5ZMnKRxmN7q+76BwH2hZsb2QvZ5whC+pnNjdrS YsVDTAGWBZob2WIMldfv6ZuPkleSWv5/NGBEcLkhY5OV5X3JDd0aJLWYakGy wlop2mxeLszvGlnb+eD+i/W1Y+0qAAWhJIZ49/aThIapSY29yqk0HtJ+aBcC eBVKbkiPIcMTg6/Q2ssPS4sVU2kGuBZEbshr0/LbujRCkmlEB9JhPzcOqmcS Go7WdJVFQoPoQDqM50bWaWhXUQjRgXRYzg0JjVs3nxnvNHoRHUiE2dx49/bT 0mIloNDIZDPFZg/FAKWwmRvZkcZAX32BJh5QnMHciKDbD26EBYzF2npR6THk zbrRuNAuZFoH1bN7d59rVwE4YScxOr+dcCqdxumbj9qFlGNzo8Z594iSqdyQ 3j6ynbXi+42AjqXciLKxlw5qYX43gmEX0MtIbkQ8ByGhIb9aoHNDwFAWckNe U9ZOdC2XDFVkwKJdBVAaC7mRwkEAjpEiJuq58fTJ6wf3X+jW4MfK8r6RHYeA KenmRrarhmIBPrEEHdFQzI3Pn3+V11FSe4NzoANxUMyNNPv2e3efH1TPtKsA pqK1zvzB/Rdp7gfOig5EQKXfCGg3HhciXqyCRPjPjVarPTe7k9RhjUHpzCIh Sv5zgwF+RjouLvqGQHnOjcRHKL0SnE5CNHzmBiOUPqQoAuUzNxihDLpz+/Do 8L12FcB4vOUG761DMVpBiPzkBiOUHFFuPIK4+ckNRij5mFtBWDysF+WkjJGa zUvpx1gJhlC47jfktXD92mNGKCPtVU7X1461qwAKcZ0byZ6HMoGlxUo0e7kj bk5z493bTwvzu+7uPzKNxoU8XIxWYJ/T3OANdFyPHr6SD+0qgBHc5QYD9glI syFhK32adiFITs78yOC3HOUGy5kmJh2aRId2FUhLNwcGA2FoRDjKDRZsTINH D57l50bBMJlSUrsNuyB92vVrjzlACm9ycmPo10vPDUbopWBjH/g0QW70mr6A 7a365kZt+vtJHPELn3T7DRrsEjHcg099nUP2+VUdRbm5kcIVG33i8YRNJeYG 74+lo3+DTSXmxsL8LuPx0nG8CAaVlRusDnWE6zTBoFJyg5PlnWIDE1hTSm5w srxrHCCFKdPnBntVecClIWHK9LnBW6EfNHWwY8qVosy9esOcLOyYst9g7tUn TlqBEdPkBnOvnjFvBSMmzg2ewyq4SBMsmDg3Njdq21v1cotBEYwNoW6y3OAY nSKutAt1k+UGc4K6mPuGrglyg8t8qOPCNNA1QW7wZmcBLR8UjZsbvNMZwSEm KBp3veiN1Wrt5QenJaEgWg5oGavf4IRuU1qt9tzsDkto4N9YucHKAWtYeQ4V xXODZsMgVu1CRcHc4PlpFi0H/CuYGzw5LWP8CM+K5AbNhnEMIeFZkdyg2bCP lgM+jcwN1hcFgZPd4NPI3GBxUShY/w9v8teL0mwEhFMA4E1+v0GzERZaDviR kxtcGCU4bHEAP3JygzevENEiwoOrcoPBcqA4JAUPrsoNmo1w0XLAtaG5QbMR NFoOuDY0N1aW9+sn5/6LQVloOeDUYG5wskMEaDng1GBucKZDHGg54E5fbtBs RENajrnZnVarrV0IItS3zpxmIyacyAxHevsNmo3IsHEKHOnmhjzHpNloNC50 60G5aDngQjc3eIJFiZYDLmS5wbMrYrwjoHRZbvDUihhvCiid5IbZ59UE17z2 yXJ5fbWZel+w/Lh1bJdnpzapZJon1ZS/SP7NR9657sNo5484aMrlfEH/WXVv 7pSd2qSSnGZjyj8xN7dz875JdsXirT0y3HwCclc5zYbxX5Obj/Xd3paD3Ij+ 5oNnJ02cGzMA0jZZdJQVQQgR5xEkYnurvrlRc3f/5EZSOJUgBR5mSMmN1NxY rdZeftCuAg5JpyH9htMfQW6khk0g4+ZnyyabuVHiARwXzJZX8NiX4qbTNh+3 LrN/2U7h2vzs12T5UdIuYbhuYWYr7IyqTavlsPyq7IT8B+3ytj+k2cfKbGFd ZissUphKy2E/N2yWV3wK1dvmkDYfqI7hwrpsVljwCea/5ciqsvmg9TJYYcEW 1+dm1AYfpYzZwjIRlHfn9uHR4XsPxWRKX3rkiMHyCubG+trxXuXUS0VjtECe GSypy/5bZ5HaVK6VYPlByxissEhueG4gDT5KHcNp1rH9vjluYf6vlWDwQcuY /ZtmRtbm+YCV2QcKHnB5pjhoHa1Csrg8UwT8z46RG4mj5QidymoccgO0HEHT Worj+SfCGmk55A3L4AazGElx6a//HwprTG1cjOK0zm4mN9DhWglhUtxNhdxA hpYjOIq7txlf7gJvaDnCort1G4mBrr3K6frasXYVKER3q1hyA73YuDgI6glP bqAXGxfbZ2FESW6gDy2HcRaOYJMb6FM/OV9Z3teuAsNZaDY65AaGUdy4GPke PXwlH9pVkBsYgmsl2GTnJERyA0PRchhk5wxEcgNDNZuXc7M7Ft7akGk0LqQJ NPIXYb0ormLn3Q0dYx0giYGr2BlNw9oRJ3IDOYwcvcfSYuX0zUftKv6P3EAO I6sFEmdwES+5gXzqp0LA4ApecgMjGXzepsPCqvJB5AZGMtgnJ8LsOJHcQBGm JgHTYbPZ6JAbKMbaPGAKLM+Dkxso6N7d5wfVM+0qEmJ53R3rRVGQ5be/+EiD t7RYMftokxgobnOjtr1V164iCcYPKJEbKM7s4f3I2J/AIjcwFrNH+KMh4Swj FOMLZsgNjItlYE4FkczkBsZVe/nhxmpVu4o4yRhwbnan1WprFzICuYEJGD9q Fy7FudecedXBb5EbmABzsi4oLq7r5sBgIAyNCHIDk2FrjtLJ6E/GgCo/Oj83 CoYJMBJzsuUycp3onKFKzj+B4uwvMwiFhLCMUBqNCz8/bqZH9yt9nwze5Kp7 IEMwLsXWOibqgz76Dfhk/DSKIBi5wEFf55B9flVHQW5gSpZP2wxCiD0buYEp tVrtudkdDpBO5ujw/Z3bh9pVjI3cwPQOqmf37j7XriI84UYuuYFSWLvARxDW 1473KqfaVUyC3EApjBzcC0jQWy+SGyjL9lZ9c6OmXUUwgj6tmNxAWYLYOMKI IE6Wz0FuoERB997eRHBWICtFUS72IB0pxAUbfUgMlMvzqRbBiWPOmtxA6eon 5yvL+9pVWBTKdl4jkRtwIdyVCU5JnEqoaldRAnIDLoS7EtIdCVKJU+0qykFu wBFGK72azUsJ0qDnUHqRG3CHU2W7ohmhZMgNuMNKsEx8K2nJDTjFeStRPgLk BlyL6XjgBKI8U5j1ovAg2es0qW8c6giJAQ/SnJaNeEaJ3IAfEb+IhpKQXJjf jTUqyQ14k84pb+32FwnJ+A5rdJEb8Cb6V1NX9AtXyA341GxeLi1WYu3eMylc xo7cgGdxH+hoNC4kGCM44zUfuQH/4ls/mUln7xFyAyru3D48OnyvXUXJ7t19 flA9067CB3IDKuI7RhprEzUU60WhpdVqS1ffbF5qF1KCFI6F9iIxoCiOo4jS NUnvFNmZa/nIDeiqn5zfWK2G+6JLYWZ5ELkBdQfVs0CbfIkLCY04hlpjITdg QYhXB5DhlQxP0tyViNyAEWFFR8qh0SE3YEkou1VIaMjwJKb9QsdFbsAUyQ3j m4Ml3mlkyA1Ys1c5NTtgyWZPEg+NDrkBk7IZFmuTs43GhXQaKZx+MhLrRWHT 8c+/mJrirJ+cm6pHF4kBs2Q4sDC/a+EclqdPXkunEfq61hKRG7Asm7lQ3F1Q CpAR04P7L7QKsIncgH2bG7Ubq1X/a7ml1Zmb3UnzCg75yA0Eofbyg7yEvW3Z 0W5/kbBK8MSTgsgNhEKGDHduH0rj4XpGo35yvjC/m8jW65MhNxCWrPF4cP+F i07g3dtPkktpTrZeNa869OvkBkL09Mnr69cel5gekhi3bj6TNkNyqZQ7DFFO PvR9i9xAoNrtL5Ie337zkwxeJn6xy53sVU6XFiuSGBz/JDeQjqPD9zK4+Pvf HmXbAhfpQKS7kMyRBkNutb52bGGJiAVj5UYvT/UBZWu12tmZ+NKByMfK8r6E SXaCbfYhgxr5onx8/dWmdBfyT2kwrC1l9+Oqlzz9BlImLUf95FwGL725IQ2G fDHlk99HIjcAjKWvA+n9hPkUANMjNwCMi9wAAAA5/gtvDV0Q "], {{0, 216}, {360, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSizeRaw->{360, 216}, PlotRange->{{0, 360}, {0, 216}}]], "Output", CellChangeTimes->{{3.57837116959375*^9, 3.57837119415625*^9}, 3.578371598828125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{"{", RowBox[{"{", RowBox[{"gr", ",", "grIn"}], "}"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.5783711958125*^9, 3.57837127284375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwlmXk4lN/7x61ZUmaeISRF+0pKaaH7VEKRUqJFSFpIEhGSSiUk2SvZUpb4 RHZJTpSikKiEopAsM/NYx8xk+Z3v9fvrXK/rmvMs7/f7vu/zXKNhf27fCTER EZFsURGR/63iWLauc921Lbyy/18X9ZZtnhtpC/cKmobnkFX4XMuhOeIcnI/O N/hC1j8Kp/mFEVfg6tNyn2SythjeqEiJuAtq15Jq9pP1q23EkviIRFi/Y4bF gfBE2Oes0nI/IhvWYeEr7zvZED5knRcTgWGD4lMDNT8Mmyt3yW5zr4ebpa92 yO6oB1cfs2N5rt+h6OIbndLmJjhbfCJUbMEvWJw595Mxuw2+9OyUSbPvgq7u 5kOV0p0QrMUTKTzUAxpSGaK7mN1wfkVV9OsUNgjd36/L5PdA14muq0mFbDjv WbxgnXgvWCaJOF99z4bnV2eoFc/ohU2KG7ehXjY02Oksfjq/F8SmnnLxSg5s 7521Vde0FyIabhvhPA4cP5WsIJrQC7neewSvyrlg1tzkoavXB8LjZ7J+ugzA f7N66u7Z94Mdc9ir1HMAXk4dmffCqR8qy3y2P/QbgEiHyNpGt34IUwn+fjB0 AF6YeG4e9e+HJZ/Sxb48G4D1ZsGLe5L7wWJTt+UH9gDkHl90O+R3P2Qxjk0V Og2CSozF2YpDbFAo66mOdhuElHKx6unH2OB9xjXqgs8gmPxoMTQ7zQaDd1eW rQkeBPdG8eQyTza0XkrY/+zpINzNdUsxjWSD9N/WtMc9g/DRYKbdnI9ssH9l uTfs5BAEHMA8v3UcWFOoTKmcGwI33oJgdz0OiGW3ND66OATe81fX2G7nQHKS jVVe4BCsemRnMc+cAx3XT9p8yxgC3eTwLZucOWC/y9N5Dj0Erzf41v5MItwU HZh+cRgYZzZx6sS5sKbeapf21WE42tWUWyDDBbFqFbmSwGEIdChiR8pzIbkk /u7HB8PQeyS8cL0qFzriU2K4L4fhYP7tC4pruGDvUPBER2QEfr1xXb3ehgvH B7+8fh04Ao7+ju2CbC7Y+YRZFYeNQFvunOM++VywFjflZt8fAU/d2p3DxVyw VHyjmpg+AqFxxZvriI/GG3M8L1eNQLvRgsiljVzQvHZn5SbpUZCZ+KzhMsKF 5bI732gzRkEt1tniAp8LSyIlDi9THoW3xcua3ca5oJ5y6Zby0lG4A0pfD0rQ wKp27OAZjcKWMN9LVSwa+AzD+3m3RmF9ZlzWOm0aRh6IamXeHYX2j3lhr3Vo GJz/qjL53ij4iwoLtm+goU9HZzg8bRSK6x+8WwM0/Dw438z1/SiIBuv35JnS UJE0Kb5KigdctvKFrSdpKFtWErtQngfVHl8W7nWk4WWuh/YcJR5wygunWznT kP+WbTN9CQ9oyUGv3W40pPW0vOg15MH9BbmlPy7TELK66FxqAA+OaJ0zuRFJ w4c1Td0eoTwY3Jm8QiaGBul1Y0d3xPDAmC1yM+A+DTc26pp2pZDrszqTnOJp uLStaOn8Sh6MXpU/+z2VhmKDpsTBGh7sazs5TeMpDTzDsVnlX3gwQ/qogn0m DW4mupJ2XTxouSkaUptNg5NF0e948TF4tyuidWcxDemWTQfPTh+DVTGbpluW 0NB9cOyTHmsMykROZx4upeHYUd2y1vlj0BBxavPu1zQcPFkUq7JtDBx0R0Ka 3tNg5FW0P/rqGOjME4+6+pU8r0/TB4fAMVhxelMMq4no5zu2VSdsDIoi1cQS v9Ow5Zru6sbEMXju46qY2ErD+uAiOSYeg9fLnNUNftNwIaTp+q93Y5ByTeVk bAcNuaFjwuy6MVgdnUf1dtKwKlK316xtDNhlronnumlYGFdUGTIxBvnrq/w0 +mmwT2jSs5bkw/XmW8Ob2DQkJY3lrZjBh1kDPTWmHBrmpOgmf5jDh9xtIf8d omk4nGalEruQD+rO5rkWAzTcf3oxzHElHzZ1vVI1HiT5yiryk9bjQ/OdVGXl YRr2Pm8abdrOhwHN/MwRwqG5Y85pJnwYnrj9qHqEBtki3SOGR/hQJ6jPt+bR YPzCqkHxOB+mz277PHuMhoCXF3f+cSLPs2d072fCYq+LdG/48MH8a/SFJQIa MmZQqRP+fAiR+L33C+F9R5wVLt7mw8/0Jh0vIQ3C9Hf+A5F8CK8yUWf9o+Ex T33QMY4PWlwmK4WwqcEl284nfAhYKjpDc5zkP/xrrfUzPhTIDs/IImywKjhj TxkfJtLNF0ZO0MD26VKufscHMw2/jXzCUVVbbm37xIfxFysPWEzSoDfrwejL Jj5YxW2/mEb4z/Hh4+t+8WG9Z2biIOHQnN0NWT18mPLeU7dmivg5lYaWDvLh mY2a+BnCbaZi2Y8EfGi0ldwSSzgg1lpNVUwAKfpCv9eENXsKb0fJCmBMb7Dy J+Fv65jCGSwBbF/SQQ0R9rt+5vQtVQFk7Hp/YoLwks+V30QWCmDEO75sinD9 XPUdPisFEC3noCYg7OXskzesI4DMtjn+vYTVS75onNUXwPjeGnY94SoprbDu HQLgGXsfzSbseiBo0tZMANmrV325QVj5cadzs6UA2nnDe80Jvx7Qb91nS3jm j0YFwo5b7u+sOSWAx64860/k/amQoaIdrgJ4cd+SfZVwSbPpYuwlgC2BlP8y wvZL0qI2XBPAj7fb5lYTfWU9RMVzgwRQcVCs3JZwbsWR8ysiBJDQ4OLEIf4c ZhS2P4kVwN0d6bPdCIvZMMzmPhbAgp2fP3OIv5mZTqX3MgVgIpgZZkfYQvB2 OTNfALt5gQc+kHyMG857EFwqgFcOjvNXEDbtaPS4XCuAC6+oxs98kgctzS7e V/L+N/WKlAjHXQ7c59omAOQb+tiC5JGjrK91nBbAlSOB0XmjxN89qT3GTCGZ Py5/JIeIv/EiVhUqQsgcs2dKkPpo6ztcuXm+EI7lXjISkHrSCpBP1lwrBFrH uLGK1Ft9qdcRhQNCqDNRdRvvIf7INlbfOSoEdWl6LPcv8efgqg1SJ4WgpX8j 2I7Us+vwbwWhpxDELc43JZF6Zy43qWu/L4Q9UZaqhT9Jf5JKZFYlCaH/rJsW +kH0/jNk8TxdCAmRvpcqWmhweBTberVYCLnhDaXZpP8UK/f1aHwXwpFjWvTK zzTc4emvlP0lBIbl4VqvT8SfL+Hnhv4KYUlMRHdpLQ3TwzbyKsaEwA1q+7jq Aw02UkHiDkr/gH1e1yW3goa1f34Yms77B54ZlPZr0g+l36wO1lnyD+oSIte8 KyN++n1nSOr+g9YRz+ES0k8leUvmplr+A6nBMh+jXBr+63q3oSf6HxQLTyhy Emm4VjHbtz7+H3z2yxK5Qvq7ZZILLk75B7WyG9fKPKRBxHqWYVDBP6g4edl1 GpkP+xtP7F/+9R98HJA7+uQ26QflEi7OCuOQxKsIdfEg/SZx2+OBiHF4Fyi3 eet2Gm5V1f/0fzgOxaoei6LIfHs3aKOs+IT8fsdq5bbNNOwwuHRnY8E4zLvW OduKzMdtvXkX/ZvG4eeNnLyfC0n9r11kqjBnAjKDxjS3kHm7+r3UqG7KBFyL 6cy1KOXCuYForQ/PJgA9v9kbXMSFLJWFTtaFE/DW6sae4lwurHJG7VffT4CM 7IJsfjqZ70zv6ureCSi8s6NLPpoLC4/0xR/RnIQzmcccH5zhghJdY3ilaBIq JDt8F1BcuB+Oj/XiSQi9ZqxkI8cFZZ1c3/1Vk/AybZl92DTC3vdylzST/Z3V 8j+EHJgtbj+3XjgJq7Qk+PKdHJirNDaqvmUKRjuGz/XncGAxaKRUvJ2CVK8x 5uWdHIh9XyIq7iiCjij8WuRux4aBX8+9aWcRZP88Ll2TnP+MhKmDra4i6GRG 7KFOczaMrIz8ne8lghaqHdu9YTsbzCLOlJ8MFEGKzknPwhaxQezonGsf0kRQ SUNAx3hPP5wZuiwS0S2CfJtEROrJ+VRPbeuUuoMoqr8VeKj2cB8YW39xsz8t ir63v+nWMO8Di4enuh87i6LDgpui54z64IxKaO1iD1HU9i+2b2htH8Qqtj5c GSCKPhWf+P5Irg/4Mzw2bEgXRZfKDKMSSnshfzL9/B62KLoVYRi4RKkXVvxi dF2+IIYO6Q53qRX9hWfp1OkCN3Ekx5P65NreBb5tRxtXBEign/tOLLvu8hvO 620wSYiSRL71RlFr/VpBmGhg3x82DbV0mz6q0vwC9a6xdheTpdBcOe+lbl/e w0aj+ZM/H0mjz9/kTk6KPIfqHRvTUZwM2lhvMzc7JAun5DzY2JEpi+pZ6nop F6uw4oKVTjZPpyOLJbkLDf804gZRaX+VUjkk8SHxqU5LKy6Qdk+tr56BorxX F7yJ+Y1XKjKc7CtnohVhjw9av+zCdChPYe03ebT6DrNzcfVfzB6YW7GqRR4Z Jr4pqW78i/v2GZ1b2iaPKun9z062/cVds+5Xq3UTHr/7PXT4L25J2OgnzZNH myJMJ++p9WB7q7JhriwDqS+333bbtQfvPiV69O1yBtoe79DUyezFC27d0jrn xEAy1Zb+jVv7sNs3HT97ZwZaXyge+3JXH369qKPmgAsDLW07eT5+fx+2eavn pOfGQOGtbZZmJ/pwrOjQExkfBjrT/7ncIbAPU77Ws58EMZCXWZihfW0fFjuv LdmczkCOx8brw/f1Y/PXbftrMhhoVZDin2eH+3GSfEgy/o+BfGP0vN7Y9+Mt Wd2Q+pyBfuRIKrS69WOf/oc+7sUMFPSXxX4Z0Y+HTkwbmFHFQPWfSi5u+9yP Ow63tmz7y0DaO7bOsdzJxnL6Vml2vQyU8Kr1k545G6+b1+ju189AnJnyMaqH 2Diw84NcCc1Asy3dzMtPs7GWc8kWbT4DORVNM3p2i419Lz9InifDRBl2kSaS b9lYMcnKaXw5E+2TDtFIW8/BW/wb189exUSvTjXMDNHn4NMOe8Q3aDGR4dLg mtMGHFy61CjOfS0T6fUl5cjs42D7nPV1fZuZ6E29NqfHmYOzKhTXNJsykYZ6 8i3VRxxs/KdRUODCRF0LTHMMxLn48orQS9muTGRUGjX8UpqLc88bT6S7MdHl cPWuFTO5WHWyVCTOk4netxd+GFXmYu6sVCl/PyaaDNMJ0tbk4ihjL0WzUCZq WCX9n5EVF//KnKPd/YyJahPl2X8ec7Hi0Lfc9mwmWvPcMNA1nYt3bQjXac5h otQLXzOH/+PivLeSG2oKmCjrT/SNzgIuDvjJ3ZL7iolWMExsHN+TT1n5clO/ WiYS5FVXyvVysZfbidOzOEy0P9neNnMxjQNNuKc20Uy0tXr1tIjlNL638OIp m0EmOsUWe31Ok8aF3wJPpo4yUXC/0WnGehoPb/rPYf0kE3W6jzp3G9DYRXzY zlKeQiGOptZddjS+/OOSnQ+TQovHZuVvdqBxSIGEXQKLQoZ/j80MPkXjzFOz bLuVKETxct5Nd6Fxz8eNRz3VKcQxObzysQ+Nj0ddPRSjTSGGHEhqRNDY7azM oZK1FOq9p6jSE0Vjf8OIg23rKHRg4pJG6j0aJ/EfWy3eRKHIvG9yUvE0brN+ f6BwG4UWhDhusE6jMWfd3gMtBhRK9N/X2vKUxuMzmy0mDSm0+dJH573/0Vi1 vG+/oQmFzn1LOKieQ+ODi2bu+7afQpruhWh/CY1PT8aYCw9QKDiEbxBUSuOL TfPM5x6k0DLJ82sKy2gcE6S996Q1hVY8D3o3UkHjRo6FGc+BQo4yIRUSH2ls Vvhw1yxPCm1SHb59rplcb9h+StGLQtvkHu7lt9D4+url+Yo+FNIbbVX3/kHj 4oxiNUU/CrmZZnTYt9N4fuLXAVYAhRaluP/+1kVjvR9xKaxAopd4PX9eN42t VBwOs4IpZLdtXPnYX6J35NAbKpRCLx/cdPvYS2PeLfl7zBgKsTDLH3FpzKj8 ZsK8T/ZvftC0k6bxCrEEEWYs8aP2yVqTARrb+a50YiRQ6InKnsl1QzT2eTE8 l5FEIQ9Dd+d5wzSO5pU0yicTdlr6S2SExh9cd+rLp1IoweFkU+YojbueMYZm plPIIu7GYQ8ejaf6mlJnZhB9Q2061o/RWOfEScbMLArNMQ+YesQn+iSvqpzx nNzfwzvKREBjx/YR7xm5FDISuq3iEE44dL1TrpBCp141Oyn/I/rE7LovV0yh 4a3jM5MJNzYyd8uVUEih4G7hgnEacxnNonKlFHIpdD8WT1jaLKlwehmF1nUF yctPED1vnzoz/TWFtrQWvPYirF+lqT69gkLiuj8vtBA+KMn7IvuWQmnhf1fo TJL8bXsVJPuOQhPXy/7cJBxy5cYW2SoKRaTsTibnbZxWajIs84FC/4X4H2NO 0bhCQKXL1FBoX53pAhPCP9a3WMvUUWjvZPxfX8I890dMmXoKbcx2zEolzMw5 /U66gUJn3cg0IrySq3VJ+guFlL4bb+8gbLhiTEv6G4XWntvNHCFsd7qsS+o7 hcIqs36T7w98KeXmA6kWCtWdcson3x84psPUTOoHycPvK0Hk+wM/n6cgLtVG 6rN0wK6f8Afr1qJpv8j9/F9v+kr4z4Nk52kdJA8lI7OKCIs0OWpM66JQNTtq NIzwbAXtb5LdZH98xjd7wjrm/GDJHgrdMd9aspLwnlAMkn1k/+2TSVyih9PH gBEJNtGnbllQOuEb0mZPJbgUWhIbd+Ew4YQdijYSAxRiujTYSxB+4f+Dkhii 0PmqX/tTif7ccSdfcR6FQsX+bmkg/h06aLJMMEahM/Yi8TaE3+at+MYVUKip snR3J/H/gRNbq2WCQiINMWlfhTSWeFfz49MUyc/a0b3bCbtoPAuqFGUhDRmv 3U9Jngy+n+18LslCPu+vIhuSv+y1ZmGpUixkschS9xnJ5+y7mvpxMixk18G9 NkLyO7CDjrk1g4Wmp6mxnEm+H+a57rJRJJz7avnUII2nyZuP7VdioUO+3LcM wq5O2k92qrDQ2E+v/Nmkngw1hiZ01Fjo2aXAKCVSf0Oh7jnTF7GQZ6GvbQGp z6N9+21El7DQe65lZlAPjat26EwfW8pCCSUxZpaknuPHRxw6VpL9wnNx30n9 Gzt5Kr/QYaHsmzNtrpH+kFdpWZm1noU4XXfOKrfReK6GrtuTDSwU6jXyLY30 k+GmsY939VhIf6ilOLv5f/p7XzlpwEJFvaveHG+kscyjQyutDVmo56Mw89Vn Gl8Y39hsbsxCV0VTB+XrabwzT7hG35SFTOrWRcfX0HhE3bebZcFCs214xkcr aWzrax0pY8lC+R4OC33ekHw16aEpK6LnXjW7u+U0TgydeNB3hIV27zEWJr+i 8a5xv93lx1lo6Z/v71wKaPyo6Vq+izsLxcy+q/3gMY27K1e3h3qwkBAVFkk/ IvWQ3y6TfZGFZoDBnnMJZB6F6dvSl1joJjugQOMBjWt2CmRcb7DQRptGd9VQ GvNfutqejybXN9d0PO5J4y0Z84LD77GQVu3h4wbupN/er8vPeUD8rW+5NMeV xjM9VsoOxbOQV9Dp6bmONF6g2ZPvlspCl/tNy9ysSX9KspW9UMRCCuKixiaI xlGhM9dFvWChFrOGewl6NG72fWWb/5KFaptOKPZuoLHDIdWCEcxCU1nTEo5r 09ibarL1qGKhgDXq4rQGjZ/cMCvwbGahbratgp0ojYWn9e28/7FQQ21wRN4L Mt9fLkceEyz0JifjGiLz/OEMZfXzUyzkfFays/I5F+vlDrWfFldAjX5fRUrS uNjvX5rtwekKiHNZs8oomovFQylbXVUF9CzbJEDowsVyeX+Pjm5SQOX/HVhU OYeLrSW/6g/qKaDtNXOT7ZW4+JlVhRpniwKqpfhFfCYXm43H/ezapoBiI1bn z5Ti4rAd+45+2aWA0hI8FDoGOFjhe6l13mEF1FO1KH3JGw5Wmwg/ct6H8N9Y lQ325HzUsfvFPV8F1FGXp+VwhIMvvJdRKvNTQIUDDR9uWXDwh/BrDbLXFdDM Rtb9AkMO9lx8fueT2wro5/Xid5nLObh+z17dpjgFdE3CXF9ikI39k2ey9LEC ailWPHDhIht3G93+IC2hiKxtOWs/nenH9iZ26oumKaIrO320lY73459m6zy3 SiuiccHvUCtyXv1yoF3DR04R/dEScy837scVx9d69ysQVkKLNi3qx/FXWpfU LVJE5iMuNuU/+rBF0YqbkUaKKKn+yNgGwz78ZnENzL2tiJqOv9WwF+/FTtKp Ehoys5DnDtldtbbduChpof6b8FlI6tUqp1KNTly3Wa9yH1MJBbiVVL651475 Tg/324UqIa0ii5L3kd9x1d7EAzNmKaOJtu/v1UPrsf1GvbS0KGX00NM6XS2u HDtyakd/xCijUkk7TTXLcuz6yNaAeqCMano/nlFilOMrMtd/+8YrI9a0zfbj 11/juOZq1X2pyijowtvFik1l+Ju3Vdh4kTJq7JnlGe1egneVuHmbtyqjBueE Gb9Sc7C5i0RVwE9ltPF7U2u7Sg4+OD9mVmm7Mlpw/at7S8hzfCr4Rd7iLmV0 3J86fO1PFr5xWIT7j62Mqnw0BzJ9M3CZ8I596qQy8nwavTjy6SNcmTUvp1VE BfGczpkq3E3CNfY5UwxxFdQall+j3puAWz98ibskpYI+Gz2IH/WLxfxY1aa9 DBX0a3tiyfaMcDxl9mxRAKWCHBbv2szoC8XTxOHCSwUVtGbYPvrulWCscMae uViF7P/699TFjGtYdd6I7RFVFbSQap9fecUHz2+8mRWmpoJepHrYR2acx8tv KU1UzlNBunFnrxRnHMPam5+a/NMgv9e+87//t8r+D73i2XM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{ 0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -152.90421193686507`}, ImageScaled[{0.5, 0.5}], {360., 291.2461179749811}], InsetBox[ FormBox[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt3U9rG0kax3Hvn8O+jX0hw7B7W/YwzCwhB+PD2OxiX2yYdVgmuSSX5GJf kot9SQ5jB5z4IGOQCdgQxhAiCBaEGEwSGBQwyiHBYDEHQUD77DRohSS3WlJX PU9VfT94BsdG8mNZ+umprurqP8+vfPev38/MzPz7T/K/777/z19++OH7H//x R/nHX39c/ef8H+STM/lv8XczM//7vAMAAKBk5jcFv07fAiCTkw993yI3AGTI DQDjIjcAjGus3OjlqT6/Pn/+9ejw/aOHr26sVleW9+Xj+rXHS4uV7PP1tWP5 Vv3kXLtMQBn9hjh98/HB/RcSEd9+89Od24cSDrWXHyQf5KPZvJTvZp/vVU7l WxIgX3+1Kf+Xf8p3tWsHfOtrHno/SWE+pdVqb2/Vs47i6ZPXY4WAxIi0H3Jb 6UykRXFXJBC0mHJDxiPSYEh3sblRm7JnkM5EWhS5K0messoDohFHbrTbX2Ss IX2CvMzl87LuNguiudmd459/Kes+gQhEkBvyopbEkNwoMTF6NRoXt24+k5EL xz2ATNC50Wq15RUtH9IYuP5ZMnKRxmN7q+76BwH2hZsb2QvZ5whC+pnNjdrS YsVDTAGWBZob2WIMldfv6ZuPkleSWv5/NGBEcLkhY5OV5X3JDd0aJLWYakGy wlop2mxeLszvGlnb+eD+i/W1Y+0qAAWhJIZ49/aThIapSY29yqk0HtJ+aBcC eBVKbkiPIcMTg6/Q2ssPS4sVU2kGuBZEbshr0/LbujRCkmlEB9JhPzcOqmcS Go7WdJVFQoPoQDqM50bWaWhXUQjRgXRYzg0JjVs3nxnvNHoRHUiE2dx49/bT 0mIloNDIZDPFZg/FAKWwmRvZkcZAX32BJh5QnMHciKDbD26EBYzF2npR6THk zbrRuNAuZFoH1bN7d59rVwE4YScxOr+dcCqdxumbj9qFlGNzo8Z594iSqdyQ 3j6ynbXi+42AjqXciLKxlw5qYX43gmEX0MtIbkQ8ByGhIb9aoHNDwFAWckNe U9ZOdC2XDFVkwKJdBVAaC7mRwkEAjpEiJuq58fTJ6wf3X+jW4MfK8r6RHYeA KenmRrarhmIBPrEEHdFQzI3Pn3+V11FSe4NzoANxUMyNNPv2e3efH1TPtKsA pqK1zvzB/Rdp7gfOig5EQKXfCGg3HhciXqyCRPjPjVarPTe7k9RhjUHpzCIh Sv5zgwF+RjouLvqGQHnOjcRHKL0SnE5CNHzmBiOUPqQoAuUzNxihDLpz+/Do 8L12FcB4vOUG761DMVpBiPzkBiOUHFFuPIK4+ckNRij5mFtBWDysF+WkjJGa zUvpx1gJhlC47jfktXD92mNGKCPtVU7X1461qwAKcZ0byZ6HMoGlxUo0e7kj bk5z493bTwvzu+7uPzKNxoU8XIxWYJ/T3OANdFyPHr6SD+0qgBHc5QYD9glI syFhK32adiFITs78yOC3HOUGy5kmJh2aRId2FUhLNwcGA2FoRDjKDRZsTINH D57l50bBMJlSUrsNuyB92vVrjzlACm9ycmPo10vPDUbopWBjH/g0QW70mr6A 7a365kZt+vtJHPELn3T7DRrsEjHcg099nUP2+VUdRbm5kcIVG33i8YRNJeYG 74+lo3+DTSXmxsL8LuPx0nG8CAaVlRusDnWE6zTBoFJyg5PlnWIDE1hTSm5w srxrHCCFKdPnBntVecClIWHK9LnBW6EfNHWwY8qVosy9esOcLOyYst9g7tUn TlqBEdPkBnOvnjFvBSMmzg2ewyq4SBMsmDg3Njdq21v1cotBEYwNoW6y3OAY nSKutAt1k+UGc4K6mPuGrglyg8t8qOPCNNA1QW7wZmcBLR8UjZsbvNMZwSEm KBp3veiN1Wrt5QenJaEgWg5oGavf4IRuU1qt9tzsDkto4N9YucHKAWtYeQ4V xXODZsMgVu1CRcHc4PlpFi0H/CuYGzw5LWP8CM+K5AbNhnEMIeFZkdyg2bCP lgM+jcwN1hcFgZPd4NPI3GBxUShY/w9v8teL0mwEhFMA4E1+v0GzERZaDviR kxtcGCU4bHEAP3JygzevENEiwoOrcoPBcqA4JAUPrsoNmo1w0XLAtaG5QbMR NFoOuDY0N1aW9+sn5/6LQVloOeDUYG5wskMEaDng1GBucKZDHGg54E5fbtBs RENajrnZnVarrV0IItS3zpxmIyacyAxHevsNmo3IsHEKHOnmhjzHpNloNC50 60G5aDngQjc3eIJFiZYDLmS5wbMrYrwjoHRZbvDUihhvCiid5IbZ59UE17z2 yXJ5fbWZel+w/Lh1bJdnpzapZJon1ZS/SP7NR9657sNo5484aMrlfEH/WXVv 7pSd2qSSnGZjyj8xN7dz875JdsXirT0y3HwCclc5zYbxX5Obj/Xd3paD3Ij+ 5oNnJ02cGzMA0jZZdJQVQQgR5xEkYnurvrlRc3f/5EZSOJUgBR5mSMmN1NxY rdZeftCuAg5JpyH9htMfQW6khk0g4+ZnyyabuVHiARwXzJZX8NiX4qbTNh+3 LrN/2U7h2vzs12T5UdIuYbhuYWYr7IyqTavlsPyq7IT8B+3ytj+k2cfKbGFd ZissUphKy2E/N2yWV3wK1dvmkDYfqI7hwrpsVljwCea/5ciqsvmg9TJYYcEW 1+dm1AYfpYzZwjIRlHfn9uHR4XsPxWRKX3rkiMHyCubG+trxXuXUS0VjtECe GSypy/5bZ5HaVK6VYPlByxissEhueG4gDT5KHcNp1rH9vjluYf6vlWDwQcuY /ZtmRtbm+YCV2QcKHnB5pjhoHa1Csrg8UwT8z46RG4mj5QidymoccgO0HEHT Worj+SfCGmk55A3L4AazGElx6a//HwprTG1cjOK0zm4mN9DhWglhUtxNhdxA hpYjOIq7txlf7gJvaDnCort1G4mBrr3K6frasXYVKER3q1hyA73YuDgI6glP bqAXGxfbZ2FESW6gDy2HcRaOYJMb6FM/OV9Z3teuAsNZaDY65AaGUdy4GPke PXwlH9pVkBsYgmsl2GTnJERyA0PRchhk5wxEcgNDNZuXc7M7Ft7akGk0LqQJ NPIXYb0ormLn3Q0dYx0giYGr2BlNw9oRJ3IDOYwcvcfSYuX0zUftKv6P3EAO I6sFEmdwES+5gXzqp0LA4ApecgMjGXzepsPCqvJB5AZGMtgnJ8LsOJHcQBGm JgHTYbPZ6JAbKMbaPGAKLM+Dkxso6N7d5wfVM+0qEmJ53R3rRVGQ5be/+EiD t7RYMftokxgobnOjtr1V164iCcYPKJEbKM7s4f3I2J/AIjcwFrNH+KMh4Swj FOMLZsgNjItlYE4FkczkBsZVe/nhxmpVu4o4yRhwbnan1WprFzICuYEJGD9q Fy7FudecedXBb5EbmABzsi4oLq7r5sBgIAyNCHIDk2FrjtLJ6E/GgCo/Oj83 CoYJMBJzsuUycp3onKFKzj+B4uwvMwiFhLCMUBqNCz8/bqZH9yt9nwze5Kp7 IEMwLsXWOibqgz76Dfhk/DSKIBi5wEFf55B9flVHQW5gSpZP2wxCiD0buYEp tVrtudkdDpBO5ujw/Z3bh9pVjI3cwPQOqmf37j7XriI84UYuuYFSWLvARxDW 1473KqfaVUyC3EApjBzcC0jQWy+SGyjL9lZ9c6OmXUUwgj6tmNxAWYLYOMKI IE6Wz0FuoERB997eRHBWICtFUS72IB0pxAUbfUgMlMvzqRbBiWPOmtxA6eon 5yvL+9pVWBTKdl4jkRtwIdyVCU5JnEqoaldRAnIDLoS7EtIdCVKJU+0qykFu wBFGK72azUsJ0qDnUHqRG3CHU2W7ohmhZMgNuMNKsEx8K2nJDTjFeStRPgLk BlyL6XjgBKI8U5j1ovAg2es0qW8c6giJAQ/SnJaNeEaJ3IAfEb+IhpKQXJjf jTUqyQ14k84pb+32FwnJ+A5rdJEb8Cb6V1NX9AtXyA341GxeLi1WYu3eMylc xo7cgGdxH+hoNC4kGCM44zUfuQH/4ls/mUln7xFyAyru3D48OnyvXUXJ7t19 flA9067CB3IDKuI7RhprEzUU60WhpdVqS1ffbF5qF1KCFI6F9iIxoCiOo4jS NUnvFNmZa/nIDeiqn5zfWK2G+6JLYWZ5ELkBdQfVs0CbfIkLCY04hlpjITdg QYhXB5DhlQxP0tyViNyAEWFFR8qh0SE3YEkou1VIaMjwJKb9QsdFbsAUyQ3j m4Ml3mlkyA1Ys1c5NTtgyWZPEg+NDrkBk7IZFmuTs43GhXQaKZx+MhLrRWHT 8c+/mJrirJ+cm6pHF4kBs2Q4sDC/a+EclqdPXkunEfq61hKRG7Asm7lQ3F1Q CpAR04P7L7QKsIncgH2bG7Ubq1X/a7ml1Zmb3UnzCg75yA0Eofbyg7yEvW3Z 0W5/kbBK8MSTgsgNhEKGDHduH0rj4XpGo35yvjC/m8jW65MhNxCWrPF4cP+F i07g3dtPkktpTrZeNa869OvkBkL09Mnr69cel5gekhi3bj6TNkNyqZQ7DFFO PvR9i9xAoNrtL5Ie337zkwxeJn6xy53sVU6XFiuSGBz/JDeQjqPD9zK4+Pvf HmXbAhfpQKS7kMyRBkNutb52bGGJiAVj5UYvT/UBZWu12tmZ+NKByMfK8r6E SXaCbfYhgxr5onx8/dWmdBfyT2kwrC1l9+Oqlzz9BlImLUf95FwGL725IQ2G fDHlk99HIjcAjKWvA+n9hPkUANMjNwCMi9wAAAA5/gtvDV0Q "], {{0, 216}, {360, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSizeRaw->{360, 216}, PlotRange->{{0, 360}, {0, 216}}], TraditionalForm], {576., -152.90421193686507`}, { Center, Center}, {360., 291.2461179749811}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.578371200484375*^9, {3.57837123359375*^9, 3.578371274609375*^9}, 3.578371598875*^9}] }, Open ]], Cell[TextData[{ "Prove\[DHacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]kaz \ k vytvo\[RHacek]en\[IAcute] animace. Pot\[EAcute] exportujte animaci do \ souboru ve form\[AAcute]tu ", Cell[BoxData[ ButtonBox["QuickTime", BaseStyle->"Link", ButtonData->"paclet:ref/format/QuickTime"]], "InlineFormula"], " (p\[RHacek]\[IAcute]pona .mov) a otev\[RHacek]ete jej ve sv\[EAcute]m \ prohl\[IAcute]\[ZHacek]e\[CHacek]i." }], "Exercise", CellChangeTimes->{{3.4935598285895147`*^9, 3.4935598353244143`*^9}, { 3.573904717671875*^9, 3.57390478134375*^9}}, CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"animSin", "=", RowBox[{"Animate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4814601614560947`*^9, 3.481460161857394*^9}}, CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 2.85625, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`n$$], 1, 4}}, Typeset`size$$ = {720., {205., 226.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`n$21235$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$21235$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ Sin[$CellContext`n$$ $CellContext`x], {$CellContext`x, 0, 2 Pi}], "Specifications" :> {{$CellContext`n$$, 1, 4, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{808., {287., 298.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Animate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.578371325515625*^9, {3.578371542640625*^9, 3.578371554515625*^9}, 3.57837159890625*^9, 3.5783716710625*^9}, CellTags->{"Exercises", "Exporting and Importing Images"}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"MOVfilename", " ", "=", " ", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{"MOVfilename", ",", "animSin", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.578371350359375*^9, 3.57837145784375*^9}, { 3.578371562609375*^9, 3.57837156634375*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\AnimSin.mov\"\ \>"], "Output", CellChangeTimes->{{3.578371435140625*^9, 3.5783714924375*^9}, { 3.5783715840625*^9, 3.578371613078125*^9}, 3.578371721703125*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"animSinIn", " ", "=", " ", RowBox[{"Import", "[", RowBox[{"MOVfilename", ",", "\"\\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5783714333125*^9, 3.578371435171875*^9}, { 3.578371618140625*^9, 3.578371645734375*^9}, {3.57837177921875*^9, 3.578371781078125*^9}}], Cell[TextData[StyleBox["Import a export dat", "Subsubsection"]], \ "ExerciseHeading", CellChangeTimes->{{3.573904796203125*^9, 3.573904803546875*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[TextData[{ "P\[RHacek]i importu grafick\[YAcute]ch obr\[AAcute]zk\[URing] existuje mo\ \[ZHacek]nost pr\[AAcute]ce s daty ve form\[AAcute]tu pixel\[URing]. Nejd\ \[RHacek]\[IAcute]ve vytvo\[RHacek]te pole ", Cell[BoxData[ FormBox[ RowBox[{"50", "\[Cross]", "50"}], TraditionalForm]]], " 8-bitov\[YAcute]ch hodnot \[SHacek]ed\[EAcute]." }], "Text", CellChangeTimes->{{3.573904841125*^9, 3.57390491921875*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.481460173135498*^9, 3.481460173303568*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[TextData[{ "Pot\[EAcute] pou\[ZHacek]ijte vytvo\[RHacek]en\[AAcute] data k vytvo\ \[RHacek]en\[IAcute] grafiky p\[RHacek]\[IAcute]kazem ", Cell[BoxData[ ButtonBox["Raster", BaseStyle->"Link", ButtonData->"paclet:ref/Raster"]], "InlineFormula"], ". V\[SHacek]imn\[EHacek]te si, \[ZHacek]e ", Cell[BoxData[ ButtonBox["Raster", BaseStyle->"Link", ButtonData->"paclet:ref/Raster"]], "InlineFormula"], " umis\[THacek]uje prvn\[IAcute] \[RHacek]adu dat jako spodn\[IAcute] \ \[RHacek]adu obr\[AAcute]zku." }], "Exercise", CellChangeTimes->{{3.573904922140625*^9, 3.57390500225*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ex", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Raster", "[", RowBox[{"data", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", " ", "255"}], "}"}]}], "]"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"4", "n"}], ",", RowBox[{"4", "n"}]}], "}"}]}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4814601756669607`*^9, 3.481460175869506*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJwB1Qkq9iFib1JiAgAAADIAAAAyAAAAjqYwsh+j7kZK4Kc6S3E3BxPm96EB ahG2Hmc/S1dGpMYUVFp4p1sMVn0XD+KeX2YRhQHS6DKoBFfxZqjLdTthEtUN w3O6/51U2ZLETpHm0ePgox1tWJaDm5HCXR/IaFaYg8DOqwupB9Q3Fkd/V1j3 VZeYhTL3QxlO7G1YK8TPlJ2f7/FuUenqkwX1PN6Qink/Vqc3IUgjHJUAr0NA lehROekvZw1/p1z2cL4uU03VgYD7iNEI5UJeJESDN5AxnbvK5Is1Ojbq8oXB jRzHteICOQLm2EBKq74kEY1AEx8rMp/giv0J1nX/x0/L4Sr6h7XIB/N4b/zC BOes9l4oaWAvHIUACAIWW0zF5S46mtQfsjhJGLiwLUzVVlMK0JTb6BbdfW2P 3UgfS+hQ9IWag+CoWijsDHMydta1zP/mZ91LnsRNycrP/x7lc50XnQU543gt rC47nFEl+YnBoEU/Qp3GmUGdz600MsrIVWYs1nloMxnSQdEYcycsK7U1RxTg YRrzQml/DPfr0XpDdEN0+3MYabnWDI8g4N6OlTYx+Uyl/KKYpr+nkr8E9pdU WVsuY5Z0jRQGBUbFo55SGIoKrhs38e82XFA59V39aiS6S251KOlzdvgSpe9l gPuS+2M7s2FF0WAiz12ZRxyE4EqxoIq3zcXHi9Vg+XGqSynVdQq8X+JduSIB lJaWb2Q6ObF25XU0GKYw0naYegfxIbN3jcke1pY1AFearb0VyxtH6cwGl8ug aR26BAhYrZCfGvYqiBrarNeI4PnzOXfcxCZc/KsC4sdhrVnHUwxIPNICEHps IA1vKPKDYFGhKM/L5MX7EV7ys9slyGcxBBrZutTvJw3EnhYp3u2vT8zasuPH wsjV1s1HMY8qYaNZlK4kmj6nQPB05M2dg64OE5ltxzcawr9ypjT3ae28GNGp 9BbOns36nzfOE83qZJau5Qk7tpTOoghlb9QOt+YrR5juSNxuOgZ4s6TIpkzq kAx/BWQiho2xbPW4137PWVsA5NhvuVq5BkyrO99/73EXqoZZZUw3tCKLS0s3 PMrDUrMS5a+jcBhMDAHyPD4xTk9h8iR9EaCKVlQcTQFcqrtS6//kBiIWvY8a OnK/YoBOfqpTb+AOUkIkIRO7WOtz7jP+R72LbyYO6bw/gwKD1qGFx18AydUP 9zrhyKiV5oPa6VoYtcsiLiK5c6ir2QXym6Uhkle/bi8YFZfial7Ds/QjPhjW LI0XBuZvfyG4I18TEfrgdotgglu0cPmmPlLj09s4zO3o7nZuR0gq/Di1U1QY PRycAIhf6e23uOjoxv15cpJiTm/UU7J0i08ZC1BAB5QAfRX81oNnRLv6Ad+P 7LIGFfqovEPNbtkZNp+vpkHiZAPEYttStu+rtp4IJgiAvJ8jjiUTT2vjVuq9 kH2uYC1qlMU94oFBDetj72HX2jmEyzEdnWPjJc1mX1J3jC/92HgQSz9RJPja NXIQY2z++tavKY0c8rXRpYrXNB66PVe7dKo1amx+CN8pqD5UrC1jWy+Q/ZWI 2zi8/BdqEdb/wT1Vj/oCWkhX63D5hszPEnoouInCI7VMHrLiceNsXAGeKk0Q 120qi5/2kvO4TE4k7stluZwv7+BMAN8GWWxJsrm4H+wW0VDRTz67Fu3zBdHy nQbLXAMVwsL6XCuuYvvaVHoPu05a5ENX/I/BJ/qPZ1yVqaUB2uwX4o2VaKSb 6+qBHyjhZkotO76Rx4Xx6kRMzxXaSLSvCqJuQJN6rY33iTn4LVa5PtHRUtXh 64eJU8nEz6s7FVaS9tBELkeXY0884zNNf5wHkMe28IebuMDMZ6x6AKvHStV7 mhUFp3INmOxDG2oTdbvPvTbsID37Xst9YRHf1/OMohFr3TlKFChwraGxaaJo uknc/RbHQPBH1cOJ51xzHX+1Fns7T1WRCZ2Qgk4hZhIkCr58Y1b6OfF6hzaD DxYkslhSCyDmufuurdQ2UhCJW+6Y0qkXp0U8g13jRky6DjyFeXqr7Ef3Hs6B K1C3y07SFt46obfikvyjL3PdL7TbJIb6e/KP/7eo/c77MqPas9p9nF2xxptb 9qf4pKA6RI48Pp5ggukxRYVhjAV5HAp/AjKL0Pno9PK8v7ufdfGnOAaGTu5I fSGksfqblLHqhCotk2Tok2gCTvBc4J8WWSzkp7TgPb6o5ZCr+ZpigHQuMnCG qvo7iVleJehATCINmqC206jARoR+ClEgw5UteaVGRxptHtDhX2qx63ZM2QNp ELHWh2h2ph1dV8F5DP2BTIa8Dg4pk8QCJe7cC06oSWtjh81WuDBzlVPo/9py L4W8Jv5Vxxs9aykE/tGQz9WLKqD95aZm73tqwTilsuopqNAtEgx3KiWcv3Yz pxxriU1GR3G/QuZkUdFGTaivzX33d9rIRTUJI2Hvqfp6SLmFaIsbfEajXQCh 4eoRMiT7XXZcMmTubvQNLZKY8J1CeoZrNxsCurrEAElKR8556/enywDr8Ndr h0wEMG6/HbRsBjED+ERsX3v2MAgENx9mQ9ee/xASIWwPr+/dY96goprxPSPw KFk/WrBaic891wm7p0wxqXtFC65fh3bg3WdjvLrN6GM4nkM/ceix9us2Mt2t Q84LNa7hdchRg1gBTsSYZzqnkqND8QBwRR84BRBZesnUjEqrMx61xm2rU2qw 2AnP2TyglHeCcsAwVPIbp0kgPXrhfUwvMsH9MOuefhqVrfltHI8BSPbY24Ht tb63w+EiKv0oZjD8ktfjJCATMLNMc6JSv9xxLmXvSU7a7pPkyKZkDK6e5+kK MvP389xBoHx2hF1ZoKWs1kXJ+hiiKEZZ0PS66BmWIlt5jkWoQlYrQWdmKoHw fFJ8C+dPjTIqsl1ue2KIv6MwBc/prqTSCgyW0IfukMNnRUWcWORJB2QNpiEZ acDqgKk25ZttmuBQZwdEGXaOjo8T4oz2fJ1Pp86Bbqrkdxf8Z6FlL4PV1osn IEwsSDqrXh/VGNXrhQgWQunM4qEhOegVJEs/iPPYmbTw3k4O+M5c0J2VHi+j Lfgruuf93C/Y9+UAszP1XuYWNA217F7l9Ytakd2ced/9/TENHLs/gcsWsvbs Yfy3GcaYqftmFqgJLCZ+DvZj3OeqmVDOuOHZBj22e9fZul6Fa5j7vHW2asqZ RgTZ0ThIngL6Uago+ze0aBSpmwfspQAvVWycRehZX2f5QSDztQLRBb/5/YFp dum0dFEZDDiroNBQ+JT4KhqykO0T1RLd2xBZy4lHTBQ+vtH7ZriuCRfDrl7V IaNEEgG24cuYShWB2qeQsUR0HEqAz3gWyz3JSvPMRiFlUv/Nn9pINyTSREae nPGmIH4S6Ww= "], {{0, 0}, {50, 50}}, {0, 255}], AspectRatio->Automatic, ImageSize->{200, 200}]], "Output", CellChangeTimes->{3.578371613203125*^9}, CellTags->{"Exercises", "Exporting and Importing Data"}] }, Open ]], Cell["Nyn\[IAcute] exportujte obr\[AAcute]zek.", "Exercise", CellChangeTimes->{{3.5739050086875*^9, 3.57390501734375*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", " ", "ex"}], "]"}]], "Input", CellChangeTimes->{{3.481460183012217*^9, 3.481460183382681*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[BoxData["\<\"test.tif\"\>"], "Output", CellChangeTimes->{3.5783716133125*^9}, CellTags->{"Exercises", "Exporting and Importing Data"}] }, Open ]], Cell[TextData[{ "D\[AAcute]le prove\[DHacek]te reverzi. Importujte soubor a vyberte data. \ Zkontrolujte, zda v\[YAcute]raz vr\[AAcute]cen\[YAcute] \ p\[RHacek]\[IAcute]kazem ", Cell[BoxData[ ButtonBox["Import", BaseStyle->"Link", ButtonData->"paclet:ref/Import"]], "InlineFormula"], " m\[AAcute] stejn\[YAcute] form\[AAcute]t jako v\[YAcute]raz vlo\[ZHacek]en\ \[YAcute] do p\[RHacek]ikazu ", Cell[BoxData[ ButtonBox["Export", BaseStyle->"Link", ButtonData->"paclet:ref/Export"]], "InlineFormula"], "." }], "Exercise", CellChangeTimes->{{3.57390502503125*^9, 3.573905135625*^9}}, CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"exIn", " ", "=", RowBox[{"Import", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.578372042578125*^9, 3.5783720603125*^9}, { 3.5783721709375*^9, 3.578372179375*^9}, {3.578374409125*^9, 3.5783744103125*^9}, {3.57837457671875*^9, 3.578374594828125*^9}}], Cell[BoxData[ InterpretationBox[ TagBox[ PanelBox[GridBox[{ { StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm], ImageSizeCache->{723., {6., 21.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None]}, { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "188", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}], ",", RowBox[{"{", RowBox[{"255", ",", "255", ",", "255"}], "}"}]}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "198", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}]}], "}"}], Short[#, 5]& ], Background->GrayLevel[1], BaseStyle->{Deployed -> False}, Frame->True, FrameStyle->GrayLevel[0, 0.2], StripOnInput->False]}, { RowBox[{ ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{132., {1., 21.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 12, 23451279649253448675, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{139., {1., 21.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 12, 23451279649253448675, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{214., {6., 21.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>OutputSizeLimit`ButtonFunction[ Identity, 12, 23451279649253448675, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], "\[ThinSpace]", ButtonBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{190., {1., 20.}}], StripOnInput->False, DynamicUpdating->True], "Panel", StripOnInput->False, Background->None], Appearance->Automatic, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[1.2]}, Offset[0.2]}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], Deploy, DefaultBaseStyle->"Deploy"], Out[12]]], "Output", CellChangeTimes->{ 3.578372062296875*^9, 3.578372181078125*^9, 3.57837421646875*^9, 3.578374411203125*^9, {3.578374579796875*^9, 3.578374600546875*^9}}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.573905175140625*^9}], Cell[TextData[StyleBox["Pou\[ZHacek]it\[IAcute] soubor\[URing] (kolekc\ \[IAcute]) dat", "Subsubsection"]], "ExerciseHeading", CellChangeTimes->{{3.57390518471875*^9, 3.57390521871875*^9}}, CellTags->{"Exercises", "Using Data Collections"}], Cell[TextData[{ "S pou\[ZHacek]it\[IAcute]m p\[RHacek]\[IAcute]kazu ", Cell[BoxData[ ButtonBox["CountryData", BaseStyle->"Link", ButtonData->"paclet:ref/CountryData"]], "InlineFormula"], ", vyberte jednu zemi z ka\[ZHacek]d\[EAcute]ho kontinentu a srovnejte mno\ \[ZHacek]stv\[IAcute] AIDS na hlavu; t.j., ur\[CHacek]ete pom\[EHacek]r HIV \ AIDS populace k celkov\[EAcute] populaci pro ka\[ZHacek]dou zemi." }], "Exercise", CellChangeTimes->{{3.57390522328125*^9, 3.573905311390625*^9}}, CellTags->{"Exercises", "Using Data Collections"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CountryData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.578374757953125*^9, 3.57837482153125*^9}, { 3.578374856046875*^9, 3.578374862515625*^9}, {3.578374942921875*^9, 3.578374945984375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"AdultPopulation\"\>", ",", "\<\"AgriculturalProducts\"\>", ",", "\<\"AgriculturalValueAdded\"\>", ",", "\<\"Airports\"\>", ",", "\<\"AlternateNames\"\>", ",", "\<\"AlternateStandardNames\"\>", ",", "\<\"AMRadioStations\"\>", ",", "\<\"AnnualBirths\"\>", ",", "\<\"AnnualDeaths\"\>", ",", "\<\"AnnualHIVAIDSDeaths\"\>", ",", "\<\"ArableLandArea\"\>", ",", "\<\"ArableLandFraction\"\>", ",", "\<\"Area\"\>", ",", "\<\"BirthRateFraction\"\>", ",", "\<\"BorderingCountries\"\>", ",", "\<\"BordersLengths\"\>", ",", "\<\"BoundaryLength\"\>", ",", "\<\"CallingCode\"\>", ",", "\<\"CapitalCity\"\>", ",", "\<\"CapitalLocation\"\>", ",", "\<\"CapitalLocationLink\"\>", ",", "\<\"CellularPhones\"\>", ",", "\<\"CenterCoordinates\"\>", ",", "\<\"CenterLocationLink\"\>", ",", "\<\"ChildPopulation\"\>", ",", "\<\"Classes\"\>", ",", "\<\"ClimateTypes\"\>", ",", "\<\"CoastlineLength\"\>", ",", "\<\"ConstructionValueAdded\"\>", ",", "\<\"Continent\"\>", ",", "\<\"Coordinates\"\>", ",", "\<\"Countries\"\>", ",", "\<\"CountryCode\"\>", ",", "\<\"CropsLandArea\"\>", ",", "\<\"CropsLandFraction\"\>", ",", "\<\"CurrencyCode\"\>", ",", "\<\"CurrencyName\"\>", ",", "\<\"CurrencyShortName\"\>", ",", "\<\"CurrencyUnit\"\>", ",", "\<\"CurrentAccountBalance\"\>", ",", "\<\"DeathRateFraction\"\>", ",", "\<\"Dependencies\"\>", ",", "\<\"DependencyParent\"\>", ",", "\<\"EconomicAid\"\>", ",", "\<\"ElderlyPopulation\"\>", ",", "\<\"ElectricalGridFrequency\"\>", ",", "\<\"ElectricalGridPlugImages\"\>", ",", "\<\"ElectricalGridPlugs\"\>", ",", "\<\"ElectricalGridSocketImages\"\>", ",", "\<\"ElectricalGridSockets\"\>", ",", "\<\"ElectricalGridVoltages\"\>", ",", "\<\"ElectricityConsumption\"\>", ",", "\<\"ElectricityExports\"\>", ",", "\<\"ElectricityImports\"\>", ",", "\<\"ElectricityProduction\"\>", ",", "\<\"EnvironmentalAgreements\"\>", ",", "\<\"EnvironmentalIssues\"\>", ",", "\<\"EthnicGroups\"\>", ",", "\<\"EthnicGroupsFractions\"\>", ",", "\<\"ExchangeRate\"\>", ",", "\<\"ExpenditureFractions\"\>", ",", "\<\"ExportCommodities\"\>", ",", "\<\"ExportPartners\"\>", ",", "\<\"ExportPartnersFractions\"\>", ",", "\<\"ExportValue\"\>", ",", "\<\"ExternalDebt\"\>", ",", "\<\"FemaleAdultPopulation\"\>", ",", "\<\"FemaleChildPopulation\"\>", ",", "\<\"FemaleElderlyPopulation\"\>", ",", "\<\"FemaleInfantMortalityFraction\"\>", ",", "\<\"FemaleLifeExpectancy\"\>", ",", "\<\"FemaleLiteracyFraction\"\>", ",", "\<\"FemaleMedianAge\"\>", ",", "\<\"FemalePopulation\"\>", ",", "\<\"FiscalYearDate\"\>", ",", "\<\"FixedInvestment\"\>", ",", "\<\"Flag\"\>", ",", "\<\"FlagDescription\"\>", ",", "\<\"FMRadioStations\"\>", ",", "\<\"ForeignExchangeReserves\"\>", ",", "\<\"ForeignOwnedShips\"\>", ",", "\<\"ForeignRegisteredShips\"\>", ",", "\<\"FullCoordinates\"\>", ",", "\<\"FullName\"\>", ",", "\<\"FullNativeName\"\>", ",", "\<\"FullPolygon\"\>", ",", "\<\"GDP\"\>", ",", "\<\"GDPAtParity\"\>", ",", "\<\"GDPPerCapita\"\>", ",", "\<\"GDPRealGrowth\"\>", ",", "\<\"GDPSectorFractions\"\>", ",", "\<\"GiniIndex\"\>", ",", "\<\"GovernmentConsumption\"\>", ",", "\<\"GovernmentDebt\"\>", ",", "\<\"GovernmentExpenditures\"\>", ",", "\<\"GovernmentReceipts\"\>", ",", "\<\"GovernmentSurplus\"\>", ",", "\<\"GrossInvestment\"\>", ",", "\<\"Groups\"\>", ",", "\<\"HighestElevation\"\>", ",", "\<\"HighestPoint\"\>", ",", "\<\"HIVAIDSDeathRateFraction\"\>", ",", "\<\"HIVAIDSFraction\"\>", ",", "\<\"HIVAIDSPopulation\"\>", ",", "\<\"HouseholdConsumption\"\>", ",", "\<\"ImportCommodities\"\>", ",", "\<\"ImportPartners\"\>", ",", "\<\"ImportPartnersFractions\"\>", ",", "\<\"ImportValue\"\>", ",", "\<\"IndependenceDate\"\>", ",", "\<\"IndependenceYear\"\>", ",", "\<\"IndustrialProductionGrowth\"\>", ",", "\<\"IndustrialValueAdded\"\>", ",", "\<\"InfantMortalityFraction\"\>", ",", "\<\"InfectiousDiseases\"\>", ",", "\<\"InflationRate\"\>", ",", "\<\"InternationalOrganizations\"\>", ",", "\<\"InternationalOrganizationsObserver\"\>", ",", "\<\"InternetCode\"\>", ",", "\<\"InternetHosts\"\>", ",", "\<\"InternetUsers\"\>", ",", "\<\"InventoryChange\"\>", ",", "\<\"IrrigatedLandArea\"\>", ",", "\<\"IrrigatedLandFraction\"\>", ",", "\<\"ISOName\"\>", ",", "\<\"LaborForce\"\>", ",", "\<\"LandArea\"\>", ",", "\<\"Languages\"\>", ",", "\<\"LanguagesDialects\"\>", ",", "\<\"LanguagesFractions\"\>", ",", "\<\"LargestCities\"\>", ",", "\<\"LifeExpectancy\"\>", ",", "\<\"LiteracyFraction\"\>", ",", "\<\"LowestElevation\"\>", ",", "\<\"LowestPoint\"\>", ",", "\<\"MajorIndustries\"\>", ",", "\<\"MajorPorts\"\>", ",", "\<\"MaleAdultPopulation\"\>", ",", "\<\"MaleChildPopulation\"\>", ",", "\<\"MaleElderlyPopulation\"\>", ",", "\<\"MaleInfantMortalityFraction\"\>", ",", "\<\"MaleLifeExpectancy\"\>", ",", "\<\"MaleLiteracyFraction\"\>", ",", "\<\"MaleMedianAge\"\>", ",", "\<\"MalePopulation\"\>", ",", "\<\"ManufacturingValueAdded\"\>", ",", "\<\"MaritimeClaims\"\>", ",", "\<\"MedianAge\"\>", ",", "\<\"Memberships\"\>", ",", "\<\"MerchantShips\"\>", ",", "\<\"MerchantShipsDeadWeight\"\>", ",", "\<\"MerchantShipsGross\"\>", ",", "\<\"MerchantShipTypes\"\>", ",", "\<\"MigrationRateFraction\"\>", ",", "\<\"MilitaryAgeFemales\"\>", ",", "\<\"MilitaryAgeMales\"\>", ",", "\<\"MilitaryAgePopulation\"\>", ",", "\<\"MilitaryAgeRate\"\>", ",", "\<\"MilitaryExpenditureFraction\"\>", ",", "\<\"MilitaryExpenditures\"\>", ",", "\<\"MilitaryFitFemales\"\>", ",", "\<\"MilitaryFitMales\"\>", ",", "\<\"MilitaryFitPopulation\"\>", ",", "\<\"MiscellaneousValueAdded\"\>", ",", "\<\"Name\"\>", ",", "\<\"NationalIncome\"\>", ",", "\<\"NationalityName\"\>", ",", "\<\"NativeName\"\>", ",", "\<\"NaturalGasConsumption\"\>", ",", "\<\"NaturalGasExports\"\>", ",", "\<\"NaturalGasImports\"\>", ",", "\<\"NaturalGasProduction\"\>", ",", "\<\"NaturalGasReserves\"\>", ",", "\<\"NaturalHazards\"\>", ",", "\<\"NaturalResources\"\>", ",", "\<\"OilConsumption\"\>", ",", "\<\"OilExports\"\>", ",", "\<\"OilImports\"\>", ",", "\<\"OilProduction\"\>", ",", "\<\"OilReserves\"\>", ",", "\<\"PavedAirportLengths\"\>", ",", "\<\"PavedAirports\"\>", ",", "\<\"PavedRoadLength\"\>", ",", "\<\"PhoneLines\"\>", ",", "\<\"Pipelines\"\>", ",", "\<\"Polygon\"\>", ",", "\<\"Population\"\>", ",", "\<\"PopulationGrowth\"\>", ",", "\<\"PovertyFraction\"\>", ",", "\<\"PriceIndex\"\>", ",", "\<\"RadioStations\"\>", ",", "\<\"RailwayGaugeLengths\"\>", ",", "\<\"RailwayGaugeRules\"\>", ",", "\<\"RailwayLength\"\>", ",", "\<\"RegionNames\"\>", ",", "\<\"Regions\"\>", ",", "\<\"Religions\"\>", ",", "\<\"ReligionsFractions\"\>", ",", "\<\"RoadLength\"\>", ",", "\<\"SchematicCoordinates\"\>", ",", "\<\"SchematicPolygon\"\>", ",", "\<\"SectorLaborFractions\"\>", ",", "\<\"Shape\"\>", ",", "\<\"ShortWaveRadioStations\"\>", ",", "\<\"SignedEnvironmentalAgreements\"\>", ",", "\<\"StandardName\"\>", ",", "\<\"SuffrageType\"\>", ",", "\<\"TelevisionStations\"\>", ",", "\<\"TerrainTypes\"\>", ",", "\<\"TimeZones\"\>", ",", "\<\"TotalConsumption\"\>", ",", "\<\"TotalFertilityRate\"\>", ",", "\<\"TradeValueAdded\"\>", ",", "\<\"TransportationValueAdded\"\>", ",", "\<\"UNCode\"\>", ",", "\<\"UnemploymentFraction\"\>", ",", "\<\"UNNumber\"\>", ",", "\<\"UnpavedAirportLengths\"\>", ",", "\<\"UnpavedAirports\"\>", ",", "\<\"UnpavedRoadLength\"\>", ",", "\<\"ValueAdded\"\>", ",", "\<\"WaterArea\"\>", ",", "\<\"WaterwayLength\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.578374773546875*^9, 3.57837482321875*^9}, 3.578374863640625*^9, 3.578374947375*^9}] }, Open ]], Cell["\<\ Po\[ZHacek]adovan\[EAcute] hodnoty najdeme v Population a HIVAIDSPopulation.\ \>", "Text", CellChangeTimes->{{3.57837500340625*^9, 3.57837505209375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CountryData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.578375114296875*^9, 3.57837514153125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Africa\"\>", ",", "\<\"Antarctica\"\>", ",", "\<\"Asia\"\>", ",", "\<\"Europe\"\>", ",", "\<\"NorthAmerica\"\>", ",", "\<\"Oceania\"\>", ",", "\<\"SouthAmerica\"\>"}], "}"}]], "Output", CellChangeTimes->{3.578375148140625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"CountryData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.578375369890625*^9, 3.57837537384375*^9}, { 3.578375421359375*^9, 3.57837544084375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Africa\"\>", ",", "\<\"Asia\"\>", ",", "\<\"Europe\"\>", ",", "\<\"NorthAmerica\"\>", ",", "\<\"Oceania\"\>", ",", "\<\"SouthAmerica\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.5783754313125*^9, 3.57837544184375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CountryData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.57837528390625*^9, 3.5783752916875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Algeria\"\>", ",", "\<\"Angola\"\>", ",", "\<\"Benin\"\>", ",", "\<\"Botswana\"\>", ",", "\<\"BurkinaFaso\"\>", ",", "\<\"Burundi\"\>", ",", "\<\"Cameroon\"\>", ",", "\<\"CapeVerde\"\>", ",", "\<\"CentralAfricanRepublic\"\>", ",", "\<\"Chad\"\>", ",", "\<\"Comoros\"\>", ",", "\<\"DemocraticRepublicCongo\"\>", ",", "\<\"Djibouti\"\>", ",", "\<\"Egypt\"\>", ",", "\<\"EquatorialGuinea\"\>", ",", "\<\"Eritrea\"\>", ",", "\<\"Ethiopia\"\>", ",", "\<\"Gabon\"\>", ",", "\<\"Gambia\"\>", ",", "\<\"Ghana\"\>", ",", "\<\"Guinea\"\>", ",", "\<\"GuineaBissau\"\>", ",", "\<\"IvoryCoast\"\>", ",", "\<\"Kenya\"\>", ",", "\<\"Lesotho\"\>", ",", "\<\"Liberia\"\>", ",", "\<\"Libya\"\>", ",", "\<\"Madagascar\"\>", ",", "\<\"Malawi\"\>", ",", "\<\"Mali\"\>", ",", "\<\"Mauritania\"\>", ",", "\<\"Mauritius\"\>", ",", "\<\"Mayotte\"\>", ",", "\<\"Morocco\"\>", ",", "\<\"Mozambique\"\>", ",", "\<\"Namibia\"\>", ",", "\<\"Niger\"\>", ",", "\<\"Nigeria\"\>", ",", "\<\"RepublicCongo\"\>", ",", "\<\"Reunion\"\>", ",", "\<\"Rwanda\"\>", ",", "\<\"SaintHelena\"\>", ",", "\<\"SaoTomePrincipe\"\>", ",", "\<\"Senegal\"\>", ",", "\<\"Seychelles\"\>", ",", "\<\"SierraLeone\"\>", ",", "\<\"Somalia\"\>", ",", "\<\"SouthAfrica\"\>", ",", "\<\"SouthSudan\"\>", ",", "\<\"Sudan\"\>", ",", "\<\"Swaziland\"\>", ",", "\<\"Tanzania\"\>", ",", "\<\"Togo\"\>", ",", "\<\"Tunisia\"\>", ",", "\<\"Uganda\"\>", ",", "\<\"WesternSahara\"\>", ",", "\<\"Zambia\"\>", ",", "\<\"Zimbabwe\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5783752928125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomSample", "[", RowBox[{ RowBox[{"CountryData", "[", "#", "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"CountryData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.57837517740625*^9, 3.5783752180625*^9}, { 3.578375250453125*^9, 3.578375279484375*^9}, {3.578375313140625*^9, 3.578375321578125*^9}, 3.57837545209375*^9, {3.57837554359375*^9, 3.5783755461875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Libya\"\>", ",", "\<\"Kazakhstan\"\>", ",", "\<\"Croatia\"\>", ",", "\<\"ElSalvador\"\>", ",", "\<\"PapuaNewGuinea\"\>", ",", "\<\"Uruguay\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.57837529946875*^9, 3.578375323671875*^9}, 3.578375453515625*^9, 3.578375547234375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{ RowBox[{"CountryData", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "/", RowBox[{"CountryData", "[", RowBox[{"#", ",", "\"\\""}], "]"}]}]}], "}"}], "&"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RandomSample", "[", RowBox[{ RowBox[{"CountryData", "[", "#", "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"CountryData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.57837548325*^9, 3.578375514015625*^9}, { 3.578375557078125*^9, 3.57837558603125*^9}, {3.578375616125*^9, 3.57837561825*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Mauritania\"\>", ",", "0.0041592394533571005`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Kazakhstan\"\>", ",", "0.0007617596648257476`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Ukraine\"\>", ",", "0.009684590495895054`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Montserrat\"\>", ",", RowBox[{"0.00016666666666666666`", " ", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"NewCaledonia\"\>", ",", RowBox[{"3.937007874015748`*^-6", " ", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"FrenchGuiana\"\>", ",", RowBox[{"4.329004329004329`*^-6", " ", RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.578375600546875*^9, 3.578375667*^9}}] }, Open ]], Cell[TextData[StyleBox["Pr\[AAcute]ce s daty", "Subsubsection"]], \ "ExerciseHeading", CellChangeTimes->{{3.573905324578125*^9, 3.573905329359375*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell[TextData[{ "V tomto cvi\[CHacek]en\[IAcute] projdeme postupn\[EHacek] cel\[YAcute] \ proces na\[CHacek]ten\[IAcute] dat ze souboru do ", StyleBox["Mathematica", FontSlant->"Italic"], ", v\[YAcute]b\[EHacek]r pot\[RHacek]ebn\[YAcute]ch informac\[IAcute] z t\ \[EHacek]chto dat, a pot\[EAcute] vizualizace vybran\[YAcute]ch dat. Soubor, \ s kter\[YAcute]m budeme pracovat, obsahuje m\[EHacek]s\[IAcute]\[CHacek]n\ \[IAcute] m\[EHacek]\[RHacek]en\[IAcute] sr\[AAcute]\[ZHacek]ek (v mm) sebran\ \[EAcute] na leti\[SHacek]ti Gatwick ve Velk\[EAcute] Brit\[AAcute]nii, pr\ \[URing]m\[EHacek]rov\[AAcute]no od roku 1961 do 1990." }], "Text", CellChangeTimes->{{3.573905342390625*^9, 3.573905508875*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell["\<\ Soubor s daty najdeme v n\[AAcute]sleduj\[IAcute]c\[IAcute]m adres\[AAcute]\ \[RHacek]i nebo p\[RHacek]\[IAcute]mo v adres\[AAcute]\[RHacek]i DataFiles, \ kter\[YAcute] je podadres\[AAcute]\[RHacek]em aktu\[AAcute]ln\[IAcute]ho \ adres\[AAcute]\[RHacek]e\ \>", "MathCaption", CellChangeTimes->{{3.57390552725*^9, 3.573905554375*^9}, { 3.573905697828125*^9, 3.573905743796875*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$CourseDataDirectory", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "$HomeDirectory", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.4814602029602613`*^9, 3.481460203273693*^9}, { 3.573905626421875*^9, 3.5739056858125*^9}, {3.5783727338125*^9, 3.578372786484375*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\"\>\ "], "Output", CellChangeTimes->{3.578372793046875*^9, 3.57837600128125*^9}, CellTags->{"Exercises", "Working with Data"}] }, Open ]], Cell[TextData[{ "N\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]kaz vr\[AAcute]t\ \[IAcute] seznam soubor\[URing] v ", StyleBox["$CourseDataDirectory", "MR"], "." }], "MathCaption", CellChangeTimes->{{3.573905760921875*^9, 3.573905779296875*^9}}, CellTags->"Working with Data"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileNames", "[", RowBox[{"\"\<*\>\"", ",", "$CourseDataDirectory"}], "]"}]], "Input", CellChangeTimes->{{3.481460209473452*^9, 3.481460209775793*^9}}, CellTags->"Working with Data"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ data1D2.dat\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ data1D.dat\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ data2D.dat\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ data2D.xlsx\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ G8Data.xls\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ maunaloaCO2.rawdat\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ sampledata.xls\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ USLifeExpectancy.dat\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ weather.dat\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\\\\\ Weierstrass.jpg\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5783761398125*^9}, CellTags->"Working with Data"] }, Open ]], Cell[TextData[{ "Pou\[ZHacek]ijte p\[RHacek]\[IAcute]kaz ", Cell[BoxData[ ButtonBox["Import", BaseStyle->"Link", ButtonData->"paclet:ref/Import"]], "InlineFormula"], " k na\[CHacek]ten\[IAcute] dat ze souboru ", StyleBox["weather.dat", "MR"], " do ", StyleBox["Mathematica", FontSlant->"Italic"], ". Je mo\[ZHacek]n\[EAcute] nejd\[RHacek]\[IAcute]ve nastavit cestu k adres\ \[AAcute]\[RHacek]i, p\[RHacek]esu\[NHacek]te soubor na m\[IAcute]sto dan\ \[EAcute] adres\[AAcute]\[RHacek]em, nebo zm\[EHacek]\[NHacek]te pracovn\ \[IAcute] adres\[AAcute]\[RHacek]." }], "Exercise", CellChangeTimes->{{3.378484322640625*^9, 3.378484358046875*^9}, { 3.5739057955625*^9, 3.57390589728125*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SetDirectory", "[", "$CourseDataDirectory", "]"}]], "Input", CellChangeTimes->{{3.578376068375*^9, 3.578376153359375*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\"\>\ "], "Output", CellChangeTimes->{3.57837615415625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"weatherdata", " ", "=", " ", RowBox[{"Import", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.578376160078125*^9, 3.578376188140625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"#\"\>", ",", "\<\"London/Gatwick\"\>", ",", "\<\"Airport,\"\>", ",", "\<\"United\"\>", ",", "\<\"Kingdom\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"#\"\>", ",", "\<\"Weather\"\>", ",", "\<\"station\"\>", ",", "\<\"is\"\>", ",", "\<\"at\"\>", ",", "\<\"51.15N\"\>", ",", "\<\"0.10W.\"\>", ",", "\<\"Height\"\>", ",", "\<\"about\"\>", ",", "\<\"62m\"\>", ",", "\<\"above\"\>", ",", "\<\"sea\"\>", ",", "\<\"level.\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Jan\"\>", ",", "77.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Feb\"\>", ",", "51.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Mar\"\>", ",", "60.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Apr\"\>", ",", "54.1`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"May\"\>", ",", "55.3`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Jun\"\>", ",", "56.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Jul\"\>", ",", "44.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Aug\"\>", ",", "55.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Sep\"\>", ",", "67.7`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Oct\"\>", ",", "73.2`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Nov\"\>", ",", "77.6`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Dec\"\>", ",", "78.9`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5783761909375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"weatherdata", "//", "TableForm"}]], "Input", CellChangeTimes->{{3.57837641946875*^9, 3.578376427375*^9}}], Cell[BoxData[ InterpretationBox[GridBox[{ {"\<\"#\"\>", "\<\"London/Gatwick\"\>", "\<\"Airport,\"\>", "\<\"United\"\ \>", "\<\"Kingdom\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\ \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"#\"\>", "\<\"Weather\"\>", "\<\"station\"\>", "\<\"is\"\>", "\<\"at\ \"\>", "\<\"51.15N\"\>", "\<\"0.10W.\"\>", "\<\"Height\"\>", "\<\"about\"\>", \ "\<\"62m\"\>", "\<\"above\"\>", "\<\"sea\"\>", "\<\"level.\"\>"}, {"\<\"Jan\"\>", "77.7`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Feb\"\>", "51.1`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Mar\"\>", "60.2`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Apr\"\>", "54.1`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"May\"\>", "55.3`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Jun\"\>", "56.6`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Jul\"\>", "44.8`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Aug\"\>", "55.6`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Sep\"\>", "67.7`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Oct\"\>", "73.2`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Nov\"\>", "77.6`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\"Dec\"\>", "78.9`", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\ \"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], TableForm[{{"#", "London/Gatwick", "Airport,", "United", "Kingdom"}, { "#", "Weather", "station", "is", "at", "51.15N", "0.10W.", "Height", "about", "62m", "above", "sea", "level."}, {"Jan", 77.7}, { "Feb", 51.1}, {"Mar", 60.2}, {"Apr", 54.1}, {"May", 55.3}, { "Jun", 56.6}, {"Jul", 44.8}, {"Aug", 55.6}, {"Sep", 67.7}, { "Oct", 73.2}, {"Nov", 77.6}, {"Dec", 78.9}}]]], "Output", CellChangeTimes->{3.578376428*^9}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.573905901375*^9}], Cell["\<\ Vyberte \[RHacek]\[AAcute]dkov\[AAcute] data z importovan\[EAcute]ho souboru \ tj. vyberte pr\[URing]m\[EHacek]rn\[EAcute] hodnoty m\[EHacek]s\[IAcute]\ \[CHacek]n\[IAcute]ch sr\[AAcute]\[ZHacek]ek.\ \>", "Exercise", CellChangeTimes->{{3.573905907765625*^9, 3.5739059781875*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"prumer", " ", "=", RowBox[{ RowBox[{"weatherdata", "[", RowBox[{"[", RowBox[{ RowBox[{"3", ";;"}], ",", "All"}], "]"}], "]"}], "/.", RowBox[{ RowBox[{"{", RowBox[{"month_", ",", "avg_"}], "}"}], "\[Rule]", "avg"}]}]}]], "Input", CellChangeTimes->{{3.578376467765625*^9, 3.578376505328125*^9}, { 3.57837656178125*^9, 3.578376562921875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "77.7`", ",", "51.1`", ",", "60.2`", ",", "54.1`", ",", "55.3`", ",", "56.6`", ",", "44.8`", ",", "55.6`", ",", "67.7`", ",", "73.2`", ",", "77.6`", ",", "78.9`"}], "}"}]], "Output", CellChangeTimes->{{3.578376480921875*^9, 3.578376510609375*^9}, 3.57837656453125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mesice", " ", "=", RowBox[{ RowBox[{"weatherdata", "[", RowBox[{"[", RowBox[{ RowBox[{"3", ";;"}], ",", "All"}], "]"}], "]"}], "/.", RowBox[{ RowBox[{"{", RowBox[{"month_", ",", "avg_"}], "}"}], "\[Rule]", "month"}]}]}]], "Input", CellChangeTimes->{{3.57837687090625*^9, 3.5783768781875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Jan\"\>", ",", "\<\"Feb\"\>", ",", "\<\"Mar\"\>", ",", "\<\"Apr\"\>", ",", "\<\"May\"\>", ",", "\<\"Jun\"\>", ",", "\<\"Jul\"\>", ",", "\<\"Aug\"\>", ",", "\<\"Sep\"\>", ",", "\<\"Oct\"\>", ",", "\<\"Nov\"\>", ",", "\<\"Dec\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5783768798125*^9}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.573905980484375*^9}], Cell["\<\ Vytvo\[RHacek]te sloupcov\[YAcute] (bar) graf sr\[AAcute]\[ZHacek]ek a ozna\ \[CHacek]te popiskem jednotliv\[EAcute] sloupce jm\[EAcute]nem m\[EHacek]s\ \[IAcute]c\[URing].\ \>", "Exercise", CellChangeTimes->{{3.573905985171875*^9, 3.573906044140625*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{"prumer", ",", RowBox[{"ChartLabels", "\[Rule]", "mesice"}]}], "]"}]], "Input", CellChangeTimes->{{3.578376531875*^9, 3.578376586*^9}, {3.578376618109375*^9, 3.57837663721875*^9}, {3.57837688765625*^9, 3.57837688840625*^9}}], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0.44545454545454544`, 0.}}]}, {{}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 77.7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{31.152860387152586`, 83.54250027035796}, {-219.2695739934078, 194.906121968423}}], StatusArea[#, 77.7]& , TagBoxNote->"77.7"], StyleBox["77.7`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[77.7, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 51.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{87.68146425867849, 140.07110414188384`}, {-77.82203843890716, 194.906121968423}}], StatusArea[#, 51.1]& , TagBoxNote->"51.1"], StyleBox["51.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[51.1, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 60.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{144.21006813020438`, 196.59970801340975`}, {-126.21198481281527`, 194.906121968423}}], StatusArea[#, 60.2]& , TagBoxNote->"60.2"], StyleBox["60.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[60.2, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 54.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.7386720017303, 253.12831188493564`}, {-93.77476801272303, 194.906121968423}}], StatusArea[#, 54.1]& , TagBoxNote->"54.1"], StyleBox["54.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[54.1, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.545454545454545, 0.}, {5.454545454545454, 55.3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{257.26727587325615`, 309.65691575646156`}, {-100.15585984224936`, 194.906121968423}}], StatusArea[#, 55.3]& , TagBoxNote->"55.3"], StyleBox["55.3`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[55.3, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.545454545454545, 0.}, {6.454545454545454, 56.6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{313.79587974478204`, 366.18551962798745`}, {-107.06870932423624`, 194.906121968423}}], StatusArea[#, 56.6]& , TagBoxNote->"56.6"], StyleBox["56.6`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[56.6, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.545454545454545, 0.}, {7.454545454545454, 44.8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{370.324483616308, 422.71412349951333`}, {-44.32130633389383, 194.906121968423}}], StatusArea[#, 44.8]& , TagBoxNote->"44.8"], StyleBox["44.8`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[44.8, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.545454545454545, 0.}, {8.454545454545453, 55.6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{426.8530874878339, 479.24272737103917`}, {-101.75113279963097`, 194.906121968423}}], StatusArea[#, 55.6]& , TagBoxNote->"55.6"], StyleBox["55.6`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[55.6, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.545454545454545, 0.}, {9.454545454545453, 67.7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{483.38169135935976`, 535.7713312425651}, {-166.09380874735496`, 194.906121968423}}], StatusArea[#, 67.7]& , TagBoxNote->"67.7"], StyleBox["67.7`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[67.7, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.545454545454545, 0.}, {10.454545454545453`, 73.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{539.9102952308857, 592.299935114091}, {-195.34047963268404`, 194.906121968423}}], StatusArea[#, 73.2]& , TagBoxNote->"73.2"], StyleBox["73.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[73.2, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10.545454545454545`, 0.}, {11.454545454545453`, 77.6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{596.4388991024116, 648.8285389856169}, {-218.73781634094723`, 194.906121968423}}], StatusArea[#, 77.6]& , TagBoxNote->"77.6"], StyleBox["77.6`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[77.6, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11.545454545454545`, 0.}, {12.454545454545453`, 78.9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{652.9675029739375, 705.3571428571428}, {-225.65066582293417`, 194.906121968423}}], StatusArea[#, 78.9]& , TagBoxNote->"78.9"], StyleBox["78.9`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[78.9, { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, {}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ StyleBox[ StyleBox[{ {Thickness[Tiny], LineBox[{{0.44545454545454544`, 0.}, {12.454545454545451`, 0.}}]}, {Thickness[Tiny], LineBox[{{0.5454545454545454, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {0.5454545454545454, 0.}]}], LineBox[{{12.454545454545451`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {12.454545454545451`, 0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{1.4545454545454546`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.4545454545454546`, 0.}]}], LineBox[{{1.5454545454545454`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.5454545454545454`, 0.}]}], LineBox[{{2.4545454545454546`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {2.4545454545454546`, 0.}]}], LineBox[{{2.5454545454545454`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {2.5454545454545454`, 0.}]}], LineBox[{{3.4545454545454546`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {3.4545454545454546`, 0.}]}], LineBox[{{3.5454545454545454`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {3.5454545454545454`, 0.}]}], LineBox[{{4.454545454545454, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {4.454545454545454, 0.}]}], LineBox[{{4.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {4.545454545454545, 0.}]}], LineBox[{{5.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {5.454545454545453, 0.}]}], LineBox[{{5.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {5.545454545454545, 0.}]}], LineBox[{{6.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {6.454545454545453, 0.}]}], LineBox[{{6.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {6.545454545454545, 0.}]}], LineBox[{{7.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {7.454545454545453, 0.}]}], LineBox[{{7.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {7.545454545454545, 0.}]}], LineBox[{{8.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {8.454545454545453, 0.}]}], LineBox[{{8.545454545454543, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {8.545454545454543, 0.}]}], LineBox[{{9.454545454545451, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {9.454545454545451, 0.}]}], LineBox[{{9.545454545454543, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {9.545454545454543, 0.}]}], LineBox[{{10.454545454545451`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {10.454545454545451`, 0.}]}], LineBox[{{10.545454545454543`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {10.545454545454543`, 0.}]}], LineBox[{{11.454545454545451`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {11.454545454545451`, 0.}]}], LineBox[{{11.545454545454543`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {11.545454545454543`, 0.}]}]}, {}}, { InsetBox["\<\"Jan\"\>", Offset[{0., -2.}, {1., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Feb\"\>", Offset[{0., -2.}, {2., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Mar\"\>", Offset[{0., -2.}, {3., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Apr\"\>", Offset[{0., -2.}, {3.9999999999999996`, 0.}], {0, 1}, Automatic, { 1, 0}], InsetBox["\<\"May\"\>", Offset[{0., -2.}, {5., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Jun\"\>", Offset[{0., -2.}, {5.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Jul\"\>", Offset[{0., -2.}, {6.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Aug\"\>", Offset[{0., -2.}, {7.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Sep\"\>", Offset[{0., -2.}, {8.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Oct\"\>", Offset[{0., -2.}, {9.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Nov\"\>", Offset[{0., -2.}, {10.999999999999998`, 0.}], {0, 1}, Automatic, { 1, 0}], InsetBox["\<\"Dec\"\>", Offset[{0., -2.}, {11.999999999999998`, 0.}], {0, 1}, Automatic, { 1, 0}]}}}, Antialiasing->False], "GraphicsAxes", StripOnInput->False], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, True}, AxesLabel->{None, None}, AxesOrigin->{0.44545454545454544`, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRangePadding->Scaled[0.02], Ticks->{None, Automatic}]], "Output", CellChangeTimes->{3.57837657178125*^9, 3.578376639203125*^9, 3.578376889390625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{"Last", ",", RowBox[{"weatherdata", "[", RowBox[{"[", RowBox[{"3", ";;"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"ChartLabels", "\[Rule]", RowBox[{"Map", "[", RowBox[{"First", ",", RowBox[{"weatherdata", "[", RowBox[{"[", RowBox[{"3", ";;"}], "]"}], "]"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.578376726625*^9, 3.578376840265625*^9}}], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0.44545454545454544`, 0.}}]}, {{}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 77.7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{31.152860387152586`, 83.54250027035796}, {-219.2695739934078, 194.906121968423}}], StatusArea[#, 77.7]& , TagBoxNote->"77.7"], StyleBox["77.7`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[77.7, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 51.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{87.68146425867849, 140.07110414188384`}, {-77.82203843890716, 194.906121968423}}], StatusArea[#, 51.1]& , TagBoxNote->"51.1"], StyleBox["51.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[51.1, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 60.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{144.21006813020438`, 196.59970801340975`}, {-126.21198481281527`, 194.906121968423}}], StatusArea[#, 60.2]& , TagBoxNote->"60.2"], StyleBox["60.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[60.2, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 54.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.7386720017303, 253.12831188493564`}, {-93.77476801272303, 194.906121968423}}], StatusArea[#, 54.1]& , TagBoxNote->"54.1"], StyleBox["54.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[54.1, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.545454545454545, 0.}, {5.454545454545454, 55.3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{257.26727587325615`, 309.65691575646156`}, {-100.15585984224936`, 194.906121968423}}], StatusArea[#, 55.3]& , TagBoxNote->"55.3"], StyleBox["55.3`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[55.3, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.545454545454545, 0.}, {6.454545454545454, 56.6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{313.79587974478204`, 366.18551962798745`}, {-107.06870932423624`, 194.906121968423}}], StatusArea[#, 56.6]& , TagBoxNote->"56.6"], StyleBox["56.6`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[56.6, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.545454545454545, 0.}, {7.454545454545454, 44.8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{370.324483616308, 422.71412349951333`}, {-44.32130633389383, 194.906121968423}}], StatusArea[#, 44.8]& , TagBoxNote->"44.8"], StyleBox["44.8`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[44.8, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.545454545454545, 0.}, {8.454545454545453, 55.6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{426.8530874878339, 479.24272737103917`}, {-101.75113279963097`, 194.906121968423}}], StatusArea[#, 55.6]& , TagBoxNote->"55.6"], StyleBox["55.6`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[55.6, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.545454545454545, 0.}, {9.454545454545453, 67.7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{483.38169135935976`, 535.7713312425651}, {-166.09380874735496`, 194.906121968423}}], StatusArea[#, 67.7]& , TagBoxNote->"67.7"], StyleBox["67.7`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[67.7, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.545454545454545, 0.}, {10.454545454545453`, 73.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{539.9102952308857, 592.299935114091}, {-195.34047963268404`, 194.906121968423}}], StatusArea[#, 73.2]& , TagBoxNote->"73.2"], StyleBox["73.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[73.2, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10.545454545454545`, 0.}, {11.454545454545453`, 77.6}, "RoundingRadius" -> 0]}, ImageSizeCache->{{596.4388991024116, 648.8285389856169}, {-218.73781634094723`, 194.906121968423}}], StatusArea[#, 77.6]& , TagBoxNote->"77.6"], StyleBox["77.6`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[77.6, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[{Opacity[0.7], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11.545454545454545`, 0.}, {12.454545454545453`, 78.9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{652.9675029739375, 705.3571428571428}, {-225.65066582293417`, 194.906121968423}}], StatusArea[#, 78.9]& , TagBoxNote->"78.9"], StyleBox["78.9`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[78.9, { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, {}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ StyleBox[ StyleBox[{ {Thickness[Tiny], LineBox[{{0.44545454545454544`, 0.}, {12.454545454545451`, 0.}}]}, {Thickness[Tiny], LineBox[{{0.5454545454545454, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {0.5454545454545454, 0.}]}], LineBox[{{12.454545454545451`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {12.454545454545451`, 0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{1.4545454545454546`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.4545454545454546`, 0.}]}], LineBox[{{1.5454545454545454`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.5454545454545454`, 0.}]}], LineBox[{{2.4545454545454546`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {2.4545454545454546`, 0.}]}], LineBox[{{2.5454545454545454`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {2.5454545454545454`, 0.}]}], LineBox[{{3.4545454545454546`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {3.4545454545454546`, 0.}]}], LineBox[{{3.5454545454545454`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {3.5454545454545454`, 0.}]}], LineBox[{{4.454545454545454, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {4.454545454545454, 0.}]}], LineBox[{{4.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {4.545454545454545, 0.}]}], LineBox[{{5.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {5.454545454545453, 0.}]}], LineBox[{{5.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {5.545454545454545, 0.}]}], LineBox[{{6.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {6.454545454545453, 0.}]}], LineBox[{{6.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {6.545454545454545, 0.}]}], LineBox[{{7.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {7.454545454545453, 0.}]}], LineBox[{{7.545454545454545, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {7.545454545454545, 0.}]}], LineBox[{{8.454545454545453, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {8.454545454545453, 0.}]}], LineBox[{{8.545454545454543, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {8.545454545454543, 0.}]}], LineBox[{{9.454545454545451, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {9.454545454545451, 0.}]}], LineBox[{{9.545454545454543, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {9.545454545454543, 0.}]}], LineBox[{{10.454545454545451`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {10.454545454545451`, 0.}]}], LineBox[{{10.545454545454543`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {10.545454545454543`, 0.}]}], LineBox[{{11.454545454545451`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {11.454545454545451`, 0.}]}], LineBox[{{11.545454545454543`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {11.545454545454543`, 0.}]}]}, {}}, { InsetBox["\<\"Jan\"\>", Offset[{0., -2.}, {1., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Feb\"\>", Offset[{0., -2.}, {2., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Mar\"\>", Offset[{0., -2.}, {3., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Apr\"\>", Offset[{0., -2.}, {3.9999999999999996`, 0.}], {0, 1}, Automatic, { 1, 0}], InsetBox["\<\"May\"\>", Offset[{0., -2.}, {5., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Jun\"\>", Offset[{0., -2.}, {5.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Jul\"\>", Offset[{0., -2.}, {6.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Aug\"\>", Offset[{0., -2.}, {7.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Sep\"\>", Offset[{0., -2.}, {8.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Oct\"\>", Offset[{0., -2.}, {9.999999999999998, 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Nov\"\>", Offset[{0., -2.}, {10.999999999999998`, 0.}], {0, 1}, Automatic, { 1, 0}], InsetBox["\<\"Dec\"\>", Offset[{0., -2.}, {11.999999999999998`, 0.}], {0, 1}, Automatic, { 1, 0}]}}}, Antialiasing->False], "GraphicsAxes", StripOnInput->False], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, True}, AxesLabel->{None, None}, AxesOrigin->{0.44545454545454544`, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRangePadding->Scaled[0.02], Ticks->{None, Automatic}]], "Output", CellChangeTimes->{3.57837684784375*^9}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.573906046828125*^9}], Cell[TextData[StyleBox["Ulo\[ZHacek]en\[IAcute] v\[YAcute]sledk\[URing] \ \[RHacek]e\[SHacek]en\[IAcute] diferenci\[AAcute]ln\[IAcute]ch rovnic ", \ "Subsubsection"]], "ExerciseHeading", CellChangeTimes->{{3.57390605709375*^9, 3.573906079515625*^9}}, CellTags->{"Exercises", "Saving Results from DE"}], Cell[TextData[{ "Prove\[DHacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] \ p\[RHacek]\[IAcute]kaz, kter\[YAcute] definuje ", StyleBox["sol", "MR"], " jako v\[YAcute]sledek \[RHacek]e\:015ben\[IAcute] funkc\[IAcute] ", Cell[BoxData[ ButtonBox["NDSolve", BaseStyle->"Link", ButtonData->"paclet:ref/NDSolve"]], "InlineFormula"], ". V\[YAcute]sledek je ve form\[EHacek] v\[YAcute]razu, kter\[YAcute] p\ \[RHacek]edstavuje ", Cell[BoxData[ ButtonBox["InterpolatingFunction", BaseStyle->"Link", ButtonData->"paclet:ref/InterpolatingFunction"]], "InlineFormula"], "." }], "Exercise", CellChangeTimes->{{3.5739060919375*^9, 3.573906157546875*^9}}, CellTags->{"Exercises", "Saving Results from DE"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}], "\[Equal]", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{ RowBox[{"f", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", "f", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input", CellTags->{"Exercises", "Saving Results from DE"}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"f", "\[Rule]", TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.578371613921875*^9, 3.57837692134375*^9}, CellTags->{"Exercises", "Saving Results from DE"}] }, Open ]], Cell[TextData[{ "Pokud chceme v\[YAcute]sledek exportovat do jin\[EAcute]ho programu, je \ \[CHacek]asto vhodn\[EAcute] reprezentovat tento v\[YAcute]tup sp\[IAcute]\ \[SHacek]e jako tabulku hodnot, ne\[ZHacek] jako interpola\[CHacek]n\[IAcute] \ funkci ", Cell[BoxData[ ButtonBox["InterpolatingFunction", BaseStyle->"Link", ButtonData->"paclet:ref/InterpolatingFunction"]], "InlineFormula"], ". Prove\[DHacek]te n\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]ikaz, kter\ \[YAcute] ukazuje konstrukci takov\[EAcute] tabulky hodnot \ interpola\[CHacek]n\[IAcute] funkce." }], "Exercise", CellChangeTimes->{{3.57390617053125*^9, 3.573906314625*^9}}, CellTags->{"Exercises", "Saving Results from DE"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"f", "[", "x", "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5", ",", "0.5"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5783771063125*^9, 3.5783771103125*^9}, { 3.578377181234375*^9, 3.578377182828125*^9}}, CellTags->{"Exercises", "Saving Results from DE"}], Cell[BoxData[ TagBox[GridBox[{ {"0.`", "1.`"}, {"0.5`", "1.648721248590235`"}, {"1.`", "2.718281579516041`"}, {"1.5`", "4.481685716165092`"}, {"2.`", "7.389052124879932`"}, {"2.5`", "12.182494694055178`"}, {"3.`", "20.0855211106403`"}, {"3.5`", "33.11540560349603`"}, {"4.`", "54.59810628281914`"}, {"4.5`", "90.01713805800436`"}, {"5.`", "148.4131732695485`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.57837161396875*^9, 3.5783769430625*^9, 3.57837711196875*^9, 3.57837718484375*^9}, CellTags->{"Exercises", "Saving Results from DE"}] }, Open ]], Cell[TextData[{ "Zapi\[SHacek]te tuto tabulku do souboru. Obsah souboru by m\[EHacek]l b\ \[YAcute]t podobn\[YAcute] nebo identick\[YAcute] s obsahem v\[YAcute]sledn\ \[EAcute] tabulky z p\[RHacek]\[IAcute]kazu ", Cell[BoxData[ ButtonBox["TableForm", BaseStyle->"Link", ButtonData->"paclet:ref/TableForm"]], "InlineFormula"], " naho\[RHacek]e. Zkontrolujte obsah souboru pou\[ZHacek]it\[IAcute]m p\ \[RHacek]\[IAcute]kazu ", Cell[BoxData[ RowBox[{"FilePrint", "[", "\"\<\!\(\* StyleBox[\"file\", \"TI\"]\)\>\"", "]"}]]], "." }], "Exercise", CellChangeTimes->{{3.573906323765625*^9, 3.573906422328125*^9}}, CellTags->{"Exercises", "Saving Results from DE"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tabulka", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"f", "[", "x", "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5", ",", "0.5"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.578377195765625*^9, 3.5783771979375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "1.648721248590235`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "2.718281579516041`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.5`", ",", "4.481685716165092`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.`", ",", "7.389052124879932`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5`", ",", "12.182494694055178`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.`", ",", "20.0855211106403`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.5`", ",", "33.11540560349603`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.`", ",", "54.59810628281914`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5`", ",", "90.01713805800436`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.`", ",", "148.4131732695485`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.578377198734375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InterpolFncfilename", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "$HomeDirectory", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.57837702253125*^9, 3.578377067703125*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\InterFnc.dat\ \"\>"], "Output", CellChangeTimes->{3.57837703903125*^9, 3.5783770775*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"InterpolFncfilename", ",", "tabulka", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5783770799375*^9, 3.57837708475*^9}, { 3.57837711634375*^9, 3.5783771479375*^9}, 3.578377212390625*^9}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\InterFnc.dat\ \"\>"], "Output", CellChangeTimes->{{3.57837713278125*^9, 3.578377148828125*^9}, { 3.578377204046875*^9, 3.578377213109375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FilePrint", "[", "InterpolFncfilename", "]"}]], "Input", CellChangeTimes->{{3.5783771536875*^9, 3.57837716465625*^9}}], Cell["\<\ 0.\t1. 0.5\t1.648721248590235 1.\t2.718281579516041 1.5\t4.481685716165092 2.\t7.389052124879932 2.5\t12.182494694055178 3.\t20.0855211106403 3.5\t33.11540560349603 4.\t54.59810628281914 4.5\t90.01713805800436 5.\t148.4131732695485\ \>", "Print", CellChangeTimes->{ 3.578377165609375*^9, {3.57837720609375*^9, 3.578377218765625*^9}}] }, Open ]], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.493561749114915*^9, 3.493561941266395*^9, 3.573906466390625*^9}], Cell[TextData[StyleBox["Ulo\[ZHacek]en\[IAcute] obsahu notebooku v bal\ \[IAcute]kov\[EAcute]m (Package) form\[AAcute]tu", "Subsubsection"]], \ "ExerciseHeading", CellChangeTimes->{{3.5739064766875*^9, 3.57390648228125*^9}, { 3.57390651353125*^9, 3.573906523484375*^9}, {3.573907699796875*^9, 3.57390771334375*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell["\<\ otev\[RHacek]eme nov\[YAcute] notebook a zkop\[IAcute]rujeme n\[AAcute]sleduj\ \[IAcute]c\[IAcute] \[CHacek]ty\[RHacek]i vstupn\[IAcute] bu\[NHacek]ky do \ tohoto notebooku.\ \>", "Exercise", CellChangeTimes->{{3.573906528890625*^9, 3.57390657925*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fib", "::", "usage"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fib", "[", "0", "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fib", "[", "1", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fib", "[", RowBox[{"n_Integer", "/;", RowBox[{"n", ">", "1"}]}], "]"}], ":=", RowBox[{ RowBox[{"fib", "[", RowBox[{"n", "-", "1"}], "]"}], "+", RowBox[{"fib", "[", RowBox[{"n", "-", "2"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.5783782616875*^9, 3.57837827340625*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell[TextData[{ "Nastav\[IAcute]me bu\[NHacek]ky v nov\[EAcute]m notebooku jako inicializa\ \[CHacek]n\[IAcute] (initialization cells). Nastaven\[IAcute] provedeme ozna\ \[CHacek]en\[IAcute]m hranat\[YAcute]ch z\[AAcute]vorek vpravo a v\[YAcute]b\ \[EHacek]rem dan\[YAcute]ch bun\[EHacek]k a pot\[EAcute] \ v\[YAcute]b\[EHacek]rem ", StyleBox["Initialization Cell", "Menu"], " z ", StyleBox["Cell Properties", "Menu"], " submenu v ", StyleBox["Cell", "Menu"], " menu." }], "Exercise", CellChangeTimes->{{3.573906586640625*^9, 3.5739066801875*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell[TextData[{ "Ulo\[ZHacek]\[IAcute]me notebook ve form\[AAcute]tu package pomoc\[IAcute] \ p\[RHacek]\[IAcute]kazu ", StyleBox["Package Format", "SR"], " ze submenu ", StyleBox["Save As", "Menu"], " ve ", StyleBox["File", "Menu"], " menu. Ulo\[ZHacek]te soubor do adres\[AAcute]\[RHacek]e tak, aby jej ", StyleBox["Mathematica", FontSlant->"Italic"], " pozd\[EHacek]ji na\[SHacek]la. ", StyleBox["Mathematica", FontSlant->"Italic"], " hled\[AAcute] tyto \[OpenCurlyDoubleQuote]bal\[IAcute]kov\[EAcute]\ \[CloseCurlyDoubleQuote] soubory v adres\[AAcute]\[RHacek]\[IAcute]ch, kter\ \[EAcute] vyp\[IAcute]\[SHacek]eme pomoc\[IAcute] glob\[AAcute]ln\[IAcute] \ prom\[EHacek]nn\[EAcute] ", Cell[BoxData[ ButtonBox["$Path", BaseStyle->"Link", ButtonData->"paclet:ref/$Path"]], "InlineFormula"], ". Pokud ulo\[ZHacek]\[IAcute]te bal\[IAcute]k v adres\[AAcute]\[RHacek]i, \ kter\[YAcute] nen\[IAcute] v seznamu prom\[EHacek]nn\[EAcute] ", Cell[BoxData[ ButtonBox["$Path", BaseStyle->"Link", ButtonData->"paclet:ref/$Path"]], "InlineFormula"], ", potom p\[RHacek]i na\[CHacek]ten\[IAcute] takov\[EAcute]ho souboru mus\ \[IAcute]me vlo\[ZHacek]it celou cestu k dan\[EAcute]mu souboru. " }], "Exercise", CellChangeTimes->{{3.573906690390625*^9, 3.5739069188125*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell[CellGroupData[{ Cell[BoxData["$Path"], "Input", CellTags->{"Exercises", "Saving Notebooks"}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Links\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\\\\Data \ aplikac\[IAcute]\\\\Mathematica\\\\Kernel\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\\\\Data \ aplikac\[IAcute]\\\\Mathematica\\\\Autoload\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\\\\Data \ aplikac\[IAcute]\\\\Mathematica\\\\Applications\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\All Users\\\\Data aplikac\ \[IAcute]\\\\Mathematica\\\\Kernel\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\All Users\\\\Data aplikac\ \[IAcute]\\\\Mathematica\\\\Autoload\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\All Users\\\\Data aplikac\ \[IAcute]\\\\Mathematica\\\\Applications\"\>", ",", "\<\".\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Packages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\LegacyPackages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Autoload\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Autoload\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Applications\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\ExtraPackages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Kernel\\\\Packages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\Documentation\\\\English\\\\System\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Data\\\\ICC\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5783716140625*^9}, CellTags->{"Exercises", "Saving Notebooks"}] }, Open ]], Cell["\<\ Obsah souboru se objev\[IAcute] n\[AAcute]sleduj\[IAcute]c\[IAcute] podob\ \[EHacek]. Pokud si chceme zkontrolovat ulo\[ZHacek]en\[YAcute] obsah \ souboru, je mo\[ZHacek]n\[EAcute] jej otev\[RHacek]\[IAcute]t a \ prohl\[EAcute]dnout si b\[EHacek]\[ZHacek]n\[YAcute]m textov\[YAcute]m \ editorem.\ \>", "Text", CellChangeTimes->{{3.57390692290625*^9, 3.573906948921875*^9}, { 3.573907051671875*^9, 3.57390710196875*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell["\<\ (* ::Package:: *) fib::usage = \"fib[n] gives the nth Fibonacci number.\" fib[0] = 0; fib[1] = 1; fib[n_Integer /; n > 1] := fib[n - 1] + fib[n - 2] Print[\"... bal\[IAcute]k na\[CHacek]ten\"]\ \>", "Program", CellChangeTimes->{{3.5783775691875*^9, 3.5783775714375*^9}, { 3.578378303375*^9, 3.578378308234375*^9}, {3.57837988446875*^9, 3.578379885328125*^9}, {3.578379982515625*^9, 3.578379983953125*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell[TextData[{ "Uvoln\[IAcute]me prom\[EHacek]nnou fib p\[RHacek]\[IAcute]kazem ", Cell[BoxData[ RowBox[{"Clear", "[", "fib", "]"}]]], " a na\[CHacek]teme bal\[IAcute]k, kter\[YAcute] definuje pravidla pro \ funkci ", StyleBox["fib", "MR"], ". M\[URing]\[ZHacek]eme zkontrolovat spr\[AAcute]vn\[EAcute] na\[CHacek]ten\ \[IAcute] pravidel proveden\[IAcute]m p\[RHacek]\[IAcute]kazu ", StyleBox["?fib", "MR"], " nebo proveden\[IAcute]m p\[RHacek]\[IAcute]kazu ", Cell[BoxData[ RowBox[{"fib", "[", "n", "]"}]]], " pro n\[EHacek]kolik mal\[YAcute]ch pozitivn\[IAcute]ch \ \[CHacek]\[IAcute]sel ", StyleBox["n", "MR"], "." }], "Exercise", CellChangeTimes->{{3.573907115578125*^9, 3.57390723590625*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell[TextData[{ "Jako potvrzen\[IAcute] nata\[ZHacek]en\[IAcute] bal\[IAcute]ku je mo\ \[ZHacek]n\[EAcute] na konec notebooku vlo\[ZHacek]it p\[RHacek]\[IAcute]kaz \ ", Cell[BoxData[ RowBox[{"Print", "[", "\"\<...package loaded.\>\"", "]"}]]], "." }], "Text", CellChangeTimes->{{3.5739072514375*^9, 3.573907305203125*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell["\<\ Stejn\[YAcute] bal\[IAcute]k je mo\[ZHacek]n\[EAcute] vytvo\[RHacek]it i p\ \[RHacek]\[IAcute]mo vlo\[ZHacek]en\[IAcute]m uveden\[YAcute]ch definic v b\ \[EHacek]\[ZHacek]n\[EAcute]m textov\[EAcute]m editoru.\ \>", "Text", CellChangeTimes->{{3.573907317609375*^9, 3.57390734475*^9}, { 3.578377582875*^9, 3.5783775874375*^9}}, CellTags->{"Exercises", "Saving Notebooks"}], Cell["\<\ Soubor jsme ulo\[ZHacek]ili do pracovn\[IAcute]ho adres\[AAcute]\[RHacek]e a \ proto jej p\[RHacek]ed nata\[ZHacek]en\[IAcute]m bal\[IAcute]ku \ mus\[IAcute]me p\[RHacek]idat do seznamu Path prohled\[AAcute]van\[YAcute]ch \ adres\[AAcute]\[RHacek]\[URing].\ \>", "Text", CellChangeTimes->{{3.5783780973125*^9, 3.57837817925*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PracovniAdresar", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "$HomeDirectory", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.5783780088125*^9, 3.5783780205*^9}}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\"\>"], "Output", CellChangeTimes->{3.578378022015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AppendTo", "[", RowBox[{"$Path", ",", "PracovniAdresar"}], "]"}]], "Input", CellChangeTimes->{{3.578377910171875*^9, 3.578377974234375*^9}, { 3.578378028328125*^9, 3.57837803246875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Links\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\\\\Application \ Data\\\\Mathematica\\\\Kernel\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\\\\Application \ Data\\\\Mathematica\\\\Autoload\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\\\\Application \ Data\\\\Mathematica\\\\Applications\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\All Users\\\\Application \ Data\\\\Mathematica\\\\Kernel\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\All Users\\\\Application \ Data\\\\Mathematica\\\\Autoload\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\All Users\\\\Application \ Data\\\\Mathematica\\\\Applications\"\>", ",", "\<\".\"\>", ",", "\<\"C:\\\\Documents and Settings\\\\gangur\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Packages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\LegacyPackages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Autoload\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Autoload\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\Applications\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\AddOns\\\\ExtraPackages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Kernel\\\\Packages\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\Documentation\\\\English\\\\System\"\>", ",", "\<\"C:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\9.0\\\\SystemFiles\\\\Data\\\\ICC\"\>", ",", "\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\"\>"}], "}"}]], "Output", CellChangeTimes->{3.578378033265625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "Fibonacci`"}]], "Input", CellChangeTimes->{{3.57837806775*^9, 3.57837807334375*^9}}], Cell[BoxData["\<\"... bal\[IAcute]k na\[CHacek]ten\"\>"], "Print", CellChangeTimes->{3.578378074421875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "fib"}]], "Input", CellChangeTimes->{{3.578378185953125*^9, 3.578378195765625*^9}}], Cell[BoxData[ StyleBox["\<\"fib[n] gives the nth Fibonacci number.\"\>", "MSG"]], "Print", \ "PrintUsage", CellChangeTimes->{3.57837819709375*^9}, CellTags->"Info3578385396-2932426"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"fib", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5783783205625*^9, 3.578378322625*^9}, { 3.578380037640625*^9, 3.578380066828125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "13", ",", "21", ",", "34", ",", "55"}], "}"}]], "Output", CellChangeTimes->{ 3.57837832353125*^9, {3.578380061546875*^9, 3.578380067234375*^9}}] }, Open ]], Cell[TextData[StyleBox["Vytvo\[RHacek]en\[IAcute] tabulky informac\[IAcute] o \ souboru", "Subsubsection"]], "ExerciseHeading", CellChangeTimes->{{3.573907355046875*^9, 3.57390737253125*^9}}, CellTags->{"Exercises", "Tables of File Info"}], Cell[TextData[{ "Vytvo\[RHacek]\[IAcute]me dvou-sloupcovou\.b4tabulku obsahuj\[IAcute]c\ \[IAcute] jm\[EAcute]na a odpov\[IAcute]daj\[IAcute]c\[IAcute] velikosti v \ seznamu soubor\[URing] v adres\[AAcute]\[RHacek]i DataFiles. Pou\[ZHacek]it\ \[IAcute]m p\[RHacek]\[IAcute]kazu ", Cell[BoxData[ ButtonBox["TableForm", BaseStyle->"Link", ButtonData->"paclet:ref/TableForm"]], "InlineFormula"], " s volbou ", Cell[BoxData[ ButtonBox["TableHeadings", BaseStyle->"Link", ButtonData->"paclet:ref/TableHeadings"]], "InlineFormula"], ", bychom m\[EHacek]li obdr\[ZHacek]et stejn\[YAcute] v\[YAcute]stup jako je \ n\[AAcute]sleduj\[IAcute]c\[IAcute] p\[RHacek]\[IAcute]klad" }], "Exercise", CellChangeTimes->{{3.573907384484375*^9, 3.5739075243125*^9}}, CellTags->{"Exercises", "Tables of File Info"}], Cell[BoxData[ RowBox[{ TagBox[GridBox[{ {"\"\\"", "\"\\""}, {"\"\\"", "1326"}, {"\"\\"", "528642"}, {"\"\\"", "429"}, {"\"\\"", "13824"}, {"\"\\"", "65444"}, {"\"\\"", "58"}, {"\"\\"", "6415"}, {"\"\\"", "4994"}, {"\"\\"", "1442"}, {"\"\\"", "234"}, {"\"\\"", "5521"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.28], { Offset[2.1]}, Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Filename", "Byte count"}}]]], ";"}]], "Input", CellTags->{"Exercises", "Tables of File Info"}], Cell["", "Text", CellChangeTimes->{{3.573907543875*^9, 3.573907589578125*^9}}, CellTags->{"Exercises", "Tables of File Info"}], Cell["\<\ Zde je mo\[ZHacek]n\[AAcute] konstrukce na platform\[EHacek] nez\[AAcute]visl\ \[EAcute] cesty do adres\[AAcute]\[RHacek]e DataFiles.\ \>", "MathCaption", CellChangeTimes->{{3.57390759284375*^9, 3.573907658140625*^9}, { 3.578378417640625*^9, 3.578378424375*^9}, {3.57837872353125*^9, 3.578378728140625*^9}}, CellTags->{"Exercises", "Tables of File Info"}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"$CourseDataDirectory", "=", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{ "$HomeDirectory", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.4814602029602613`*^9, 3.481460203273693*^9}, { 3.573905626421875*^9, 3.5739056858125*^9}, {3.57837837021875*^9, 3.578378394390625*^9}, {3.578378502140625*^9, 3.578378503234375*^9}, { 3.57837880146875*^9, 3.578378811546875*^9}}, CellTags->{"Exercises", "Working with Data"}], Cell[BoxData["\<\"C:\\\\Documents and \ Settings\\\\gangur\\\\Dokumenty\\\\Mathematica\\\\Uvodni_kurz\\\\DataFiles\"\>\ "], "Output", CellChangeTimes->{ 3.578378401484375*^9, {3.578378494375*^9, 3.5783785045*^9}, 3.5783788158125*^9}, CellTags->{"Exercises", "Working with Data"}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SetDirectory", "[", "$CourseDataDirectory", "]"}], ";"}]], "Input", CellChangeTimes->{{3.5783784600625*^9, 3.578378532546875*^9}, { 3.578378712359375*^9, 3.5783787353125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FileNames", "[", "]"}]], "Input", CellChangeTimes->{{3.578378824921875*^9, 3.578378828953125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"data1D2.dat\"\>", ",", "\<\"data1D.dat\"\>", ",", "\<\"data2D.dat\"\>", ",", "\<\"data2D.xlsx\"\>", ",", "\<\"G8Data.xls\"\>", ",", "\<\"maunaloaCO2.rawdat\"\>", ",", "\<\"sampledata.xls\"\>", ",", "\<\"USLifeExpectancy.dat\"\>", ",", "\<\"weather.dat\"\>", ",", "\<\"Weierstrass.jpg\"\>"}], "}"}]], "Output", CellChangeTimes->{3.578378829703125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", " ", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"FileByteCount", "[", "#", "]"}]}], "}"}], "&"}], ",", RowBox[{"FileNames", "[", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.578378838703125*^9, 3.578378874109375*^9}, { 3.5783789201875*^9, 3.578378938765625*^9}, {3.578379128359375*^9, 3.5783791308125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"data1D2.dat\"\>", ",", "451"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"data1D.dat\"\>", ",", "566"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"data2D.dat\"\>", ",", "429"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"data2D.xlsx\"\>", ",", "3603"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"G8Data.xls\"\>", ",", "13824"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"maunaloaCO2.rawdat\"\>", ",", "4994"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"sampledata.xls\"\>", ",", "5120"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"USLifeExpectancy.dat\"\>", ",", "1442"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"weather.dat\"\>", ",", "234"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Weierstrass.jpg\"\>", ",", "5521"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.578378858*^9, 3.5783789406875*^9, 3.57837913190625*^9, 3.57837916925*^9, 3.5783793466875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"data", ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.578378964828125*^9, 3.5783790810625*^9}, { 3.57837913728125*^9, 3.578379152453125*^9}, {3.57837921021875*^9, 3.578379249390625*^9}, {3.57837931765625*^9, 3.57837938071875*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { TagBox["\<\"N\[AAcute]zev souboru\"\>", HoldForm], TagBox["\<\"Velikost v bytech\"\>", HoldForm]}, {"\<\"data1D2.dat\"\>", "451"}, {"\<\"data1D.dat\"\>", "566"}, {"\<\"data2D.dat\"\>", "429"}, {"\<\"data2D.xlsx\"\>", "3603"}, {"\<\"G8Data.xls\"\>", "13824"}, {"\<\"maunaloaCO2.rawdat\"\>", "4994"}, {"\<\"sampledata.xls\"\>", "5120"}, {"\<\"USLifeExpectancy.dat\"\>", "1442"}, {"\<\"weather.dat\"\>", "234"}, {"\<\"Weierstrass.jpg\"\>", "5521"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> { None, {"N\[AAcute]zev souboru", "Velikost v bytech"}}]]]], "Output", CellChangeTimes->{ 3.578379050765625*^9, 3.578379086390625*^9, {3.578379138453125*^9, 3.5783791711875*^9}, {3.578379250875*^9, 3.578379257703125*^9}, { 3.578379332578125*^9, 3.57837937584375*^9}, 3.57837941546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dataGrid", " ", "=", " ", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"FileByteCount", "[", "#", "]"}]}], "}"}], "&"}], ",", RowBox[{"FileNames", "[", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.57837943365625*^9, 3.5783794819375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"N\[AAcute]zev souboru\"\>", ",", "\<\"Velikost v bytech\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"data1D2.dat\"\>", ",", "451"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"data1D.dat\"\>", ",", "566"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"data2D.dat\"\>", ",", "429"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"data2D.xlsx\"\>", ",", "3603"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"G8Data.xls\"\>", ",", "13824"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"maunaloaCO2.rawdat\"\>", ",", "4994"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"sampledata.xls\"\>", ",", "5120"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"USLifeExpectancy.dat\"\>", ",", "1442"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"weather.dat\"\>", ",", "234"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Weierstrass.jpg\"\>", ",", "5521"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5783794835*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{"dataGrid", ",", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"Background", "\[Rule]", "Yellow"}], ",", RowBox[{"Alignment", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Left", ",", "Right"}], "}"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.578379489703125*^9, 3.578379493234375*^9}, { 3.57837955625*^9, 3.578379668421875*^9}, {3.57837972409375*^9, 3.578379724984375*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\<\"N\[AAcute]zev souboru\"\>", "\<\"Velikost v bytech\"\>"}, {"\<\"data1D2.dat\"\>", "451"}, {"\<\"data1D.dat\"\>", "566"}, {"\<\"data2D.dat\"\>", "429"}, {"\<\"data2D.xlsx\"\>", "3603"}, {"\<\"G8Data.xls\"\>", "13824"}, {"\<\"maunaloaCO2.rawdat\"\>", "4994"}, {"\<\"sampledata.xls\"\>", "5120"}, {"\<\"USLifeExpectancy.dat\"\>", "1442"}, {"\<\"weather.dat\"\>", "234"}, {"\<\"Weierstrass.jpg\"\>", "5521"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {Left, Right}}, GridBoxBackground->{"Columns" -> {{ RGBColor[1, 1, 0]}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{ 3.578379598359375*^9, {3.57837964234375*^9, 3.578379669203125*^9}, 3.57837972753125*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.578378542984375*^9, 3.57837858009375*^9}}], Cell[BoxData[""], "NonPrintButton", CellChangeTimes->{3.57390766125*^9}], Cell["", "Spacer"] }, Open ]] }, WindowSize->{1912, 1058}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, Magnification->2., FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Exercises"->{ Cell[579, 22, 194, 3, 159, "Section", CounterAssignments->{{"Chapter", 7}, {"ExerciseNumber", 0}}, CellTags->"Exercises"], Cell[776, 27, 226, 4, 59, "ExerciseHeading", CellTags->{"Exercises", "Writing Data"}], Cell[1005, 33, 897, 22, 73, "Exercise", CellTags->{"Exercises", "Writing Data"}], Cell[1905, 57, 822, 26, 99, "Input", CellTags->{"Exercises", "Writing Data"}], Cell[6138, 195, 410, 10, 44, "Exercise", CellTags->{"Exercises", "Writing Data"}], Cell[9893, 321, 240, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[10136, 326, 1154, 31, 73, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[14885, 421, 100, 1, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[14988, 424, 4151, 62, 467, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[19154, 489, 384, 9, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[19563, 502, 352, 9, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[19918, 513, 9510, 163, 461, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[29443, 679, 870, 22, 73, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[51954, 1104, 633, 13, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[52612, 1121, 516, 14, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[53131, 1137, 2027, 41, 617, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[56307, 1214, 209, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[56519, 1219, 480, 10, 60, "Text", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[57002, 1231, 439, 12, 99, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[57444, 1245, 661, 16, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[58130, 1265, 761, 21, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[58894, 1288, 3685, 63, 430, "Output", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[62594, 1354, 181, 2, 43, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[62800, 1360, 227, 4, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[63030, 1366, 141, 2, 59, "Output", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[63186, 1371, 661, 17, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[70092, 1563, 242, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Using Data Collections"}], Cell[70337, 1568, 551, 11, 44, "Exercise", CellTags->{"Exercises", "Using Data Collections"}], Cell[85086, 1868, 199, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Working with Data"}], Cell[85288, 1873, 754, 13, 136, "Text", CellTags->{"Exercises", "Working with Data"}], Cell[86045, 1888, 440, 8, 84, "MathCaption", CellTags->{"Exercises", "Working with Data"}], Cell[86510, 1900, 475, 11, 60, "Input", CellTags->{"Exercises", "Working with Data"}], Cell[86988, 1913, 243, 4, 84, "Output", CellTags->{"Exercises", "Working with Data"}], Cell[89271, 1973, 750, 18, 73, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[95698, 2125, 337, 6, 43, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[97631, 2186, 313, 6, 43, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[131966, 3069, 303, 4, 59, "ExerciseHeading", CellTags->{"Exercises", "Saving Results from DE"}], Cell[132272, 3075, 712, 18, 44, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[133009, 3097, 479, 15, 60, "Input", CellTags->{"Exercises", "Saving Results from DE"}], Cell[133491, 3114, 443, 13, 84, "Output", CellTags->{"Exercises", "Saving Results from DE"}], Cell[133949, 3130, 710, 14, 73, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[134684, 3148, 533, 15, 60, "Input", CellTags->{"Exercises", "Saving Results from DE"}], Cell[135220, 3165, 1035, 28, 388, "Output", CellTags->{"Exercises", "Saving Results from DE"}], Cell[136270, 3196, 673, 16, 74, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[140136, 3319, 367, 6, 59, "ExerciseHeading", CellTags->{"Exercises", "Saving Notebooks"}], Cell[140506, 3327, 309, 6, 43, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[140818, 3335, 733, 22, 175, "Input", CellTags->{"Exercises", "Saving Notebooks"}], Cell[141554, 3359, 601, 14, 78, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[142158, 3375, 1340, 32, 105, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[143523, 3411, 77, 1, 60, "Input", CellTags->{"Exercises", "Saving Notebooks"}], Cell[143603, 3414, 2027, 37, 615, "Output", CellTags->{"Exercises", "Saving Notebooks"}], Cell[145645, 3454, 478, 9, 98, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[146126, 3465, 467, 11, 238, "Program", CellTags->{"Exercises", "Saving Notebooks"}], Cell[146596, 3478, 760, 19, 74, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[147359, 3499, 375, 9, 62, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[147737, 3510, 384, 7, 60, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[152456, 3635, 241, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Tables of File Info"}], Cell[152700, 3640, 817, 18, 73, "Exercise", CellTags->{"Exercises", "Tables of File Info"}], Cell[153520, 3660, 1092, 30, 394, "Input", CellTags->{"Exercises", "Tables of File Info"}], Cell[154615, 3692, 128, 2, 60, "Text", CellTags->{"Exercises", "Tables of File Info"}], Cell[154746, 3696, 372, 7, 84, "MathCaption", CellTags->{"Exercises", "Tables of File Info"}], Cell[155143, 3707, 586, 12, 60, "Input", CellTags->{"Exercises", "Working with Data"}], Cell[155732, 3721, 287, 6, 84, "Output", CellTags->{"Exercises", "Working with Data"}]}, "Writing Data"->{ Cell[776, 27, 226, 4, 59, "ExerciseHeading", CellTags->{"Exercises", "Writing Data"}], Cell[1005, 33, 897, 22, 73, "Exercise", CellTags->{"Exercises", "Writing Data"}], Cell[1905, 57, 822, 26, 99, "Input", CellTags->{"Exercises", "Writing Data"}], Cell[6138, 195, 410, 10, 44, "Exercise", CellTags->{"Exercises", "Writing Data"}]}, "Exporting and Importing Images"->{ Cell[9893, 321, 240, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[10136, 326, 1154, 31, 73, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[14885, 421, 100, 1, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[14988, 424, 4151, 62, 467, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[19154, 489, 384, 9, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[19563, 502, 352, 9, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[19918, 513, 9510, 163, 461, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[29443, 679, 870, 22, 73, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[51954, 1104, 633, 13, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[52612, 1121, 516, 14, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[53131, 1137, 2027, 41, 617, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}]}, "Exporting and Importing Data"->{ Cell[56307, 1214, 209, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[56519, 1219, 480, 10, 60, "Text", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[57002, 1231, 439, 12, 99, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[57444, 1245, 661, 16, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[58130, 1265, 761, 21, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[58894, 1288, 3685, 63, 430, "Output", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[62594, 1354, 181, 2, 43, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[62800, 1360, 227, 4, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[63030, 1366, 141, 2, 59, "Output", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[63186, 1371, 661, 17, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}]}, "Using Data Collections"->{ Cell[70092, 1563, 242, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Using Data Collections"}], Cell[70337, 1568, 551, 11, 44, "Exercise", CellTags->{"Exercises", "Using Data Collections"}]}, "Working with Data"->{ Cell[85086, 1868, 199, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Working with Data"}], Cell[85288, 1873, 754, 13, 136, "Text", CellTags->{"Exercises", "Working with Data"}], Cell[86045, 1888, 440, 8, 84, "MathCaption", CellTags->{"Exercises", "Working with Data"}], Cell[86510, 1900, 475, 11, 60, "Input", CellTags->{"Exercises", "Working with Data"}], Cell[86988, 1913, 243, 4, 84, "Output", CellTags->{"Exercises", "Working with Data"}], Cell[87246, 1920, 291, 7, 85, "MathCaption", CellTags->"Working with Data"], Cell[87562, 1931, 210, 4, 60, "Input", CellTags->"Working with Data"], Cell[87775, 1937, 1481, 33, 418, "Output", CellTags->"Working with Data"], Cell[89271, 1973, 750, 18, 73, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[95698, 2125, 337, 6, 43, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[97631, 2186, 313, 6, 43, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[155143, 3707, 586, 12, 60, "Input", CellTags->{"Exercises", "Working with Data"}], Cell[155732, 3721, 287, 6, 84, "Output", CellTags->{"Exercises", "Working with Data"}]}, "Saving Results from DE"->{ Cell[131966, 3069, 303, 4, 59, "ExerciseHeading", CellTags->{"Exercises", "Saving Results from DE"}], Cell[132272, 3075, 712, 18, 44, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[133009, 3097, 479, 15, 60, "Input", CellTags->{"Exercises", "Saving Results from DE"}], Cell[133491, 3114, 443, 13, 84, "Output", CellTags->{"Exercises", "Saving Results from DE"}], Cell[133949, 3130, 710, 14, 73, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[134684, 3148, 533, 15, 60, "Input", CellTags->{"Exercises", "Saving Results from DE"}], Cell[135220, 3165, 1035, 28, 388, "Output", CellTags->{"Exercises", "Saving Results from DE"}], Cell[136270, 3196, 673, 16, 74, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}]}, "Saving Notebooks"->{ Cell[140136, 3319, 367, 6, 59, "ExerciseHeading", CellTags->{"Exercises", "Saving Notebooks"}], Cell[140506, 3327, 309, 6, 43, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[140818, 3335, 733, 22, 175, "Input", CellTags->{"Exercises", "Saving Notebooks"}], Cell[141554, 3359, 601, 14, 78, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[142158, 3375, 1340, 32, 105, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[143523, 3411, 77, 1, 60, "Input", CellTags->{"Exercises", "Saving Notebooks"}], Cell[143603, 3414, 2027, 37, 615, "Output", CellTags->{"Exercises", "Saving Notebooks"}], Cell[145645, 3454, 478, 9, 98, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[146126, 3465, 467, 11, 238, "Program", CellTags->{"Exercises", "Saving Notebooks"}], Cell[146596, 3478, 760, 19, 74, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[147359, 3499, 375, 9, 62, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[147737, 3510, 384, 7, 60, "Text", CellTags->{"Exercises", "Saving Notebooks"}]}, "Info3578385396-2932426"->{ Cell[151670, 3608, 185, 4, 81, "Print", CellTags->"Info3578385396-2932426"]}, "Tables of File Info"->{ Cell[152456, 3635, 241, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Tables of File Info"}], Cell[152700, 3640, 817, 18, 73, "Exercise", CellTags->{"Exercises", "Tables of File Info"}], Cell[153520, 3660, 1092, 30, 394, "Input", CellTags->{"Exercises", "Tables of File Info"}], Cell[154615, 3692, 128, 2, 60, "Text", CellTags->{"Exercises", "Tables of File Info"}], Cell[154746, 3696, 372, 7, 84, "MathCaption", CellTags->{"Exercises", "Tables of File Info"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"Exercises", 163934, 3967}, {"Writing Data", 170231, 4095}, {"Exporting and Importing Images", 170620, 4104}, {"Exporting and Importing Data", 171831, 4127}, {"Using Data Collections", 172909, 4148}, {"Working with Data", 173140, 4153}, {"Saving Results from DE", 174351, 4180}, {"Saving Notebooks", 175181, 4197}, {"Info3578385396-2932426", 176336, 4222}, {"Tables of File Info", 176445, 4225} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 194, 3, 159, "Section", CounterAssignments->{{"Chapter", 7}, {"ExerciseNumber", 0}}, CellTags->"Exercises"], Cell[776, 27, 226, 4, 59, "ExerciseHeading", CellTags->{"Exercises", "Writing Data"}], Cell[1005, 33, 897, 22, 73, "Exercise", CellTags->{"Exercises", "Writing Data"}], Cell[1905, 57, 822, 26, 99, "Input", CellTags->{"Exercises", "Writing Data"}], Cell[CellGroupData[{ Cell[2752, 87, 377, 9, 60, "Input"], Cell[3132, 98, 237, 4, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3406, 107, 277, 5, 60, "Input"], Cell[3686, 114, 258, 4, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3981, 123, 220, 4, 60, "Input"], Cell[4204, 129, 250, 9, 159, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[4491, 143, 280, 7, 60, "Input"], Cell[4774, 152, 192, 3, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5003, 160, 180, 3, 60, "Input"], Cell[5186, 165, 196, 3, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5419, 173, 137, 2, 60, "Input"], Cell[5559, 177, 156, 2, 43, "Print"] }, Open ]], Cell[5730, 182, 185, 4, 60, "Text"], Cell[5918, 188, 137, 2, 60, "Input"], Cell[6058, 192, 77, 1, 43, "NonPrintButton"], Cell[6138, 195, 410, 10, 44, "Exercise", CellTags->{"Exercises", "Writing Data"}], Cell[CellGroupData[{ Cell[6573, 209, 195, 4, 60, "Input"], Cell[6771, 215, 510, 13, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7318, 233, 125, 2, 60, "Input"], Cell[7446, 237, 95, 1, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7578, 243, 207, 4, 60, "Input"], Cell[7788, 249, 551, 15, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8376, 269, 190, 4, 60, "Input"], Cell[8569, 275, 120, 2, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8726, 282, 259, 5, 99, "Input"], Cell[8988, 289, 555, 15, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9580, 309, 127, 3, 60, "Input"], Cell[9710, 314, 89, 1, 59, "Output"] }, Open ]], Cell[9814, 318, 76, 1, 43, "NonPrintButton"], Cell[9893, 321, 240, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[10136, 326, 1154, 31, 73, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[11315, 361, 130, 2, 60, "Input", PageBreakWithin->True], Cell[11448, 365, 3400, 51, 393, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14885, 421, 100, 1, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[14988, 424, 4151, 62, 467, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}] }, Open ]], Cell[19154, 489, 384, 9, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[19563, 502, 352, 9, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[19918, 513, 9510, 163, 461, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}] }, Open ]], Cell[29443, 679, 870, 22, 73, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[30338, 705, 285, 7, 60, "Input"], Cell[30626, 714, 193, 3, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30856, 722, 175, 3, 60, "Input"], Cell[31034, 727, 193, 3, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31264, 735, 163, 3, 60, "Input"], Cell[31430, 740, 5232, 90, 462, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36699, 835, 204, 5, 60, "Input"], Cell[36906, 842, 15033, 259, 336, "Output"] }, Open ]], Cell[51954, 1104, 633, 13, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[CellGroupData[{ Cell[52612, 1121, 516, 14, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Images"}], Cell[53131, 1137, 2027, 41, 617, "Output", CellTags->{"Exercises", "Exporting and Importing Images"}] }, Open ]], Cell[CellGroupData[{ Cell[55195, 1183, 488, 12, 99, "Input"], Cell[55686, 1197, 269, 4, 59, "Output"] }, Open ]], Cell[55970, 1204, 334, 8, 60, "Input"], Cell[56307, 1214, 209, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[56519, 1219, 480, 10, 60, "Text", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[57002, 1231, 439, 12, 99, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[57444, 1245, 661, 16, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[CellGroupData[{ Cell[58130, 1265, 761, 21, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[58894, 1288, 3685, 63, 430, "Output", CellTags->{"Exercises", "Exporting and Importing Data"}] }, Open ]], Cell[62594, 1354, 181, 2, 43, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[CellGroupData[{ Cell[62800, 1360, 227, 4, 60, "Input", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[63030, 1366, 141, 2, 59, "Output", CellTags->{"Exercises", "Exporting and Importing Data"}] }, Open ]], Cell[63186, 1371, 661, 17, 44, "Exercise", CellTags->{"Exercises", "Exporting and Importing Data"}], Cell[CellGroupData[{ Cell[63872, 1392, 408, 9, 60, "Input"], Cell[64283, 1403, 5714, 154, 303, "Output"] }, Open ]], Cell[70012, 1560, 77, 1, 43, "NonPrintButton"], Cell[70092, 1563, 242, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Using Data Collections"}], Cell[70337, 1568, 551, 11, 44, "Exercise", CellTags->{"Exercises", "Using Data Collections"}], Cell[CellGroupData[{ Cell[70913, 1583, 244, 4, 60, "Input"], Cell[71160, 1589, 7933, 121, 1540, "Output"] }, Open ]], Cell[79108, 1713, 164, 3, 60, "Text"], Cell[CellGroupData[{ Cell[79297, 1720, 146, 2, 60, "Input"], Cell[79446, 1724, 279, 5, 59, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79762, 1734, 277, 6, 60, "Input"], Cell[80042, 1742, 273, 5, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80352, 1752, 140, 2, 60, "Input"], Cell[80495, 1756, 1652, 25, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82184, 1786, 642, 16, 60, "Input"], Cell[82829, 1804, 329, 6, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83195, 1815, 925, 26, 99, "Input"], Cell[84123, 1843, 948, 22, 167, "Output"] }, Open ]], Cell[85086, 1868, 199, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Working with Data"}], Cell[85288, 1873, 754, 13, 136, "Text", CellTags->{"Exercises", "Working with Data"}], Cell[86045, 1888, 440, 8, 84, "MathCaption", CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[86510, 1900, 475, 11, 60, "Input", CellTags->{"Exercises", "Working with Data"}], Cell[86988, 1913, 243, 4, 84, "Output", CellTags->{"Exercises", "Working with Data"}] }, Open ]], Cell[87246, 1920, 291, 7, 85, "MathCaption", CellTags->"Working with Data"], Cell[CellGroupData[{ Cell[87562, 1931, 210, 4, 60, "Input", CellTags->"Working with Data"], Cell[87775, 1937, 1481, 33, 418, "Output", CellTags->"Working with Data"] }, Open ]], Cell[89271, 1973, 750, 18, 73, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[90046, 1995, 147, 2, 60, "Input"], Cell[90196, 1999, 174, 3, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90407, 2007, 186, 3, 60, "Input"], Cell[90596, 2012, 1483, 37, 196, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92116, 2054, 130, 2, 60, "Input"], Cell[92249, 2058, 3357, 61, 483, "Output"] }, Open ]], Cell[95621, 2122, 74, 1, 43, "NonPrintButton"], Cell[95698, 2125, 337, 6, 43, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[96060, 2135, 403, 11, 60, "Input"], Cell[96466, 2148, 323, 7, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[96826, 2160, 359, 11, 60, "Input"], Cell[97188, 2173, 348, 7, 84, "Output"] }, Open ]], Cell[97551, 2183, 77, 1, 43, "NonPrintButton"], Cell[97631, 2186, 313, 6, 43, "Exercise", CellTags->{"Exercises", "Working with Data"}], Cell[CellGroupData[{ Cell[97969, 2196, 283, 5, 60, "Input"], Cell[98255, 2203, 16564, 420, 518, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114856, 2628, 495, 14, 60, "Input"], Cell[115354, 2644, 16517, 419, 518, "Output"] }, Open ]], Cell[131886, 3066, 77, 1, 43, "NonPrintButton"], Cell[131966, 3069, 303, 4, 59, "ExerciseHeading", CellTags->{"Exercises", "Saving Results from DE"}], Cell[132272, 3075, 712, 18, 44, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[CellGroupData[{ Cell[133009, 3097, 479, 15, 60, "Input", CellTags->{"Exercises", "Saving Results from DE"}], Cell[133491, 3114, 443, 13, 84, "Output", CellTags->{"Exercises", "Saving Results from DE"}] }, Open ]], Cell[133949, 3130, 710, 14, 73, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[CellGroupData[{ Cell[134684, 3148, 533, 15, 60, "Input", CellTags->{"Exercises", "Saving Results from DE"}], Cell[135220, 3165, 1035, 28, 388, "Output", CellTags->{"Exercises", "Saving Results from DE"}] }, Open ]], Cell[136270, 3196, 673, 16, 74, "Exercise", CellTags->{"Exercises", "Saving Results from DE"}], Cell[CellGroupData[{ Cell[136968, 3216, 434, 12, 60, "Input"], Cell[137405, 3230, 943, 25, 122, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138385, 3260, 333, 8, 60, "Input"], Cell[138721, 3270, 194, 3, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138952, 3278, 260, 5, 60, "Input"], Cell[139215, 3285, 250, 4, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[139502, 3294, 143, 2, 60, "Input"], Cell[139648, 3298, 346, 14, 333, "Print"] }, Open ]], Cell[140009, 3315, 124, 2, 43, "NonPrintButton"], Cell[140136, 3319, 367, 6, 59, "ExerciseHeading", CellTags->{"Exercises", "Saving Notebooks"}], Cell[140506, 3327, 309, 6, 43, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[140818, 3335, 733, 22, 175, "Input", CellTags->{"Exercises", "Saving Notebooks"}], Cell[141554, 3359, 601, 14, 78, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[142158, 3375, 1340, 32, 105, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[CellGroupData[{ Cell[143523, 3411, 77, 1, 60, "Input", CellTags->{"Exercises", "Saving Notebooks"}], Cell[143603, 3414, 2027, 37, 615, "Output", CellTags->{"Exercises", "Saving Notebooks"}] }, Open ]], Cell[145645, 3454, 478, 9, 98, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[146126, 3465, 467, 11, 238, "Program", CellTags->{"Exercises", "Saving Notebooks"}], Cell[146596, 3478, 760, 19, 74, "Exercise", CellTags->{"Exercises", "Saving Notebooks"}], Cell[147359, 3499, 375, 9, 62, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[147737, 3510, 384, 7, 60, "Text", CellTags->{"Exercises", "Saving Notebooks"}], Cell[148124, 3519, 340, 6, 60, "Text"], Cell[CellGroupData[{ Cell[148489, 3529, 290, 7, 60, "Input"], Cell[148782, 3538, 160, 2, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[148979, 3545, 216, 4, 60, "Input"], Cell[149198, 3551, 2057, 38, 677, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[151292, 3594, 115, 2, 60, "Input"], Cell[151410, 3598, 108, 1, 43, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[151555, 3604, 112, 2, 60, "Input"], Cell[151670, 3608, 185, 4, 81, "Print", CellTags->"Info3578385396-2932426"] }, Open ]], Cell[CellGroupData[{ Cell[151892, 3617, 282, 7, 85, "Input"], Cell[152177, 3626, 264, 6, 116, "Output"] }, Open ]], Cell[152456, 3635, 241, 3, 59, "ExerciseHeading", CellTags->{"Exercises", "Tables of File Info"}], Cell[152700, 3640, 817, 18, 73, "Exercise", CellTags->{"Exercises", "Tables of File Info"}], Cell[153520, 3660, 1092, 30, 394, "Input", CellTags->{"Exercises", "Tables of File Info"}], Cell[154615, 3692, 128, 2, 60, "Text", CellTags->{"Exercises", "Tables of File Info"}], Cell[154746, 3696, 372, 7, 84, "MathCaption", CellTags->{"Exercises", "Tables of File Info"}], Cell[CellGroupData[{ Cell[155143, 3707, 586, 12, 60, "Input", CellTags->{"Exercises", "Working with Data"}], Cell[155732, 3721, 287, 6, 84, "Output", CellTags->{"Exercises", "Working with Data"}] }, Open ]], Cell[156034, 3730, 213, 4, 60, "Input"], Cell[CellGroupData[{ Cell[156272, 3738, 123, 2, 60, "Input"], Cell[156398, 3742, 414, 8, 122, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[156849, 3755, 422, 11, 60, "Input"], Cell[157274, 3768, 991, 25, 159, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158302, 3798, 511, 12, 60, "Input"], Cell[158816, 3812, 1558, 41, 393, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160411, 3858, 521, 15, 60, "Input"], Cell[160935, 3875, 1027, 27, 159, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[161999, 3907, 469, 11, 85, "Input"], Cell[162471, 3920, 908, 23, 427, "Output"] }, Open ]], Cell[163394, 3946, 91, 1, 60, "Input"], Cell[163488, 3949, 73, 1, 43, "NonPrintButton"], Cell[163564, 3952, 18, 0, 43, "Spacer"] }, Open ]] } ] *) (* End of internal cache information *)