hi all

//-------------------------------------------------------------------------

let rec search f (negPoint:float) (posPoint:float)=

let midPoint =(negPoint+posPoint )/2.0

let closeEnuh x y=

(x-y)<0.0000001

if closeEnuh negPoint posPoint then midPoint

else

let testValue =f midPoint

if testValue>0 then search f negPoint midPoint

else if testValue <0 then search f midPoint posPoint

else midPoint

//--------------------------------------------------------------------------

let halfIntervalMethod f (a:float) (b:float)=

let aValue=f a

let bValue=f b

if aValue<0&&bValue>0

then search f a b

else if aValue>0&&bValue<0

then search f b a

else

0.0

//---------------------------------------------------------------------------

let result=

halfIntervalMethod (fun x-> x * x) -5.0 5.0 //error: (fun x-> x * x):The type 'int' does not match the type 'float'

Sorry for the formatting.i use the google chromium

Who know the answer please tell me, thanks very much

jiangzhen