Алгоритм решения уравнения

[Kex]

как решить уравнение вида H_f(Q)=h_f(Q). Т.е графически оно решается легко: пересечение двух графиков дает решение, а как организовать этов VB. Интересен не столько код, сколько алгоритм.

 

[Pasha]

Для: Kex
Если известен промежуток, то метод дихотомии..

 

[Kex]

Промежуток задаем циклом от 0 до 2000 единиц с определенным условием выхода из цикла. Вот что мне пришло в голову с ходу: примерный вид функций я знаю подставляя аргумент в каждую функцию, я сравнивал полученные значения функций как >= (потому. что в равно точно не попадает значение), по достижению условия выводил значение аргумента (т.е переменную цикла), но метод не очень точен, чтобы добится точности в 3 знаке, надо переменную цикла (аргумент) задавать с шагом 0,0001, а это сильно тормозит прогу на 10 мин.
А можно про метод попадробнее или может быть приблизительный код!??

 

[Pasha]

Для: Kex
Есть промежуток [a,b]. Делишь промежуток на, [a, (a+/2] и [(a+B)/b]. Определяешь на каком из них выражение H_f(Q)-h_f(Q) меняет знак. Повторяешь, но уже на вдвое меньшем промежутке.

 

[Kex]

Спасибо Pasha за дельный совет!! Сегодня добрался до Basica и написал код. Все работает за 5 сек и с необходимой точностью.
А сушествует какой нибудь метод решения системы квадратных уравнений вида

12-y=x1^2
185-y=x2^2
y-4=x3^2
x1^2+x2^2=x3^2

т. е математически я знаю как его решить, но код получается громозкий и некрасивым. Буду благодарен за ответ!!