diff options
| author | Thomas Guillermo Albers Raviola <thomas@thomaslabs.org> | 2026-07-27 17:30:16 +0200 |
|---|---|---|
| committer | Thomas Guillermo Albers Raviola <thomas@thomaslabs.org> | 2026-07-27 17:30:16 +0200 |
| commit | a0ce28f32a7ae3db7e430090c9b79b3acd6e4af9 (patch) | |
| tree | 5a1c881aee9192af34d2f528cd51201c2dd7d2d6 | |
| parent | 9703b053615bd57d4c9624cb42fd7e33d610decb (diff) | |
Work around bug in expansion
| -rw-r--r-- | 04-bbmd-jor.mac | 9 |
1 files changed, 7 insertions, 2 deletions
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 */ |