> FB := proc (n, exp) 
	local F, i; 
	F[0] := 0; 
	F[1] := 1; 
	if n = 0 then return 0 end if; 
	if n = 1 then return 1 end if; 
	for i from 0 to n-2 do 
		if exp <> 0 then 
			F[i+2] := expand(x*F[i+1]+F[i]) 
		else F[i+2] := x*F[i+1]+F[i] 
		end if 
	end do 
end proc;


# 4 b

# mit expand
s := time(); 
for j to 20 do 
	print(FB(j, 1)) 
end do; 
t := time()-s; 
print(t);


# ohne expand
s := time(); 
for j to 20 do 
	print(FB(j, 0)) 
end do; 
t := time()-s; 
print(t);


# 4 c

# die ersten 10 Koeff. mit der Taylorentwicklung:
expand(taylor(T/(1-x*T-T^2), T = 0, 11));

# mit FB
for i to 10 do 
	FB(i, 1); 
end do;