5楼: Originally posted by wahrrysu at 2013-08-16 19:31:31
感谢您耐心的回复，听上去很复杂啊，您有时间的话能帮我写一个matlab的代码么？像上次那样的就行，现在我把金币提高了，因为除了这个，我也没有可以报答您的了，非常感谢！！...

function solve_eq
clear all;clc
format long
global T

T=1200;
Rr0=10e-9;
dRr0=0;
tspan=500:3500;
[t Rr]=ode15i(@dRrdt,tspan,Rr0,dRr0);
figure,plot(t,Rr,'b'),xlabel('t'),ylabel('Rr'),axis([450 3650 min(Rr)-(max(Rr)-min(Rr))/10 max(Rr)+(max(Rr)-min(Rr))/10]);
[t Rr];


function f=dRrdt(t,Rr,dRr)
global T

R=8.314;
phi=0.7;
DI=2.14*exp(-158840/R/T);
DNb=0.83*exp(-266500/R/T);
sigma=0.8;
delta=1e-9;
Vm=6.77e-6;
b=2.5e-10;
Eb=19.3e3;
Nv=1e15;
rp=1e-8;

M0=phi*DI*Vm*delta/(b^2*R*T);
lamda=2*delta*Nv*R^2*T^2*(sinh(Eb/R/T)-Eb/R/T)/(Eb*DI);

x0=[0.01 0.3];
x=fsolve(@nonfun,x0,optimset('Display','Off'));
Cs=x(1);
fp=(0.021-Cs)*0.0114;

%-----------------------------------------%
w2=lamda*delta*R*T/(2*Nv*Eb^2*DI);
f=dRr-M0*delta*Vm*(1/Rr-3*fp/rp)*(1+w2*dRr^2)/(1+lamda*M0*Cs*w2*dRr^2);





function ff=nonfun(x)
global T
Cs=x(1);
C=x(2);
ff(1)=Cs*C-10^(5.17-9810/T+(540.6/T-0.1651)*0.33);
ff(2)=(0.021-Cs)/(0.33-C)-92.9064/12.011;

2楼: Originally posted by 月只蓝 at 2013-08-16 12:58:42
现在的方程是：
dr/dt=M0*delta*Vm*(1/Rr-3fp/rp)(1+w^2*v^2)/(1+lamda*M0*Cs*w^2*（dr/dt）^2)，可以看到，待求解的dr/dt的等号右端包含了一个dr/dt的平方，这样dr/dt是隐式的，无法用ode函数求解。

3楼: Originally posted by wahrrysu at 2013-08-16 14:04:47
请问这个方程有其它方法可以解么？...