**TI92P*prgm_seFunction file 07/09/08, 18:40Rdicho2õ¥Z›(a,b,†) Func Local c While (b-a)/2ž† (a+b)/2c If f(c)=0:Return approx(c) If f(a)*f(c)<0 Then:cb Else:ca EndIf EndWhile approx(c) EndFuncäåÜÑ-