From 5349d508b7daacb6622a3ce3ec9caf6c1fc2e1fc Mon Sep 17 00:00:00 2001 From: Thomas Guillermo Albers Raviola Date: Mon, 3 Aug 2026 15:34:44 +0200 Subject: Add Phi_expr_val --- series.mac | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'series.mac') diff --git a/series.mac b/series.mac index 7e44e9b..6ee8655 100644 --- a/series.mac +++ b/series.mac @@ -167,6 +167,12 @@ mul_series(factors, max_order) := block( γ_expr_val(x, n) := horner_exp_series(x*rhs(main_ansatz[1]), r, n, -n, 2); +Φ_expr_val(x, n) := block( + if x < 0 then ( + exp(x*Φc[0])*horner_exp_series(abs(x)*(Φc[0]-rhs(main_ansatz[5])), r, n, -n, 2)) + else ( + exp(x*Φc[0])*horner_exp_series(x*(rhs(main_ansatz[5])-Φc[0]), r, n, -n, 2))); + matchdeclare(m_any1, lambda ([e], freeof(β, γ, e))); matchdeclare(m_any2, lambda ([e], freeof(β, γ, e))); matchdeclare(m_any3, lambda ([e], freeof(β, γ, e))); -- cgit v1.3