(* 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[ 98735, 2984] NotebookOptionsPosition[ 94314, 2831] NotebookOutlinePosition[ 94681, 2847] CellTagsIndexPosition[ 94638, 2844] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ http://mathoverflow.net/questions/22515/practical-ways-to-get-skew-schur-\ functions http://en.wikipedia.org/wiki/Littlewood%E2%80%93Richardson_rule http://young.sp2mi.univ-poitiers.fr/cgi-bin/form-prep/marc/LiE_form.act?\ action=LRR\ \>", "Text", CellChangeTimes->{ 3.5838359733005095`*^9, {3.583836021452263*^9, 3.583836051563986*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"<<", "Combinatorica`"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5830641855608683`*^9, 3.583064195537439*^9}, { 3.583080417343273*^9, 3.5830804225585713`*^9}}], Cell[BoxData[ RowBox[{"<<", "Combinatorica`"}]], "Input", CellChangeTimes->{3.5835773885611706`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Partition1Q", "[", "arg_List", "]"}], ":=", RowBox[{"And", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"arg", ",", RowBox[{"{", "___Integer", "}"}]}], "]"}], ",", RowBox[{ RowBox[{"arg", "\[Equal]", RowBox[{"{", "}"}]}], "||", RowBox[{"Positive", "[", RowBox[{"1", "+", RowBox[{"Min", "[", RowBox[{"arg", "-", RowBox[{"Append", "[", RowBox[{ RowBox[{"Rest", "[", "arg", "]"}], ",", "0"}], "]"}]}], "]"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell["Littlewood-Richardson", "Subsection", CellChangeTimes->{{3.5829939133770447`*^9, 3.5829939155211678`*^9}, 3.58304154286578*^9, 3.583241636837573*^9, {3.5838359120610065`*^9, 3.5838359193404226`*^9}}], Cell[CellGroupData[{ Cell["inits", "Subsubsection", CellChangeTimes->{{3.58383372073967*^9, 3.583833721907737*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Partition2Q", "[", "arg_List", "]"}], ":=", RowBox[{"And", "[", RowBox[{ RowBox[{"MatchQ", "[", RowBox[{"arg", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Infinity]", "..."}], ",", "___Integer"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"arg", "\[Equal]", RowBox[{"{", "}"}]}], "||", RowBox[{ RowBox[{"Min", "[", RowBox[{"1", "+", RowBox[{"Min", "[", RowBox[{"arg", "-", RowBox[{"Append", "[", RowBox[{ RowBox[{ RowBox[{"Rest", "[", "arg", "]"}], "/.", " ", RowBox[{"\[Infinity]", "->", "$MaxMachineNumber"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ">", "0"}]}]}], "]"}]}], ";"}]], "Input", CellMargins->{{66, 0}, {2, 10}}, InitializationCell->True, CellChangeTimes->{{3.5790756614581385`*^9, 3.579075670476654*^9}, { 3.579076323672015*^9, 3.5790763429841194`*^9}, {3.5829676918822613`*^9, 3.5829677030508995`*^9}, {3.582967749082533*^9, 3.582967749274544*^9}, { 3.5829678979460473`*^9, 3.582967898393073*^9}, 3.5829681390318365`*^9, { 3.5829682305590715`*^9, 3.582968238678536*^9}, {3.5829683429104977`*^9, 3.58296834434258*^9}, 3.582969517446677*^9, {3.5829696334853144`*^9, 3.582969641892795*^9}, {3.5829697461807604`*^9, 3.5829697697881107`*^9}, 3.5829698050521274`*^9, {3.58296990090661*^9, 3.5829699084520416`*^9}, { 3.583046390776065*^9, 3.5830464096641455`*^9}}, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"segment", "[", RowBox[{"li1_List", ",", "li2_List"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"re", "=", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{ RowBox[{"Fold", " ", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"re", "=", RowBox[{"AppendTo", "[", RowBox[{"re", ",", RowBox[{"Take", "[", RowBox[{"#1", ",", "#2"}], "]"}]}], "]"}]}], ";", RowBox[{"Drop", "[", RowBox[{"#1", ",", "#2"}], "]"}]}], ")"}], "&"}], ",", "li1", ",", "li2"}], "]"}], ";", "re"}]}], " ", "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5829622730093193`*^9, 3.5829623026560144`*^9}, { 3.5829628449250307`*^9, 3.5829628786209583`*^9}, {3.5829629586605363`*^9, 3.582962986211112*^9}, {3.582963018099936*^9, 3.5829631101792026`*^9}, { 3.582963144619172*^9, 3.5829631574509068`*^9}, {3.5829631931939507`*^9, 3.5829632006823792`*^9}, {3.582963521710741*^9, 3.5829635250079293`*^9}, 3.5829636128879557`*^9, {3.582963848933457*^9, 3.5829638601891007`*^9}, { 3.582963936597471*^9, 3.582963992292657*^9}, {3.5829640286527367`*^9, 3.5829641668516407`*^9}, {3.5829642610750303`*^9, 3.582964296651065*^9}, { 3.5829643409786005`*^9, 3.5829643556434393`*^9}, 3.5829643907314463`*^9, { 3.5829645067210803`*^9, 3.5829646010644765`*^9}, {3.5829646664002132`*^9, 3.582964669104368*^9}}, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"testword", "[", "li_List", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"z", "=", "1"}], ",", "tryfra", ",", "temp"}], "}"}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"tryfra", "=", "frame"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"tryfra", "=", RowBox[{"MapAt", "[", RowBox[{ RowBox[{ RowBox[{"li", "[", RowBox[{"[", RowBox[{"z", "++"}], "]"}], "]"}], "&"}], ",", "tryfra", ",", "#"}], " ", "]"}]}], ")"}], "&"}], "/@", "idxfra"}], " ", ";", "\[IndentingNewLine]", RowBox[{"temp", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#", "+", RowBox[{"Range", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], "-", "1"}], ",", "0", ",", RowBox[{"-", "1"}]}], "]"}]}], ")"}], "&"}], "/@", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"TransposeTableau", "[", "tryfra", "]"}], ",", "0", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"And", ",", RowBox[{ RowBox[{ RowBox[{"Partition2Q", "[", RowBox[{"Reverse", "[", " ", "#", "]"}], "]"}], "&"}], "/@", "temp"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.583041112351156*^9, 3.583041261859708*^9}, { 3.5830413393961425`*^9, 3.5830414567158527`*^9}, 3.5830418010245457`*^9, 3.583042026543445*^9, 3.5830464346245728`*^9, {3.5830629192844415`*^9, 3.5830629232766695`*^9}, {3.5830629675162*^9, 3.583062995996829*^9}, { 3.5830630543001637`*^9, 3.583063079202588*^9}, {3.5830632707215424`*^9, 3.583063286680455*^9}, {3.583064967261579*^9, 3.583064975197033*^9}, { 3.5830661352863865`*^9, 3.5830661436368637`*^9}}, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LR", "[", RowBox[{ RowBox[{"\[Lambda]_", "?", "Partition1Q"}], ",", RowBox[{"\[Mu]_", "?", "Partition1Q"}], ",", RowBox[{"\[Nu]_", "?", "Partition1Q"}], ",", RowBox[{"latticewords_:", "False"}]}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"fra", ",", "ta", ",", "ta1", ",", "\[Mu]0", ",", "\[Nu]0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{ RowBox[{"Tr", "[", "\[Lambda]", "]"}], "=!=", RowBox[{ RowBox[{"Tr", "[", "\[Mu]", "]"}], "+", RowBox[{"Tr", "[", "\[Nu]", "]"}]}]}], ",", RowBox[{ RowBox[{"Length", "[", "\[Lambda]", "]"}], "<", RowBox[{"Length", "[", "\[Mu]", "]"}]}], ",", RowBox[{ RowBox[{"Length", "[", "\[Lambda]", "]"}], "<", RowBox[{"Length", "[", "\[Nu]", "]"}]}], ",", RowBox[{ RowBox[{"First", "[", "\[Lambda]", "]"}], "<", RowBox[{"First", "[", "\[Mu]", "]"}]}], ",", RowBox[{ RowBox[{"First", "[", "\[Lambda]", "]"}], "<", RowBox[{"First", "[", "\[Nu]", "]"}]}], ",", RowBox[{ RowBox[{"Min", "[", RowBox[{"\[Lambda]", "-", RowBox[{"PadRight", "[", RowBox[{"\[Mu]", ",", RowBox[{"Length", "[", "\[Lambda]", "]"}]}], "]"}]}], "]"}], "<", "0"}], ",", RowBox[{ RowBox[{"Min", "[", RowBox[{"\[Lambda]", "-", RowBox[{"PadRight", "[", RowBox[{"\[Nu]", ",", RowBox[{"Length", "[", "\[Lambda]", "]"}]}], "]"}]}], "]"}], "<", "0"}]}], "]"}], ",", RowBox[{"Return", "[", "0", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NumberOfTableaux", "[", "\[Nu]", "]"}], ">", RowBox[{"NumberOfTableaux", "[", "\[Mu]", "]"}]}], ",", RowBox[{ RowBox[{"\[Nu]0", "=", "\[Mu]"}], ";", RowBox[{"\[Mu]0", "=", "\[Nu]"}]}], ",", RowBox[{ RowBox[{"\[Mu]0", "=", "\[Mu]"}], ";", RowBox[{"\[Nu]0", "=", "\[Nu]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"frame", "=", RowBox[{"MapAt", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"\[Infinity]", "+", RowBox[{"(", RowBox[{"Range", "/@", "\[Lambda]"}], ")"}]}], ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Thread", "/@", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "\[Mu]0", "]"}], "]"}], ",", RowBox[{"Range", "/@", "\[Mu]0"}]}], "}"}], "]"}]}], ",", "1"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"idxfra", "=", RowBox[{"Flatten", "/@", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Thread", "[", " ", RowBox[{"List", "[", " ", RowBox[{ RowBox[{"Tr", "@", "#2"}], " ", ",", RowBox[{"Reverse", "[", RowBox[{"Position", "[", RowBox[{"#1", ",", "\[Infinity]"}], "]"}], "]"}]}], "]"}], "]"}], "&"}], ",", "frame"}], "]"}], ",", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"fra", "=", RowBox[{ RowBox[{ RowBox[{"Count", "[", RowBox[{"#", ",", "\[Infinity]"}], "]"}], "&"}], "/@", "frame"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"ta", "=", RowBox[{ RowBox[{"Function", "[", RowBox[{"q", ",", RowBox[{ RowBox[{ RowBox[{"Part", "[", RowBox[{ RowBox[{"Position", "[", RowBox[{"q", ",", "#"}], "]"}], ",", "1", ",", "1"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Tr", "[", "\[Nu]0", "]"}], "]"}]}]}], "]"}], "/@", RowBox[{"Tableaux", "@", "\[Nu]0"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ta1", "=", RowBox[{"Select", "[", RowBox[{"ta", ",", RowBox[{ RowBox[{"And", "@@", RowBox[{"(", RowBox[{"Partition1Q", "/@", RowBox[{"segment", "[", RowBox[{"#", ",", " ", "fra"}], " ", "]"}]}], ")"}]}], " ", "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{"latticewords", ",", RowBox[{ RowBox[{ RowBox[{"segment", "[", RowBox[{"#", ",", " ", "fra"}], " ", "]"}], "&"}], "/@", RowBox[{"Cases", "[", RowBox[{"ta1", ",", RowBox[{"_", "?", "testword"}]}], " ", "]"}]}], ",", RowBox[{"Length", "[", RowBox[{"Cases", "[", RowBox[{"ta1", ",", RowBox[{"_", "?", "testword"}]}], " ", "]"}], "]"}]}], " ", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.583060080055047*^9, {3.5830601220154467`*^9, 3.5830601943105817`*^9}, { 3.5830602351589184`*^9, 3.5830602439104185`*^9}, {3.583060285749812*^9, 3.5830603814302845`*^9}, {3.583060577900522*^9, 3.5830605786605654`*^9}, { 3.5830606194678993`*^9, 3.583060625564248*^9}, 3.5830607410838556`*^9, { 3.5830608208034153`*^9, 3.5830608493230467`*^9}, {3.583060950490833*^9, 3.5830609569942045`*^9}, {3.5830626503190575`*^9, 3.5830626694621525`*^9}, {3.5830630900912113`*^9, 3.5830630913162813`*^9}, {3.5830651484139404`*^9, 3.5830651630537777`*^9}, {3.5830684042791653`*^9, 3.583068605645683*^9}, { 3.5830689202276754`*^9, 3.583068928019121*^9}, {3.583069264833386*^9, 3.583069281264326*^9}, {3.583080542017404*^9, 3.583080556250218*^9}, { 3.583080938695093*^9, 3.5830809942552705`*^9}, {3.583081052502602*^9, 3.5830810683025055`*^9}, {3.5830811054536304`*^9, 3.5830812325408993`*^9}, {3.5830812675889044`*^9, 3.5830812730132146`*^9}, 3.5830813269653006`*^9, 3.5830813628363523`*^9, {3.5832358169866962`*^9, 3.583235829314401*^9}, {3.5832388010213733`*^9, 3.583238827309877*^9}, { 3.58323886758018*^9, 3.5832389190931263`*^9}, 3.583238996556557*^9, { 3.5832399101418114`*^9, 3.583239916326165*^9}, {3.5834007694424458`*^9, 3.583400776529851*^9}, 3.583400822529482*^9}, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cand", "[", RowBox[{ RowBox[{"\[Mu]_", "?", "Partition1Q"}], ",", RowBox[{"\[Nu]_", "?", "Partition1Q"}]}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"tr\[Mu]", ",", "tr\[Nu]", ",", RowBox[{"w", "=", RowBox[{ RowBox[{"Tr", "[", "\[Mu]", "]"}], "+", RowBox[{"Tr", "[", "\[Nu]", "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"tr\[Mu]", ",", "tr\[Nu]"}], "}"}], "=", RowBox[{"TransposePartition", "/@", RowBox[{"{", RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"rankpartition", "/@", RowBox[{"{", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{"PadRight", "[", RowBox[{"\[Mu]", ",", "w"}], "]"}], "+", RowBox[{"PadRight", "[", RowBox[{"\[Nu]", ",", "w"}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"TransposePartition", "@", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{ RowBox[{"PadRight", "[", RowBox[{"tr\[Mu]", ",", "w"}], "]"}], "+", RowBox[{"PadRight", "[", RowBox[{"tr\[Nu]", ",", "w"}], "]"}]}], ",", "0"}], "]"}]}]}], "}"}]}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5808269600071125`*^9, 3.5808272858547497`*^9}, { 3.580827553933083*^9, 3.5808275677178717`*^9}, {3.5808279303546133`*^9, 3.580827937065997*^9}, {3.5830467225900435`*^9, 3.5830468324603276`*^9}, { 3.583064720015437*^9, 3.583064721935547*^9}, {3.5830651187722445`*^9, 3.5830651206043496`*^9}, {3.583069556261055*^9, 3.583069570427865*^9}}, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"candskew", "[", RowBox[{ RowBox[{"\[Lambda]_", "?", "Partition1Q"}], ",", RowBox[{"\[Mu]_", "?", "Partition1Q"}]}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"le", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"Length", "[", "\[Lambda]", "]"}], ",", RowBox[{"Length", "[", "\[Mu]", "]"}]}], "]"}]}], ",", "\[Lambda]tr", ",", "\[Mu]tr", ",", "letr"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Lambda]tr", "=", RowBox[{"TransposePartition", "[", "\[Lambda]", "]"}]}], ";", RowBox[{"\[Mu]tr", "=", RowBox[{"TransposePartition", "[", "\[Mu]", "]"}]}], ";", RowBox[{"letr", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"Length", "[", "\[Lambda]tr", "]"}], ",", RowBox[{"Length", "[", "\[Mu]tr", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{"\[Lambda]", "-", RowBox[{"PadRight", "[", RowBox[{"\[Mu]", ",", RowBox[{"Length", "[", "\[Lambda]", "]"}]}], "]"}]}], "]"}], "<", "0"}], ",", RowBox[{ RowBox[{"Min", "[", RowBox[{"\[Lambda]tr", "-", RowBox[{"PadRight", "[", RowBox[{"\[Mu]tr", ",", RowBox[{"Length", "[", "\[Lambda]tr", "]"}]}], "]"}]}], "]"}], "<", "0"}], ",", RowBox[{ RowBox[{"Tr", "[", "\[Lambda]", "]"}], "<=", RowBox[{"Tr", "[", "\[Mu]", "]"}]}]}], "]"}], ",", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"rankpartition", "/@", " ", RowBox[{"{", RowBox[{ RowBox[{"TransposePartition", "[", RowBox[{"Reverse", "[", RowBox[{"Sort", "[", RowBox[{ RowBox[{"PadRight", "[", RowBox[{"\[Lambda]tr", ",", "letr"}], "]"}], "-", RowBox[{"PadRight", "[", RowBox[{"\[Mu]tr", ",", "letr"}], "]"}]}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{"Sort", "[", RowBox[{ RowBox[{"PadRight", "[", RowBox[{"\[Lambda]", ",", "le"}], "]"}], "-", RowBox[{"PadRight", "[", RowBox[{"\[Mu]", ",", "le"}], "]"}]}], "]"}], "]"}], ",", "0"}], "]"}]}], "}"}]}]}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5830713954852524`*^9, 3.5830715524622307`*^9}, 3.5830716120466385`*^9, 3.5830846348985033`*^9, {3.5832309459380884`*^9, 3.583231011040812*^9}, 3.5832313777027836`*^9, {3.583231595813259*^9, 3.5832316013485756`*^9}, {3.5832317043004637`*^9, 3.5832317356602573`*^9}, {3.5832319156835546`*^9, 3.5832319205948353`*^9}, {3.5832359725755954`*^9, 3.583235990982648*^9}, { 3.583409115748827*^9, 3.58340921266037*^9}, {3.5834094590824647`*^9, 3.583409527674388*^9}, {3.5834095932661395`*^9, 3.583409614154334*^9}, { 3.583410441523657*^9, 3.5834104418836775`*^9}, 3.5834106135144944`*^9, 3.5834123201511087`*^9, {3.583412540925736*^9, 3.5834125987330427`*^9}}, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"skewschur", "[", RowBox[{ RowBox[{"\[Lambda]_", "?", "PartitionQ"}], ",", RowBox[{"\[Mu]_", "?", "PartitionQ"}]}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "v", "}"}], ",", RowBox[{ RowBox[{"v", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"Length", "[", "\[Lambda]", "]"}], ",", RowBox[{"Length", "[", "\[Mu]", "]"}]}], "]"}]}], ";", RowBox[{"Expand", "[", RowBox[{ RowBox[{"unthreadSP", "[", RowBox[{ RowBox[{"Det", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"hh", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PadRight", "[", RowBox[{"\[Lambda]", ",", "v"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{ RowBox[{"PadRight", "[", " ", RowBox[{"\[Mu]", " ", ",", "v"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", "i", "+", "j"}], ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "v"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "v"}], "}"}]}], "]"}]}], ",", "hh"}], "]"}], " ", "/.", " ", RowBox[{"hh", "\[Rule]", "h2s"}]}], "]"}]}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.5809898438187275`*^9, 3.5809898773036427`*^9}, { 3.5809899079593964`*^9, 3.5809899807765613`*^9}, {3.5809900196957874`*^9, 3.580990046031294*^9}, {3.5830477956224174`*^9, 3.583047809014183*^9}, { 3.5830478562618856`*^9, 3.5830478567499137`*^9}, {3.5830478915259027`*^9, 3.5830478918859234`*^9}, {3.5830479396376543`*^9, 3.5830479523333807`*^9}, { 3.583048151596778*^9, 3.5830481599632564`*^9}, {3.583403875721115*^9, 3.583403885768689*^9}}, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"skewschur2", "[", RowBox[{ RowBox[{"\[Lambda]_", "?", "PartitionQ"}], ",", RowBox[{"\[Mu]_", "?", "PartitionQ"}]}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"v", ",", "v0", ",", "\[Lambda]tr", ",", "\[Mu]tr"}], "}"}], ",", RowBox[{ RowBox[{"v", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"Length", "[", "\[Lambda]", "]"}], ",", RowBox[{"Length", "[", "\[Mu]", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v0", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"First", "[", "\[Lambda]", "]"}], ",", RowBox[{"First", "[", "\[Mu]", "]"}]}], "]"}]}], ";", RowBox[{"\[Lambda]tr", " ", "=", RowBox[{"PadRight", "[", RowBox[{ RowBox[{"TransposePartition", "[", " ", "\[Lambda]", "]"}], ",", "v0"}], "]"}]}], ";", RowBox[{"\[Mu]tr", " ", "=", RowBox[{"PadRight", "[", RowBox[{ RowBox[{"TransposePartition", "[", " ", "\[Mu]", "]"}], ",", "v0"}], "]"}]}], ";", RowBox[{"Expand", "[", RowBox[{ RowBox[{"unthreadSP", "[", RowBox[{ RowBox[{ RowBox[{"Det", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"ee", "[", RowBox[{ RowBox[{ RowBox[{"\[Lambda]tr", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"\[Mu]tr", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "i", "+", "j"}], ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "v0"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "v0"}], "}"}]}], "]"}]}], "/.", RowBox[{"ee", "\[Rule]", "e2p"}]}], ",", "pp"}], "]"}], " ", "/.", " ", RowBox[{"pp", "\[Rule]", "p2s"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{ 3.583327916134636*^9, {3.5833280214306583`*^9, 3.5833280791739607`*^9}, 3.5833281287897987`*^9, {3.583328175709482*^9, 3.583328202485014*^9}, 3.583328243620367*^9, 3.583328336483678*^9, {3.583328376179949*^9, 3.5833283977791843`*^9}, {3.5833285890901265`*^9, 3.5833285910502386`*^9}, {3.5833287060178146`*^9, 3.5833287090419874`*^9}, {3.583402953896389*^9, 3.583402973991539*^9}, { 3.5834074402089915`*^9, 3.5834074931680207`*^9}}, Background->RGBColor[0.87, 0.94, 1]] }, Closed]], Cell[CellGroupData[{ Cell["examples", "Subsubsection", CellChangeTimes->{{3.583833744988057*^9, 3.5838337473631926`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Lambda]", "=", RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}]}], ";", RowBox[{"\[Mu]", "=", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1"}], "}"}]}], ";", RowBox[{"\[Nu]", "=", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}]}], ";", RowBox[{ RowBox[{"Tr", "[", "\[Lambda]", "]"}], "\[Equal]", RowBox[{ RowBox[{"Tr", "[", "\[Mu]", "]"}], "+", RowBox[{"Tr", "[", "\[Nu]", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Tr", "[", "\[Lambda]", "]"}], ",", "\"\\"", ",", RowBox[{"Max", "[", RowBox[{ RowBox[{"Length", "[", "\[Mu]", "]"}], ",", RowBox[{"Length", "[", "\[Nu]", "]"}]}], "]"}], ",", "\"\\"", ",", RowBox[{ RowBox[{"Length", "[", "\[Mu]", "]"}], "+", RowBox[{"Length", "[", "\[Nu]", "]"}]}]}], "}"}]}], "Input", CellChangeTimes->{ 3.583042150309524*^9, {3.5830425110751586`*^9, 3.5830425701385365`*^9}, { 3.5830427838177586`*^9, 3.5830427857928715`*^9}, {3.5830429405037203`*^9, 3.583042972159531*^9}, {3.5830430432956*^9, 3.583043135990902*^9}, { 3.583069153448015*^9, 3.5830691836307416`*^9}}, Background->RGBColor[1, 1, 0.85]], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"size= \"\>", ",", "16", ",", "\<\"minvars= \"\>", ",", "4", ",", "\<\"maxvars= \"\>", ",", "7"}], "}"}]], "Output", CellChangeTimes->{{3.5830425417369127`*^9, 3.583042571175596*^9}, 3.583042786791929*^9, 3.5830429761167574`*^9, 3.583043137467986*^9, 3.583043513020467*^9, 3.583050854896398*^9, 3.5830642108993177`*^9, 3.583065004988737*^9, {3.5830650426758924`*^9, 3.583065055765641*^9}, 3.5830660290083075`*^9, 3.583067110654174*^9, 3.583069186457903*^9, 3.5830694221773853`*^9, 3.583220426702422*^9, 3.583426684516703*^9, 3.5835771409610085`*^9, 3.58357728329815*^9, 3.583577419633948*^9, 3.5835781204770336`*^9, 3.5835793933558383`*^9, 3.5836689975124846`*^9}] }, Open ]], Cell["\<\ since \[Lambda] was choosen to have length 6, we set v=6\ \>", "Text", CellChangeTimes->{{3.583051069725685*^9, 3.5830510986613407`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"it", "=", RowBox[{ RowBox[{ RowBox[{"ss", "[", RowBox[{"\[Mu]", ",", "6"}], "]"}], RowBox[{"ss", "[", RowBox[{"\[Nu]", ",", "6"}], "]"}]}], "//", "schurProd2Sum"}]}]], "Input", CellChangeTimes->{{3.582959745589759*^9, 3.5829597923154316`*^9}, { 3.5829618103148546`*^9, 3.5829618182833104`*^9}, 3.5830434888450837`*^9, 3.5830435302764535`*^9, {3.5835781370909843`*^9, 3.5835781380450387`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "4", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "4", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "4", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"6", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "4", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "2", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}]], "Output", CellChangeTimes->{3.583043531321513*^9, 3.5830437275437365`*^9, 3.583050876507634*^9, 3.5830694479088573`*^9, 3.5834267176155963`*^9, 3.5835781531759043`*^9, 3.5836690084411097`*^9}] }, Open ]], Cell["above used 11 sec", "Text", CellChangeTimes->{{3.583050883463032*^9, 3.5830508956467285`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Coefficient", "[", RowBox[{"%", ",", RowBox[{"ss", "[", RowBox[{"\[Lambda]", ",", "6"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{3.583043414940857*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{{3.5830434994476905`*^9, 3.5830435209389195`*^9}, 3.5830437313619547`*^9, 3.5830509005920115`*^9, 3.5830694641717873`*^9, 3.583426727526163*^9, 3.5835781774832945`*^9, 3.583669008484112*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["by parts :", "Subsubsection", CellChangeTimes->{{3.583069485139987*^9, 3.5830694899392614`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"frame", "=", RowBox[{"MapAt", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"\[Infinity]", "+", RowBox[{"(", RowBox[{"Range", "/@", "\[Lambda]"}], ")"}]}], ",", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Thread", "/@", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "\[Mu]", "]"}], "]"}], ",", RowBox[{"Range", "/@", "\[Mu]"}]}], "}"}], "]"}]}], ",", "1"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.582966619113902*^9, 3.582966628907462*^9}, 3.582975193880351*^9, {3.5829939393295293`*^9, 3.5829939400175686`*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Infinity]", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"{", "\[Infinity]", "}"}], ",", RowBox[{"{", "\[Infinity]", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5830420904611006`*^9, 3.5830421558778424`*^9, 3.583042578531017*^9, 3.583042791625205*^9, 3.583050917195961*^9, 3.583064228180306*^9, 3.5830647618308287`*^9, 3.5830650608279305`*^9, 3.583066042430075*^9, 3.583669029270301*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"idxfra", "=", RowBox[{"Flatten", "/@", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Thread", "[", " ", RowBox[{"List", "[", " ", RowBox[{ RowBox[{"Tr", "@", "#2"}], " ", ",", RowBox[{"Reverse", "[", RowBox[{"Position", "[", RowBox[{"#1", ",", "\[Infinity]"}], "]"}], "]"}]}], "]"}], "]"}], "&"}], ",", "frame"}], "]"}], ",", "1"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5829714185354137`*^9, 3.582971457199625*^9}, { 3.5829716164867353`*^9, 3.582971864844941*^9}, {3.582971900772996*^9, 3.5829719021340733`*^9}, {3.5829719372200804`*^9, 3.5829721590837708`*^9}, { 3.582972209889676*^9, 3.582972243194581*^9}, {3.5830377578842916`*^9, 3.58303776519671*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.583037767246827*^9, 3.5830392571650457`*^9, 3.5830420924862165`*^9, 3.583042157965962*^9, 3.5830425802201138`*^9, 3.583042795257413*^9, 3.58305091910007*^9, 3.583064232868574*^9, 3.5830647639359493`*^9, 3.5830650646361485`*^9, 3.5830660502055197`*^9, 3.5836690293123035`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ta", "=", RowBox[{ RowBox[{"Function", "[", RowBox[{"q", ",", RowBox[{ RowBox[{ RowBox[{"Part", "[", RowBox[{ RowBox[{"Position", "[", RowBox[{"q", ",", "#"}], "]"}], ",", "1", ",", "1"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Tr", "[", "\[Nu]", "]"}], "]"}]}]}], "]"}], "/@", RowBox[{"Tableaux", "@", "\[Nu]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ta", "]"}]}], "Input", CellChangeTimes->{{3.582974945640152*^9, 3.5829749669943733`*^9}, { 3.582975029590954*^9, 3.582975037095383*^9}}], Cell[BoxData["168"], "Output", CellChangeTimes->{{3.5829749550696917`*^9, 3.582974968027433*^9}, 3.582975038390457*^9, 3.5829940711940713`*^9, 3.5829950043644457`*^9, 3.582995044348733*^9, 3.583037694095643*^9, 3.5830421059049845`*^9, 3.583042168662574*^9, 3.5830425860404463`*^9, 3.58304279992268*^9, 3.583050921082184*^9, 3.583064245138276*^9, 3.5830650721975813`*^9, 3.5830661647220697`*^9, 3.5836690293873076`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"fra", "=", RowBox[{ RowBox[{ RowBox[{"Count", "[", RowBox[{"#", ",", "\[Infinity]"}], "]"}], "&"}], "/@", "frame", " "}]}]}]], "Input", CellChangeTimes->{{3.582975242947157*^9, 3.5829752464763594`*^9}, { 3.5829754032363253`*^9, 3.582975423564488*^9}, {3.5829755499307156`*^9, 3.5829755527788787`*^9}, {3.5829930485035768`*^9, 3.582993057880113*^9}, { 3.5830416132338047`*^9, 3.58304161629698*^9}}, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.583042110989275*^9, 3.5830421732048335`*^9, 3.5830425880975637`*^9, 3.5830428020328007`*^9, 3.5830509226402726`*^9, 3.5830642499235497`*^9, 3.583065076754842*^9, 3.583066166676182*^9, 3.5836690294053087`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ta1", "=", RowBox[{"Select", "[", RowBox[{"ta", ",", RowBox[{ RowBox[{"And", "@@", RowBox[{"(", RowBox[{"Partition2Q", "/@", RowBox[{"segment", "[", RowBox[{"#", ",", " ", "fra"}], " ", "]"}]}], ")"}]}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ta1", "]"}]}], "Input", CellChangeTimes->{{3.5830399342857747`*^9, 3.583040017340525*^9}, { 3.5830400953399863`*^9, 3.5830400969960814`*^9}, {3.5830417500006275`*^9, 3.583041758489113*^9}, 3.583042295948854*^9, {3.583046453351644*^9, 3.5830464668634167`*^9}, 3.583064689214676*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "4", ",", "3", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "4", ",", "1", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "4", ",", "2", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "3", ",", "1", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "3", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "3", ",", "3", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "4", ",", "1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "4", ",", "2", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "2", ",", "2", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "3", ",", "2", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "3", ",", "1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "3", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "3", ",", "3", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "2", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "3", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5830421176736574`*^9, 3.5830421755259666`*^9, 3.5830422972449284`*^9, 3.5830425974580994`*^9, 3.5830428046419497`*^9, 3.5830509244643764`*^9, 3.5830642556668777`*^9, 3.583064691706818*^9, 3.5830650893805637`*^9, 3.583065305379918*^9, 3.5830655934263935`*^9, 3.583066175710698*^9, 3.5836690294363103`*^9}], Cell[BoxData["17"], "Output", CellChangeTimes->{3.5830421176736574`*^9, 3.5830421755259666`*^9, 3.5830422972449284`*^9, 3.5830425974580994`*^9, 3.5830428046419497`*^9, 3.5830509244643764`*^9, 3.5830642556668777`*^9, 3.583064691706818*^9, 3.5830650893805637`*^9, 3.583065305379918*^9, 3.5830655934263935`*^9, 3.583066175710698*^9, 3.5836690294383106`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ta2", "=", RowBox[{"Cases", "[", RowBox[{"ta1", ",", RowBox[{"_", "?", "testword"}]}], " ", "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ta2", "]"}]}], "Input", CellChangeTimes->{{3.5829929500559464`*^9, 3.582992977552519*^9}, 3.5829930925750976`*^9, {3.582993133719451*^9, 3.5829931939828978`*^9}, 3.582993236438326*^9, {3.582993286574194*^9, 3.582993306854354*^9}, { 3.5829933885740275`*^9, 3.582993391854215*^9}, 3.58299352183665*^9, { 3.58299365122005*^9, 3.5829936761154737`*^9}, {3.5829944980064836`*^9, 3.5829945255500593`*^9}, {3.5829945744378552`*^9, 3.5829945813892527`*^9}, {3.5829946226056104`*^9, 3.5829946408046513`*^9}, {3.5829951830976686`*^9, 3.5829952110722685`*^9}, {3.582995370424383*^9, 3.582995410343666*^9}, { 3.5829954430945396`*^9, 3.582995451951046*^9}, 3.582995951276606*^9, 3.5830408175992975`*^9, {3.583040864887002*^9, 3.583040871806398*^9}, { 3.5830409828937516`*^9, 3.583040984316833*^9}, {3.583041484378435*^9, 3.583041501529416*^9}, {3.5830417645444593`*^9, 3.583041777808218*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "4", ",", "1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "3", ",", "1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "2", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "3", ",", "2", ",", "3", ",", "4"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5829933079984193`*^9, 3.5829933931732907`*^9, 3.5829935229227123`*^9, 3.582993677602559*^9, 3.582994079986574*^9, 3.5829945282502136`*^9, { 3.5829945755929213`*^9, 3.582994582512317*^9}, {3.5829946236166677`*^9, 3.582994641463689*^9}, 3.582995022761498*^9, 3.5829950678760786`*^9, { 3.5829951849157724`*^9, 3.58299521197232*^9}, {3.582995376211714*^9, 3.5829954112587185`*^9}, 3.5829954537771506`*^9, 3.5829959529056993`*^9, 3.583041502242457*^9, 3.5830421198767834`*^9, 3.583042601576335*^9, 3.5830428077851295`*^9, 3.583050926848513*^9, 3.583064743968807*^9, 3.5830650928207607`*^9, 3.5830653097711697`*^9, 3.5830655950264854`*^9, 3.5830661791168933`*^9, 3.5836690294563117`*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{ 3.5829933079984193`*^9, 3.5829933931732907`*^9, 3.5829935229227123`*^9, 3.582993677602559*^9, 3.582994079986574*^9, 3.5829945282502136`*^9, { 3.5829945755929213`*^9, 3.582994582512317*^9}, {3.5829946236166677`*^9, 3.582994641463689*^9}, 3.582995022761498*^9, 3.5829950678760786`*^9, { 3.5829951849157724`*^9, 3.58299521197232*^9}, {3.582995376211714*^9, 3.5829954112587185`*^9}, 3.5829954537771506`*^9, 3.5829959529056993`*^9, 3.583041502242457*^9, 3.5830421198767834`*^9, 3.583042601576335*^9, 3.5830428077851295`*^9, 3.583050926848513*^9, 3.583064743968807*^9, 3.5830650928207607`*^9, 3.5830653097711697`*^9, 3.5830655950264854`*^9, 3.5830661791168933`*^9, 3.5836690294573116`*^9}] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["use it:", "Subsection", CellChangeTimes->{{3.583069519019925*^9, 3.583069519659961*^9}, { 3.583836087939066*^9, 3.5838360899231796`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]"}], "}"}]], "Input", CellChangeTimes->{{3.5830609991046133`*^9, 3.5830610006637025`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5830631159076877`*^9, 3.5830631770831866`*^9, 3.5830635082731295`*^9, 3.5830651713102503`*^9, 3.5830653370107274`*^9, 3.5830663812464542`*^9, { 3.583067097608428*^9, 3.583067119942705*^9}, 3.5830695784343233`*^9, 3.5834267328954706`*^9, {3.583577128100273*^9, 3.5835771459472938`*^9}, 3.5835772870273633`*^9, 3.5835774267613554`*^9, 3.5835781830296116`*^9, 3.5836691312081313`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", " ", RowBox[{ RowBox[{"LR", "[", RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], ",", " ", RowBox[{"LR", "[", RowBox[{"\[Lambda]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.583060629127452*^9, 3.583060642834236*^9}, { 3.5830608733774223`*^9, 3.583060874000458*^9}, {3.5830609718880568`*^9, 3.5830609767123327`*^9}, {3.583070185272032*^9, 3.583070219654999*^9}, { 3.5831476833862734`*^9, 3.5831476833862734`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]], "Output", CellChangeTimes->{ 3.583060643857294*^9, 3.5830607441620317`*^9, 3.5830608243366175`*^9, { 3.583060857013486*^9, 3.5830608748335056`*^9}, 3.5830609778313966`*^9, 3.5830631239311466`*^9, 3.5830631850696435`*^9, 3.5830651756925*^9, 3.583065342733055*^9, 3.583065739980776*^9, 3.5830663826335335`*^9, 3.5830671261900625`*^9, 3.5830695813614902`*^9, 3.5830702217981215`*^9, 3.5834267352126026`*^9, 3.583577147957409*^9, {3.583577226742915*^9, 3.5835772294840717`*^9}, 3.5835772886744576`*^9, 3.58357742859146*^9, 3.5835781845136967`*^9, 3.5836691312661347`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "calculate ", Cell[BoxData[ FormBox[ SubscriptBox["s", RowBox[{"\[Lambda]", "/", "\[Mu]"}]], TraditionalForm]], FormatType->"TraditionalForm"], " :" }], "Subsubsection", CellChangeTimes->{{3.583577860365156*^9, 3.5835778815603685`*^9}, 3.583577925628889*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Tr", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LR", "[", RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "#"}], "]"}], RowBox[{"ss", "[", RowBox[{"#", ",", "6"}], "]"}]}], "&"}], "/@", " ", RowBox[{"Partitions", "[", RowBox[{ RowBox[{"Tr", "[", "\[Lambda]", "]"}], "-", RowBox[{"Tr", "[", "\[Mu]", "]"}]}], "]"}]}], " ", "]"}], " "}]], "Input", CellChangeTimes->{{3.583578367922187*^9, 3.583578379377842*^9}, 3.583578955670804*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}]], "Output", CellChangeTimes->{3.583578389287409*^9, 3.583578544025259*^9, 3.583578958343957*^9, 3.583669131602154*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"itskew", "=", RowBox[{"Tr", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LR", "[", RowBox[{"\[Lambda]", ",", "\[Mu]", ",", "#"}], "]"}], RowBox[{"ss", "[", RowBox[{"#", ",", "6"}], "]"}]}], "&"}], "/@", RowBox[{"Take", "[", RowBox[{ RowBox[{"Partitions", "[", RowBox[{ RowBox[{"Tr", "[", "\[Lambda]", "]"}], "-", RowBox[{"Tr", "[", "\[Mu]", "]"}]}], "]"}], " ", ",", RowBox[{"candskew", "[", RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.583060629127452*^9, 3.583060642834236*^9}, { 3.5830608733774223`*^9, 3.583060874000458*^9}, {3.5830609718880568`*^9, 3.5830609767123327`*^9}, {3.583061044289198*^9, 3.583061104671652*^9}, { 3.583061240639428*^9, 3.583061250534994*^9}, 3.5831476833892736`*^9, { 3.583578286610536*^9, 3.583578315218172*^9}, {3.58357848984216*^9, 3.5835784938173876`*^9}, {3.5835785927690473`*^9, 3.583578596032234*^9}, 3.5835789621981773`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}]], "Output", CellChangeTimes->{{3.5830610878326883`*^9, 3.583061106861777*^9}, 3.583061253118142*^9, 3.5830664445880775`*^9, 3.583067138468765*^9, 3.5830696062039113`*^9, 3.583426741932987*^9, 3.5835772958518677`*^9, 3.5835774328487034`*^9, 3.583578323311635*^9, {3.5835784953154736`*^9, 3.5835785455913486`*^9}, 3.5835785983323655`*^9, 3.5835789642262936`*^9, 3.5836691319191723`*^9}] }, Open ]], Cell["time taken by above: 2 s", "Text", CellChangeTimes->{{3.5830611478951235`*^9, 3.5830611711104517`*^9}, 3.583061262493678*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", " ", "/.", " ", RowBox[{ RowBox[{"ss", "[", RowBox[{"par_", ",", "_"}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["p", RowBox[{"Tr", "[", "par", "]"}]], "^", RowBox[{"rankpartition", "[", "par", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.5830612707711515`*^9, 3.583061297709693*^9}, 3.583069656515789*^9}], Cell[BoxData[ RowBox[{ SubsuperscriptBox["p", "9", "9"], "+", SubsuperscriptBox["p", "9", "10"], "+", RowBox[{"2", " ", SubsuperscriptBox["p", "9", "11"]}], "+", SubsuperscriptBox["p", "9", "12"], "+", SubsuperscriptBox["p", "9", "13"], "+", RowBox[{"3", " ", SubsuperscriptBox["p", "9", "14"]}], "+", RowBox[{"5", " ", SubsuperscriptBox["p", "9", "15"]}], "+", RowBox[{"5", " ", SubsuperscriptBox["p", "9", "16"]}], "+", RowBox[{"5", " ", SubsuperscriptBox["p", "9", "17"]}], "+", SubsuperscriptBox["p", "9", "18"], "+", SubsuperscriptBox["p", "9", "19"], "+", RowBox[{"5", " ", SubsuperscriptBox["p", "9", "20"]}], "+", RowBox[{"4", " ", SubsuperscriptBox["p", "9", "21"]}], "+", RowBox[{"2", " ", SubsuperscriptBox["p", "9", "22"]}], "+", RowBox[{"5", " ", SubsuperscriptBox["p", "9", "23"]}], "+", RowBox[{"2", " ", SubsuperscriptBox["p", "9", "24"]}], "+", SubsuperscriptBox["p", "9", "26"], "+", SubsuperscriptBox["p", "9", "27"]}]], "Output", CellChangeTimes->{3.5830696593679523`*^9, 3.5834267474323015`*^9, 3.583578414802868*^9, 3.5835785498155904`*^9, 3.583669131937173*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"unrankpartition", "[", RowBox[{"9", ",", "9"}], "]"}], ",", RowBox[{"unrankpartition", "[", RowBox[{"9", ",", "27"}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.583061599689965*^9, 3.583061653044017*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.583061626594504*^9, 3.583061654030073*^9}, 3.5830696658903255`*^9, 3.5834267568128386`*^9, 3.5835784244984226`*^9, 3.583578551497687*^9, 3.583669131953174*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"candskew", "[", RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}]], "Input", CellChangeTimes->{{3.5835784289016743`*^9, 3.5835784396412888`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"9", ",", "27"}], "}"}]], "Output", CellChangeTimes->{3.5835784407613525`*^9, 3.583578552870765*^9, 3.583669131971175*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"skewschur", "[", RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}]], "Input", CellChangeTimes->{{3.583578609828023*^9, 3.58357863582351*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}]], "Output", CellChangeTimes->{ 3.583578639080696*^9, 3.5835788342318583`*^9, {3.5835789729017897`*^9, 3.5835789810452557`*^9}, 3.5836691337612777`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"skewschur2", "[", RowBox[{"\[Lambda]", ",", "\[Mu]"}], "]"}]], "Input", CellChangeTimes->{{3.583578609828023*^9, 3.5835786625120363`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}]], "Output", CellChangeTimes->{ 3.5835786642901382`*^9, 3.5835788343048625`*^9, {3.5835789749789085`*^9, 3.5835789825053387`*^9}, 3.583669134421315*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "\[Equal]", "%%", " ", "\[Equal]", "itskew"}]], "Input", CellChangeTimes->{{3.5835788412652607`*^9, 3.5835788426703405`*^9}, { 3.583578985509511*^9, 3.5835789887736974`*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.5835788437974052`*^9, {3.5835789767160077`*^9, 3.5835789902707834`*^9}, 3.583669134440316*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "calculate ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["s", "\[Mu]"], " ", ".", " ", SubscriptBox["s", "\[Nu]"]}], TraditionalForm]], FormatType->"TraditionalForm"], " :" }], "Subsubsection", CellChangeTimes->{{3.583577957708724*^9, 3.583577989845562*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LR", "[", RowBox[{"#", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], RowBox[{"ss", "[", RowBox[{"#", ",", "6"}], "]"}]}], "&"}], "/@", RowBox[{"Take", "[", RowBox[{ RowBox[{"Partitions", "[", RowBox[{ RowBox[{"Tr", "[", "\[Mu]", "]"}], "+", RowBox[{"Tr", "[", "\[Nu]", "]"}]}], "]"}], " ", ",", RowBox[{"cand", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "]"}]}], " ", "]"}]], "Input", CellChangeTimes->{{3.583067176756955*^9, 3.583067210524886*^9}, 3.583067253492344*^9, {3.583069699291236*^9, 3.583069761026767*^9}, 3.583147683392274*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "4", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "4", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "4", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "3", ",", "3"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "3", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "4", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "3", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"6", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "4", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "2", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "6"}], "]"}]}]], "Output", CellChangeTimes->{3.5830672794218273`*^9, 3.5830697795228243`*^9, 3.583426782302296*^9, 3.5835787722073107`*^9, 3.5836691358263955`*^9}] }, Open ]], Cell["\<\ time used above: 18 s over all 231 partitions of 16, but only 9 s with limit to the 19 candidates\ \>", "Text", CellChangeTimes->{{3.583067317507005*^9, 3.583067324851425*^9}, { 3.5830673644026875`*^9, 3.5830674054660363`*^9}, {3.5830676376813183`*^9, 3.5830676575604553`*^9}, {3.5830697923535585`*^9, 3.583069857057259*^9}, 3.583069889025088*^9, {3.5830700176484447`*^9, 3.583070024535838*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "\[Equal]", "it"}]], "Input", CellChangeTimes->{{3.5835787891612806`*^9, 3.5835787918224325`*^9}}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.5835787941995687`*^9, 3.5836691358793983`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"LR", "[", RowBox[{"#", ",", "\[Mu]", ",", "\[Nu]"}], "]"}], RowBox[{"ss", "[", RowBox[{"#", ",", "8"}], "]"}]}], "&"}], "/@", RowBox[{"Take", "[", RowBox[{ RowBox[{"Partitions", "[", RowBox[{ RowBox[{"Tr", "[", "\[Mu]", "]"}], "+", RowBox[{"Tr", "[", "\[Nu]", "]"}]}], "]"}], " ", ",", RowBox[{"cand", "[", RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "]"}]}], " ", "]"}]], "Input", CellChangeTimes->{3.583070273839098*^9, 3.5831476833992743`*^9, 3.5835791936524158`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "3"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "3"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "4", ",", "2"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "3"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "4", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "3", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "4", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "3"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "3", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "4", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "3", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "3", ",", "3"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "3", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "3", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "3", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "3", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "4", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "3", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"6", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "4", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "5", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "3", ",", "3", ",", "3", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "3", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "4", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "2", ",", "2", ",", "2", ",", "2"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "3", ",", "3", ",", "3", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"5", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "4", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "5", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "2", ",", "2", ",", "2", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "3", ",", "3", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"3", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "5", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "4", ",", "3", ",", "3", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "4", ",", "3", ",", "3", ",", "3", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "4", ",", "4", ",", "3", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "5", ",", "3", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "5", ",", "3", ",", "3", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "5", ",", "4", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "5", ",", "4", ",", "3", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "6", ",", "3", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "6", ",", "3", ",", "3", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}], "+", RowBox[{"ss", "[", RowBox[{ RowBox[{"{", RowBox[{ "6", ",", "4", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", "8"}], "]"}]}]], "Output", CellChangeTimes->{3.5830624269392805`*^9, 3.58306657471152*^9, 3.5830703040608263`*^9, 3.5834268136010866`*^9, 3.5835791987097054`*^9, 3.5836691372604775`*^9}] }, Open ]], Cell["\<\ time used above: 2 s : with \[Lambda] big, \[Mu] medium and \[Nu] small, it is faster to calculate \ LR[ \[Lambda] , \[Mu], \[Nu] ] than LR[ \[Lambda] , \[Nu], \[Mu] ] since \ #Tableaux[ \[Mu] ]= 35 and #Tableaux[ \[Nu] ]=168\ \>", "Text", CellChangeTimes->{{3.583070337389733*^9, 3.583070413997114*^9}, { 3.5830704628609095`*^9, 3.5830706363638334`*^9}, {3.5830706665635605`*^9, 3.583070671138822*^9}, {3.5831476834132752`*^9, 3.583147683447277*^9}, { 3.5835792664835815`*^9, 3.5835792668986053`*^9}, {3.5836691724254885`*^9, 3.583669173048525*^9}, {3.5836692031362457`*^9, 3.5836692079765224`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NumberOfTableaux", "/@", RowBox[{"{", RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}]], "Input", CellChangeTimes->{{3.583070640605076*^9, 3.5830706591961393`*^9}, { 3.583579226188277*^9, 3.583579230947549*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"35", ",", "168"}], "}"}]], "Output", CellChangeTimes->{3.58307066078723*^9, 3.583426826645832*^9, 3.583579233001666*^9, 3.5836691372834787`*^9}] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{858, 777}, WindowMargins->{{209, Automatic}, {Automatic, 16}}, ShowSelection->True, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 350, 8, 68, "Text"], Cell[910, 30, 212, 4, 31, "Input"], Cell[1125, 36, 102, 2, 31, "Input"], Cell[1230, 40, 617, 19, 52, "Input"], Cell[CellGroupData[{ Cell[1872, 63, 214, 3, 43, "Subsection"], Cell[CellGroupData[{ Cell[2111, 70, 95, 1, 34, "Subsubsection"], Cell[2209, 73, 1579, 38, 79, "Input", InitializationCell->True], Cell[3791, 113, 1570, 35, 82, "Input", InitializationCell->True], Cell[5364, 150, 2102, 53, 142, "Input", InitializationCell->True], Cell[7469, 205, 6795, 162, 262, "Input", InitializationCell->True], Cell[14267, 369, 1918, 49, 122, "Input", InitializationCell->True], Cell[16188, 420, 3522, 85, 162, "Input", InitializationCell->True], Cell[19713, 507, 1954, 48, 122, "Input", InitializationCell->True], Cell[21670, 557, 2596, 67, 122, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[24303, 629, 101, 1, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[24429, 634, 1313, 33, 68, "Input"], Cell[25745, 669, 740, 11, 31, "Output"] }, Open ]], Cell[26500, 683, 148, 3, 30, "Text"], Cell[CellGroupData[{ Cell[26673, 690, 451, 10, 31, "Input"], Cell[27127, 702, 9487, 315, 292, "Output"] }, Open ]], Cell[36629, 1020, 101, 1, 30, "Text"], Cell[CellGroupData[{ Cell[36755, 1025, 192, 5, 31, "Input"], Cell[36950, 1032, 246, 3, 31, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[37245, 1041, 103, 1, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[37373, 1046, 744, 20, 47, "Input"], Cell[38120, 1068, 772, 18, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38929, 1091, 856, 20, 31, "Input"], Cell[39788, 1113, 893, 25, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40718, 1143, 659, 18, 52, "Input"], Cell[41380, 1163, 439, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41856, 1174, 508, 12, 47, "Input"], Cell[42367, 1188, 355, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42759, 1200, 649, 15, 52, "Input"], Cell[43411, 1217, 2771, 75, 112, "Output"], Cell[46185, 1294, 367, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46589, 1304, 1112, 18, 52, "Input"], Cell[47704, 1324, 1493, 33, 52, "Output"], Cell[49200, 1359, 768, 11, 31, "Output"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[50029, 1377, 146, 2, 43, "Subsection"], Cell[CellGroupData[{ Cell[50200, 1383, 168, 3, 31, "Input"], Cell[50371, 1388, 729, 16, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51137, 1409, 516, 11, 31, "Input"], Cell[51656, 1422, 661, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52354, 1438, 294, 10, 38, "Subsubsection"], Cell[CellGroupData[{ Cell[52673, 1452, 536, 16, 31, "Input"], Cell[53212, 1470, 2940, 98, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56189, 1573, 1066, 25, 31, "Input"], Cell[57258, 1600, 3223, 102, 92, "Output"] }, Open ]], Cell[60496, 1705, 136, 2, 30, "Text"], Cell[CellGroupData[{ Cell[60657, 1711, 367, 10, 31, "Input"], Cell[61027, 1723, 1182, 31, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62246, 1759, 275, 7, 31, "Input"], Cell[62524, 1768, 414, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62975, 1783, 166, 3, 31, "Input"], Cell[63144, 1788, 165, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63346, 1797, 162, 3, 31, "Input"], Cell[63511, 1802, 2976, 99, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66524, 1906, 166, 3, 31, "Input"], Cell[66693, 1911, 2976, 99, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69706, 2015, 205, 3, 45, "Input"], Cell[69914, 2020, 154, 3, 45, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[70117, 2029, 296, 10, 32, "Subsubsection"], Cell[CellGroupData[{ Cell[70438, 2043, 702, 19, 31, "Input"], Cell[71143, 2064, 9438, 314, 292, "Output"] }, Open ]], Cell[80596, 2381, 418, 7, 49, "Text"], Cell[CellGroupData[{ Cell[81039, 2392, 127, 2, 31, "Input"], Cell[81169, 2396, 99, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81305, 2402, 631, 18, 31, "Input"], Cell[81939, 2422, 11244, 376, 332, "Output"] }, Open ]], Cell[93198, 2801, 623, 10, 49, "Text"], Cell[CellGroupData[{ Cell[93846, 2815, 237, 5, 45, "Input"], Cell[94086, 2822, 188, 4, 45, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)