[Commits] [svn:einsteintoolkit] WeylScal4/branches/cakernel/m/ (Rev. 105)

[ian.hinder at aei.mpg.de]

User: hinder
Date: 2012/04/30 02:55 PM

Modified:
 /branches/cakernel/m/
  WeylScal4.m

Log:
 Restrict to fdOrder = 8 and to computing just Psi4

File Changes:

Directory: /branches/cakernel/m/
================================

File [modified]: WeylScal4.m
Delta lines: +11 -11
===================================================================
--- branches/cakernel/m/WeylScal4.m	2012-04-30 19:49:54 UTC (rev 104)
+++ branches/cakernel/m/WeylScal4.m	2012-04-30 19:55:36 UTC (rev 105)
@@ -23,7 +23,7 @@
   PDstandard[i_, i_] -> StandardCenteredDifferenceOperator[2,fdOrder/2,i],
   PDstandard[i_, j_] -> StandardCenteredDifferenceOperator[1,fdOrder/2,i] *
     StandardCenteredDifferenceOperator[1,fdOrder/2,j]
-};
+}/.fdOrder->8;
 
 (****************************************************************************
   Tensors 
@@ -350,8 +350,8 @@
 {
   {
     Name -> fdOrder,
-    Default -> 2,
-    AllowedValues -> {2,4,6,8}
+    Default -> 8,
+    AllowedValues -> {8}
   }
 };
 
@@ -359,14 +359,14 @@
 calculations = 
 {
   Psi4Calc["Nth", PDstandard],
-  Psi4Calc["2nd", PDstandard2nd],
-  Psi4Calc["4th", PDstandard4th],
-  PsisCalc["Nth", PDstandard],
-  PsisCalc["2nd", PDstandard2nd],
-  PsisCalc["4th", PDstandard4th],
-  InvariantsCalc["Nth", PDstandard],
-  InvariantsCalc["2nd", PDstandard2nd],
-  InvariantsCalc["4th", PDstandard4th]
+  (* Psi4Calc["2nd", PDstandard2nd], *)
+  (* Psi4Calc["4th", PDstandard4th], *)
+  (* PsisCalc["Nth", PDstandard], *)
+  (* PsisCalc["2nd", PDstandard2nd], *)
+  (* PsisCalc["4th", PDstandard4th], *)
+  (* InvariantsCalc["Nth", PDstandard], *)
+  (* InvariantsCalc["2nd", PDstandard2nd], *)
+  (* InvariantsCalc["4th", PDstandard4th] *)
 };
 
 CreateKrancThornTT[groups, ".", "WeylScal4",