- 积分
- 4
- 注册时间
- 2005-1-4
- 仿真币
-
- 最后登录
- 1970-1-1
|
在钟万勰院士最新书上的原代码
% Precise Integration Method
clear;
A=zeros(2);
C=A;
D=[0.5,0;0,1];
B=[-6,2;2,-4];
f0=[0;0;0;10];
f1=zeros(size(f0));
H=[A,D;B,C];
I=eye(size(H));
iH=inv(H);
tf=20;
step=[2,0.5,0.1]; % different step size
N=20;
figure;
hold;
str=['o','x','b-'];
for jj=1:3
%PIM begin
dt=step(jj)/2^N;
Ta=H*dt+(H*dt)^2*(I+(H*dt)/3+(H*dt)^2/12)/2;
for iter=1:N
Ta=2*Ta+Ta*Ta;
end
T=I+Ta;
vk=[0;0;0;0];
for iter=1:tf/step(jj)
iter
t(:,iter)=step(jj)*(iter-1);
v(:,iter)=vk(1);
vk=T*(vk+iH*(f0+iH*f1))-iH*(f0+iH*f1+f1*step(jj));
end
% PIM end
% figure(jj);
plot(t(1:tf/step(jj)),v,str(jj));
end |
评分
-
1
查看全部评分
-
|