diff options
author | Ian Hinder <ian@vaio.(none)> | 2008-02-01 22:19:18 -0500 |
---|---|---|
committer | Ian Hinder <ian@vaio.(none)> | 2008-02-01 22:19:18 -0500 |
commit | 7771a71fc38124038f26a7c3587a90deec4b3eec (patch) | |
tree | ea9fee7145c8d3b3f4ee47c31da2d569dd9b08e4 /Tools/CodeGen | |
parent | e4a60010a84536070f54bafa23957a43d58843b7 (diff) |
Erik's addition of more debugging code
Diffstat (limited to 'Tools/CodeGen')
-rw-r--r-- | Tools/CodeGen/Differencing.m | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Tools/CodeGen/Differencing.m b/Tools/CodeGen/Differencing.m index 568ac1a..a7ea1c2 100644 --- a/Tools/CodeGen/Differencing.m +++ b/Tools/CodeGen/Differencing.m @@ -303,9 +303,10 @@ ComponentDerivativeOperatorMacroDefinition[componentDerivOp:(name_[inds___] -> e Print["signModifier == ", signModifier]; Print["spacings2 == ", spacings2]; Print["ss == ", ss//FullForm]; - Print["Inverse spacings: ", Simplify[1/(ss /. spacings2)]];*) + Print["Inverse spacings: ", Simplify[1/(ss /. spacings2)]]; + Print["Sequenced: ", Apply[SequenceForm,Simplify[1/(ss /. spacings2)],{0,Infinity}]];*) - liName = "p" <> signModifier <> quotient <> ToString[Apply[SequenceForm,Simplify[1/(ss /. spacings2)]]]; + liName = "p" <> signModifier <> quotient <> ToString[Apply[SequenceForm,Simplify[1/(ss /. spacings2)],{0,Infinity}]]; (* Print["liName == ", liName];*) rhs3 = rhs2 /. pat -> Times[liName, rest], |