Tag Info

New answers tagged

1

kB = 8.617*10^-5;(*ev/k*) Ea = 20*10^-3;(*ev*) e = 1.6*10^-19; h = 4.1*10^-15; G0 = 10*e^2/h; G1[x_] := G0*E^(Ea*x/kB); Plot[G1[x], {x, 0.004, 0.01}] Have fun!


3

As noted in comments on question 87963, a formal solution to these coupled equations can be obtained from the substitution, {u[x, t] -> u0 Exp[d1 t + d2 x], v[x, t] -> v0 Exp[d1 t + d2 x]} eq1 = Collect[(Unevaluated[D[u[x, t], t] + a1 D[u[x, t], x] - (c + k1) u[x, t] + k1 v[x, t]] /. {u[x, t] -> u0 Exp[d1 t + d2 x], v[x, t] -> v0 ...



Top 50 recent answers are included