现在cpu的速度真恐怖

FENG950

原帖由 bessel 于 2007-7-2 22:49 发表
瀑布汗。
16ms这个延时好像也挺短，结论？

哈哈，本来就短啊，漏抄了i++就变成恒真循环了。:a)

bessel

16ms是哪部分的时间?

原帖由 zxjike 于 2007-7-2 23:13 发表

16MS是跑到了头，没有i++是死循环。

[ 本帖最后由 bessel 于 2007-7-2 23:25 编辑 ]

FENG950

原帖由 zxjike 于 2007-7-2 23:22 发表
以前我的组有个家伙写程序风格老是这样。
Release模式一跑就乱套，Debug还查不到，几万行原来都是if ... endif中间调用的函数，因为if空的都不执行....

就是说if();这样的？

bessel

30000*1000个浮点如果是双精度的话,时间是绝对不够的.
time =   3.150000      0.0000000E+00
   3464101623798.05  
俺的机器还不是太挫.
ifort -O3别的暂时没开.

program test
implicit none
real,dimension(2) :: t1,t2
real              :: t0,etime
integer:: i
real*8 :: x
t0=ETIME(t1)
i=1
x=0.0_8
do while(i<=300000*1000)
  x=dsqrt(dfloat(i))+x

  i=i+1
end do
t0=ETIME(t2)
print*,"time =",t2(1)-t1(1),t2(2)-t1(2)
print*,x
end program test

原帖由 zxjike 于 2007-7-2 23:30 发表

我没有跑，但是我觉得应该是全部。

FENG950

原帖由 bessel 于 2007-7-2 23:18 发表
16ms是哪部分的时间?

其实LZ那个程序有问题，内循环只执行一次（从0到300000），因为K没有复位，因此外循环第一次以后再进入时K都不会小于300000，所以时间其实很短，只有第一次0到300000是真正在做计算。

FENG950

原帖由 zxjike 于 2007-7-2 23:34 发表

这样的
if Test()=False Then
中间原来有Exit sub，注释掉了就什么都没有了。
EndIF

Private function Test() as boolean
...
...
End Function

然后Debug下Test能执行，Release下就不执行。

是VB吗？哈哈，VB完全不懂啊。

bessel

看到你的图了，只算了300000个用了16ms。

原帖由 FENG950 于 2007-7-2 23:37 发表

其实LZ那个程序有问题，内循环只执行一次（从0到300000），因为K没有复位，因此外循环第一次以后再进入时K都不会小于300000，所以时间其实很短，只有第一次0到300000是真正在做计算。

[ 本帖最后由 bessel 于 2007-7-2 23:42 编辑 ]

FENG950

原帖由 bessel 于 2007-7-2 23:39 发表
你算的是不是300000*1000个浮点,16ms那个？

就是LZ最后贴出那个，我那个你不要开玩笑了，16ms我就爽死了。

bessel

你的要多久？
30,000*1000试试看.

原帖由 FENG950 于 2007-7-2 23:41 发表

就是LZ最后贴出那个，我那个你不要开玩笑了，16ms我就爽死了。

FENG950

浮动挺大的，不展开15到11秒都有，展开试了是三秒左右。
刚刚又跑了有五秒多的。
AM2 3000+ 1G DDR2 667。

[ 本帖最后由 FENG950 于 2007-7-2 23:55 编辑 ]

bessel

算这个吧,
然后输出一下最后的x.
俺在linux下，如果不输出x编辑器就直接跳过了。

x=0.0_8
do while(i<=300000*1000)
    x=dsqrt(dfloat(i)*dfloat(i+1))+x
    i=i+1
end do

原帖由 FENG950 于 2007-7-2 23:46 发表
浮动挺大的，不展开15到11秒都有，展开试了是三秒左右。
刚刚又跑了有五秒多的。
AM2 3000+ 1G DDR2 667。

FENG950

原帖由 bessel 于 2007-7-3 00:03 发表
算这个吧,
然后输出一下最后的x.
俺在linux下，如果不输出x编辑器就直接跳过了。

x=0.0_8
do while(i

输不输出都是15秒不到，最后结果是4.50000003E+16吗？你的什么环境呢？IDE?编译器版本？

[ 本帖最后由 FENG950 于 2007-7-3 00:33 编辑 ]

动力音熊II

开6个prime。。。。看你S不S。。

bessel

suse liux, ifort 9.1 20060519
ifort -O3 -tpp7 -xW
AMD Opteron(tm) Processor 285 2.6G
3.5秒以下。
x=4.500000030000000E+016

原帖由 FENG950 于 2007-7-3 00:19 发表

输不输出都是15秒不到，最后结果是4.50000003E+16吗？你的什么环境呢？IDE?编译器版本？

zqmars

原帖由 sd-iori 于 2007-7-1 23:57 发表

:shifty: MMX最低主频是166吧，，，，

P133是奔腾时代最高主频吧
66X2

零售版有166的奔腾..记得最后还有200的奔腾(很多人可以将166的超到200)不过那时候已经是MMX166/200/233都出了..我最早用过的是APPLEII和8086