| [8404] VAX-11との演算速度比較 | 返信 削除 |
| 2015/1/21 (水) 22:48:27 Mr.XRAY |
|
> VAX-11 (バックスイレブン) >しかし，今使っている「パソコン」よりは遅いのです (^^; その当時の行ったベンチマークテストの結果がありましたので， ちょっと，現在の自宅のマシンと比較してみました． テストコードです．畳み込み積分という計算を実行するものです． 残念ながら，VAX-11 でのテストは，計測時間が 1 桁しか精度がありません． 結果，現在の自宅のマシンの方が，約 1600 倍，計算速度が速いことになります． //----------------------------------------------------------------------------- // VAX-11/780 FP(浮動小数点演算)ユニット付きの場合 // Kのループが1回だけで0.03秒なので下のコードに相当する処理だと300秒となる // // uses にMMSystemが必要 //----------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var CONV : array [1..64] of Real; PROJ : array [1..64] of Real; FILT : array [1..64] of Real; I : Integer; J : Integer; L : Integer; K : Integer; TimeStart : Cardinal; LTime : Real; begin TimeStart := timeGetTime; for K := 1 to 100000 do begin for I := 1 to Length(CONV) do begin CONV[I] := 1; PROJ[I] := 1; FILT[I] := 1; end; L := 1; for J := 1 to Length(CONV) do begin CONV[J] := 0; for I := 1 to Length(CONV) do begin CONV[J] := CONV[J] + PROJ[I] * FILT[Integer(Abs(I - L)) + 1]; end; L := L + 1; end; end; LTime := (timeGetTime - TimeStart) / 1000; Panel1.Caption := FormatFloat('##0.000', LTime); end; 当時のベンチマークテストに使った Fortran のコードです． Fortarn は FORTRAN 77 (フォートラン セブンセブン) です． C --------------------------------------------------------------------- C TEST2 C REAL*4 TEST REAL*4 CONV(64),PROJ(64),FILT(64) DO 40 I=1,64 CONV(I)=1 PROJ(I)=1 FILT(I)=1 40 CONTINUE TYPE *,'----> START ' L=1 DO 60 J=1,64 CONV(J)=0 DO 70 I=1,64 CONV(J)=CONV(J)+PROJ(I)*FILT(IABS(I-L)+1) 70 CONTINUE L=L+1 60 CONTINUE TYPE *,'----> END' STOP END C ---------------------------------------------------------------------  |