(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 48518, 1007] NotebookOptionsPosition[ 31975, 709] NotebookOutlinePosition[ 48527, 1006] CellTagsIndexPosition[ 48484, 1003] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"First", "[", RowBox[{ RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Grid", "[", RowBox[{"#", ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\< \>\"", "}"}], ",", RowBox[{"{", "\"\< \>\"", "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\< \>\""}], "}"}]}], "}"}], "]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"BarChart", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Rest", "[", "#", "]"}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ "ChartElementFunction", "\[Rule]", "\"\\""}], ",", RowBox[{"ChartStyle", "\[Rule]", "\"\\""}], ",", RowBox[{"ChartLabels", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"ChartLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}], "}"}]}], "}"}], "]"}], "&"}], "/@", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "mtxPremSeq", ",", "mtxPremLws", ",", "mtxPremMtx", ",", "mtxPremJsp"}], "}"}], ",", RowBox[{"{", RowBox[{ "mtxReglSeq", ",", "mtxReglLws", ",", "mtxReglMtx", ",", "mtxReglJsp"}], "}"}], ",", RowBox[{"{", RowBox[{ "jspPremSeq", ",", "jspPremLws", ",", "jspPremMtx", ",", "jspPremJsp"}], "}"}], ",", RowBox[{"{", RowBox[{ "jspReglSeq", ",", "jspReglLws", ",", "jspReglMtx", ",", "jspReglJsp"}], "}"}], ",", RowBox[{"{", RowBox[{ "mtxTestSeq", ",", "mtxTestLws", ",", "mtxTestMtx", ",", "mtxTestJsp"}], "}"}]}], "}"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"N1", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N2", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N3", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N4", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N5", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N6", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N7", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N8", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"N9", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Initialization", "\[RuleDelayed]", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"base2dgt", "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "4"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"compBase", "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"testMotif", "=", RowBox[{"{", RowBox[{ "N1", ",", "N2", ",", "N3", ",", "N4", ",", "N5", ",", "N6", ",", "N7", ",", "N8", ",", "N9"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"testDgt", ":=", RowBox[{"testMotif", "/.", "base2dgt"}]}], ";", "\[IndentingNewLine]", RowBox[{"compMotif", ":=", RowBox[{"Reverse", "[", RowBox[{"testMotif", "/.", "compBase"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PWMlewis", ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.43519380033787064`", ",", "0.8812157894452297`", ",", "0.2`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.299`", ",", "0.314`", ",", "0.18221494606335306`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.091`", ",", "0.083`", ",", "1", ",", "0.001`"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{ "0.001`", ",", "1", ",", "0.083`", ",", "0.1276645304674177`"}], "}"}], "/", "0.1276645304674177`"}], ",", RowBox[{"{", RowBox[{ "0.089`", ",", "0.00009415259121972037`", ",", "1", ",", "0.001`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.084`", ",", "0.116`", ",", "1", ",", "0.001`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.00711597038084248`", ",", "0.5928571428571427`", ",", "0.022`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.8135593220338984`", ",", "0.7747798610282535`", ",", "0.11347958263770451`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "0.191`", ",", "0.6321743026687757`", ",", "0.5855078466237329`"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PWMmutex", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.584`", ",", "0.428`", ",", "0.191`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.`", ",", "0.2485294117647059`", ",", "0.7352941176470588`", ",", "0.2036764705882353`"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.022`", ",", "0.141`", ",", "0.11`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.001`", ",", "1", ",", "0.116`", ",", "0.084`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.001`", ",", "1", ",", "0.078`", ",", "0.089`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.`", ",", "0.16085271317829458`", ",", "1.937984496124031`", ",", "0.001937984496124031`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.001`", ",", "1", ",", "0.083`", ",", "0.091`"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.071`", ",", "0.314`", ",", "0.299`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "0.2`", ",", "0.78125`", ",", "0.2796875`"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PWMjsp", ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.11556383970177073`", ",", "1.`", ",", "0.13979496738117425`", ",", "0.6123019571295432`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.029943211151264842`", ",", "0.0005162622612287041`", ",", "0.004130098089829633`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0005339028296849974`", ",", "0.0405766150560598`", ",", "1.`", ",", "0.028830752802989856`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0512521840419336`", ",", "0.07454863133372161`", ",", "0.041351193942923706`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0005030181086519114`", ",", "0.0005030181086519114`", ",", "1.`", ",", "0.00704225352112676`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.009734991887506761`", ",", "0.023255813953488372`", ",", "0.9999999999999999`", ",", "0.05083829096809086`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.008208955223880597`", ",", "0.2992537313432836`", ",", "0.18805970149253734`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.09954751131221719`", ",", "0.3499245852187029`", ",", "0.06184012066365008`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.47533206831119545`", ",", "0.150853889943074`", ",", "0.27514231499051234`", ",", "1.`"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MUTEX", " ", "Premium", " ", "Consensus"}], "*)"}], "\[IndentingNewLine]", RowBox[{"mtxPremSeq", "=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", " ", "\n", " ", RowBox[{"{", " ", "\"\\"", "}"}], ",", "\n", " ", RowBox[{"{", "\"\<|||||||||\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mtxPremLws", "=", "7.833029239513149`"}], ";", "\[IndentingNewLine]", RowBox[{"mtxPremMtx", "=", "1.937984496124031`"}], ";", "\[IndentingNewLine]", RowBox[{"mtxPremJsp", "=", "0.021697137292552397`"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MUTEX", " ", "Regular", " ", "Consensus"}], "*)"}], "\[IndentingNewLine]", RowBox[{"mtxReglSeq", "=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", " ", "\n", " ", RowBox[{"{", " ", "\"\\"", "}"}], ",", "\n", " ", RowBox[{"{", "\"\<|||||||||\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mtxReglLws", "=", "1.`"}], ";", "\[IndentingNewLine]", RowBox[{"mtxReglMtx", "=", "1.`"}], ";", "\[IndentingNewLine]", RowBox[{"mtxReglJsp", "=", "0.2910467557133786`"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"JASPAR", " ", "Premium", " ", "Consensus"}], "*)"}], "\[IndentingNewLine]", RowBox[{"jspPremSeq", "=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", " ", "\n", " ", RowBox[{"{", "\"\\"", "}"}], ",", "\n", " ", RowBox[{"{", "\"\<|||||||||\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"jspPremLws", "=", "4.041520047892953`"}], ";", "\[IndentingNewLine]", RowBox[{"jspPremMtx", "=", "0.884205426356589`"}], ";", "\[IndentingNewLine]", RowBox[{"jspPremJsp", "=", "0.0745486"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"JASPAR", " ", "Regular", " ", "Consensus"}], "*)"}], "\[IndentingNewLine]", RowBox[{"jspReglSeq", "=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", " ", "\n", " ", RowBox[{"{", " ", "\"\\"", "}"}], ",", "\n", " ", RowBox[{"{", "\"\<|||||||||\>\"", "}"}], ",", RowBox[{"{", "\"\\"", "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"jspReglLws", "=", "0.5159587592889092`"}], ";", "\[IndentingNewLine]", RowBox[{"jspReglMtx", "=", "0.45625`"}], ";", "\[IndentingNewLine]", RowBox[{"jspReglJsp", "=", "0.9999999999999999`"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"mtxTestSeq", ":=", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"StringJoin", "[", "testMotif", "]"}], "}"}], ",", RowBox[{"{", "\"\<|||||||||\>\"", "}"}], ",", RowBox[{"{", RowBox[{"StringJoin", "[", "compMotif", "]"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mtxTestLws", ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"PWMlewis", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}]}], "]"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"PWMlewis", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"5", "-", RowBox[{"#", "[", RowBox[{"[", RowBox[{"10", "-", "i"}], "]"}], "]"}]}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}]}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"{", "testDgt", "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mtxTestMtx", ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"PWMmutex", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}]}], "]"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"PWMmutex", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"5", "-", RowBox[{"#", "[", RowBox[{"[", RowBox[{"10", "-", "i"}], "]"}], "]"}]}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}]}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"{", "testDgt", "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mtxTestJsp", ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{"PWMjsp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}]}], "]"}], ",", RowBox[{"Product", "[", RowBox[{ RowBox[{"PWMjsp", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"5", "-", RowBox[{"#", "[", RowBox[{"[", RowBox[{"10", "-", "i"}], "]"}], "]"}]}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "9"}], "}"}]}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"{", "testDgt", "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ")"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.492316510355238*^9, 3.4923165182856007`*^9}, { 3.492316552758297*^9, 3.492316555926054*^9}, {3.492316603425261*^9, 3.492316604800905*^9}, {3.492316655868614*^9, 3.492316678074972*^9}, { 3.492316938521665*^9, 3.492316986257977*^9}, {3.492317107396286*^9, 3.492317155562462*^9}, {3.492317233491269*^9, 3.492317253210606*^9}, 3.4923172976627197`*^9, {3.492317412952365*^9, 3.4923174916837807`*^9}, { 3.492317558388328*^9, 3.492317562764765*^9}, {3.4923175930685797`*^9, 3.49231761650455*^9}, {3.492317668604145*^9, 3.492317688359292*^9}, { 3.492317724790037*^9, 3.492317729709093*^9}, {3.49231776767831*^9, 3.492317848174919*^9}, 3.4923178781984797`*^9, {3.49231792110775*^9, 3.49231796340996*^9}, {3.49231802746421*^9, 3.492318042349724*^9}, { 3.492318138088545*^9, 3.492318269932865*^9}, {3.4923183129009132`*^9, 3.4923183696805468`*^9}, {3.49231840212085*^9, 3.492318496274353*^9}, { 3.492318873789863*^9, 3.492318944925973*^9}, {3.49231902679993*^9, 3.492319086466864*^9}, {3.492319124226448*^9, 3.492319173177278*^9}, { 3.492319288932444*^9, 3.492319327777322*^9}, 3.492319411850603*^9, { 3.492319496914653*^9, 3.492319557922132*^9}, {3.492319892779076*^9, 3.4923199001664953`*^9}, {3.492319945285532*^9, 3.492319965498149*^9}, { 3.4923199990010033`*^9, 3.4923200107542562`*^9}, {3.492320155409898*^9, 3.492320221594421*^9}, {3.492320393531176*^9, 3.492320418622642*^9}, 3.492320460079426*^9, {3.492320518805375*^9, 3.492320531181148*^9}, { 3.492320611494525*^9, 3.4923208242259817`*^9}, {3.492320870488243*^9, 3.492320897827641*^9}, {3.492321355760716*^9, 3.492321359382588*^9}, { 3.492321405512877*^9, 3.4923215158173637`*^9}, {3.492321684251889*^9, 3.492321707967662*^9}, {3.4923217624293756`*^9, 3.49232185938688*^9}, { 3.492322059606052*^9, 3.492322069421021*^9}, 3.492322244741838*^9, { 3.492322371074589*^9, 3.492322380730954*^9}, {3.492322414668792*^9, 3.492322454445928*^9}, {3.492322488188439*^9, 3.4923225530701523`*^9}, { 3.4923227114255733`*^9, 3.492322722306673*^9}, {3.492322779712359*^9, 3.492322813992117*^9}, {3.492322848482705*^9, 3.492322856635895*^9}, { 3.4923228968803253`*^9, 3.492322975783607*^9}, {3.49232312925915*^9, 3.492323267605185*^9}, 3.492323442502565*^9, {3.492323518325568*^9, 3.492323541626974*^9}, {3.492323772926593*^9, 3.492323809854274*^9}, { 3.492324084207295*^9, 3.492324357272995*^9}, {3.492324658265671*^9, 3.49232466401528*^9}, {3.492324798934355*^9, 3.492324824421155*^9}, { 3.492324907921833*^9, 3.492324909437365*^9}, {3.492325014893384*^9, 3.492325016325292*^9}, {3.492325056355364*^9, 3.492325092730928*^9}, 3.492325130969591*^9, {3.49232521160038*^9, 3.4923252124647303`*^9}, { 3.492325447133689*^9, 3.492325480408208*^9}, {3.492325514818618*^9, 3.492325560223054*^9}, {3.4923256194552603`*^9, 3.492325628220018*^9}, 3.492325758309561*^9, {3.4923259092337427`*^9, 3.492325912997518*^9}, { 3.492326105759089*^9, 3.49232614303835*^9}, {3.492326286211578*^9, 3.492326291988052*^9}, {3.492326355778158*^9, 3.4923263854443274`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`N1$$ = "A", $CellContext`N2$$ = "A", $CellContext`N3$$ = "A", $CellContext`N4$$ = "A", $CellContext`N5$$ = "A", $CellContext`N6$$ = "A", $CellContext`N7$$ = "A", $CellContext`N8$$ = "A", $CellContext`N9$$ = "A", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`N1$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N2$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N3$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N4$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N5$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N6$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N7$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N8$$], {"A", "C", "G", "T"}}, { Hold[$CellContext`N9$$], {"A", "C", "G", "T"}}}, Typeset`size$$ = { 759., {398.84375, 404.15625}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`N1$87916$$ = 0, $CellContext`N2$87917$$ = 0, $CellContext`N3$87918$$ = 0, $CellContext`N4$87919$$ = 0, $CellContext`N5$87920$$ = 0, $CellContext`N6$87921$$ = 0, $CellContext`N7$87922$$ = 0, $CellContext`N8$87923$$ = 0, $CellContext`N9$87924$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`N1$$ = "A", $CellContext`N2$$ = "A", $CellContext`N3$$ = "A", $CellContext`N4$$ = "A", $CellContext`N5$$ = "A", $CellContext`N6$$ = "A", $CellContext`N7$$ = "A", $CellContext`N8$$ = "A", $CellContext`N9$$ = "A"}, "ControllerVariables" :> { Hold[$CellContext`N1$$, $CellContext`N1$87916$$, 0], Hold[$CellContext`N2$$, $CellContext`N2$87917$$, 0], Hold[$CellContext`N3$$, $CellContext`N3$87918$$, 0], Hold[$CellContext`N4$$, $CellContext`N4$87919$$, 0], Hold[$CellContext`N5$$, $CellContext`N5$87920$$, 0], Hold[$CellContext`N6$$, $CellContext`N6$87921$$, 0], Hold[$CellContext`N7$$, $CellContext`N7$87922$$, 0], Hold[$CellContext`N8$$, $CellContext`N8$87923$$, 0], Hold[$CellContext`N9$$, $CellContext`N9$87924$$, 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" :> First[ Map[Grid[{{ Grid[#, Frame -> All]}, { Grid[{{" "}, {" "}, { "Relative Binding Strengths of Consensus and Test Motifs: \ Comparison between different PWMs", " "}}]}, { BarChart[ Drop[ Transpose[ Rest[#]], 1], ChartElementFunction -> "GlassRectangle", ChartStyle -> "Pastel", ChartLabels -> {{"PWM: Lewis", "PWM: MUTEX", "PWM: JASPAR"}, None}, ChartLegends -> { "Premium Consensus: MUTEX", "Regular Consensus: MUTEX", "Premium Consensus: JASPAR", "Regular Consensus: JASPAR", "Test Motif"}, ImageSize -> Large]}}]& , {{{ "Runx Cognate Motif", "Relative binding strength\n (PWM: Lewis)", "Relative binding strength\n (PWM: MUTEX)", "Relative binding strength\n (PWM: JASPAR)"}, \ {$CellContext`mtxPremSeq, $CellContext`mtxPremLws, $CellContext`mtxPremMtx, \ $CellContext`mtxPremJsp}, {$CellContext`mtxReglSeq, $CellContext`mtxReglLws, \ $CellContext`mtxReglMtx, $CellContext`mtxReglJsp}, {$CellContext`jspPremSeq, \ $CellContext`jspPremLws, $CellContext`jspPremMtx, $CellContext`jspPremJsp}, \ {$CellContext`jspReglSeq, $CellContext`jspReglLws, $CellContext`jspReglMtx, \ $CellContext`jspReglJsp}, {$CellContext`mtxTestSeq, $CellContext`mtxTestLws, \ $CellContext`mtxTestMtx, $CellContext`mtxTestJsp}}}]], "Specifications" :> {{$CellContext`N1$$, { "A", "C", "G", "T"}}, {$CellContext`N2$$, { "A", "C", "G", "T"}}, {$CellContext`N3$$, { "A", "C", "G", "T"}}, {$CellContext`N4$$, { "A", "C", "G", "T"}}, {$CellContext`N5$$, { "A", "C", "G", "T"}}, {$CellContext`N6$$, { "A", "C", "G", "T"}}, {$CellContext`N7$$, { "A", "C", "G", "T"}}, {$CellContext`N8$$, { "A", "C", "G", "T"}}, {$CellContext`N9$$, {"A", "C", "G", "T"}}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{895., {427.34375, 432.65625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(($CellContext`base2dgt = { "A" -> 1, "C" -> 2, "G" -> 3, "T" -> 4}; $CellContext`compBase = { "A" -> "T", "C" -> "G", "G" -> "C", "T" -> "A"}; $CellContext`testMotif = {$CellContext`N1$$, \ $CellContext`N2$$, $CellContext`N3$$, $CellContext`N4$$, $CellContext`N5$$, \ $CellContext`N6$$, $CellContext`N7$$, $CellContext`N8$$, $CellContext`N9$$}; \ $CellContext`testDgt := ReplaceAll[$CellContext`testMotif, $CellContext`base2dgt]; \ $CellContext`compMotif := Reverse[ ReplaceAll[$CellContext`testMotif, $CellContext`compBase]]; \ $CellContext`PWMlewis := {{ 0.43519380033787064`, 0.8812157894452297, 0.2, 1}, { 0.299, 0.314, 0.18221494606335306`, 1}, { 0.091, 0.083, 1, 0.001}, {0.001, 1, 0.083, 0.1276645304674177}/ 0.1276645304674177, {0.089, 0.00009415259121972037, 1, 0.001}, { 0.084, 0.116, 1, 0.001}, { 0.00711597038084248, 0.5928571428571427, 0.022, 1}, { 0.8135593220338984, 0.7747798610282535, 0.11347958263770451`, 1}, { 1, 0.191, 0.6321743026687757, 0.5855078466237329}}; $CellContext`PWMmutex = {{ 0.584, 0.428, 0.191, 1}, {1., 0.2485294117647059, 0.7352941176470588, 0.2036764705882353}, {1, 0.022, 0.141, 0.11}, { 0.001, 1, 0.116, 0.084}, {0.001, 1, 0.078, 0.089}, {1., 0.16085271317829458`, 1.937984496124031, 0.001937984496124031}, { 0.001, 1, 0.083, 0.091}, {1, 0.071, 0.314, 0.299}, {1., 0.2, 0.78125, 0.2796875}}; $CellContext`PWMjsp := {{0.11556383970177073`, 1., 0.13979496738117425`, 0.6123019571295432}, {0.029943211151264842`, 0.0005162622612287041, 0.004130098089829633, 1.}, { 0.0005339028296849974, 0.0405766150560598, 1., 0.028830752802989856`}, {0.0512521840419336, 0.07454863133372161, 0.041351193942923706`, 1.}, {0.0005030181086519114, 0.0005030181086519114, 1., 0.00704225352112676}, { 0.009734991887506761, 0.023255813953488372`, 0.9999999999999999, 0.05083829096809086}, {0.008208955223880597, 0.2992537313432836, 0.18805970149253734`, 1.}, {0.09954751131221719, 0.3499245852187029, 0.06184012066365008, 1.}, {0.47533206831119545`, 0.150853889943074, 0.27514231499051234`, 1.}}; $CellContext`mtxPremSeq = Grid[{{"Premium Consensus: MUTEX"}, {"TAACCGCAA"}, {"|||||||||"}, { "TTGCGGTTA"}}]; $CellContext`mtxPremLws = 7.833029239513149; $CellContext`mtxPremMtx = 1.937984496124031; $CellContext`mtxPremJsp = 0.021697137292552397`; $CellContext`mtxReglSeq = Grid[{{"Premium Consensus: MUTEX"}, {"TAACCACAA"}, {"|||||||||"}, { "TTGTGGTTA"}}]; $CellContext`mtxReglLws = 1.; $CellContext`mtxReglMtx = 1.; $CellContext`mtxReglJsp = 0.2910467557133786; $CellContext`jspPremSeq = Grid[{{"Premium Consensus: LASPAR"}, {"AAACCGCAG"}, {"|||||||||"}, { "CTGCGGTTT"}}]; $CellContext`jspPremLws = 4.041520047892953; $CellContext`jspPremMtx = 0.884205426356589; $CellContext`jspPremJsp = 0.0745486; $CellContext`jspReglSeq = Grid[{{"Regular Consensus: LASPAR"}, {"AAACCACAG"}, {"|||||||||"}, { "CTGTGGTTT"}}]; $CellContext`jspReglLws = 0.5159587592889092; $CellContext`jspReglMtx = 0.45625; $CellContext`jspReglJsp = 0.9999999999999999; $CellContext`mtxTestSeq := Grid[{{"Test Motif"}, { StringJoin[$CellContext`testMotif]}, {"|||||||||"}, { StringJoin[$CellContext`compMotif]}}]; $CellContext`mtxTestLws := Part[ Map[Max[ Product[ Part[$CellContext`PWMlewis, $CellContext`i, Part[#, $CellContext`i]], {$CellContext`i, 9}], Product[ Part[$CellContext`PWMlewis, $CellContext`i, 5 - Part[#, 10 - $CellContext`i]], {$CellContext`i, 9}]]& , {$CellContext`testDgt}], 1]; $CellContext`mtxTestMtx := Part[ Map[Max[ Product[ Part[$CellContext`PWMmutex, $CellContext`i, Part[#, $CellContext`i]], {$CellContext`i, 9}], Product[ Part[$CellContext`PWMmutex, $CellContext`i, 5 - Part[#, 10 - $CellContext`i]], {$CellContext`i, 9}]]& , {$CellContext`testDgt}], 1]; $CellContext`mtxTestJsp := Part[ Map[Max[ Product[ Part[$CellContext`PWMjsp, $CellContext`i, Part[#, $CellContext`i]], {$CellContext`i, 9}], Product[ Part[$CellContext`PWMjsp, $CellContext`i, 5 - Part[#, 10 - $CellContext`i]], {$CellContext`i, 9}]]& , {$CellContext`testDgt}], 1]; Null); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4923261461115828`*^9, 3.492326294163553*^9}] }, Open ]] }, WindowSize->{1147, 694}, WindowMargins->{{-27, Automatic}, {Automatic, 4}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 21453, 500, 1318, "Input"], Cell[22023, 524, 9936, 182, 877, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature vvDed#Y2GmZ2eB1aXyiqGa9D *)