Исправление thunar, (текущая версия) :
Вероятность столновения?
сечения же.
И почему бы вместо таблиц не воспользоваться логарифмической интерполяцией?
потому что функция log() медленно считает.
real::t0,t1,R
integer::i
call cpu_time(t0)
do i=1,10000000
R=rand()
R=sqrt(R)
enddo
call cpu_time(t1)
print*,t1-t0
call cpu_time(t0)
do i=1,10000000
R=rand()
R=log(R)
enddo
call cpu_time(t1)
print*,t1-t0
end
0.13000000
0.44999999
Исходная версия thunar, :
И почему бы вместо таблиц не воспользоваться логарифмической интерполяцией?
потому что функция log() медленно считает.
real::t0,t1,R
integer::i
call cpu_time(t0)
do i=1,10000000
R=rand()
R=sqrt(R)
enddo
call cpu_time(t1)
print*,t1-t0
call cpu_time(t0)
do i=1,10000000
R=rand()
R=log(R)
enddo
call cpu_time(t1)
print*,t1-t0
end
0.13000000
0.44999999