(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     11204,        278]
NotebookOptionsPosition[      9302,        242]
NotebookOutlinePosition[      9765,        260]
CellTagsIndexPosition[      9722,        257]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{"Lecture", " ", "2"}], ":", " ", 
   RowBox[{"Matching", " ", "to", " ", "UV", " ", "models"}]}], 
  "Title"], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"SMEFT", "'"}], "2022", " ", "Physics", " ", "School"}], 
  "Subtitle"]}], "Input",
 Evaluatable->False,
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBmIQfWm3WF1C+WtH8f8FjSA68WhJF4jWOz1/Gog2e/li
HojO2Gy/AERb873aBBbfsWsziD73O/ssiK7z3gamJRRMpk0G0hcSzMB0esEE
Ff7W146rHraqgugvjn5/HIB02JdWRkcgzXCq0H1n22vHFYxVHiC66PwGta2d
rx33zrHTBNGbdByqDbtfO56qdALTBh8DXuf3A+0NfACmAzfMzyoG0utOyWWD
6KxTGz7OmvDaMeTbLjA9aWPlL7GJrx015kv9A9FxCwz1xYH0+Uh3ML2rxYxT
YtJrx9AlF8D0itIls0M+vHZ88uIImK6ZNuXIF4E3jpeaVhwD0TJXZc+AaA/7
S2dB9NG1+pdB9MHV7mB6wpmt+xeKvHFsWJF/AEQncx05CqI9PuWdAtEHd4Rz
sp1947ghLwdMr8k/VwyirV7H1IBoHo+EQyBaSGfvURC9JIWnmh1Itx2dCqYB
+x3jQg==
  "],ExpressionUUID->"0eaf1aea-89f9-4515-9031-02b86d5959fd"],

Cell[CellGroupData[{

Cell["Load MatchMakerEFT\[CloseCurlyQuote]s results", "Section",
 CellChangeTimes->{{3.86473291348685*^9, 3.864732917850452*^9}, {
  3.865590927759203*^9, 3.86559093065774*^9}, {3.866102954537706*^9, 
  3.866102961452509*^9}},ExpressionUUID->"45410912-ad03-485f-a941-\
c49128c2cab2"],

Cell[TextData[{
 StyleBox["The results obtained with ",
  FontSize->18,
  FontColor->GrayLevel[0],
  Background->None],
 StyleBox["MatchMakerEFT",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1],
  Background->None],
 StyleBox[" can be easily imported and stored as a replacement rule.",
  FontSize->18,
  FontColor->GrayLevel[0],
  Background->None]
}], "Text",
 CellChangeTimes->{{3.766986458621125*^9, 3.766986480811357*^9}, {
  3.766986572646778*^9, 3.766986759367234*^9}, {3.7669871627960043`*^9, 
  3.766987165578465*^9}, {3.766998870952428*^9, 3.766998871156941*^9}, {
  3.768913786891047*^9, 3.768913787048026*^9}, {3.865588795882143*^9, 
  3.86558880266354*^9}, {3.865591248779585*^9, 3.8655912858286667`*^9}, {
  3.8661029637100573`*^9, 3.866102971968989*^9}},
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"0d34d56e-84ca-42ae-a081-6fdb7c55176c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "\"\<SN_MM/MatchingResult.dat\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.864732563656657*^9, 3.8647325872401876`*^9}, 
   3.864741740199359*^9, {3.864749644297028*^9, 3.864749663962264*^9}, {
   3.864764650624681*^9, 3.864764653801111*^9}, {3.8648397865223913`*^9, 
   3.864839786905417*^9}, {3.8649857189076843`*^9, 3.864985721086437*^9}, {
   3.8649979415134583`*^9, 3.864997941898837*^9}, {3.865010359986902*^9, 
   3.865010360966288*^9}, {3.8653794758487673`*^9, 3.865379479227674*^9}, {
   3.865590934683032*^9, 3.865590934741736*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"a8d1ede7-7c84-4aa9-914e-c763cfee10c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Matching", " ", "in", " ", "the", " ", "physical", " ", "basis"}],
    " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"matching", "=", 
    RowBox[{"MatchingResult", "[", 
     RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.8647325888102818`*^9, 3.8647325903812943`*^9}, {
  3.8647327082976847`*^9, 3.864732723135426*^9}, {3.864732922555519*^9, 
  3.864732925921604*^9}, {3.864732959727169*^9, 3.8647329644766827`*^9}, {
  3.86474174165378*^9, 3.864741743113317*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"40f22ef1-5416-48a8-8fe7-ecbf4192f57e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Read results", "Section",
 CellChangeTimes->{{3.86473297263975*^9, 
  3.864732978229352*^9}},ExpressionUUID->"cb7292b9-219a-4ef1-ad13-\
ac2857255b3b"],

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C", "HG"], 
  TraditionalForm]],ExpressionUUID->"e0d5e300-2139-4d70-b6a5-3c318fc92f7d"]], \
"Text",
 CellChangeTimes->{{3.766987637898347*^9, 3.766987646815774*^9}, {
  3.766987741441463*^9, 3.766987744827812*^9}, {3.7669899608855886`*^9, 
  3.766989973974433*^9}, {3.766990811165653*^9, 3.7669908431034603`*^9}, {
  3.767344050598279*^9, 3.767344051449019*^9}, {3.865592020382526*^9, 
  3.865592020382588*^9}, {3.8661344322537327`*^9, 3.8661344334830914`*^9}},
 FontSize->18,
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"8aa58d3b-ba77-44e1-aea9-40168116594e"],

Cell[BoxData[
 RowBox[{"alphaOHG", "/.", "matching"}]], "Input",
 CellChangeTimes->{{3.866133664516861*^9, 3.866133666520542*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"acb26b07-6634-4cbe-9d6e-5f68c0c9541a"],

Cell[TextData[Cell[BoxData[
 FormBox[
  SuperscriptBox[
   SubscriptBox["C", "lq"], 
   RowBox[{"(", "1", ")"}]], 
  TraditionalForm]],ExpressionUUID->"3b5e5924-cf2d-4ed6-9e74-cd0017a9392d"]], \
"Text",
 CellChangeTimes->{{3.766987637898347*^9, 3.766987646815774*^9}, {
  3.766987741441463*^9, 3.766987744827812*^9}, {3.7669899608855886`*^9, 
  3.766989973974433*^9}, {3.766990811165653*^9, 3.7669908431034603`*^9}, {
  3.766990927899529*^9, 3.76699093531253*^9}, {3.7669910145972013`*^9, 
  3.76699102371996*^9}, {3.766991210411605*^9, 3.7669912139326773`*^9}, {
  3.7669912636361427`*^9, 3.766991264256855*^9}},
 FontSize->18,
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"1a03ebc8-691b-4aff-89ff-d78729a847cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alphaOlq1", "[", 
   RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], "/.", 
  "matching"}]], "Input",
 CellChangeTimes->{{3.864732982827147*^9, 3.864732983171753*^9}, {
  3.864733180675098*^9, 3.86473321351923*^9}, {3.8656317600240803`*^9, 
  3.8656317709976177`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"7af68ee4-df41-45b1-addb-3607602bb482"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"alphaOlq1", "[", 
    RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], "/.", "matching"}], "/.", 
  RowBox[{"onelooporder", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{3.8650694854436483`*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"a25dc1a3-de83-42ea-b654-0c347ffc0c49"],

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"alphaOlq1", "[", 
        RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "]"}], "/.", 
       "matching"}], "/.", 
      RowBox[{"onelooporder", "\[Rule]", "1"}]}], ",", 
     RowBox[{
      RowBox[{"YN", "[", "2", "]"}], 
      RowBox[{"YNbar", "[", "2", "]"}], 
      RowBox[{"YS", "[", "3", "]"}], 
      RowBox[{"YSbar", "[", "3", "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]", ">", "0"}], ",", 
     RowBox[{"MN", ">", "0"}], ",", 
     RowBox[{"MS", ">", "0"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.865631779900234*^9, 3.865631920812146*^9}, {
  3.866142518769086*^9, 3.8661425635167437`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"ef6b1023-5a89-455f-97f6-a67730dfefe2"],

Cell[TextData[Cell[BoxData[
 FormBox[
  SubscriptBox["C", "llHH"], 
  TraditionalForm]],ExpressionUUID->"c56a6bf2-db12-4b2a-be82-d9e3fb4dd1b9"]], \
"Text",
 CellChangeTimes->{{3.766987637898347*^9, 3.766987646815774*^9}, {
  3.766987741441463*^9, 3.766987744827812*^9}, {3.7669899608855886`*^9, 
  3.766989973974433*^9}, {3.766990811165653*^9, 3.7669908431034603`*^9}, {
  3.766990927899529*^9, 3.76699093531253*^9}, {3.7669910145972013`*^9, 
  3.76699102371996*^9}, {3.766991210411605*^9, 3.7669912139326773`*^9}, {
  3.7669912636361427`*^9, 3.766991264256855*^9}, {3.865592078723501*^9, 
  3.865592088211588*^9}},
 FontSize->18,
 Background->RGBColor[
  1, 1, 0.85],ExpressionUUID->"71d18d17-7d0d-40dd-aa5d-566a784a3d0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alphaWeinberg", "[", 
   RowBox[{"2", ",", "2"}], "]"}], "/.", "matching"}]], "Input",
 CellChangeTimes->{{3.864744504926922*^9, 3.864744575339447*^9}, {
   3.864985736778811*^9, 3.86498574293475*^9}, 3.865592110995449*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"9921592b-259d-47e0-bd15-514d1f10d294"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"alphaWeinberg", "[", 
     RowBox[{"i", ",", "j"}], "]"}], "/.", "matching"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.865592117355092*^9, 3.865592121821183*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"2b0af373-ed39-4193-a4b8-5fd9dbc97d52"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"alphaWeinberg", "[", 
      RowBox[{"i", ",", "j"}], "]"}], "/.", "matching"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "3"}], "}"}]}], "]"}], "/.", 
  RowBox[{"onelooporder", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{3.86559212633632*^9},
 CellLabel->"In[22]:=",ExpressionUUID->"d9a453ec-7c8c-4d12-844a-7ff203098d7d"]
}, Open  ]]
},
WindowSize->{1206., 739.5},
WindowMargins->{{0, Automatic}, {0, Automatic}},
TaggingRules->{"TryRealOnly" -> False},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.1 for Linux x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"4270c9f0-7074-4d80-86d7-f5a493463513"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 915, 21, 109, "Input",ExpressionUUID->"0eaf1aea-89f9-4515-9031-02b86d5959fd",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[1498, 45, 283, 4, 83, "Section",ExpressionUUID->"45410912-ad03-485f-a941-c49128c2cab2"],
Cell[1784, 51, 862, 21, 68, "Text",ExpressionUUID->"0d34d56e-84ca-42ae-a081-6fdb7c55176c"],
Cell[2649, 74, 663, 10, 36, "Input",ExpressionUUID->"a8d1ede7-7c84-4aa9-914e-c763cfee10c3"],
Cell[3315, 86, 644, 13, 62, "Input",ExpressionUUID->"40f22ef1-5416-48a8-8fe7-ecbf4192f57e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3996, 104, 156, 3, 83, "Section",ExpressionUUID->"cb7292b9-219a-4ef1-ad13-ac2857255b3b"],
Cell[4155, 109, 623, 12, 68, "Text",ExpressionUUID->"8aa58d3b-ba77-44e1-aea9-40168116594e"],
Cell[4781, 123, 209, 3, 36, "Input",ExpressionUUID->"acb26b07-6634-4cbe-9d6e-5f68c0c9541a"],
Cell[4993, 128, 721, 15, 70, "Text",ExpressionUUID->"1a03ebc8-691b-4aff-89ff-d78729a847cc"],
Cell[5717, 145, 386, 8, 36, "Input",ExpressionUUID->"7af68ee4-df41-45b1-addb-3607602bb482"],
Cell[6106, 155, 326, 7, 36, "Input",ExpressionUUID->"a25dc1a3-de83-42ea-b654-0c347ffc0c49"],
Cell[6435, 164, 864, 23, 62, "Input",ExpressionUUID->"ef6b1023-5a89-455f-97f6-a67730dfefe2"],
Cell[7302, 189, 723, 14, 68, "Text",ExpressionUUID->"71d18d17-7d0d-40dd-aa5d-566a784a3d0d"],
Cell[8028, 205, 337, 6, 36, "Input",ExpressionUUID->"9921592b-259d-47e0-bd15-514d1f10d294"],
Cell[8368, 213, 434, 11, 36, "Input",ExpressionUUID->"2b0af373-ed39-4193-a4b8-5fd9dbc97d52"],
Cell[8805, 226, 481, 13, 36, "Input",ExpressionUUID->"d9a453ec-7c8c-4d12-844a-7ff203098d7d"]
}, Open  ]]
}
]
*)