(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 25649, 572] NotebookOptionsPosition[ 23013, 501] NotebookOutlinePosition[ 24770, 553] CellTagsIndexPosition[ 24727, 550] WindowTitle->ImportFASTA | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["\<\ Import a simple NCBI Reference Sequence and give the raw header and sequence:\ \ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.77169340792522*^9, 3.771693418648632*^9}, { 3.771693475466382*^9, 3.7716935226534653`*^9}, {3.771693835122635*^9, 3.771693837192277*^9}, {3.7748870069421024`*^9, 3.774887017079825*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Short", "[", RowBox[{ RowBox[{"mitoc", "=", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ImportFASTA", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["ImportFASTA", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/ImportFASTA"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "ImportFASTA"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ImportFASTA"], BoxID -> "ImportFASTA", Selectable->False], "[", "\"\\"", "]"}]}], ",", "5"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7716933741621447`*^9, 3.77169339013655*^9}, { 3.771778448050816*^9, 3.771778503922768*^9}}, CellLabel->"In[9]:=", CellID->443871870], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{ "{", "\<\"NC_013993.1 Homo sp. Altai mitochondrion, complete genome\"\>", "}"}], ",", RowBox[{"{", RowBox[{"\<\"\ GATCACAGGTCTATCACCCTATTAACCACTCACGGGAGCTCTCCATGCATTTGGTATTTTCGTCTGGGGGGTGTGCAC\ GCGATAGCATTGCGAGACGCTGGAGCCGGAGCAC\"\>", "\[Ellipsis]", \ "\<\"GCCCATAACACTTGGGGGTAGCTAAAGTGAGCTGTATCCGGCATCTGGTTCCTACTTCAGGGCCATAAAGTCT\ AAATAGCCCACACGTTCCCCTTAAATAAGACATCACGATG\"\>"}], "}"}]}], "}"}], Short[#, 5]& ]], "Output", TaggingRules->{}, CellChangeTimes->{{3.771693391667419*^9, 3.7716934002320433`*^9}, { 3.7717784622645693`*^9, 3.7717784813297787`*^9}, 3.7717785231852303`*^9}, CellLabel->"Out[9]//Short=", CellID->1287555545] }, Open ]], Cell["Use the chaos game representation to visualize this genome:", "Text", TaggingRules->{}, CellChangeTimes->{{3.77169340792522*^9, 3.771693418648632*^9}, { 3.771693475466382*^9, 3.7716935226534653`*^9}, {3.771693835122635*^9, 3.771693837192277*^9}, {3.771778781630495*^9, 3.77177879566311*^9}, { 3.774887023285982*^9, 3.7748870291633387`*^9}}, CellID->1089732128], Cell[BoxData[ RowBox[{ RowBox[{"srules", "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{ RowBox[{"Except", "[", RowBox[{"Characters", "[", "\"\\"", "]"}], "]"}], "\[Rule]", "\"\<\>\""}]}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.75347283648125*^9, {3.753473938029674*^9, 3.753473947915803*^9}, { 3.753474304228881*^9, 3.753474318589628*^9}, {3.753474648775257*^9, 3.753474649433894*^9}, {3.753475569799128*^9, 3.753475570443009*^9}, { 3.753475636741787*^9, 3.7534756373307962`*^9}, {3.7534762826909924`*^9, 3.753476283524138*^9}, {3.7535276557883387`*^9, 3.7535276587491627`*^9}, { 3.753529778399157*^9, 3.753529785060402*^9}, {3.7535403454566803`*^9, 3.753540349712929*^9}, {3.753551105339957*^9, 3.7535511088462257`*^9}, 3.753553848823008*^9, {3.7535575416783257`*^9, 3.753557633072822*^9}, 3.7538023603389482`*^9, {3.753812536420205*^9, 3.753812541026885*^9}, 3.753898634910118*^9, 3.7538986690691357`*^9, {3.754160379281934*^9, 3.754160397880314*^9}, 3.754160442585061*^9, 3.7541604769380913`*^9, { 3.754164763465344*^9, 3.7541647736091337`*^9}, {3.75421935739226*^9, 3.7542193626255407`*^9}, {3.754234262949684*^9, 3.754234267188389*^9}, { 3.754234943133091*^9, 3.754234972317915*^9}, 3.754252682561654*^9, { 3.7542527212325706`*^9, 3.754252772224105*^9}, {3.7544160229626837`*^9, 3.7544160289784937`*^9}, 3.758221807001786*^9, 3.765543319366376*^9, { 3.768042144005989*^9, 3.768042144685779*^9}, 3.7680720719638767`*^9, { 3.768225727733179*^9, 3.768225728266617*^9}, {3.768499409266904*^9, 3.768499414376893*^9}, 3.7684996268600073`*^9, {3.768499795528018*^9, 3.7684997962785473`*^9}, 3.771778641196821*^9}, CellLabel->"In[12]:=", CellID->1117080424], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"mitoc", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", "srules"}], "]"}], ",", "7"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771778650548585*^9, 3.7717786646064463`*^9}, { 3.771778710354608*^9, 3.771778741888653*^9}}, CellLabel->"In[16]:=", CellID->2087719560], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJy1nU3Kvc9Wng8hSIaRtASb2g2ETOFkAHKEaCCCcBJiFBVb9uw7hfSciIMQ J5GOkBR6H65zea9Vtffvb8F+9/M8VbVqfa9VH89+/8Pv/dHPf//f/OxnP/sf /+7///n5L/74P//yl7/4k//yG+fmv/7iD3/nt//wVP7lP3/+4T/+7n86n5+h 5N7PXZ/yV7/zB7U/7ydYU79P2gd+67PRsI3xivMNv9sYn9y/jHd7btlGdp/g eq7/5h//+w/zh+Nv+G91xvsbuR0cbjq9jfmjhbBe+fEjbXh/5Hg+GfsG7+Yb prrz7MCfxvhRGb6UbdyNR7d+L/Tc8Npodt03ukl7b7yefKmv2/ifyos+Z+r/ Gnu+0ZXou/FpY3yiMxveW7/YxYbzbcxvfGfGjm02X7qN86LjL/L6KWT6rQ02 mqif1tVvS5PvJ3R+Mv5m3w0vxxzS/Umcd1/iMul3bPEmq00OzY+0vObmY9Pv 2zzkNsbWfyqvfmGqu40X+H//yz/6F/6fOtDGu9nHbV7gOrb/xO62GH7LVyjv JvtXW/pW5hPMhvfLGJufmWR0nsfOKfujE4E36eEWyynTm/+bcpBX+b/o+Utc 3/zdt3nBDbczJv0wvz+la5LTTW+Dg9s2n76NQ5hb25td3vCe6rexG59+qvje 8PoG7k+Nx61k/kc/wDlh4kKTf3h/2pi3P5LX/AgPPu3b8g/Dc5z70Zj7ad/m C9v1J37Tek8d2GC/+ptPSoNtOjgO9fNbO3P5lo6br3/xb5/mOrdYdltDsvz+ 7Ld++WtrM+6fOs+bnS+8ru20ult+ctP91udGv3G+xe8tjrWx2ebmM1q7Gw3M V3K99W14xb8b/9f42PSxjfcj8eDW5iVf+wbWxMNP5jWv409jfeL7v8HFed+5 P/5gi0WnjWN+8w2su8WVqe9UXuZqNxgTLszFJ/9yG2fzQVP/jecTrq5v862N 983e6XO9N0Bf2HSTcBtfbr5wop3xnnhtONzgErbhNf/XeN/Wz17Gd9tN7q82 fvP17fmxY8558524EN6E59QX82yiZZP5FFPbmvgLP1qeMpUNzxv/bnr8Yst+ Zpqb35zsMXC4jvfJ2A1+o5tjn+tpfjjFyZbjt/EmfKcxPvUrhPGNHI3jq71t ME55yTG/jXOtfez/xscNh9vaUPMP23zrxoO2TvxaXuRy82Ubrq92t437Sb+X WLDVxcdM87fJPhk7z/WUM3otM+N4rOSTk29/nSO/8uwbXrd2ky7e9KLBsV3Q VrhPY7/3CQ2m/cD5u//9J7+29keeN3v1ddpFByhbxrD0a2s3L3Z8ywduPJh4 Pvkk1rVYy+uWD2++wD6mjXPzlS903+KScyXG843mDf5kIy9290ncJOxvyzRf Mt4TTrbbyX+1XI7Pc+/1mEn/WpsJx9tz4u+5700ObS2S9nDTI+4xtvp/7f0Z Xm9z5tbXvs79mlym/cVJfjcZvMhoK4knXkf82//2P381x2t0pnBueO4TA7in OdFrvTvfZ1zesz2//fzbYv2yH3/xf9Z1t93WCKx75oPbsQ3xfVmvbX75fLL+ f+rPdT5e47PMKOdzT922XTe+mGeeh1D/THeDa9t6tR3raHS5rYvwepo3NZ83 4R0+Bw7zaD7ffHxbr3wdf7JPwr75q1tsmdq82NdL+SlgTOWWX7zye+r7TZ/t /tPC9f5z3/yh1/1M8+R/thxgWjN49bkvdL+0oQ27zzbO5m83vz7xo/F0osOw bjS2MsFsfiQ6cPzRmSu2ftOaK33padvyjQZvKswppnjQYG4x5KVMccDymuzT cW5q2/SJNHt+tuFHepuNnpL40/b00idtfv7z/1Xtnrg1mk7/wGf7pue3eHK+ 25oz/ZTbe03bMJnjEh7xafr9iS+2XLnW8hqrt1jT4vTkU1r+Zr7ZHzf4zu+t nxNPGi4TXV4XfI3HE8zGw8nuGu+m8W70NH/lZw23ZrMbvS/8aPeB3/J24kN/ nm+29xqifQV1jt/BwbRPfvcTmqd8fJufbDInzo1O+xPSlxjYaJrs1bR96i+2 sahfzda3s/+Ek9hAWtvcLbCzvsAxyd+G68Tvif6JF27bYumLbnKtbopp0/qJ 9WdbI/hmf67lca1PYjN1l/nVoTH5QWJ42vz1P/7xr2K6+7dnhJHPhucUM5sv 3Pxoi+uuzzf9YGtjXjUfbv6xjjz03qvH8/xpypknHWjrIROPpvomk+afJ1ya r2GxDTVYE423OHBrc7OptJls6IX217Yv+H5TbuNGz7b8otkk69n/Rk/z501v b/RsvN10b4upE37bmv0tvjQcb+O9wP1ET7a2Xn/ceHnLX1/Gdnvm9w3PFxs9 hTqz4eQ4vo1tWE1W0zhbPGObzb/42Te+YYPZ4t8LLi3WsrzEBba1D2p82r5f cGl5wIbbp3Sx36sufQLzk/uprtHsczu2t219dLp/ieMpzo+aLrJ8AjvtaeNN 99scaMu1mu/Od5v7brg3f5jr13OsE34N12Z/psO8f/GnE02t3rBz/oj6Rnx9 JsKwON7RZ47rHL3N9djfsfBlT5FzOedSmV+9jt/om+peinGyTsX+7Qcazyf/ 6DjCZ8bD9pJnGS/5QOaHTQ+bH7d+eyz6lYlPm57edKD5lpvsWs71ancTniy3 NWvOybnWkfMAPAPS+qaurW1sPrzhcMbMmQfKfsr/eM81B865mzxa7sA6wtli dNNz8slrNuZBy3Gsn+39ipdivjUYqafdN32b1v9sT9/6KcM3ntNemXHa1pxf x2dfw9/aTM82fDn+1u9H/f+tOPe23088DS60kY1m++Kpvtll0zP2m+Cw/c2P Wm+aX0hfxqEtRjScb/rTxn7RPz97qbu1b3jZvm/n+j4t0/tDKbaP5nd+hB/2 863uBv8TfKb+E65b3U9RGKcT942bZb/Z2oS/r5mPxsZu764xt88z9ml+KXnM uU7/SZ/anI/Xt5z42/KpvvyUYzX/yXrmVO39z5v/esW/5fHML537T3i/xKUJ F+a6bpPvzOfaPveN1o32KV+Z1sQM95a3TPj5fIXngeebZ5HPNfcMjVujY8Ml 9plntrHwOffeM6MeTvwhjlwXyD3PP3rOefa1vT5w8G3vaQReWz+Z8ujmU6e2 uX+JvS9+gj6T+/HsT3lSrjzP9a2tEf4U58kTjs/54Scx121DQ77N+wY/99Sb jfZGd+NBG5ewbG+3udENp4xLm+I7fLG92Pz5zjO/H2AftOl/6qlDlCflTf/E tYLzfWyTfQ5c5zDTPDv8Y/7RdCvwgk/axwdQb0y/7Xyy5eBpO2tz6/ZsW3O+ 6cEtdt9i+kt8uuEy6WXgbrHV5zQajQ0/2/VG98Sv1xi70frS7+X5j5RmI69j tff3DGvz/WzTxnPcmep9v+nrJveGf7ve2pk2P789m+TxAv8T3E7x2WjzmvxK zCMM2t+0T0OY9OXnnu8Lerw2vj/2y6196DzXZ69pW1Pa4sWkn1Pdt7Y/tZlw vvm+bczEdObh1gWO3/ISzhF5z3r3J84ZNzrg3M7nBzlW9K6tS1nXvJfNGOtn jYfTGvPG8+bbtrxvktME+6XdrS9l4vmgcZ7mp/YPlFPL7dPH+73e87j5VcuE a0SeN9g/THLwOPxM+uE2DT/fv+zvv/qHZmtu8zJvbH3a/J70cH2A8/X09568 dZ7925nYLb/gumHDp+XRjnEu9IXTO7gbz6w7tImtL3Fs4205EOny+Ns88cTD zO3OJ2e6z3POaZqvOWOd9rTjxPMpL7Qf8Xwn6y2ZX934HVlHXqc/z5hnXaPZ f5PVi1y2Nk1enq+ntPVm4ziN73vDavG35crMn6IH4Tv3/tq4hHv6/9a//bNf 8fw8Z1yf6KSsvLb6f//uT1cbzXfGCe6JO6c/ddHxoNkG273YfTuvFPj09dM8 1YU8Y97TfNbmG6xrzfdPtLY1MLbn2C826jGDX3Ruir9TPkKbndbrjXuLuS0X 9fiTj7BNT/hNeBme20yl2dGnMNiW/oZ7Go6VjSaOT//qHMD97JtMU1tXZN+N H7Q/92k24FzFfLzxt9Xz/nYGq+ndlGNP/VufCR/Dm+wx9c5dqB+2n4m/zgsa Lc1W+SxxwnLJN99RSz19W9ZxmR9MMbXxstVt7SYZTHY0lRcfssFr84HNvk0T 1wc4l2s63nwF73m2M/7GcjQu9En+PwWkK7gFH497np1cNfmC8wBf026dB9s3 NRuznG7vuTX5fDJOk+HWv9muaZ3mboY7zYejMxNfLMtT/F4w84PmI/jbVaY5 9cSZ640tdrf9ZeJrGXjfqvnFRvtkb5uMjWsrLYa1/o0/thvrCq9JY5tvU+7W /eTpzQ/zd0aCg/NRr+lwTTp7gtQ/6nT8P9tsc8LzPZ11SB33walXE88nX9zu OWaTR3DwWK2/cYrsIh/yhfNCjknZev5oGPTZ6RNZ5T7vfsQ3O6+2z+caMWXL 8VOftaDMJYkv9aTZI789x2vy8JoVfRfpv9m3YVAHJxk2nHjd4ERPGYu5lsbf 7Dkyanvi7HfkF36nTeb0aZu1nXN9YB6ZUO72oac9bSv3jOfxF/nNQtPFNa3z nTWO//Pv//xXfaaco639pZ3fWw3O9E3+LUzLhDI3rKmez6gr7b2xJn/nxQ22 x53wbvdNR6f+k+19U254vPSbbOeb/nz2I/H8ButTuqf+U2x5xYk+qMF12ezB cBvMds12E3y3nc5wTbbYxvxUvjed2Pp/Et+3e8Z14uT9qhvujJObjbfn/Hbc fS03Oj/1T1PdlGN943da/xvdNx38ZuxTuMacmN3G2OyUOZfrb/6k5S2OSbf+ 2xjm7w3/1p/+bdOTqUz2wLoXPWyFOHn+RrqneaFzL+cqhtfku91vZeNpa/tT xVGPP61rtTWVb8bY7hv/Nlpv+vFJ3+i+92rtyz+xYecREz5uO8He+m303mw2 hfts6bftXRB+cG+xwfl5g3OLlywTjya/Zh60ecz58L17juH5wQsuG62vzzae TznGC7ypjr7zBdYnfuaT9p/EPNY3f7H5bduk1yWm/exP4hR17ta++dwJ5rbX u8He9Ndrd21Nq+HSxpzWClL3iT59oue0ZcvxNk7LGew77aebLk3zhpuMfL3J /5PY9lpuPrrlw42/DZ/wcBt/8k+T/Df6N183Ff4+zRSPuL7OszT2nZt+Nz4E xsTj8M9zVfZ3H9Zt8jE9U/2p8/9icc7Q+rXnjcat3dTWdHLPob0Xt+lV2wfl +J7f284p+0/oarRN+kcdmuziR9YPNrztfzzeJ376m/rpPHaKbePT+QT3Y7jX Hjg+zx2cqT9TzuC2DQfqK3XL/jO65/48p7utP0zzgIx59gbO+UWPT/p4xoC8 th+Z9Nel2ZHh2uaaDYR3zGXYps1tzX+PtfnUTWdv9rDxYOr36mc/6ev6xt88 py56jrSN7eeT/m30eN0m922/scG9ycp2c/pln430p0/29NJ28pk+X+E4Mumz +T3pIce3vjNW3XDj2ldgcj0o+4uBHxvje8ZT3Gyy3+aZ5InrWByz3c48buez SI9xIB4NF/oKyrWteUy4N/lu8aPphvt/4ptutmY+5kwKn7Ucc7KJxhfLrukx r/mZ/Ir73fwwz9bxDEB0P7rOcxhpk/38KeYQh0nmnHNzbkG4qWeuy/3+aV5q /rT8oOU7zAmIL31GcDCvb/mGbdx2mnH4zfaOP+ZRi1ObfjjnMl+aLZrXLzl3 s7fNt0/9bs8/adPGb/V89un84lO8pnlr433D64Vm3m/noLdn1onbfGjya6/j TTBvuN/44XcNjONmR+c758saTrbdNob9xDRf2+LCpCetND/NZ36//5ZH2v9v uTp9qHkw4d58F8eY8uGpbLnRxrvJvk6MINzJf5E/lJnfV27x4XzzzCXx/NTu LSefl7WuNt12nMh8oc0dA2ObVzZcJ9/bdP2me6Zl0h/rPuFOvGAeMJ0fYGxm X9PVcsc8DwzXNfpeY2bT2c23GEbza21+M81TbjHtpe5H43E77z/JqeHSct9W P8FznHnx/4S1+ZsX+q13tr0Xf7yt39vuHW+aDW9zpZ+6tPhzPo7rU+FZ48DY 1mZaXZuDc4yN9ib/m39tsEMr5x6W6+3bcqXPMj5t7sJ2XpeadHLyUy80m2fn mr78Fk/IN+LdZNp4lv7NHvJ7DOat+eyza7Qh+4jJj1LmtGf+dsLEA4/Fd0ny 2xKNH239xvY/6U7zuVNcufkSvjNAuXON0HA9LtdGsl6yzceJw2nDd3DoU7m+ 0vBwzuj3rF7z8sZj87rxrvVp54iMg/GeZLfhdmvzjR9sfW7x9db+ZW+cpc2F mo+ddOKFTn5znTvjR6fpEz1O6OLvhTCX4vt9fIc4H+v2hPtN327Pb3rQ9i7t gzxvIO+cm4f2Bit9vTdCvnOclgvefHnzhY1u4tLg5p7+nPJLO66LN1/F3153 LGp50LTf3fjU6Nlo5bjmKZ+znv+Thm3Jt+BuegjL/Y2TYXou6LnaC63mW+uX dfS8Q2e/k/flmuzPdX4b+KyDnHhP2Kf+PEsb/j5Q40GLUaTba5W8ts3d+JJy 6M7eP987Tvusb+S9YetveHA+pj94JcYfGNEnx+bJF3r+1GSQdrRR8zDf1C3v uRh+2hgvtvP7+RuviQNhbjHS922c5i9Ic8OD7agzzvls5+R7O5dhXNx/i++n fPKe8BYXWs5gXmY8zvUSl53Tsh/PmWRs6pZzPua3if3n/dttft14M9F/8yHN j7Ktf1eG7wTT3ztGWbaNP7mnveVjOyMs85zX0xkCy9zX033zPY5fjnHRm+SG 8Z0+m9DiBXWi5R22syZ/y972frOftKX/Cz1NnwKPa8TOEy3H8539Af6fRfZv OsJx8169/w8FaSAfNj6ZnuAVm02cph1zfT/08lxA3q0/7c41/0dA3u/PmaG0 SSy1XwhcnglkPGJ82/y+1+HtK2nHPv8fnHzukWcOQm/yAv9mX/pT18OvkyNk XeTkHMGJPLLcOKdqcjRPLPspn5zysM1ftELbu7U1zBff5L7u1+A3u2h9PvEX DY8bzVPc5X3DccL7Bd4r7vQ9zWbyPe1v836L0zdc2Mb57QsNW/sbnOndT8eV Wzya6prvmeobrq98aPeO4XnW5gjb88leX/C7tWGcOffTPMi4NLxeYqC//f8H mi5MNDT/FBpe9bGdszKsDYeNV6yf8juuyzRdudG/4dRwb/Jj/J3Ge7WRyTdt smLOs8WNbW7hPVS3m+hqc6wJxoTbpD+59ztBzh3Y3r642T750XIx32863Owh 3+08hek2jMkeJr/t9cZ21uIF/zZva21uNDD/a3576j/Bcz5t3KL/XgfnvMb8 MP9uOfn2f9K8z8Z1rFc/RNonnlhOxp9j0Q9QHhu/NzxufTJ3Tp3nkJ5DmxfW X4/RzjWxjj4wfdv/A3zJqRutzTasL8GRujjFrEbLFF+Im2XJZ5P+s7TzCG0f x/Rv+LI/3y/b8iCO03Qy9dPZAvbnmlTkEPrpg/OMssw1bSjP03faQ590hHz2 HKT5NuJmn00ZtZyM4zado90Y50Zv4NCGmj+bfIpzYb5fMPlDxwvLqsV865J1 p/F369dgsP8rDPuHBqPNFXM9+fhmzzd/3mzGNE55/uYfGw6Gyfppb8Rjmz7L rvU/39zfbb6Te/q0s+Zv233L48wf5/2kue270edse8ZbTkLaJhqC/6RP7tP0 d5IN/bzXnPnJmiz7er/CPiDvLTW8yBfKYtJx02d7c+5nHr/4jcDgeqR5Zxnl uc8VTHROtnqb97/kgROdLz6PZ/za/Nf7ApNvtq6/+vBm043OtPN5n+hj6hhP 8z3lr6EvMNo5I67TN7tj/LXeO6cjHabf501TmMtYP8kz7oVNNtVK8OPaP+mP fvN3y9mfz//0N//iX+hAy1PYn/u1zn9Yx3mg9/g2middNA9bnkJ88ozxauLl jefG17wiLJ4Hte+d3vfY7jdfTH4YBmOcx2/+l7JuMFOyp5X+zNu5Jxg8aP/0 jRzjlpukz/nmmZiMz/OCsWvKKjrf9soI3zkO8XE+Q54R9unL94BzVoryaHtr E16Wa+CRNp5BP5/8H7ToAd9Rpv/l3iPjtHME6jtpTX/6Xcoh8o+vazk1r8nj Fk9Yx9+h4dkC+lfS47m4z9/xmrHTsvH5RscJ+8TAbPHANBqPpgdtfu0P4TaZ kC+8b+sd/qZ9W/8Z92KXGYP73o61bU7aeJA+OT9Hn5NzDzz/wHf+j03Ebjh2 8OVYlit1yvLm+lN4Q/uK7QeXyJC+0LGEOHh82ptxpJ8jn3KOIOPzfCbPHZA3 hGv9oa/wexq3eGo7bvbTYm2zjzbe1H7zqds9/Uh44XUj999seLKrG14pkVWj tfW58Wejv+FKndjgNTlah5y7NdwNP/bV6jY6+bytMebaMcF66vWNVzmSL9O5 5CZXfye3aHM/x6yGB3ObhrtzaMYVr/063tEfTnzJvX87vtHB5/bB1KXNT/g5 x2x5cPq0uYr7tFg/2Yzl0XzdxK9GF/fRDPtmF+Qj27/6W+eUsSnb/uTjmauZ hw0P4sNY5H7UCc5JJv+12e7UlvMfryMyHrZ9zsCNHU0+hLnBZI/kM/Fucpj4 x3wsH9LUcnaPazkbn6Y//EywmlyaHFnH+a372zcy/5v0o+mEY79zoolPjf5z T380nSVmXz9ra1Dmb557Dkx67EsnXjL2OA+kb/B8g/Sy/7Q2QBzzPH1sD1wH JF6t2N/QR+SedmE5tryFufSEN/lwYrjhUR/NW+ocfUee+Uya9Yj0pz/ppw5x bhVYHp+8tP7YF1gW/l246X+etf7kN/177pu9uXi8KYZ5j7rpYeTl8Z2bkSfh dXQs9DlvarLjuPn4zLhxNk+ntXjrRHAxTmce6Xk+80LiaL7ERvw5z/nuf7M3 26JzcOoG6U0f0ka5tPcVSdMUr0z3+RwamJtYd9Mv70GkTXQhz/iegX1NdJA2 QL/ruGIYlAfbHNy5Tul9soZLi8GN/y0OU5/ZZvJbtL/Nv7Y+vM7a8IbjNK55 0NoyphH2hm+rd13GnfauUxzHXd9+v59lwp06Q1/V/i+qfwfT/s/xnXpMO2zj T7kz9z2tI/RvjH9T8T4/7bjt+zkf2eTfbMtyaPPitOX+nXMs9jd/mu2yLfWD 66H+rTLKpsnC8jZ+lKP1lPQwzjr/iN9uaxm0U8Z49qdMGv9Ip+Oj833z1/NT w3a7yY49vuXdriM/888yo++nTKybltNpy/yQv8nBPD45NHndzgm2PN+/r8O9 BurDGTu5CHlI/8Rck7w47bkv6VhIP8O69DP+lA/jKN/XM36hrcU97iGeZ3yX k7rv/7Mc/Ph/i6knoSvnh82/8808LHsolFHG5joo6aM92BdQL8njZh/2mbRp w+e4tivDc95t/bmtGTHO2HbYvj23v27+j3PD6IvzV+M7wTP9zmlT79w/40ZH cs/4SvlTB70+HDujX+fvXjjX9X6x5eh4k/eD6T+8pkN/FLvgHl32DBnvmN9w zyW/y8F4wD0/yyuw+H4w4fH9YPKEMqLP8HVsPX09j8x43i/PmLF3vm/O/UC+ i5x7xt7oAz+UF9dSGBeTY+SsQp5HFvw4ZtgGvQ5Au7QPJA/t26lzXl+g3Egn 49T5ji6238AhzvarLebkO3wJ3wiXuk7Zk1fEM77f/5+Av7tE+6O/T7vYD9// z3h8x58xKs8Tt4/cubbEvIJzlLQPDMbf/IbQ+W0Q5yW0+9PvjMe+jmORf3Dn 7xTxOvZGPrHdGSdw8xtBh46MT76mjuMFN8LPmPE7of3APB/yhzTT1jPGaXvw Cv/jz/K7RudMYHzCP82V//LX6Pp/pcYiRA== "], {{0, 128}, {128, 0}}, {0., 1.}, ColorFunction->GrayLevel], BoxForm`ImageTag["Real32", ColorSpace -> Automatic, Interleaving -> None], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSizeRaw->{128, 128}, PlotRange->{{0, 128}, {0, 128}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.771778667136581*^9, 3.771778745143557*^9}, CellLabel->"Out[16]=", CellID->734725901] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ImportFASTA | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[624, 23, 168, 7, 70, "Subsection",ExpressionUUID->"e97eb94a-4537-436b-8353-0b1085ca5161", CellID->462042388], Cell[795, 32, 354, 8, 70, "Text",ExpressionUUID->"3c32f332-cf51-4661-8b83-c07a89950a69", CellID->13078159], Cell[CellGroupData[{ Cell[1174, 44, 7869, 191, 70, "Input",ExpressionUUID->"364ce6f1-210c-42f5-8a71-6048c39e8d36", CellID->443871870], Cell[9046, 237, 733, 19, 70, "Output",ExpressionUUID->"d732358a-0bfb-42e7-bdb9-dda571d7b59f", CellID->1287555545] }, Open ]], Cell[9794, 259, 376, 6, 70, "Text",ExpressionUUID->"41df6e85-c81e-4e6e-8b5a-fa498d8f5887", CellID->1089732128], Cell[10173, 267, 1846, 33, 70, "Input",ExpressionUUID->"7affcc5d-76be-4f43-bb38-fb4fed88a332", CellID->1117080424], Cell[CellGroupData[{ Cell[12044, 304, 482, 14, 70, "Input",ExpressionUUID->"f50a8c7c-76fb-4d28-9049-b2fc638ea9e3", CellID->2087719560], Cell[12529, 320, 10456, 177, 70, "Output",ExpressionUUID->"0932c2f8-c7f8-4f59-81bc-ba22457331f2", CellID->734725901] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)