From 76427946b85dd313f1f9c1aba99a44f799c1aa60 Mon Sep 17 00:00:00 2001 From: Thomas Guillermo Albers Raviola Date: Tue, 4 Aug 2026 14:56:55 +0200 Subject: Replace Gamma exponential --- series.mac | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'series.mac') diff --git a/series.mac b/series.mac index 538b646..7596c6b 100644 --- a/series.mac +++ b/series.mac @@ -191,10 +191,12 @@ expansions */ defrule(r_exp_β_val, β_expr(m_any1), β_expr_val(m_any1, expansion_order)); defrule(r_exp_γ_val, γ_expr(m_any1), γ_expr_val(m_any1, expansion_order)); defrule(r_exp_Φ_val, Φ_expr(m_any1), Φ_expr_val(m_any1, expansion_order)); +defrule(r_exp_Γ_val, exp(Φc[0]*Γ), eΓΦ_0); defrule(r_exp_e_val, e_expr(m_any1), exp(m_any)); -unwrap_exp(expr) := ( - apply1(expr, r_exp_β_val, r_exp_γ_val, r_exp_Φ_val, r_exp_e_val)); +unwrap_exp(expr) := block( + [rs : [r_exp_β_val, r_exp_γ_val, r_exp_Φ_val, r_exp_e_val, r_exp_Γ_val]], + apply(apply1, append([expr], rs))); /**/ -- cgit v1.3