20/08/26 06:03:02.20 +5D/ly7R.net
>>260
>198もプログラムで直ぐに答がでる。
数値を変えても計算してくれるから実用的。
理論はあとからついてくる。
なんの役に立つのかは知らんが。
fn <- function(lo=355/113,up=22/7){
i=1
flg=FALSE
while(flg==FALSE){
for(j in 1:ceiling(i*up)){
flg = lo<j/i & j/i<up
if(flg==TRUE){
ans=paste0(j,'/',i)
break
}
}
i=i+1
}
print(ans)
invisible(c(j,i))
}