12
返回列表 上一主題 發帖

一億個 加法運算，大概需要 8.9 秒鐘

sjgau

帖子
145 
主題
45 
精華
0 
積分
190 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2013-10-18 
最後登錄
2014-3-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-10-23 11:12 | 只看該作者

一億個 加法運算，大概需要 8.9 秒鐘

Sub 計時碼錶()
   Dim byou1, byou2 As Double
   Dim i As Long
   Dim sum As Double
   
   ' integer 只能計算到 32767, 超過的話，程式會當掉
   ' long 只能計算到 2147483647, 超過的話，程式會當掉
   ' double 可以計算到 10^ +308 左右
   
    ' MsgBox "按下確定按鈕後開始計時"
    byou1 = Timer
   
    sum = 0#
    For i = 1 To 100000000
       sum = sum + i
    Next i
   
    ' MsgBox "再按一次確定按鈕停止計時"
    byou2 = Timer
   
    MsgBox "經過的時間為 " & byou2 - byou1 & " 秒, " & sum
    ' 一億個 加法運算，大概需要 8.9 秒鐘，比C++慢了很多
End Sub
收藏 分享
天下為公

sjgau

帖子
145 
主題
45 
精華
0 
積分
190 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2013-10-18 
最後登錄
2014-3-29 
12#
發表於 2013-10-30 21:48 | 只看該作者
我本來以為 Excel VBA 是interpreter,
我發現 我錯了

他 應該是 compiler
天下為公

TOP

Brandy

帖子
34 
主題
7 
精華
0 
積分
71 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2012-11-12 
最後登錄
2022-5-2 

2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
11#
發表於 2013-10-27 09:17 | 只看該作者
回復 11# sjgau


    我的excel只要1.73秒，比你的C++快:D
難道用2013比較快嗎，我發現EXCEL2013執行VBA常常會當掉，但是存成2003格式再來跑就很順
但是以上是用EXCEL2013直接執行的結果
用2013抓網頁資料比較常會當....怪怪難道是用win7 64位元的比較不相容嗎 我2013也是灌64位元的

TOP

sjgau

帖子
145 
主題
45 
精華
0 
積分
190 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2013-10-18 
最後登錄
2014-3-29 
10#
發表於 2013-10-27 08:21 | 只看該作者
C 語言 程式設計，執行 十億個 家法運算，
只需要 4.8秒鐘
天下為公

TOP

sjgau

帖子
145 
主題
45 
精華
0 
積分
190 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2013-10-18 
最後登錄
2014-3-29 
9#
發表於 2013-10-27 08:20 | 只看該作者
  1. #if 0

  3. s1= 1382833070, s2= 778

  5. s2 < 0, . . .

  7. s1= 4, s2= 812
  8. sum= 5.000000E+017
  9. 請按任意鍵繼續 . . .

  11. #endif
  12. // ----------------------------------------------

  14. #include <stdio.h>
  15. #include <stdlib.h>
  16. #include <sys/timeb.h>

  18. int main(int argc, char *argv[])
  19. {
  20.    struct timeb now;
  21.    int s1, s2;
  22.    
  23.    ftime(&now);
  24.    s1= now.time;
  25.    s2= now.millitm;
  26.    
  27.    printf("s1= %d, s2= %d \n", s1, s2);
  28.    // system("pause");
  29.    // -------------------------------------------
  30.    
  31.    double sum;
  32.    int no, i;
  33.    
  34.    no= 1000000000;
  35.    sum= 0.0;
  36.    for (i=1;i<=no;i++) {
  37.        sum= sum + i;
  38.    }
  39.    
  40.    ftime(&now);
  41.    s1= now.time - s1;
  42.    s2= now.millitm - s2;
  43.    if (s2 < 0) {
  44.       printf("\n s2 < 0, . . . \n");
  45.       s2+= 1000;
  46.       s1--;
  47.    }
  48.    
  49.    printf("\n s1= %d, s2= %d \n", s1, s2);
  50.    printf(" sum= %.6lE \n", sum);
  51.    system("pause");
  52.    
  53.    return 0;
  54. }
複製代碼
回復 1# sjgau
天下為公

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
8#
發表於 2013-10-25 13:45 | 只看該作者
回復 8# sjgau


公司電腦 I5 [email protected] 跑 1.918秒
與家裡電腦(低階CPU)的速度不會差異很多
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

sjgau

帖子
145 
主題
45 
精華
0 
積分
190 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2013-10-18 
最後登錄
2014-3-29 
7#
發表於 2013-10-25 11:52 | 只看該作者
  1. Function time1() As Long
  2.    Dim t1 As Double
  3.    Dim t2 As Long
  4.    
  5.    t1 = Timer
  6.    t2 = Int(t1 * 1000# + 0.5)
  7.    ' get milli- seconds
  8.    
  9.    time1 = t2
  10. End Function


  13. Function time2(t1 As Long) As Double
  14.    Dim t2 As Long
  15.    Dim dt As Double
  16.    
  17.    t2 = time1()
  18.    dt = (t2 - t1) / 1000#
  19.    ' get seconds
  20.    
  21.    
  22.    ' dt must >= 0.0
  23.    If (dt < 0#) Then
  24.       dt = dt + 1# * 24 * 60 * 60
  25.       
  26.    End If
  27.    time2 = dt
  28. End Function


  31. Sub test1125()
  32.    Dim no As Long, t1 As Long, t2 As Long, i As Long
  33.    Dim dt As Double, ct As Integer
  34.    Dim sum As Double
  35.    
  36.    no = 100000000
  37.    ct = 5
  38.    
  39.    While (no > 10)
  40.       ct = ct + 1
  41.       t1 = time1()
  42.          sum = 0#
  43.          For i = 1 To no
  44.             sum = sum + i
  45.             
  46.          Next i
  47.       dt = time2(t1)
  48.       
  49.       Cells(ct, 1) = no
  50.       Cells(ct, 2) = sum
  51.       Cells(ct, 3) = dt
  52.       
  53.       no = no / 2
  54.    Wend
  55.    
  56.    MsgBox ("Done! ")
  57. End Sub
複製代碼
回復 6# ML089
天下為公

TOP

sunnyso

帖子
605 
主題
92 
精華
0 
積分
648 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
50 
性別
男 
來自
macau 
註冊時間
2013-4-5 
最後登錄
2019-2-10 

熱烈參與勳章好學求知勳章
6#
發表於 2013-10-24 01:09 | 只看該作者
我的是core T9300
ss

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
5#
發表於 2013-10-23 23:02 | 只看該作者
我的舊電腦竟然可以跑 2.05秒
CPU [email protected]
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
4#
發表於 2013-10-23 21:27 | 只看該作者
回復 2# sunnyso
前輩!
        不會吧!小弟的只要2.9296875
        這是怎麼回事呢?!!

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
12
返回列表 上一主題