* Added ToRicci and ToRiemann to xTras main documentation page.

xAct-contrib · Oct 30, 2014 · d4c2abe · d4c2abe
1 parent 5027caa
commit d4c2abe
Show file tree

Hide file tree

Showing 2 changed files with 74 additions and 42 deletions.
diff --git a/xTras/Documentation/English/Guides/xTras.nb b/xTras/Documentation/English/Guides/xTras.nb
@@ -4,7 +4,7 @@ Cell[TextData[{
  Cell["1.2.0", "HistoryData",
   CellTags->"New"],
  " | Modified in: ",
- Cell["1.3.2 ", "HistoryData",
+ Cell["1.4.2 ", "HistoryData",
   CellTags->"Modified"],
  " | Obsolete in: ",
  Cell[" ", "HistoryData",
@@ -15,7 +15,8 @@ Cell[TextData[{
 }], "History",
  CellChangeTimes->{{3.580906000389572*^9, 3.58090602990597*^9}, {
   3.600855131738778*^9, 3.6008551428502607`*^9}, {3.601881237851282*^9, 
-  3.601881237904076*^9}, {3.602776501670086*^9, 3.60277650175105*^9}},
+  3.601881237904076*^9}, {3.602776501670086*^9, 3.60277650175105*^9}, {
+  3.623659101650119*^9, 3.623659101696364*^9}},
  CellID->1247902091],
 
 Cell[CellGroupData[{
@@ -449,8 +450,9 @@ Cell["\t", "GuideDelimiter",
 
 Cell[CellGroupData[{
 
-Cell["New curvature tensors", "GuideFunctionsSubsection",
- CellChangeTimes->{{3.580906650747198*^9, 3.5809066534565287`*^9}},
+Cell["Curvature tensors", "GuideFunctionsSubsection",
+ CellChangeTimes->{{3.580906650747198*^9, 3.5809066534565287`*^9}, 
+   3.623658953092937*^9},
  CellID->966281796],
 
 Cell[TextData[{
@@ -492,7 +494,28 @@ Cell[TextData[{
  " \[LongDash] the cosmological Einstein tensor"
 }], "GuideText",
  CellChangeTimes->{{3.580906681448494*^9, 3.5809067416012373`*^9}},
- CellID->1713209559]
+ CellID->1713209559],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ToRicci",
+   BaseStyle->"Link",
+   ButtonData->"paclet:xTras/ref/ToRicci"]], "InlineGuideFunction"],
+ " \[LongDash] converts curvature tensors to Ricci tensors where possible"
+}], "GuideText",
+ CellChangeTimes->{{3.623658976494855*^9, 3.6236590378917913`*^9}},
+ CellID->629045261],
+
+Cell[TextData[{
+ Cell[BoxData[
+  ButtonBox["ToRiemann",
+   BaseStyle->"Link",
+   ButtonData->"paclet:xTras/ref/ToRiemann"]], "InlineGuideFunction"],
+ " \[LongDash] converts curvature tensors to Riemann tensors where possible"
+}], "GuideText",
+ CellChangeTimes->{{3.6236590104882317`*^9, 3.6236590125230923`*^9}, {
+  3.623659043347414*^9, 3.623659055810835*^9}},
+ CellID->622915928]
 }, Open  ]],
 
 Cell["\t", "GuideDelimiter",

diff --git a/xTras/Documentation/English/ReferencePages/Symbols/AllContractions.nb b/xTras/Documentation/English/ReferencePages/Symbols/AllContractions.nb
@@ -3133,7 +3133,7 @@ Cell[BoxData[
    RowBox[{"T", "[", 
     RowBox[{"a", ",", "b"}], "]"}], ",", "M"}], "]"}]], "Input",
  CellChangeTimes->{{3.580826577872854*^9, 3.580826581618393*^9}},
- CellLabel->"In[58]:=",
+ CellLabel->"In[10]:=",
  CellID->878007297],
 
 Cell[BoxData[
@@ -3147,9 +3147,9 @@ Cell[BoxData[
   SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
    $CellContext`T[$CellContext`a, $CellContext`b], ". ", ""],
   Editable->False]], "Print",
