bonjour,
pour pouvoir plus s habituer a tracer des courbes 2d (surfaces) sous gnuplot d un programe f77, j ai fait ce petit programme pour tracer une surface, mais sous gnuplot j ai obtenu une courbe , alors ou est l erreur? dans le programme ou autre? merci
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
 
      program m
      integer i,j
      real h,T(0:50,0:50)
      h=0.1
      open(1,file='jet1.dat',status='unknown')
      do i=0,50
         do j=0,50
            T(i,j)=f(i*h,j*h)
            write(1,*) i*h,j*h,T(i,j)
         enddo
      enddo
      close(1)
      end
 
      function f(x,y)
      real x,y,f
      f=x*y
      return
      end