[過去ログ]
当直医のスレ Part24 [無断転載禁止]©2ch.net (1002レス)
当直医のスレ Part24 [無断転載禁止]©2ch.net http://egg.5ch.net/test/read.cgi/hosp/1506113587/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
962: 卵の名無しさん [sage] 2017/10/14(土) 22:23:32.23 ID:+G1xzFga 中国の剰余定理 証明を読んでから自分で実感できると楽しい。 expand.gridが使えるようになったので群論の理解が進む。 証明をすっ飛ばして、数値一致したら納得しているところもあるのだが。 mod13,mod15,mod17 (互いに素) でRに計算させてみる。 > NZ <- function(x,y,z, l=13,m=15,n=17){ + lmn=l*m*n + N=0:(lmn-1) + .M=rbind(nl=N%%l,nm=N%%m,nn=N%%n) + which(apply((.M - c(x,y,z)),2,function(x) sum(x^2))==0)-1 + } > l=13 ; m=15 ; n=17 > ll=0:(l-1); mm=0:(m-1) ; nn=0:(n-1) > a=expand.grid(ll,mm,nn) > length(unique(mapply(NZ,a[,1],a[,2],a[,3]))) == l*m*n [1] TRUE http://egg.5ch.net/test/read.cgi/hosp/1506113587/962
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 40 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.152s*