ᗺИ..𖣠⚪𔗢⚪ИN⚪Ⓞ⚪ᔓᔕ⚪ꖴ⚪ᴥ⚪ᗩ⚪ߦ⚪ᙏ⚪Ⓞ⚪ᑐᑕ⚪𖣓⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᗩ⚪ᙏ⚪ꖴ⚪ꕤ⚪Ⓞ⚪ᴥ⚪ߦ⚪ᗩ⚪𖣓⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪𖣓⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪𖣓⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪𖣓⚪ᗩ⚪ߦ⚪ᴥ⚪Ⓞ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᗩ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪𖣓⚪ᑐᑕ⚪Ⓞ⚪ᙏ⚪ߦ⚪ᗩ⚪ᴥ⚪ꖴ⚪ᔓᔕ⚪Ⓞ⚪ИN⚪𔗢⚪𖣠..NB

𖣠⚪∣❁∣✤✻ЭЄᗩߦറ⚪𖡼𖡼𖡼𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼𖡼𖡼𖡼⚪റߦᗩЭЄ✻✤∣❁∣⚪𖣠/𖣠⚪ИNⓄꖴ✤ᑐᑕИNᑎꗳ𖣓ᔓᔕᑎꖴ⚭ᗩꗳ⚪𖡼𖡼𖡼𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼𖡼𖡼𖡼⚪ꗳᗩ⚭ꖴᑎᔓᔕ𖣓ꗳᑎИNᑐᑕ✤ꖴⓄИN⚪𖣠/ᗺИ..𖣠⚪𔗢⚪ИN⚪Ⓞ⚪ᔓᔕ⚪ꖴ⚪ᴥ⚪ᗩ⚪ߦ⚪ᙏ⚪Ⓞ⚪ᑐᑕ⚪𖣓⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᗩ⚪ᙏ⚪ꖴ⚪ꕤ⚪Ⓞ⚪ᴥ⚪ߦ⚪ᗩ⚪𖣓⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪𖣓⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪𖣓⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪𖣓⚪ᗩ⚪ߦ⚪ᴥ⚪Ⓞ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᗩ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪𖣓⚪ᑐᑕ⚪Ⓞ⚪ᙏ⚪ߦ⚪ᗩ⚪ᴥ⚪ꖴ⚪ᔓᔕ⚪Ⓞ⚪ИN⚪𔗢⚪𖣠..NB

 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    104668,       2368]
-NotebookOptionsPosition[    103602,       2340]
-NotebookOutlinePosition[    104481,       2366]
-CellTagsIndexPosition[    104438,       2363]
+NotebookDataLength[    104750,       2369]
+NotebookOptionsPosition[    103684,       2341]
+NotebookOutlinePosition[    104563,       2367]
+CellTagsIndexPosition[    104520,       2364]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
  FontSize->12,
  FontWeight->"Normal",
  CellLabel->
-  "4/6/24 16:19:06 \
-In[623]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
+  "4/6/24 17:54:39 \
+In[352]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
 
 Cell[CellGroupData[{
 
           RowBox[{"T", "+", "1"}], ")"}]}]}]}], ")"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
