Hello.
I want to change this code from vfp to vb(code and form) ,if you can help
thank you.
a = SomeInitialValueGoesHere && whatever your appropriate values are
b = ???
lnEpsilon = 0.0003
for i = 1 to 5
p = ( a + b ) / 2
if ( FuncX( a ) * FuncX( b ) < 0.0 )
b = p
else
a = p
if ( abs( b - a ) <= lnEpsilon )
? p
exit && leaves for loop
endif
endif
endfor
function FuncX( lnArg )
return cos( lnArg ) - 2.0 * lnArg ^ 3 - 0.5
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement