diff options
-rw-r--r-- | Tools/CodeGen/CodeGenCactus.m | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Tools/CodeGen/CodeGenCactus.m b/Tools/CodeGen/CodeGenCactus.m index 16b29b1..1a50c7f 100644 --- a/Tools/CodeGen/CodeGenCactus.m +++ b/Tools/CodeGen/CodeGenCactus.m @@ -666,8 +666,10 @@ DefFn[ undoVect[expr_] := expr //. { ToReal[x_] -> x, - x_Integer -> 1.0*x, (* don't generate large integer constants *) - x_Ratio -> N[x,30], + (* don't generate large integer constants *) + x_Integer /; Abs[x]>10^9 :> 1.0*x, + (* generate sufficient precision *) + x_Ratio :> N[x,30], kneg[x_] -> -x, |