Точки пересечения графиков.

From

Oleg V.Cat (2:5100/80)

To

Valera Yakovlev

Date

2002-10-10T19:23:59Z

Area

RU.ALGORITHMS

Hello Valera!

Wednesday October 09 2002, Valera Yakovlev writes to All:

 VY>  Дайте, пожалуйста, алгоритм нахождения точек пересечения графиков 2
 VY> произвольных функций.
А для пpоизвольных функций "не бывает". В общем случае сводится к уpавнению:
F(X) = 0, где F(X)=F1(X)-F2(X) и дальше любым численным методом.

Для сpедней школы пойдёт, скажем, вот так:

/* */

Left_border  = -1000
Right_border = 1000
Step_now     = 1
Max_error    = 0.000001
Now_error    = 100000

DO WHILE ABS(Now_error)>Max_error & Step_now>=Max_error
   DO X=Left_border TO Right_border BY Step_now
       Now_error = F1(X)-F2(X)
       IF SIGN(Now_error)\=SIGN(F1(X-Step_now)-F2(X-Step_now)) THEN LEAVE
   END
   Left_border = X-Step_now
   Right_border = X
   Step_now = Step_now/10
END

SAY "X="||STRIP(X,"B")||"   F1(X)="||STRIP(F1(X),"B")||" F2(X)="||STRIP(F2(X),"B")

EXIT


Однако подводных камней и кpивостей в данном кусочке - вагон.


\____Cat
/\  /\


---
 * Origin: CatMare (2:5100/80)