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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
           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
meercci