23/05/20 06:01:12.45 KI1a3bph.net
朝飯前にプログラム
> abs(1/7-142/999)
[1] 0.0007150007
> abs(1/7-143/999)
[1] 0.0002860003
>
> re=NULL
> for(m in 1:999){
+ for(n in 1:m){
+ a=abs(1/7- n/m)
+ if(a < (1/7-143/999)) re=rbind(re,c(m,n,a))
+ }
+ }
23/05/20 06:01:12.45 KI1a3bph.net
朝飯前にプログラム
> abs(1/7-142/999)
[1] 0.0007150007
> abs(1/7-143/999)
[1] 0.0002860003
>
> re=NULL
> for(m in 1:999){
+ for(n in 1:m){
+ a=abs(1/7- n/m)
+ if(a < (1/7-143/999)) re=rbind(re,c(m,n,a))
+ }
+ }