23 lines
454 B
Plaintext
23 lines
454 B
Plaintext
void local fn Euler
|
|
long n = 10000000, k
|
|
double a, h = 1.0
|
|
|
|
for k = 2 to n
|
|
h += 1 / k
|
|
next
|
|
a = log( n + 0.5 + 1 / ( 24 * n ) )
|
|
|
|
printf @"From the definition, err. 3e-10"
|
|
printf @"Hn %.15f", h
|
|
printf @"gamma %.15f", h - a
|
|
printf @"k = %ld\n", n
|
|
printf @"C %.15f", 0.5772156649015328
|
|
end fn
|
|
|
|
CFTimeInterval t
|
|
t = fn CACurrentMediaTime
|
|
fn Euler
|
|
printf @"\vCompute time: %.3f ms",(fn CACurrentMediaTime-t)*1000
|
|
|
|
HandleEvents
|