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",