Need some tips about bisection method in VB

[t4zone58]

Hey guys!

I am beginner at VB studying. I got confused with solve the functions by applying bisection method in VB. Basically I can understand the bisection method mathmatically. However i got stucked when i trying to write a code for it.

My code writing is

Dim xr, xl, xm as double

do
xl=0 (coz the domain is greater than 0)
xm=(xl+xr)/2
if (f(xl)) *( f(xm))>0 then
xl=xm
else
xr=xm
loop

can anyone give some tips on this

[scripto]

Dim xr, xl, xm as double


Your Dim statment is incorrect - it should read

dim xr as double, xl as double, xm as double

if you don't do it this way, then as per your code, xr and xl are variants. Try that.

[scripto]

you also have a never ending loop here.

here is a link to a wonderfull example

http://en.wikipedia.org/wiki/Bisection_method