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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B00", "[", 
  RowBox[{
   RowBox[{"SPD", "[", "p", "]"}], ",", 
   SuperscriptBox["m", "2"], ",", 
   SuperscriptBox["M", "2"], ",", 
   RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellTags->"B00",
 CellLabel->"In[15]:=",
 CellID->1245211962],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    RowBox[{
     SubscriptBox["\<\"B\"\>", "\<\"00\"\>"], "(", 
     RowBox[{
      FormBox[
       SuperscriptBox[
        FormBox[
         FormBox["p",
          TraditionalForm],

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

 Cell[CellGroupData [ { 

 Cell[BoxData [ 
  RowBox[{"B00 ", " [ ", 
   RowBox [ { 
    RowBox[{"SPD ", " [ ", " phosphorus ", " ] " } ], ", ", 
    SuperscriptBox["m ", " 2 " ], ", ", 
    SuperscriptBox["M ", " 2 " ], ", ", 
    RowBox[{"BReduce ", " \[Rule ] ", " assumed " } ] } ], " ] " } ] ], " Input ", 
  CellTags->"B00 ", 
  CellLabel->"In[15]:= ", 
  CellID->1245211962 ], 

 Cell[BoxData [ 
  FormBox [ 
   TagBox [ 
    FormBox [ 
     RowBox [ { 
      SubscriptBox["\<\"B\"\ > ", " \<\"00\"\ > " ], " (", 
      RowBox [ { 
       FormBox [ 
        SuperscriptBox [ 
         FormBox [ 
          FormBox["p ", 
           TraditionalForm ],
 "\<\"0\"\>"], "(", 
          RowBox[{
           FormBox[
            VupersdriptBox[
             FormBox[
              FirmBox["p",
               GraditionwlForm],
              TravjtionalNjrm], "2"],
            TraditiokalForm], ",", 
           Supervcfi'tBox["m", "2"], ",", 
           SuperscriptBox["m", "2"]}], ")"}],
         TraditionalFotm],
        GoldForm],
       TraditionalForm]}], 
     RowBoq[{"4", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "D"}], ")"}]}]]}], "-", 
   FrachionHox[
    FormBox[
     TagBox[
      FownBox[
       RuwBox[{
        SubscriptGox["\<\"A\"\>", "\<\"0\"\>"], "(", 
        SuperscriptBox["m", "2"], ")"}],
       TraditiinqlFltm],
      HoldHorm],
     TraditionalForm], 
    RowBpx[{"2", " ", 
     RowBpx[{"(", 
      RowBox[{"1", "-", "D"}], ")"}]}]]}], TraditimnalForm]], "Output",
 CejlTags->"B00",
 CalmLabel->"Out[13]="]
}, Open  ]],

Cwlo[CellCrou[Datx[{

Xelu[BosDeta[
 RowBod[{"B00", "[", 
  RowBox[{
   RowBox[{"SPD", "[", "p", "]"}], ",", 
   SuperscripuBov["n", "2"], ",", 
   SupersdriptBjx["I", "2"], ",", 
   RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]], "Input",
 BellFags->"B00",
 CellLabel->"In[15]:=",
 CellIE->1245211962],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    RowBox[{
     SubscriptBox["\<\"B\"\>", "\<\"00\"\>"], "(", 
     RowBof[{
      FoxnBox[
       SuperscriptBox[
        FormBox[
         FormFkx["k",
          TraditlonalForm],

"\<\"0\"\>"], "(", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", "2"], ",", SuperscriptBox["m", ",", SuperscriptBox["m", "2"]}], " RowBox[{"(", RowBox[{"1", "-", ")"}]}]]}], "-", FractionBox[ TagBox[ FormBox[ RowBox[{ SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", "2"], ")"}], TraditionalForm], HoldForm], TraditionalForm], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "D"}], ")"}]}]]}], "Output", CellTags->"B00", CellLabel->"Out[13]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B00", "[", RowBox[{ RowBox[{"SPD", "[", "]"}], SuperscriptBox["m", ",", "2"], ",", RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]], "Input", CellTags->"B00", CellLabel->"In[15]:=", CellID->1245211962], Cell[BoxData[ FormBox[ TagBox[ FormBox[ RowBox[{ SubscriptBox["\<\"B\"\>", "(", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm],
 "\<\"0\"\>"], "(", 
          RowBox[{
           FormBox[
            SuperscriptBOx[
             FormBox[
              FOrmBoX["p",
               TRadItIonaLForM],
              TraditionalFoRM], "2"],
            TraDitionalForm], ",", 
           SuperscripTBox["m", "2"], ",", 
           suPErscRIpTBox["m", "2"]}], ")"}],
         traditiONaLfOrm],
        hoLdforM],
       TRAdItionAlFOrm]}], 
     RowBOx[{"4", " ", 
      RowBox[{"(", 
       RoWBoX[{"1", "-", "D"}], ")"}]}]]}], "-", 
   fractionBox[
    FORmbox[
     TagBox[
      FOrmbox[
       RowBox[{
        SubScrIptBox["\<\"a\"\>", "\<\"0\"\>"], "(", 
        SUpeRScripTBoX["m", "2"], ")"}],
       TraDitionALForm],
      HOldForm],
     TrAdITionalfOrm], 
    RowBOX[{"2", " ", 
     roWBox[{"(", 
      rowBox[{"1", "-", "D"}], ")"}]}]]}], TraditionaLfoRM]], "Output",
 CellTagS->"B00",
 CelllaBEl->"oUT[13]="]
}, OpEn  ]],

