>>234
2π-355/113から355/113の間にある分数を虱潰しに探させて最初に見つかった分数を出してみた。



options(digits=16)

a=355
b=113
(U=a/b) # 3.141592 92
(L=2*pi-a/b) # 3.141592 39

f <- function(n){
m=0
x=m/n
while(x<U){
if(L<x) return(m-1)
x=m/n
m=m+1
}
return(NULL)
}

n=1
while(is.null(f(n))){
if( !is.null(f(n)) ) break
n=n+1
}
cat(f(n),'/',n,'\n')
f(n)/n

> cat(f(n),'/',n,'\n')
52163 / 16604
> f(n)/n
[1] 3.141592387376536