xeon401 幼苗
共回答了17个问题采纳率:94.1% 举报
1年前 追问
参考代码:
R=81.4881629e-3;
k=5.475;
b=0.3455467e-3;
A2=-0.1195051;
B2=0.1137590e-3;
C2=-3.531592;
A3=0.1447797e-3;
B3=-0.8942552e-7;
C3=0.6469248e-2;
A4=-1.049005e-7;
A5=-6.953904e-12;
B5=1.269806e-13;
C5=-2.051369e-9;
T=293.15;
Tr=T/374.2;
p=572.1;
syms v
eq1=-p+R*T/(v-b)+(A2+B2*T+C2*exp(-k*Tr))/(v-b)^2....
+(A3+B3*T+C3*exp(-k*Tr))/(v-b)^3+A4/(v-b)^4.....
+(A5+B5*T+C5*exp(-k*Tr))/(v-b)^5;
[num,den] = numden(eq1);
r = roots(sym2poly(num));
r = r(abs(imag(r))
clf
v = [0:1e-5:0.0003 0.00031:1e-6:0.0004 0.0005:1e-5:0.005 0.006:1e-4:0.04];
plot(v,subs(eq1))
hold on
plot(r,y,'ro')
ylim([-1 1]*1e3)
求出的实根为:
r =
0.035738703279219
0.004635322844890
0.000366751037287
yixuan1120 幼苗
共回答了1个问题 举报
1年前
1年前2个回答
1年前1个回答
1年前2个回答
1年前1个回答
1年前1个回答
1年前1个回答
你能帮帮他们吗