今天群里看到一个价值连城的代码

张林 发布于 2011/01/23 02:18
阅读 938
收藏 2

看完阿凡达,回到群里,发现他们讨论发动机的问题。

于是我就看了看,M大居然告诉我们了一个秘密。。。。

唠叨几句,大家看个热闹:

 □Martin(xxxx)  23:59:05
fortran本来就是个函数翻译器
□Martin(xxxx)  23:59:14
公式翻译器
墨寒い旅行者(xxxx)  0:00:34
还用?
□Martin(xxxx)  23:59:47
废话
□Martin(xxxx)  23:59:58
美国NASA科研项目仍然是fortran主导
墨寒い旅行者(10874253)  0:00:57
用得着 
□Martin(xxxx)  0:01:38

□Martin(xxxx)  0:01:52
sf上有个项目把美国能源部的代码泄露了
□Martin(xxxx)  0:02:00
那个代码值几百万
□Martin(xxxx)  0:02:07
设计火箭发动机用的
墨寒い旅行者(xxxx)  0:03:33
很有开源精神嘛
□Martin(xxxx)  0:02:47
duns.sf.net
□Martin(xxxx)  0:02:51
呵呵
□Martin(xxxx)  0:02:55
一般人是不知道的
墨寒い旅行者(xxxx)  0:04:55
偶看不懂 
□Martin(xxxx)  0:04:14

□Martin(xxxx)  0:04:20

BSCH(xxxx)  0:04:29
代码都不值钱
□Martin(xxxx)  0:04:32

墨寒い旅行者(xxxx)  0:05:37
不过既然你说这么NB 我下载一下 
□Martin(xxxx)  0:04:48

□Martin(xxxx)  0:04:56
想知道是哪个文件吗?
□Martin(xxxx)  0:05:05
其中两个文件
墨寒い旅行者(xxxx)  0:06:08
说说啊 
□Martin(xxxx)  0:05:35
我过去的发动机代码,就是基于这两个文件的
□Martin(xxxx)  0:05:39
当时哪里都求不到
墨寒い旅行者(xxxx)  0:06:41
不是CPP的?
□Martin(xxxx)  0:05:52
fortran
geek<x@qq.com>  0:06:04
   open(unit=11, file='duns.qinit', form='unformatted')
      write(11) nblocks
      write(11) (imax(n),jmax(n),n=1,nblocks)
      do n = 1, nblocks
         write(11) rtmp1, rtmp2, rtmp3, rtmp4
         write(11) ((p1(i,j,n),i=1,imax(n)),j=1,jmax(n)),
     >             ((u(i,j,n),i=1,imax(n)),j=1,jmax(n)),
     >             ((v(i,j,n),i=1,imax(n)),j=1,jmax(n)),
     >             ((w(i,j,n),i=1,imax(n)),j=1,jmax(n)),
     >             ((t(i,j,n),i=1,imax(n)),j=1,jmax(n)),
     >             ((q(i,j,n),i=1,imax(n)),j=1,jmax(n)),
     >             ((om(i,j,n),i=1,imax(n)),j=1,jmax(n)),
     >             (((yi(i,j,k,n),i=1,imax(n)),j=1,jmax(n)),k=1,nsread)
      end do
      close(11)
A formatted qinit file looks like:

       open(unit=11, file='duns.qinit')
      write(11,*) nblocks
      do n=1,nblocks
         write(11,*) imax(n),jmax(n)
         do j=1,jmax(n)
         do i=1,imax(n)
            write(11,*) p1(i,j,n),u(i,j,n),v(i,j,n),w(i,j,n),t(i,j,n),
     >                  q(i,j,n),om(i,j,n),(yi(i,j,k,n),k=1,nsread)
         end do
         end do
      end do 


墨寒い旅行者(xxxx)  0:07:10
看不懂 偶不打算学新语言了
真够有开源精神的,这东西居然都被泄露了。。。
不过可惜,看不懂fortran语言。。。。
加载中
0
Midnight
Midnight

哥们, 下次发群聊天记录的时候记得处理下昵称和Q号, 不然他们会找你算账的...

0
ddatsh
ddatsh

这几行代码怎么就价格连城了呢

0
帅气的鱼
帅气的鱼

对啊 没看出经典来

0
JonasBollack
JonasBollack

我也去开发火箭了。。。哈哈

0
该用户已被和谐
该用户已被和谐

关键是把别个QQ号码屏蔽掉,否则未经本人同意可能会让人觉得有点内个。

代码虽然俺看不懂,但是好强大啊!

0
张林
张林

呀,这我还真没想到QQ号这问题,现在改不了贴了,既然这样,我也公布我的QQ号吧:610238688

起初的目的只是我觉得很吃惊,于是发出来与大家共同讨论一下,看到oschina上很多与技术无关的帖子觉得很无聊。还不如分析分析这价值连城的代码共同进步来的实在。

对于QQ号这问题,我是真没想到,多谢几位朋友提醒,多谢了,以后我注意一下。

另外,值钱的根本就不是那几行代码,而是在项目里的代码,地址不是告诉大家了吗?

duns.sf.net  这个项目

自己去下载啊,好好研究下Fortan的代码,前提是能看懂的话。

另外开发这东西可不是容易的事情,还需要一个化学反应模拟软件,当然,不可能是中国人造的,也是价格奇贵的一套软件,不过到了中国,有人破解了,各大高校化学系、热能、生物等都在用这套软件做化学反应模拟,据说超级好用。没有第一。这套软件牛就牛在可以计算反应所能释放出来的热量——这对燃料的效率上至关重要,因此决定了火箭推进器的燃料到底如何去选择。

0
和锐
和锐

引用来自#7楼“张林”的帖子

呀,这我还真没想到QQ号这问题,现在改不了贴了,既然这样,我也公布我的QQ号吧:610238688

起初的目的只是我觉得很吃惊,于是发出来与大家共同讨论一下,看到oschina上很多与技术无关的帖子觉得很无聊。还不如分析分析这价值连城的代码共同进步来的实在。

对于QQ号这问题,我是真没想到,多谢几位朋友提醒,多谢了,以后我注意一下。

另外,值钱的根本就不是那几行代码,而是在项目里的代码,地址不是告诉大家了吗?

duns.sf.net  这个项目

自己去下载啊,好好研究下Fortan的代码,前提是能看懂的话。

另外开发这东西可不是容易的事情,还需要一个化学反应模拟软件,当然,不可能是中国人造的,也是价格奇贵的一套软件,不过到了中国,有人破解了,各大高校化学系、热能、生物等都在用这套软件做化学反应模拟,据说超级好用。没有第一。这套软件牛就牛在可以计算反应所能释放出来的热量——这对燃料的效率上至关重要,因此决定了火箭推进器的燃料到底如何去选择。

 主要是以前遇到过类似的QQ问题

返回顶部
顶部