高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

213: １３２人目の素数さん [sage] 2024/08/31(土) 10:17:02.47 ID:OqrM+pGd そもそも小学生にすら相手にされてない電卓チンパンだしなぁ http://rio2016.5ch.net/test/read.cgi/math/1723152147/213

517: １３２人目の素数さん [sage] 2025/01/08(水) 20:27:57.47 ID:SKdwPI7I >>513 1000万回のシミュレーション https://i.imgur.com/JKpHsKb.png https://i.imgur.com/A1NiFF0.png http://rio2016.5ch.net/test/read.cgi/math/1723152147/517

805: １３２人目の素数さん [sage] 2025/04/30(水) 05:14:16.47 ID:wedVH8wl options(warn = -1) alpha=0.05 sim=\(N=100){ A=sample(1:(N-2),1) # Ensure A leaves enough room for B and C remaining = N - A if(remaining > 1){ B=sample(1:(remaining-1),1) # Ensure B is at least 1 C=N-A-B ABC=c(A,B,C) abc=sapply(ABC,\(x) if(x > 0) sample(1:x,1) else 0) # Handle case where a group size might be 0 (though unlikely with the new A and B sampling) x=abc n=ABC contig=rbind(s=x,f=n-x) pg=chisq.test(contig,correct=FALSE)$p.value minpp=min(as.vector( pairwise.prop.test(x,n,correct=FALSE,p.adj="bon")$p.value),na.rm=TRUE) list(pg=pg,minpp=minpp,x=x,n=n) } else { # If A is too large, return NULL or some indicator of an invalid simulation return(NULL) } } res = sim() while(is.null(res) || res$pg < alpha | res$minpp > alpha) { res = sim() } res res = sim() while(is.null(res) || res$pg > alpha | res$minpp < alpha) { res = sim() } res http://rio2016.5ch.net/test/read.cgi/math/1723152147/805

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.027s