3-2-1-3 Simpsoni法 程序框图 合) Simp(A,B,EPS,S2,F) N=1,H=B-A,S1=0,T1=H*FA)+FB)/2 S=0 DO K=1,N S=S+F4+K-1/2)*H T2=(T1+H*S/2,S2=T2+T2-T1/3,D=S2-S1 No 1S2 Yes D=(S2-S1)/S2 N=N*2 No D<EPS H=H/2 Yes T1=T2 RETURN S1=S2 3-2-1-3 Simpson法——程序框图 Simp(A,B,EPS,S2,F) N=1, H=B-A, S1=0, T1=H*(F(A)+F(B))/2 DO K=1，N S=0 S=S+F(A+(K-1/2)*H) T2=(T1+H*S)/2, S2=T2+(T2-T1)/3, D=|S2-S1| |S2|>1 D=|(S2-S1)/S2| D<EPS No RETURN Yes No N=N*2 H=H/2 T1=T2 S1=S2 Yes