4. Профилирование программ «Main_p» и «Main_c»
Для получения корректных результатов профилирования необходимо исключить влияние процедур ввода параметров от пользователя. Таким образом, в качестве «зон» профилирования были выбраны строчки вычислительных процедур.
Исходная программа на Паскале показала следующие результаты:
Time Counts
uses Crt;
const max = 20;
cyc_count = 20;
type index = 1..max;
ary = array[index] of real;
var x,y : ary;
n : integer;
seed: real;
{-------------------}
sumx,sumy: real;
sumxy, sumx2: real;
k: integer;
resa,resb: real;
cycle: integer;
function random(dummy: integer): real;
const pi = 3.14159;
var x : real; i : integer;
0.0007 200 begin
0.0006 200 x:=seed+pi;
0.0008 200 x:=exp(5.0*ln(x));
0.0006 200 seed:=x-trunc(x);
0.0008 200 random:=seed
0.0018 200 end;
procedure get_data(var x,y: ary; var n: integer);
const a = 5.0; b = 2.0;
var i,j : integer;
fudge : real;
0.0000 20 BEGIN
0.0001 20 fudge := 0.5;
0.0000 20 n := 10;
0.0000 20 for i:=1 to n do begin
0.0019 200 j:=n+1-i;
0.0552 200 x[i]:=j;
0.0582 200 y[i]:=(a*j + b) * (1.0 + (2.0 * random(0) - 1.0) * fudge
0.0011 200 end
0.0000 20 END;
procedure write_data;
{ print out the answers }
var i : integer;
0.0000 20 BEGIN
0.0003 20 writeln;
0.0002 20 writeln(' I X Y');
0.0000 20 for i:=1 to n do
0.0036 200 writeln(i:3,x[i]:8:1,y[i]:9:2);
0.0002 20 writeln
0.0000 20 END;
0.1090 1 BEGIN
0.0000 1 for cycle := 1 to cyc_count do begin
0.0000 20 ClrScr;
0.0000 20 seed:=4.0;
0.0000 20 get_data(x,y,n);
0.0000 20 write_data;
{----------------------------------------- Calculative part star
{ Accumulating statistics }
0.0000 20 sumx := 0; sumy := 0; sumxy := 0; sumx2 := 0;
0.0000 20 for k:=1 to n do begin
0.0006 200 sumx := sumx + x[k];
0.0006 200 sumy := sumy + y[k];
0.0005 200 sumxy := sumxy + x[k] * y[k];
0.0001 200 sumx2 := sumx2 + x[k] * x[k];
0.0008 200 end;
{ Recieving verdict }
0.0000 20 resa := (sumxy - sumx*sumy/n) / (sumx2 - sumx*sumx/n);
0.0000 20 resb := (sumy - resa * sumx) / n;
0.0005 20 writeln('Approximated with y=ax+b where a = ',resa,', b=',resb);
0.0000 20 end;
0.0010 1 END.
Execution Profile
Total time: 0.2409 sec
% of total: 100%
Исходная программа на Си ++ показала следующие результаты:
Time Counts
#include <Math.h>
#include <IOStream.h>
#include <Conio.h>
const pi = 3.14159;
const max = 20;
const cyc_count = 20;
float seed;
0.0001 200 float random(float dummy) {
float x; int i;
0.0551 200 x = seed + pi;
0.0558 200 x = exp(5.0 * log(x));
0.0003 200 seed = x - int(x);
0.0551 200 return seed;
0.0001 200 }
0.0000 20 void get_data(float *x, float *y, int &n) {
0.0000 20 const a = 5.0;
0.0000 20 const b = 2.0;
int i,j;
0.0000 20 float fudge = 0.5;
0.0000 20 n = 10;
0.0000 20 for (i=1; i<=n; i++) {
0.0001 200 j = n + 1 - i;
0.0001 200 x[i] = j;
0.0003 200 y[i] = (a*j + b) * (1.0 + (2.0 * random(0) - 1.0) * fudge)
}
0.0000 20 }
0.0000 20 void write_data(float *x, float *y, int n) {
int i;
0.0000 20 for (i = 1; i <= n; i++)
0.1125 200 cout << "X[" << i << "]=" << x[i] << "\t\tY[" << i << "]=" <<
0.0000 20 }
0.0000 1 void main() {
float x[max];
float y[max];
int n;
float sumx,sumy;
float sumxy, sumx2;
int k;
float resa,resb;
int cycle;
0.0000 1 for(cycle = 0; cycle < cyc_count; cycle++) {
0.0000 20 clrscr();
0.0000 20 seed = 4.0;
0.0000 20 get_data(x,y,n);
0.0000 20 write_data(x,y,n);
//----------------------------------------- Calculative pa
// Accumulating statistics
0.0000 20 sumx = 0; sumy = 0; sumxy = 0; sumx2 = 0;
0.0000 20 for (k=1; k<=n; k++) {
0.0001 200 sumx += x[k];
0.0002 200 sumy += y[k];
0.0001 200 sumxy += x[k] * y[k];
0.0001 200 sumx2 += x[k] * x[k];
}
// Recieving verdict
0.0000 20 resa = (sumxy - sumx*sumy/n) / (sumx2 - sumx*sumx/n);
0.0000 20 resb = (sumy - resa * sumx) / n;
0.0000 20 cout << "Approximated with y=ax+b where a = " << resa << "
}
0.0000 1 }
Execution Profile
Total time: 1.6264 sec
% of total: 99 %
Выводы
Можно заметить, что программа на Си ++ выполняется медленнее, чем программа на Паскале. Для обеих программ можно предложить следующие незначительные улучшения:
исключить вызов функции ClrScr(). Возможно, это приведёт к некоторому засорению экрана ненужной информацией, зато позволит выиграть несколько долей секунды при выполнении;
исключить вызов функции Write_Data(). Эта функция выполняет, по большому счёту, отладочные действия и не несёт принципиальной нагрузки;
убрать передачу параметра в функцию Random(). Назначение этого параметра до сих пор остаётся загадкой;
сократить текст, выводимый на экран при получении результатов вычислений. Достаточно выдать на экран просто два числа, разделённые пробелом.
Тем не менее, после выполнения всех этих улучшений время выполнения программы на Паскале сократилось по версии профилировщика с 0.2409 до 0.1572 Время работы программы на Си ++ сократилось с 1.6264 до 0.1879