add Hg frame

Untitled-2.nb

-(* Content-type: application/vnd.wolfram.mathematica *)
-
-(*** Wolfram Notebook File ***)
-(* http://www.wolfram.com/nb *)
-
-(* CreatedBy='Mathematica 12.0' *)
-
 (*CacheID: 234*)
 (* Internal cache information:
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
-NotebookDataPosition[       158,          7]
+NotebookDataPosition[         0,          0]
 NotebookDataLength[     35278,       1004]
-NotebookOptionsPosition[     33159,        967]
-NotebookOutlinePosition[     33500,        982]
-CellTagsIndexPosition[     33457,        979]
+NotebookOptionsPosition[     33001,        960]
+NotebookOutlinePosition[     33342,        975]
+CellTagsIndexPosition[     33299,        972]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -982,30 +975,30 @@ CellTagsIndex->{}
 (*NotebookFileOutline
 Notebook[{
 Cell[CellGroupData[{
-Cell[580, 22, 381, 9, 94, "Input",ExpressionUUID->"b04d40e6-4afa-4e93-9c95-4b3cd75fd2b1"],
-Cell[964, 33, 250, 4, 24, "Print",ExpressionUUID->"3c515af7-3093-4cbc-9e81-bae9d30a1fff"]
+Cell[422, 15, 381, 9, 94, "Input",ExpressionUUID->"b04d40e6-4afa-4e93-9c95-4b3cd75fd2b1"],
+Cell[806, 26, 250, 4, 24, "Print",ExpressionUUID->"3c515af7-3093-4cbc-9e81-bae9d30a1fff"]
 }, Open  ]],
-Cell[1229, 40, 1453, 34, 94, "Input",ExpressionUUID->"e841b2dc-8a54-439b-9b13-01d2a06ac36d"],
-Cell[2685, 76, 15323, 405, 1223, "Input",ExpressionUUID->"ff42d314-7c2b-4761-aa7e-599c36015f76"],
+Cell[1071, 33, 1453, 34, 52, "Input",ExpressionUUID->"e841b2dc-8a54-439b-9b13-01d2a06ac36d"],
+Cell[2527, 69, 15323, 405, 1102, "Input",ExpressionUUID->"ff42d314-7c2b-4761-aa7e-599c36015f76"],
 Cell[CellGroupData[{
-Cell[18033, 485, 1566, 45, 115, "Input",ExpressionUUID->"24c3be5d-915f-467b-a5ed-10fdfc2498c1"],
-Cell[19602, 532, 855, 24, 71, "Output",ExpressionUUID->"ac91933d-1868-48fe-adb0-b683004fa38e"],
-Cell[20460, 558, 1159, 34, 71, "Output",ExpressionUUID->"ef0276d8-9268-413c-8e6f-92b760328915"],
-Cell[21622, 594, 1580, 48, 83, "Output",ExpressionUUID->"af9bb574-4935-430c-aa04-b07707d1bbb2"],
-Cell[23205, 644, 1492, 45, 82, "Output",ExpressionUUID->"3ecb1a4a-8ea9-47b7-8d6a-35702d5ec0d4"],
-Cell[24700, 691, 1257, 37, 71, "Output",ExpressionUUID->"a69717ad-15df-443f-be7e-64454fd927d8"]
+Cell[17875, 478, 1566, 45, 115, "Input",ExpressionUUID->"24c3be5d-915f-467b-a5ed-10fdfc2498c1"],
+Cell[19444, 525, 855, 24, 71, "Output",ExpressionUUID->"ac91933d-1868-48fe-adb0-b683004fa38e"],
+Cell[20302, 551, 1159, 34, 71, "Output",ExpressionUUID->"ef0276d8-9268-413c-8e6f-92b760328915"],
+Cell[21464, 587, 1580, 48, 83, "Output",ExpressionUUID->"af9bb574-4935-430c-aa04-b07707d1bbb2"],
+Cell[23047, 637, 1492, 45, 82, "Output",ExpressionUUID->"3ecb1a4a-8ea9-47b7-8d6a-35702d5ec0d4"],
+Cell[24542, 684, 1257, 37, 71, "Output",ExpressionUUID->"a69717ad-15df-443f-be7e-64454fd927d8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[25994, 733, 1377, 38, 157, "Input",ExpressionUUID->"5147ec4a-4274-4d72-970d-2267574ae770"],
-Cell[27374, 773, 349, 9, 34, "Output",ExpressionUUID->"024dbb48-ad76-4857-864e-64ff96e7bfad"],
-Cell[27726, 784, 675, 21, 83, "Output",ExpressionUUID->"e7f621bc-0a5e-4677-a7eb-57b0e69a64a2"],
-Cell[28404, 807, 1081, 33, 83, "Output",ExpressionUUID->"f055ca76-164d-4617-bf25-ba5ab0582a93"],
-Cell[29488, 842, 658, 22, 82, "Output",ExpressionUUID->"e13de4f4-5548-45da-9f95-d2ccee233029"],
-Cell[30149, 866, 1140, 35, 91, "Output",ExpressionUUID->"ebabe41b-6bc2-4c9e-9d8e-2002b733a6aa"],
-Cell[31292, 903, 571, 19, 79, "Output",ExpressionUUID->"e0ec2326-2ab2-4859-aca5-bc43c919a065"],
-Cell[31866, 924, 1118, 35, 83, "Output",ExpressionUUID->"7dc37d65-2816-4074-9698-360aceb06a3a"]
+Cell[25836, 726, 1377, 38, 157, "Input",ExpressionUUID->"5147ec4a-4274-4d72-970d-2267574ae770"],
+Cell[27216, 766, 349, 9, 34, "Output",ExpressionUUID->"024dbb48-ad76-4857-864e-64ff96e7bfad"],
+Cell[27568, 777, 675, 21, 83, "Output",ExpressionUUID->"e7f621bc-0a5e-4677-a7eb-57b0e69a64a2"],
+Cell[28246, 800, 1081, 33, 83, "Output",ExpressionUUID->"f055ca76-164d-4617-bf25-ba5ab0582a93"],
+Cell[29330, 835, 658, 22, 82, "Output",ExpressionUUID->"e13de4f4-5548-45da-9f95-d2ccee233029"],
+Cell[29991, 859, 1140, 35, 91, "Output",ExpressionUUID->"ebabe41b-6bc2-4c9e-9d8e-2002b733a6aa"],
+Cell[31134, 896, 571, 19, 79, "Output",ExpressionUUID->"e0ec2326-2ab2-4859-aca5-bc43c919a065"],
+Cell[31708, 917, 1118, 35, 83, "Output",ExpressionUUID->"7dc37d65-2816-4074-9698-360aceb06a3a"]
 }, Open  ]],
-Cell[32999, 962, 156, 3, 30, "Input",ExpressionUUID->"a220789d-793f-4ddf-a524-a1c63f94372b"]
+Cell[32841, 955, 156, 3, 30, "Input",ExpressionUUID->"a220789d-793f-4ddf-a524-a1c63f94372b"]
 }
 ]
 *)