精细积分MATLAB程序

AaronSpark

在钟万勰院士最新书上的原代码
% 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

[ 本帖最后由 ChaChing 于 2010-7-11 15:09 编辑 ]

kpwang

hao

cactus

谢谢楼主！

zycshensave

有没有fortran的程序

happy

原帖由 zycshensave 于 2006-10-26 11:01 发表

http://forum.vibunion.com/thread-1762-1-1.html

[ 本帖最后由 eight 于 2007-1-30 00:27 编辑 ]