-   RowBox[{"StringReplace", "[", 
-    RowBox[{
-     RowBox[{"StringReplace", "[", 
-      RowBox[{
-       RowBox[{"StringReplace", "[", 
-        RowBox[{
-         RowBox[{"ToString", "[", 
-          RowBox[{
-           RowBox[{"R", "[", "x", "]"}], ",", "InputForm"}], "]"}], ",", 
-         RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", 
-       RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", 
-     RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "*)"}], 
-  "\[IndentingNewLine]", 
+   RowBox[{"ToUpperCase", "[", 
+    RowBox[{"StringReplace", "[", 
+     RowBox[{
+      RowBox[{"StringReplace", "[", 
+       RowBox[{
+        RowBox[{"StringReplace", "[", 
+         RowBox[{
+          RowBox[{"ToString", "[", 
+           RowBox[{
+            RowBox[{"R", "[", "x", "]"}], ",", "InputForm"}], "]"}], ",", 
+          RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", 
+        RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", 
+      RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "]"}], 
+   "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
-   RowBox[{
+   RowBox[{"ToUpperCase", "[", 
     RowBox[{"StringReplace", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
           ",", 
           RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<(\>\""}]}], "]"}], ",", 
         RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<)\>\""}]}], "]"}], ",", 
-      RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], ";"}], 
+      RowBox[{"\"\< \>\"", "\[Rule]", " ", "\"\<\>\""}]}], "]"}], "]"}], 
    "*)"}]}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
  FontSize->12,
  FontWeight->"Normal",
  CellLabel->
-  "4/6/24 16:20:01 \
-In[820]:=",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],
+  "4/6/24 18:53:13 \
+In[1218]:=",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],
 
 Cell[BoxData[
  TagBox[GridBox[{
 r8p323DIgXz8vLaGX1FBY8MEs7vHW2h7H2tPu2oQNN80Y5p0C0nbO5bY2/fP
 +//H9z95pjBK
               "]]},
-            Annotation[#, "Charting`Private`Tag$11742#1"]& ], 
+            Annotation[#, "Charting`Private`Tag$359331#1"]& ], 
            TagBox[
             {RGBColor[0.880722, 0.611041, 0.142051], Thickness[0.00001], 
              Opacity[1.], LineBox[CompressedData["
 4iRr+hs35ojrTNf+l5M24qAc2Z9WrBH/7PiEV1o6YsNTpg+O1424r/KMkzJ7
 xDXz50l2kSM+ltg7OLIP3fgf7Z6Nkw==
               "]]},
-            Annotation[#, "Charting`Private`Tag$11742#2"]& ], 
+            Annotation[#, "Charting`Private`Tag$359331#2"]& ], 
            TagBox[
             {RGBColor[0.560181, 0.691569, 0.194885], Thickness[0.00001], 
              Opacity[1.], 
               0.9999999999999929}, {0.9960948612117012, 
               1.0000000000000036`}, {0.9979714921804486, 
               1.0000000000000018`}, {0.999999998046875, 0.9999999999999964}}]},
-            Annotation[#, "Charting`Private`Tag$11742#3"]& ], 
+            Annotation[#, "Charting`Private`Tag$359331#3"]& ], 
            TagBox[
             {RGBColor[0.922526, 0.385626, 0.209179], Thickness[0.00001], 
              Opacity[1.], LineBox[CompressedData["
 XblUjtHvi/9zaK58/0o2ifmV/f9Z17WSX0rlTlP40H82vmBRHNtIYnbf//zj
 ZdImNQ4J+dD/XDfXVLqdpPr8v08nTsX3/Pe//+//A/HyjRU=
               "]]},
-            Annotation[#, "Charting`Private`Tag$11742#4"]& ], {}}, {}}, 
+            Annotation[#, "Charting`Private`Tag$359331#4"]& ], {}}, {}}, 
          InsetBox[
           TemplateBox[{
             RowBox[{"OO", "(", 
 J0cn2t6zq0Ndn3nT+O1TbxerIFrvwra/0RtJDpwnyY7Z5smm+RYzW+p/CY1D
 r8p323DIgXz8vLaGX1FBY8MEs7vHW2h7H2tPu2oQNN80Y5p0C0nbO5bY2/fP
 +//H9z95pjBK
-                "]]}, "Charting`Private`Tag$11742#1"], 
+                "]]}, "Charting`Private`Tag$359331#1"], 
              Annotation[{
                Directive[
                 Opacity[1.], 
 tqLqWPr/r+uGrvWm3AkY8bMC9mb7zSNuzFF1avQYcVeDx5bVfiPewrS52Rsx
 4iRr+hs35ojrTNf+l5M24qAc2Z9WrBH/7PiEV1o6YsNTpg+O1424r/KMkzJ7
 xDXz50l2kSM+ltg7OLIP3fgf7Z6Nkw==
-                "]]}, "Charting`Private`Tag$11742#2"], 
+                "]]}, "Charting`Private`Tag$359331#2"], 
              Annotation[{
                Directive[
                 Opacity[1.], 
                 0.9999999999999929}, {0.9960948612117012, 
                 1.0000000000000036`}, {0.9979714921804486, 
                 1.0000000000000018`}, {0.999999998046875, 
-                0.9999999999999964}}]}, "Charting`Private`Tag$11742#3"], 
+                0.9999999999999964}}]}, "Charting`Private`Tag$359331#3"], 
              Annotation[{
                Directive[
                 Opacity[1.], 
 TX4Ou+Ot94YVgVTf5Wb8HvYGlsP9nkgSo+e9HRx2gj3jgyeLhKAsa2jYjRZ2
 XblUjtHvi/9zaK58/0o2ifmV/f9Z17WSX0rlTlP40H82vmBRHNtIYnbf//zj
 ZdImNQ4J+dD/XDfXVLqdpPr8v08nTsX3/Pe//+//A/HyjRU=
-                "]]}, "Charting`Private`Tag$11742#4"], {}}}, {}}, {
+                "]]}, "Charting`Private`Tag$359331#4"], {}}}, {}}, {
           DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
            AxesOrigin -> {0.5, 0.5000000039062495}, 
            FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Column"]], "Output",
  CellLabel->
-  "4/6/24 16:20:02 \
-Out[857]=",ExpressionUUID->"0fbc87f2-a2b3-49b7-8356-7dc6c2e8d2a6"]
+  "4/6/24 18:53:13 \
+Out[1255]=",ExpressionUUID->"35032fd1-788b-4412-adfc-29fcc32645f8"]
 }, Open  ]]
 },
 WindowSize->{1680, 984},
 Notebook[{
 Cell[558, 20, 6971, 185, 431, "Input",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
 Cell[CellGroupData[{
-Cell[7554, 209, 23817, 777, 995, "Input",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],
-Cell[31374, 988, 72212, 1349, 1165, "Output",ExpressionUUID->"0fbc87f2-a2b3-49b7-8356-7dc6c2e8d2a6"]
+Cell[7554, 209, 23890, 778, 995, "Input",ExpressionUUID->"4b599907-b90e-4af8-8102-af55e168ea88"],
+Cell[31447, 989, 72221, 1349, 1165, "Output",ExpressionUUID->"35032fd1-788b-4412-adfc-29fcc32645f8"]
 }, Open  ]]
 }
 ]