Задание граничных и начальных условий

Форум пользователей пакета Mathematica

Модератор: Admin

asisai
Сообщения: 4
Зарегистрирован: Вт апр 08, 2014 6:16 pm

Задание граничных и начальных условий

Сообщение asisai » Пн апр 28, 2014 11:21 am

Добрый день! Подскажите пожалуйста, в чем ошибка при задании граничных и начальных условий?!
Необходимо решить уравнение:

Sol= NDSolve[{D[Cm[t,x]*(ff +(f0-ff)*Exp[-fa*x]),t]== D[Dch4*(ff +(f0-ff)*Exp[-fa*x])^2*D[Cm[t,x],x],x]-D[(ff +(f0-ff)*Exp[-fa*x])*((vf*ff-w0*f0)/(ff +(f0-ff)*Exp[-fa*x]))*Cm[t,x],x], Cm[t,0]= 0, Cm[0,x]=0, Cm[L,x]=30}, Cm, {t,0,2000}, {x,0,L}]
Plot[Evaluate[Cm[t,x]/.sol,{x,0,600}]]

С параметрами:
L = 600;
w0 = 20;
vf=0.011;
f0 =0.95;
ff = 0.7;
fa =0.0013;
Dch4 = 314;