Высокопроизводительные вычисления на кластерах. Беликов Д.А - 78 стр.

UptoLike

78
N=2
h=0.5*(d-c)
Do while(abs(sum1-sum2).gt.eps*3)
Sum1=sum2
h=h/2
N=N*2
Sum2=Sum1*0.5
Do i=1,N-1,2
Sum2=sum2+f(x,c+i*h)*h
End do
End do
S=sum2
return
end
Приведем результаты расчета программы povtor:
Количество ПЭ size = 1
integral = 1.06666666825804
time = 6.42147493362427
Количество ПЭ size = 2
integral = 1.06666666825803
time = 3.21070718765259
Количество ПЭ size = 4
integral = 1.06666666825802
time = 2.75767612457275
Количество ПЭ size = 8
integral = 1.06666666825802
time = 1.69904017448425
Количество ПЭ size = 16
integral = 1.06666666825802
time = 0.851202011108398