名前
題名
▼ 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 --------------------------------------------------------------------- > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link