ox[
       FormBox[
        FormBox["p",
         TraditionalForm],
        TraditionalForm], "2"],
      TraditionalForm]}]], "-", 
   FractionBox[
    RowBox[{
     FormBox[
      TagBox[
       FormBox[
        RowBox[{
         SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", 
         SuperscriptBox["m", "2"], ")"}],
        TraditionalForm],
       HoldForm],
      TraditionalForm], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m", "2"], "-", 
       SuperscriptBox["M", "2"], "+", 
       FormBox[
        SuperscriptBox[
         FormBox[
          FormBox["p",
           TraditionalForm],
          TraditionalForm], "2"],
        TraditionalForm]}], ")"}]}], 
    RowBox[{"4", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "D"}], ")"}], " ", 
     FormBox[
      SuperscriptBox[
       FormBox[
        FormBox["p",
         TraditionalForm],
        TraditionalForm], "2"],
      TraditionalForm]}]]}], TraditionalForm]], "Output",
 CellTags->"B00",
 CellLabel->"Out[11]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B00", "[", 
  RowBox[{
   RowBox[{"SPD", "[", "p", "]"}], ",", 
   SuperscriptBox["m", "2"], ",", 
   SuperscriptBox["m", "2"]}], "]"}]], "Input",
 CellTags->"B00",
 CellLabel->"In[13]:=",
 CellID->1244341296],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox["m", "2"]}], "-", 
        FormBox[
         SuperscriptBox[
          FormBox[
           FormBox["p",
            TraditionalForm],
           TraditionalForm], "2"],
         TraditionalForm]}], ")"}], " ", 
      FormBox[
       TagBox[
        FormBox[
         RowBox[{
          SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
          RowBox[{
           FormBox[
            SuperscriptBox[
             FormBox[
              FormBox["p",
               TraditionalForm],
              TraditionalForm], "2"],
            TraditionalForm], ",", 
           SuperscriptBox["m", "2"], ",", 
  