diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-11-19 19:39:43 +0100 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-11-19 19:39:43 +0100 |
| commit | da5599483548a8145e4b3cb8666e7aa928d1e613 (patch) | |
| tree | a20f71c7ea134dab336d0c1e93542356368e9adc /Tools/CodeGen | |
| parent | 5f1fc1a60dff75d4b231dca92efa6e94080fa583 (diff) | |
Don't output full equations in InfoFull mode when simplifying
Diffstat (limited to 'Tools/CodeGen')
| -rw-r--r-- | Tools/CodeGen/CalculationFunction.m | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m index f64693e..ede0ec9 100644 --- a/Tools/CodeGen/CalculationFunction.m +++ b/Tools/CodeGen/CalculationFunction.m @@ -427,10 +427,9 @@ DefFn[ Last[#], First[#], debug] &, eqs], - + (* else *) If[!lookupDefault[cleancalc, NoSimplify, False], - InfoMessage[InfoFull, "Simplifying equations", eqs//InputForm]; - eqs = Simplify[eqs, {r>=0}]]]; + eqs = Map[(InfoMessage[InfoFull, "Simplifying "<>ToString[#[[1]], InputForm]<>" -> ..."]; Simplify[#, {r>=0}]) &, eqs]]]; InfoMessage[InfoFull, "Equations:"]; |