- CellChangeTimes->{3.5808268201747227`*^9},
- CellLabel->"During evaluation of In[58]:=",
- CellID->1158084739]
+ CellChangeTimes->{3.5808268201747227`*^9, 3.6236591919177523`*^9},
+ CellLabel->"During evaluation of In[10]:=",
+ CellID->1199259032]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -3166,70 +3166,77 @@ Cell[BoxData[
         RowBox[{"IndexFree", "[", 
          RowBox[{"T", "^", "n"}], "]"}]}]}]}]}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"n", ",", "1", ",", "6"}], "}"}]}], "]"}]], "Input",
+    RowBox[{"n", ",", "1", ",", "8"}], "}"}]}], "]"}]], "Input",
  CellChangeTimes->{
-  3.580826822361742*^9, {3.580828121090761*^9, 3.580828153535651*^9}},
- CellLabel->"In[62]:=",
+  3.580826822361742*^9, {3.580828121090761*^9, 3.580828153535651*^9}, {
+   3.623659228140298*^9, 3.623659233292066*^9}, {3.623659368070026*^9, 
+   3.6236593681312437`*^9}},
+ CellLabel->"In[21]:=",
  CellID->2040334199],
 
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
-    RowBox[{"2", ",", "0.009414`4.425319187466553"}], "}"}], ",", 
+    RowBox[{"2", ",", "0.028341`4.903960163571836"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", "0.045144`5.106145030757957"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6", ",", "0.076759`5.336674301699698"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"4", ",", "0.033017`4.970282603227245"}], "}"}], ",", 
+    RowBox[{"8", ",", "0.179122`5.704693923241319"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"6", ",", "0.111966`5.500631156754469"}], "}"}], ",", 
+    RowBox[{"10", ",", "0.49727`6.148137252793625"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"8", ",", "0.69504`6.293554792732684"}], "}"}], ",", 
+    RowBox[{"12", ",", "1.943952`6.7402305306333"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"10", ",", "4.792115`7.132072225094695"}], "}"}], ",", 
+    RowBox[{"14", ",", "8.932752`7.402530270334145"}], "}"}], ",", 
    RowBox[{"{", 
-    RowBox[{"12", ",", "35.57792`8.002725547729327"}], "}"}]}], 
+    RowBox[{"16", ",", "48.569604`8.137909556073062"}], "}"}]}], 
   "}"}]], "Output",
  CellChangeTimes->{
   3.580826811491037*^9, {3.580828118626444*^9, 3.580828147706098*^9}, 
-   3.580828196372294*^9},
- CellLabel->"Out[62]=",
- CellID->689091716]
+   3.580828196372294*^9, {3.623659197313946*^9, 3.623659201437668*^9}, 
+   3.623659248201869*^9, {3.623659317296564*^9, 3.623659327983569*^9}, 
+   3.6236594289950953`*^9},
+ CellLabel->"Out[21]=",
+ CellID->405943424]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[
  RowBox[{"ListLogPlot", "[", 
   RowBox[{"%", ",", 
-   RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+   RowBox[{"Mesh", "\[Rule]", "All"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<free indices\>\"", ",", "\"\<seconds\>\""}], "}"}]}]}], 
   "]"}]], "Input",
  CellChangeTimes->{{3.580826497266553*^9, 3.5808265045768633`*^9}, {
-  3.580828222363881*^9, 3.580828228970059*^9}, {3.580828291712413*^9, 
-  3.58082829745536*^9}, {3.58082833579976*^9, 3.580828401615053*^9}, {
-  3.580828511299205*^9, 3.580828527256344*^9}, {3.5808285632412157`*^9, 
-  3.5808285633989563`*^9}},
- CellLabel->"In[74]:=",
+   3.580828222363881*^9, 3.580828228970059*^9}, {3.580828291712413*^9, 
+   3.58082829745536*^9}, {3.58082833579976*^9, 3.580828401615053*^9}, {
+   3.580828511299205*^9, 3.580828527256344*^9}, {3.5808285632412157`*^9, 
+   3.5808285633989563`*^9}, 3.623659218991218*^9, {3.6236593064572887`*^9, 
+   3.623659309271454*^9}, {3.6236595076140537`*^9, 3.62365952741879*^9}},
+ CellLabel->"In[24]:=",
  CellID->1117114439],
 
 Cell[BoxData[
  GraphicsBox[
-  GraphicsComplexBox[{{2., -4.665557336003187}, {4., -3.410732698645494}, {
-   6., -2.1895600252027476`}, {8., -0.3637858811166758}, {10., 
-   1.5669718588557437`}, {12., 3.5717252207199666`}, {
-   12., -4.665557336003187}}, {{{}, 
-     {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
-      GraphicsGroupBox[
-       PolygonBox[{{1, 7, 6, 5, 4, 3, 2}}]]}, {}, {}}, {{}, {}, 
-     {Hue[0.67, 0.6, 0.6], LineBox[{1, 2, 3, 4, 5, 6}]}}}],
+  GraphicsComplexBox[{{2., -3.56344575952703}, {4., -3.0978978983152983`}, {
+   6., -2.5670846355460495`}, {8., -1.719688141055001}, {
+   10., -0.6986221408402151}, {12., 0.6647230143753861}, {14., 
+   2.1897245221043904`}, {16., 3.88299790314344}}, {{{}, {}, 
+     {Hue[0.67, 0.6, 0.6], LineBox[{1, 2, 3, 4, 5, 6, 7, 8}]}}, {
+     {Hue[0.67, 0.6, 0.6], PointBox[{1, 2, 3, 4, 5, 6, 7, 8}]}, {}, {}}}],
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesLabel->{
     FormBox["\"free indices\"", TraditionalForm], 
     FormBox["\"seconds\"", TraditionalForm]},
-  AxesOrigin->{2., -4.665557336003187},
+  AxesOrigin->{2., -3.56344575952703},
   CoordinatesToolOptions:>{"DisplayFunction" -> ({
       Part[#, 1], 
       Exp[
@@ -3377,9 +3384,9 @@ Cell[BoxData[
        FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
         Thickness[0.001]}}}}, {Automatic, Automatic}},
   GridLines->{None, None},
-  ImageSize->{279.13043478260886`, Automatic},
+  ImageSize->{320.86956521739154`, Automatic},
   Method->{},
-  PlotRange->{{2., 12.}, {-4.665557336003187, 3.5717252207199666`}},
+  PlotRange->{{2., 16.}, {-3.56344575952703, 3.88299790314344}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], {
@@ -3457,9 +3464,11 @@ Cell[BoxData[
        Thickness[0.001]}}}}]], "Output",
  CellChangeTimes->{{3.580828201357682*^9, 3.580828229550201*^9}, 
    3.580828298630959*^9, {3.580828338026292*^9, 3.580828402000825*^9}, 
-   3.580828527784155*^9},
- CellLabel->"Out[74]=",
- CellID->1788848749]
+   3.580828527784155*^9, 3.623659205740347*^9, 3.6236592499926987`*^9, {
+   3.623659310158496*^9, 3.623659339530113*^9}, 3.623659440843754*^9, {
+   3.623659513521332*^9, 3.6236595250573397`*^9}},
+ CellLabel->"Out[24]=",
+ CellID->960670098]
 }, Open  ]]
 }, Open  ]]
 }, Open  ]],
@@ -8315,7 +8324,7 @@ Cell[BoxData[
 }, Open  ]]
 },
 WindowSize->{1217, 675},
-WindowMargins->{{Automatic, 241}, {138, Automatic}},
+WindowMargins->{{62, Automatic}, {Automatic, 89}},
 CellContext->"Global`",
 FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 5, \
 2011)",