User Portlet
| Discussions |
|---|
| [mcode]A = 0.01 B = 0.00001 eq1 = h'[t] == -A *h[t]* z[t]*r[t] eq2 = z'[t] == A *h[t]*z[t] - B *h[t]*z[t] eq3 = r'[t] == B *h[t] *z[t] % sol = First[ h /. NDSolve[{eq1, eq2, eq3, h[0] == 1000000, z[0] == 1, r[0] == 0}, {h, r, z}, {t, 0, 20}]]... |
| I'm trying to solve two simultaneous exponential equations that should have one real solution for both a and b, but it produces loads of imaginary solutions, where am I going wrong?[mcode]Solve[{a Exp[b/2] == 25, a*Exp[10 b/3] == 16.9}, {a, b}]... |
| Wow, you've just made the maths coursework a lot easier, thank you! |