Версия для печати темы

Автор: sheka 13.04.2011 3:14

Автор: volvo 13.04.2011 3:32

Автор: sheka 13.04.2011 4:34

Время. Все дело во времени.

Вот как-то так:
type ta = array[1..1 .. maxint div sizeof(TType),1 .. maxint div sizeof(TType)] :TType;

Цель курсача:
сравнивание времени сортировки вектора, трехмерного массива разной формы. Суммарное количество элементов одинаковое.

Брр... скорее всего, я не тот вопрос задал. Вот "гвоздь программы":
На сколько я понимаЛ, обращение к элементу массива a^[1] должно было быть дольше чем b[1], но вот эта программка на миллионе проверок выдает результаты одинаковые, то чуть больше в одну сторону, то в другую. Так ли это на самом деле?

uses Dos;
uses Dos;

type
  pa = ^Ta;
  ta = array[1..maxint div sizeof(integer)] of integer;
  tb = array[1..1] of integer;
  tc = array[1..1, 1..1] of integer;

var
  a: pa;
  b: tb;
  c: tc;

  i,j: longint;
  x: integer;
  start: longint;

const
  n = 30000;

type
   TTime = record   {Тип для зберігання часу}
     Hours,           {години}
     Minutes,         {хвилини}
     Seconds,         {секунди}
     HSeconds: Word   {соті долі секунди}
    end;

var
   StartTime,FinishTime: TTime;

function ResTime(const STime, FTime: TTime): Longint;
{Визначає різницю між часом закінчення і часом старту алгоритму}
begin
  ResTime :=
   360000*(FTime.Hours    - STime.Hours  )+ {часы}
    6000*(FTime.Minutes  - STime.Minutes)+ {минуты}
     100*(FTime.Seconds  - STime.Seconds)+ {секунды}
         (FTime.HSeconds - STime.HSeconds) {сотые секунды}
end;


begin
  GetMem(a,1*sizeof(integer));
  a^[1] := 1;
  with StartTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  for i:=-n to n do
    for j:=-n to n do
    x := a^[1];
	with FinishTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  writeln(ResTime(StartTime, FinishTime));
  FreeMem(a,1*sizeof(integer));

  b[1] := 1;
  with StartTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  for i:=-n to n do
    for j:=-n to n do
    x := b[1];
	with FinishTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  writeln(ResTime(StartTime, FinishTime));

  c[1,1] := 1;
  with StartTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  for i:=-n to n do
    for j:=-n to n do
    x := c[1,1];
	with FinishTime do GetTime(Hours,Minutes,Seconds,HSeconds);
  writeln(ResTime(StartTime, FinishTime));
  readln;
end.

Автор: Lapp 13.04.2011 6:51

Разница во времени вряд ли велика и будет зависеть от оптимизации.

Цитата(sheka @ 13.04.2011 1:34)

Автор: sheka 14.04.2011 0:25

ДосБокс - для того, чтобы можно было посчитать время для массива 40*40*n (какое n - еще пока не придумал), но размер не очень большой.

Значит вы считаете, что скорость многоразового выполнения вот этого (того, что написано в каждой строчке)
многоразово a[i,j,k]
многоразово a[i][j][k]
многоразово a^[i]^[j]^[k]
однократно b := a^[i], а потом многоразово b^[j]^[k]
однократно с := a^[i]^[j], а потом многоразово с^[k]
будет одинаковой, т.е. разницей можно пренебречь даже для довольно малых размеров массива?

Ваше мнение очень важно, т.к. еще раз повторюсь, что цель курсача:
сравнивание времени сортировки вектора, трехмерного массива разной формы. Суммарное количество элементов одинаковое и если изменение времени будет как раз из-за того что я использовал как-то по разному обращение к элементам - это не хорошо.

Автор: volvo 14.04.2011 0:57

Разницей во времени обращения можно пренебречь в данном случае. В Release-сборке различия несущественны. Другое дело - что, когда ты начнешь решать свою задачу, может быть не тот результат который есть сейчас. Сейчас ты тестируешь скорость обращения к одному (причем первому) элементу массива. Как только начнется обращение к разным элементам - картина может чуть-чуть поменяться. Но не сильно, не беспокойся, я сделал несколько прогонов, отличия - в 3-5 единиц. Это, опять же, несущественно.

Можешь проверить не время 1 млн. обращений, а количество тактов на каждое (одно) обращение: http://volvo71.narod.ru/time_count.htm#time_rdtsc лежит функция. Тоже, после нескольких прогонов, увидишь, что средние значения примерно равны.

Автор: Lapp 14.04.2011 3:37

Цитата(sheka @ 13.04.2011 21:25)

Автор: sheka 14.04.2011 4:13

Автор: Lapp 14.04.2011 4:24

Цитата(sheka @ 14.04.2011 1:13)

ы.. тут ответ однозначный - Сдать

Автор: sheka 16.04.2011 5:30

Автор: Lapp 16.04.2011 10:17

Цитата(sheka @ 16.04.2011 2:30)