zjj04640451 发表于 2009-4-3 08:56

参加完活动积分就差不多够了

[ 本帖最后由 zjj04640451 于 2009-4-3 08:57 编辑 ]

欧阳中华 发表于 2009-5-10 19:48

.
      SUBROUTINE PLTOUT(FILENAME)
      CHARACTER *18 FILENAME      
      CHARACTER *70 HEAD
      INTEGER I,J,K
      HEAD='VARIABLES="X","Y","U","V"'
       OPEN(15,FILE=filename,STATUS='UNKNOWN')
      WRITE(15,'(A70)') HEAD
      WRITE(15,102) M,N
102   FORMAT('zone I=', I2, ' J=', I2, ' f=point')      
      DO 10 J=2,N+1      
      DO 10 I=2,M+1
      WRITE(15,30) x,y,U,V !对应各网格点的x,y坐标及u,v速度分量
10    CONTINUE
30    FORMAT(2(f8.4,1x),2(1X,e11.4))
      CLOSE(15)
      RETURN
      END

5623728 发表于 2009-5-29 11:33

积分不够
看不了
呵呵

sunjie6891 发表于 2009-6-13 11:00

很想看，可惜看不到:@Q

hunter_009 发表于 2009-6-13 12:08

请问一下，TECPLOT是什么

yiqguan 发表于 2010-4-13 21:31

怎么挣积分啊？:@Q

欧阳中华 发表于 2010-4-14 19:39

.
    就是我上面转贴出来的那几行. . .

yiqguan 发表于 2010-4-14 23:03

谢谢楼主 找了好久了

dayu2005 发表于 2010-7-14 17:57

积分有点高了

唯有时光 发表于 2010-9-22 00:51

积分不够啊。。。郁闷~

Happy99 发表于 2010-9-22 12:07

17F後还在叫的, 都应该惭愧!
源程序欧阳教授已经贴出了, 到底有没看帖!
总是如此怎能提升!?

w3w3w3 发表于 2011-8-27 17:05

说实话啊，这里规则不太明白呢！

w3w3w3 发表于 2011-8-27 17:06

对新手是不是照顾一下啊，送个启动分呗！

296687300 发表于 2015-2-8 20:06

积分不够啊

296687300 发表于 2015-2-8 21:20

还是不够
页: 1 [2] 3
查看完整版本: TECPLOT画二维矢量图的FORTRAN源程序