function [a,b] = wtf(h0,x1)
%外推法
% 此處顯示詳細說明
syms x
f=3*x*x-8*x+9;
y1=subs(f,x,x1);
h=h0;
x2=h+x1;
y2=subs(f,x,x2);
if y2>y1
h=-h;
x3=x1;
y3=y1;
x1=x2;
x2=x3;
y2=y3;
x3=x2+h;
y3=subs(f,x,x3);
else
x3=x2+h;
y3=subs(f,x,x3);
end
while (y3<y2)
h=2*h;
x1=x2;
x2=x3;
y2=y3;
x3=x2+h;
y3=subs(f,x,x3);
end
a=min(x1,x3);
b=max(x1,x3);
end
轉載請註明出處,本文鏈接:https://www.uj5u.com/qita/285143.html
標籤:非技術區