From 7771a71fc38124038f26a7c3587a90deec4b3eec Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Fri, 1 Feb 2008 22:19:18 -0500 Subject: Erik's addition of more debugging code --- Tools/CodeGen/Differencing.m | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Tools/CodeGen') 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], -- cgit v1.2.3