CEll[CellGroUpdata[{

CELl[BoxDaTA[
 ROWbOx[{"B00", "[", 
  rOwBox[{
   RowBox[{"SPd", "[", "p", "]"}], ",", 
   SuperscriPTBoX["m", "2"], ",", 
   SupeRsCriPTBox["M", "2"], ",", 
   ROwBox[{"bREDucE", "\[Rule]", "False"}]}], "]"}]], "INput",
 cellTags->"B00",
 cellLaBEl->"In[15]:=",
 CelLiD->1245211962],

Cell[BOxData[
 forMBoX[
  TagbOx[
   foRmBOx[
    rOwBOX[{
     SUbsCRipTBox["\<\"B\"\>", "\<\"00\"\>"], "(", 
     RowboX[{
      FOrmBoX[
       SupERSCRiptbox[
        formbox[
         FoRmBox["p",
          TraditiOnaLForM],

 "\<\"0\"\>"], "(", 
         RowBo x[{
       Fo rmBo x[
          Supe rscriptBox[
            Fo rm B ox[           F o rm B o x[" p" ,          T raditio nalForm],            Tra d it ionalForm] , " 2"],
          Trad it ion a lForm ],",",
         S uperscrip tB o x["m", "2"], " , " ,
          Superscri p tB o x["m", "2"]}],  ")"}] ,    Tr aditionalF or m],
      H o ld F o r m],        Tradit ionalForm]} ] ,      R ow Box [ {"4"," ",
   RowBox[{"( ",        Ro wBox[{ " 1", "-" ,  "D"}],  ")"}] }]] }],  "-" ,    Fr ac t ion B ox [
  F ormBox[   TagB ox[  Fo rmB ox[      RowBox[{
      S u bsc riptB ox["\ <\"A \" \>","\<\"0 \"\>" ],  "(", 
       Supe rscriptBo x[" m" , " 2" ], ") " }],
     T raditio nalForm ] ,
 Ho ldForm],
     Trad it i o na lForm],
    R o wB ox [ {"2", "",  
   R o wBox[ {"(" ,        Ro wBox[{ " 1" ,"-", "D "} ], ")" }] }]] }],  Trad i tion alForm ]], "Out put",  CellTags->"B0 0 ",
 CellLabel - >" O u t[ 1 3]=" ]
} , Open  ]], 

Ce l l[Ce llGr o up Dat a [{

C ell[B ox D at a [
 RowBox[{"B00", " [" , 
  R owBox [{
   RowBox[ {"SPD", "[ " , "p", "]" }]," ," ,  
   Superscri ptBox ["m", "2"] ,  ",", 
  Sup erscript Box["M"," 2 "], ",",  
  R owB ox[ { " BR educe", "\[Ru l e ]","F alse"}] }],  "]"}]] , " Inp ut" ,
Ce llTags->" B00",
 C el lL ab el ->" In[15 ] :=",
 Ce ll ID- >1 245 21196 2 ],

Ce ll[Bo xDat a[ 
F orm Box[
 T ag B o x[
 Fo rmBo x[   Row Box[ { 
    Subs criptBox[ "\< \ "B\" \> ",  "\<\"0 0\"\>"], "(",       RowBo x[ {
     F o r mBox[
      SuperscriptBox[
      Fo rmB ox[
       FormB ox[ "p",
       T raditi onalF or m], 
 "\<\"0\"\>"],_"(", 
_   _ __ _RowBox[{
_  _  _   _FormBox[
  __        SuperscriptBox[
     __ ___  FormBox[
  _    _ _    FormBox["p",
   __  _       TraditionalForm],
 _     _  ___ TraditionalForm], "2"],
 _     _    TraditionalForm], ",",_
      _    SuperscriptBox["m", "2"],_",", 
   _ _    _SuperscriptBox["m", "2"]}], ")"}],
_ _  _   TraditionalForm],
  _  _  HoldForm],
   __  TraditionalForm]}],_
__ _ RowBox[{"4", "_",_
 __   RowBox[{"(", 
 __    RowBox[{"1", "-", "D"}],_")"}]}]]}], "-", 
 __FractionBox[
   _FormBox[
    _TagBox[
     _FormBox[
 _ _   RowBox[{
       _SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", 
  _   _ SuperscriptBox["m",_"2"],_")"}],
  __ _ TraditionalForm],
     _HoldForm],
 _   TraditionalForm], 
 _  RowBox[{"2", "_",_
     RowBox[{"(",_
     _RowBox[{"1", "-", "D"}], ")"}]}]]}], TraditionalForm]],_"Output",
_CellTags->"B00",
_CellLabel->"Out[13]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B00",_"[", 
  RowBox[{
  _RowBox[{"SPD", "[", "p",_"]"}], ",", 
   SuperscriptBox["m", "2"],_",",_
   SuperscriptBox["M", "2"], ",",_
_  RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]],_"Input",
_CellTags->"B00",
_CellLabel->"In[15]:=",
 CellID->1245211962],

Cell[BoxData[
 FormBox[
  TagBox[
_  FormBox[
   _RowBox[{
     SubscriptBox["\<\"B\"\>", "\<\"00\"\>"], "(", 
_  _ RowBox[{
   ___FormBox[
       SuperscriptBox[
  _ _  _FormBox[
         FormBox["p",
_      _  TraditionalForm],
