! Functie pentru grafic:
function f_exp(x)
use work
f_exp =exp(x)-p*x**2
end


real function f_mull(x)
! Pol. muller pt. exp3

f(y) =exp(y) -3*y*y

x0 =0.6; x1 =0.8; x2 =1.0;

c =f(x2)

f10 =(f(x0)-f(x1))/(x0-x1)
f02 =(f(x2)-f(x0))/(x2-x0)
f21 =(f(x1)-f(x2))/(x1-x2)

b =f21 +f02 -f10

a =(f10 -f21)/(x0-x2)

y =x -x2
f_mull =a*y**2 +b*y +c
end

function D1(x)
D1 =sqrt(2.25 -(x-5)*(x-5))
end

function D1_(x)
!D1_ =-D1(x)             !
D1_ =-sqrt(2.25 -(x-5)*(x-5))
end

function tan_5_d(x)
!f =tan(x)-(8-x)/(x+0.2)
!f1 =1/(cos(x))**2 -8.2/(x+0.2)**2
tan_5_d = 1/(cos(x))**2 -8.2/(x+0.2)**2
end

function cos99(x)
cos99 =1.6 +.99*cos(x)-x
end

function sin99(x)
sin99 =1.6 +.99*sin(x)-x
end

function a6_I(x)
use work
a6_I =x +exp(-p*x*x)*cos(x)
end

function a63(x)
use work
!f =-x +exp(-p*x*x*x)*cos(x)
a63 =-x +exp(-p*x*x*x)*cos(x)
! p =40
end
