3x ≡ 7(mod2)
2x ≡ 5(mod3)
5x ≡ 4(mod7)
以下に示すように、Rでこの合同を解決しました
> modlin(3,7,2)
[1] 1
> modlin(2,5,3)
[1] 1
> modlin(5,4,7)
[1] 5
> a<-c(1,1,5)
> m<-c(2,3,7)
> chinese(a,m)
[1] 19
> prod(2,3,7)
[1] 42
ということで、正解は x=19(mod 42) でした
この場合、GCD(2,3,7)=1 とすると、ax≡b(mod p), cx≡d(mod q), gx≡h(mod s) で GCD(p,q,s) は1に等しい場合、中国剰余定理の拡張を使用してこの方程式を手で解く方法は知っていますが、Rではわかりません。Rで解く方法を教えてください??