Hello colleagues, I have a problem that is interesting.
I have the following equations:
1) diffusion equation
D[cb[t, x], {x, 2}] == D[cb[t, x], t]/d
d is the diffusion coefficient,
2) Adsorption on the boundary (x=0)
D[s[t], t] == k1*cb[t, 0]*s[t, x] -sat) - k2*s[t]
The BC and IC:
D[s[t], t]==d*D[cb[t, x] at x=0
cb[t,a]== c0 (a and c0 constats)
cb[0,x] ==c0
s[0]==0
I found very akward to solve it. Any way to solve it? Or referentes about coupling ODE and PDE in Wolfram?
