matlab 解微分方程出错clear all;clc;load 15.mat;t=celiang(:,1);u1=celiang(:,2);syms u2 i5 ii x u5%定义u1,L1,L2,R1,C1,C3,ii 等vU1=celiang(:,2);k=length(u1);C1=1;h=5e-7;C3=1;R1=1;L1=1;R2=1;L2=1;C2=1;i1(1)=0;i1(2)=0;%在开始的两个点用的
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/27 18:25:13
matlab 解微分方程出错clear all;clc;load 15.mat;t=celiang(:,1);u1=celiang(:,2);syms u2 i5 ii x u5%定义u1,L1,L2,R1,C1,C3,ii 等vU1=celiang(:,2);k=length(u1);C1=1;h=5e-7;C3=1;R1=1;L1=1;R2=1;L2=1;C2=1;i1(1)=0;i1(2)=0;%在开始的两个点用的
matlab 解微分方程出错
clear all;clc;
load 15.mat;
t=celiang(:,1);
u1=celiang(:,2);
syms u2 i5 ii x u5%定义u1,L1,L2,R1,C1,C3,ii 等
vU1=celiang(:,2);
k=length(u1);
C1=1;
h=5e-7;
C3=1;
R1=1;
L1=1;
R2=1;
L2=1;
C2=1;
i1(1)=0;i1(2)=0;%在开始的两个点用的是最简单的使之为零的方法.
for j=3:k-1
i1(j)=(vU1(j+1)-vU1(j))*12*C1/(23*h)+16*i1(j-1)/23-5*i1(j-2)/23;
end
i1(k)=(vU1(k)-vU1(k-1))*C1/h;
i1=i1';
i3=i5+ii-i1;
fai=x;
p1 = 1.367e-014;
p2 =-2.585e-027;
p3 = -8.37e-011;
p4 = 3.585e-023;
p5 = 3.2e-007;
p6 =-1.298e-019;
p7 = -0.0002556;
p8 = 1.143e-016;
ih= p1*x.^7 + p2*x.^6 + p3*x.^5 + p4*x.^4 + p5*x.^3 +p6*x.^2 + p7*x + p8;
i7=i3-ih;
i4=-100*i7;
u4=u5/100;
i2=-i4-i5;
%%%%%%%%%%%%%%%%%%%%%
s=dsolve(diff((u2-u1),t)==i5/C3,diff(i3,t)==(u1-R1*i3-u5)/L1,diff(fai,t)==u5,diff(i4,t)==(u2-u4- R2*i4)/L2);
u2=s.u2
已知u1如何求u2
i1=C1*du1/dt;%%含有微分
i5=C3*d(u2-u1)/dt;%%含有微分
i3=i5+ii-i1;
u5=u1-R1*i3-L1*di3/dt;%%含有微分
u5=dfai/dt;%%含有微分
fai=x;
p1 = 1.367e-014;
p2 = -2.585e-027;
p3 = -8.37e-011;
p4 = 3.585e-023;
p5 = 3.2e-007;
p6 = -1.298e-019;
p7 = -0.0002556;
p8 = 1.143e-016;
ih= p1*x.^7 + p2*x.^6 + p3*x.^5 + p4*x.^4 + p5*x.^3 + p6*x.^2 + p7*x + p8;
i7=i3-ih;
i4=-100*i7;
u4=u5/100;
u2=u4+R2*i4+L2*di4/dt;%%含有微分
i2+i4+i5=0;
matlab 解微分方程出错clear all;clc;load 15.mat;t=celiang(:,1);u1=celiang(:,2);syms u2 i5 ii x u5%定义u1,L1,L2,R1,C1,C3,ii 等vU1=celiang(:,2);k=length(u1);C1=1;h=5e-7;C3=1;R1=1;L1=1;R2=1;L2=1;C2=1;i1(1)=0;i1(2)=0;%在开始的两个点用的
clear all;clc;
load 15.mat;
t=celiang(:,1);
u1=celiang(:,2);
syms u2 i5 ii x u5%定义u1,L1,L2,R1,C1,C3,ii 等
vU1=celiang(:,2);
k=length(u1);
C1=1;
h=5e-7;
C3=1;
R1=1;
L1=1;
R2=1;
L2=1;
C2=1;
i1(1)=0;i1(2)=0;%在开始的两个点用的是最简单的使之为零的方法.
for j=3:k-1
i1(j)=(vU1(j+1)-vU1(j))*12*C1/(23*h)+16*i1(j-1)/23-5*i1(j-2)/23;
end
i1(k)=(vU1(k)-vU1(k-1))*C1/h;
i1=i1';
i3=i5+ii-i1;
fai=x;
p1 = 1.367e-014;
p2 =-2.585e-027;
p3 = -8.37e-011;
p4 = 3.585e-023;
p5 = 3.2e-007;
p6 =-1.298e-019;
p7 = -0.0002556;
p8 = 1.143e-016;
ih= p1*x.^7 + p2*x.^6 + p3*x.^5 + p4*x.^4 + p5*x.^3 +p6*x.^2 + p7*x + p8;
i7=i3-ih;
i4=-100*i7;
u4=u5/100;
i2=-i4-i5;
u21=u2-u1;
%%%%%%%%%%%%%%%%%%%%%
s=dsolve(diff(u21,t)==i5/C3,diff(i3,t)==(u1-R1*i3-u5)/L1,diff(fai,t)==u5,diff(i4,t)==(u2-u4- R2*i4)/L2);
u2=s.u2