improved EvalcLTD using Block for the evaluation

alphal00p · Oct 20, 2022 · 27e5a0b · 27e5a0b
1 parent e39c7cd
commit 27e5a0b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/cLTD.m b/cLTD.m
@@ -886,7 +886,11 @@ id Diff(k`i',n1?{>0})*k`i'^n3? =
 
 
 (* ::Input::Initialization:: *)
-EvalcLTD[cLTDexpr_,numerics_]:=cLTDexpr[[1]]/.(cLTDexpr[[2]]/.numerics)/.numerics
+EvalcLTD[cLTDexpr_,numerics_]:=Module[{subs=Rule@@@Transpose[{#,#/.cLTDexpr[[2]]/.numerics}]&@Variables[cLTDexpr[[1]]]},
+Block[Evaluate[First/@subs],
+subs/.Rule->Set;cLTDexpr[[1]]
+]
+]
 
 
 (* ::Input::Initialization:: *)