численное решение нелинейных уравнений

[Люстик]

Помогите, пожалуйста, написать головной модуль и подпрограмму для f=a+b+x---функция в бейсике а то я не могу понять что писать
вот нам давали на эту тему программу:

DECLARE SUB dix (a!, b!, e!, root!)
DECLARE SUB kas (a!, b!, x!, e!, root)
DECLARE FUNCTION f! (x!)
DECLARE FUNCTION f1! (x!)
REM
CLS
PRINT "proverka suchestvovanija korna"
PRINT "y=sin(x^2)+cos(x^2)-10*x=0"
REM
DO
a = 0
b = 1
e = .001
LOOP WHILE f(a) * f(b) > 0
REM
CALL dix(a, b, e, root)
PRINT "koren' uravnenja po metodu dihometrii="; root
PRINT "f(x)=";
PRINT USING "##.######"; f(root)
PRINT "_ _ _ _ _ _ _ _ _ _ _ _ _ _ "
REM
INPUT "vvedite nachalnoe snachenije korna na(a,b)x0="; x
IF f(x) * f1(x) > 0 THEN
PRINT "metod n'jutona primenim"
CALL kas(a, b, x, e, root)
PRINT "koren' po metodu kasatelnh="; root
PRINT "f(x)=";
PRINT USING "##.######"; f(root)
ELSE
PRINT "metod kasatelnih ne primenm"
END IF
PRINT "_ _ _ _ _ _ _ _ _ _ _ _ _ _ "
END

SUB dix (a, b, e, root)
x = (a + b) / 2
DO
IF f(x) * f(a) < 0 THEN
b = x
ELSE
a = x
END IF
x = (b + a) / 2
LOOP UNTIL (b - a) < e
root = (b + a) / 2
END SUB

FUNCTION f (x)
f = SIN(x ^ 2) + COS(x ^ 2) - 10 * x
END FUNCTION

FUNCTION f1 (x)
f1 = 2 * COS(x ^ 2) - 2 * SIN(x ^ 2) - 10
END FUNCTION

За ранее очень очень благодарна