eGospodarka.pl
eGospodarka.pl poleca

eGospodarka.plGrupypl.comp.programmingPorównanie szybkości mnożenia macierzy w CPP i PASCAL › Re: Porównanie szybkości mnożenia macierzy w CPP i PASCAL
  • Path: news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.PO
    STED!not-for-mail
    From: Fil <f...@p...onet.pl>
    Newsgroups: pl.comp.programming
    Subject: Re: Porównanie szybkości mnożenia macierzy w CPP i PASCAL
    Date: Wed, 02 Feb 2011 18:13:03 +0100
    Organization: http://onet.pl
    Lines: 27
    Message-ID: <iic3cj$4sn$1@news.onet.pl>
    References: <iic1t4$umq$1@news.onet.pl>
    NNTP-Posting-Host: 095160075158.kielce.vectranet.pl
    Mime-Version: 1.0
    Content-Type: text/plain; charset=UTF-8; format=flowed
    Content-Transfer-Encoding: quoted-printable
    X-Trace: news.onet.pl 1296666835 5015 95.160.75.158 (2 Feb 2011 17:13:55 GMT)
    X-Complaints-To: n...@o...pl
    NNTP-Posting-Date: Wed, 2 Feb 2011 17:13:55 +0000 (UTC)
    User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; pl; rv:1.9.2.13) Gecko/20101207
    Thunderbird/3.1.7
    In-Reply-To: <iic1t4$umq$1@news.onet.pl>
    Xref: news-archive.icm.edu.pl pl.comp.programming:188548
    [ ukryj nagłówki ]

    Witam jeszcze raz!

    Przetestowałem jeszcze takie coś:
    TA=array[0..1999,0..299] of double;
    TB=array[0..299,0..1999] of double;
    TC=array[0..1999,0..1999] of double;

    procedure MulMatrix2(N, Q, M:integer; var T1:TA; var T2:TB; var T3:TC);
    var
    i, j, k:integer;
    begin
    for i := 0 to N-1 do
    for j := 0 to M-1 do begin
    T3[i, j] := 0;
    for k := 0 to Q-1 do T3[i, j] := T3[i, j] + T1[i, k] * T2[k, j];
    end;
    end;

    Czas: 5,2s

    Pomijając koszmarek implementacji... czas nadal dłuższy od CPP o ok. 0.7s.

    Pozdrawiam,
    Fil.

Podziel się

Poleć ten post znajomemu poleć

Wydrukuj ten post drukuj


Następne wpisy z tego wątku

Najnowsze wątki z tej grupy


Najnowsze wątki

Szukaj w grupach

Eksperci egospodarka.pl

1 1 1

Wpisz nazwę miasta, dla którego chcesz znaleźć jednostkę ZUS.

Wzory dokumentów

Bezpłatne wzory dokumentów i formularzy.
Wyszukaj i pobierz za darmo: