Bonjour,
j ai définit une fonction numérique qui vant 1 au dehors de [-3/4,3/4] et une fonction numérique dans cette interval , j ai ecrit le program, mais j ai obtenu que ma fonction vaut toujours 1!!!!!!!!!!!!!!!
Alors pouvez m aider et dire ou est ce truc génant?
voila mon code
program ess
integer i,j
parameter(N=16)
real gama(N-1),h
h=1/N
do i=1,N-1
gama(i)=gamma(i*h)
enddo
do j=1,N-1
print*, j,gama(j)
enddo
end
real function gamma(x)
real x
if(x.GT.-3/4.AND.x.LT.3/4) then
gamma =(10*((x**2-0.75**2)**4)*cos(2*pi*x)+1)**2
else
gamma =1.
end if
return
end
__________________________
Toufic
