数値計算プログラム

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

input l,e;
label l1;
input a,b;

if fnf(a)*fnf(b)>=0 then l1;
for i:=1 to l;
a1:=fnf(a);
b1:=fnf(b);
c:=(a*b1-b*a1)/(b1-a1);
f:=fnf(c);
if abs(f) if a1*f<0 then b:=c;l3;
a:=c;
label l3;
next i;
i:=t-1;
label l2;
print c,f,i;
end;

注：関数は例。