diff options
Diffstat (limited to '04-bbmd-jor.mac')
| -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 */ |