数値計算プログラム

def fnf(x):=x*x-exp(-x);

input l,e;
label l1;
input a,b;
l1:=0;
if fnf(a)*fnf(b)>=0 l1;

label l2;
c:=(a+b)/2;
l1:=l1+1;
if fnf(a)*fnf(c)<0 then b:=c else a:=c;

if abs(fnf(c))>e and l1

print c,fnf(c);
print l1;
end;

example:fnf(x):=x*x-exp(-x)=0