! Cu "sub_Pol" si "polval" pt. polinoame

function f(x)
use work

! Stationar:
!f =7*x -5*x*cos(x)+3*sin(x)

!! Ozban 2004:
!!sin2(x) - x2 + 1 =0; alfa = 1.404491648215341
!f =sin(x)*sin(x) - x*x + 1

! Soleymani&Sharif - Ex.1; x =2.842438953784447...
!f =exp(x) +x -20

! Ex.2: 2.331967655883964
f =sqrt(x*x +2*x+5) -2*sin(x) -x*x +3

! Ex.3: 2x cos(x) + x - 3; alfa =-3.034664306974045...
!f =2*x*cos(x) +x -3
END

function f1(x)
! f1 =f'
use work

! Stationar:
!f1 =7-2*cos(x)+5*x*sin(x) 

!! Ozban 2004:
!!sin2(x) - x2 + 1 =0; alfa = 1.404491648215341
!f1 =2*sin(x)*cos(x) -2*x

!f1 =exp(x) +1

! Ex.2:
f1 =(x+1)/(x*x +2*x+5)**1.5 -2*cos(x) -2*x

! ex3:
!f1 =2*cos(x)-2*x*sin(x) +1
END