From a0ce28f32a7ae3db7e430090c9b79b3acd6e4af9 Mon Sep 17 00:00:00 2001 From: Thomas Guillermo Albers Raviola Date: Mon, 27 Jul 2026 17:30:16 +0200 Subject: Work around bug in expansion --- 04-bbmd-jor.mac | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to '04-bbmd-jor.mac') diff --git a/04-bbmd-jor.mac b/04-bbmd-jor.mac index 977a0e2..808ce36 100644 --- a/04-bbmd-jor.mac +++ b/04-bbmd-jor.mac @@ -205,10 +205,15 @@ eq_mono : block( trigreduce(expand(solve(eq, diff(M,u))))); /* Supplementary Condition 2 */ -e_sc_eqs[2] : expand_equation(sc_eqs[2], coeffs); +e_sc_eqs[2] : block( + /* BUG: Single A with no further factors crashes */ + [tmp : lhs(expand(exp(2*β)*sc_eqs[2]+A))=0], + tmp : expand_equation(tmp, coeffs), + expand(tmp - expand(subst(append(main_ansatz, coeffs), A)))); + eq_dipo : block( [eq : coeff(e_sc_eqs[2], r, -2)=0], - trigreduce(expand(-3*solve(eq, diff(N,u))))); + subst(sim_facts, trigreduce(expand(-3*solve(eq, diff(N,u)))))); /* Cache */ -- cgit v1.3