Программа на Паскаль Измерение полного времени выполнения программы

Текст программы:

1. program erfd3;

2. uses sampler;

3. const PName:String[8] = 'GAUSS.PAS';

4. const count =3;

5. var x,er,ec : real;

6. done : boolean;

7. function erf(x: real): real;

8. const sqrtpi = 1.7724538;

9. tol = 1.0E-4;

10. var x2,sum,sum1,term: real;

11. k,i : integer;

12. begin

13. x2:=x*x;

14. sum:=x;

15. term:=x;

16. i:=0;

17. repeat

18. i:=i+1;

19. sum1:=sum;

20. term:=2.0*term*x2/(1.0+2.0*i);

21. sum:=term+sum1

22. until term<tol*sum;

23. erf:=2.0*sum*exp(-x2)/sqrtpi

24. end; { erf }

26. function erfc(x: real): real;

27. const sqrtpi = 1.7724538;

28. terms = 12;

30. var x2,u,v,sum : real;

31. i : integer;

32. begin

33. x2:=x*x;

34. v:=1.0/(2.0*x2);

35. u:=1.0+v*(terms+1.0);

36. for i:=terms downto 1 do

37. begin

38. sum:=1.0+i*v/u;

39. u:=sum

40. end;

41. erfc:=exp(-x2)/(x*sum*sqrtpi)

42. end; { ercf }

44. var k : integer;

45. begin { main }

46. SAMPLE(PName,46);

47. randomize;

48. done:=false;

49. for k:=1 to count do

50. begin

51. x:=random(100)/100;

52. if x<0.0 then done:=true

53. else

54. begin

55. if x=0.0 then

56. begin

57. er:=0.0;

58. ec:=1.0

59. end

60. else

61. begin

62. if x<1.5 then

63. begin

64. er:=erf(x);

65. ec:=1.0-er

66. end

67. else

68. begin

69. ec:=erfc(x);

70. er:=1.0-ec

71. end { if }

72. end;

73. end { if }

74. end;

75. SAMPLE(PName,75);

76. end.

Результаты профилирования:

----------------------------------------------------------------------

NN Имя обработанного файла

----------------------------------------------------------------------

1. MMM20.PA

----------------------------------------------------------------------

Таблица с результатами измерений ( используется 2 из 416 записей )

----------------------------------------------------------------------

Исх.Поз. Прием.Поз. Общее время(мкс) Кол-во прох. Среднее время(мкс)

----------------------------------------------------------------------

1 : 56 1 : 91 36.88 1 36.88

----------------------------------------------------------------------

Измерение времен выполнения функциональных участков

Программа:

1. program erfd3;

2. uses sampler;

3. const PName:String[8] = 'GAUSS.PAS';

4. const count =3;

5. var x,er,ec : real;

6. done : boolean;

7. function erf(x: real): real;

8. const sqrtpi = 1.7724538;

9. tol = 1.0E-4;

10. var x2,sum,sum1,term: real;

11. k,i : integer;

12. begin

13. x2:=x*x;

14. SAMPLE(PName,14);

15. sum:=x;

16. term:=x;

17. i:=0;

18. SAMPLE(PName,18);

19. repeat

20. SAMPLE(PName,20);

21. i:=i+1;

22. sum1:=sum;

23. term:=2.0*term*x2/(1.0+2.0*i);

24. sum:=term+sum1

25. SAMPLE(PName,25);

26. until term<tol*sum;

27. SAMPLE(PName,27);

28. erf:=2.0*sum*exp(-x2)/sqrtpi;

29. SAMPLE(PName,29);

30. end; { erf }

32. function erfc(x: real): real;

33. const sqrtpi = 1.7724538;

34. terms = 12;

36. var x2,u,v,sum : real;

37. i : integer;

38. begin

39. SAMPLE(PName,39);

40. x2:=x*x;

41. v:=1.0/(2.0*x2);

42. u:=1.0+v*(terms+1.0);

43. SAMPLE(PName,43);

44. for i:=terms downto 1 do

45. begin

46. sum:=1.0+i*v/u;

47. u:=sum

48. end;

49. SAMPLE(PName,49);

50. erfc:=exp(-x2)/(x*sum*sqrtpi)

51. SAMPLE(PName,51);

52. end; { ercf }

54. var k : integer;

55. begin { main }

56. SAMPLE(PName,56);

57. randomize;

58. done:=false;

59. SAMPLE(PName,59);

60. for k:=1 to count do

61. begin

62. SAMPLE(PName,62);

63. x:=random(100)/100;

64. if x<0.0 then done:=true

65. else

66. begin

67. if x=0.0 then

68. begin

69. er:=0.0;

70. ec:=1.0

71. end

72. else

73. begin

74. if x<1.5 then

75. begin

76. SAMPLE(PName,76);

77. er:=erf(x);

78. ec:=1.0-er

79. SAMPLE(PName,79);

80. end

81. else

82. begin

83. SAMPLE(PName,83);

84. ec:=erfc(x);

85. er:=1.0-ec

86. SAMPLE(PName,86);

87. end { if }

88. end;

89. end { if }

90. end;

91. SAMPLE(PName,91);

92. end.