切实转变作风 提高工作效率.doc

q1=;q2=;q3=;
h=;N=4000;
x0=2;y0=1;z0=3;
M1=0;M2=0;M3=0;
x(N+1)=[0];y(N+1)=[0];z(N+1)=[0];
x1(N+1)=[0];y1(N+1)=[0];z1(N+1)=[0];
x1(1)=x0+h^q1*35*(y0-x0)/(gamma(q1)*q1);
y1(1)=y0+h^q2*(-7*x0-x0*z0+28*y0)/(gamma(q2)*q2);
z1(1)=z0+h^q3*(x0*y0-3*z0)/(gamma(q3)*q3);
x(1)=x0+35*h^q1*(y1(1)-x1(1)+q1*(y0-x0))/gamma(q1+2);
y(1)=y0+h^q2*(-7*x1(1)-x1(1)*z1(1)+28*y1(1)+q2*(-7*x0-x0*z0+28*y0))/gamma(q2+2);
z(1)=z0+h^q3*(x1(1)*y1(1)-3*z1(1)+q3*(x0*y0-3*z0)/gamma(q3+2));
for n=1:N
M1=(n^(q1+1)-(n-q1)*(n+1)^q1)*35*(y0-x0);
M2=(n^(q2+1)-(n-q2)*(n+1)^q2)*(-7*x0-x0*z0+28*y0);
M3=(n^(q3+1)-(n-q3)*(n+1)^q3)*(x0*y0-3*z0);
N1=((n+1)^q1-n^q1)*35*(y0-x0);
N2=((n+1)^q2-n^q2)*(-7*x0-x0*z0+28*y0);
N3=((n+1)^q3-n^q3)*(x0*y0-3*z0);
for j=1:n
M1=M1+((n-j+2)^(q1+1)+(n-j)^(q1+1)-2*(n-j+1)^(q1+1))*35*(y(j)-x(j));
M2=M2+((n-j+2)^(q2+1)+(n-j)^(q2+1)-2*(n-j+1)^(q2+1))*(-7*x(j)-x(j)*z(j)+28*y(j));
M3=M3+((n-j+2)^(q3+1)+(n-j)^(q3+1)-2*(n-j+1)^(q3+1))*(x(j)*y(j)-3*z(j));
N1=N1+((n-j+1)^q1-(n-j)^q1)*35*(y(j)-x(j));
N2=N2+((n-j+1)^q2-(n-j)^q2)*(-7*x(j)-x(j)*z(j)+28*y(j));
N3=N3+((n-j+1)^q3-(n-j)^q3)*(x(j)*y(j)-3*z(j));
end
x1(n+1)=x0+h^q1*N1/(gamma(q1)*q1);
y1(n+1)=y0+h^q2*N2/(gamma(q2)*q2);
z1(n+1)=z0+h^q3*N3/(gamma(q3)*q3);
x(n+