clear
p0=5.5;
Tol=10^(-10);
N0=10;
stop=0;

i=1;
temp(1,1:3)=[1 p0 1];
while (i<N0 & stop==0)
    evaluate
    temp(i+1,1:3)=[i+1 p abs(p-p0)];
    if temp<Tol
        stop=1
    end
    i=i+1;
    p0=p;
   
end
 temp  

arrow
arrow
    全站熱搜

    jethro0119 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