高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
8(1): 2024/08/09(金)18:18:03.34 ID:wVA5P02N(1) AAS
兄より優れた弟など存在しないってジャギさんが言ってた
60: 2024/08/16(金)14:25:35.34 ID:D3c2lioP(2/2) AAS
スレタイ以外のことでいくら発狂したところで無視されるのは当たり前だろマヌケ
無理数の>>31すら答えられないのかよ？
103: 2024/08/20(火)08:08:58.34 ID:O+DDQLmu(2/4) AAS
jan[n_,m_] := (
If[m==0 || m>n, Return[0]];
If[m==n,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
n=11;
pn={jan[n,1]};
Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;
省11
106(1): 2024/08/20(火)08:24:57.34 ID:cBs2zsg2(1) AAS
ここまで教えてもらってまだできんww wwwwww
無能wwwwwwwwwwwwwww
121: 2024/08/21(水)20:34:12.34 ID:YldtGvrJ(1) AAS
逆に言えば、僕らはそれを隠してたんだね
233(1): 2024/10/24(木)16:47:36.34 ID:pQNl9nxD(1) AAS
(*
血液型 AB型10人、B型20人、O型30人、A型40人の100人から無作為に別人を4人選ぶとき
選ばれた4人の血液型がすべて異なる確率を算出せよ。
*)
a=Flatten@{Table[1,10],Table[2,20],Table[3,30],Table[4,40]};
N@Mean@Table[Boole[Length@Union@RandomSample[a,4]==4],1*^6]
420: 2024/12/11(水)19:03:34.34 ID:qk9aTmTZ(6/6) AAS
ネズミと試薬の組み合わせ行列から単射になるかを判定する関数はできたが
総当たりするには数が多すぎる。
"
行：ネズミ 列：混合試薬 から 単射 か否かを判定する。
試薬数が不揃いなときはNAを入れる
[,1] [,2] [,3] [,4]
[1,] 1 2 3 8
省33
519: 01/08(水)20:30:20.34 ID:SKdwPI7I(4/4) AAS
>>517
期待値の差よりも
回数の差の分布の方が直感に近いな。
525: 01/09(木)08:14:47.34 ID:o9+qLk7l(1/2) AAS
limit = 10000
max_count = 0
best_n = 0
for (n in 1:(limit - 1)) {
count = 0
for (y in 1:(n - 1)) {
if ((n*y) %% (n-y) ==0 & n!=y){ # x が整数になる条件
省10
670: 02/06(木)11:03:45.34 ID:TtoC1Krw(1) AAS
臨床応用問題（別名：裏口容疑者判定問題）
インフルエンザの咽頭画像AI診断支援機器(AI群)は
従来のイムノクロマト法による抗原検査(immuno群)よりも発症12時間以内での感度が高いという。
ある試験ではAI群14/17 immuno群11/17であった。
【問題】AI群の感度がimmuno群の1.5倍以上である確率、2倍以上である確率を求めよ。
算出に必要な条件は適宜設定してよい。
768: 03/25(火)20:20:38.34 ID:JvJVqzfB(6/6) AAS
mat1=t(apply(ans1,1, \(x) c(x,fn_rest(v,x))))
M1=matrix(c("赤","黒","白","青")[mat1],ncol=10) |> noquote()
L1=cbind(M1[,1],'|',M1[,2],'|',M1[,3:10]) |> noquote() ; L1
mat2=t(apply(ans2,1, \(x) c(x,fn_rest(v,x))))
M2=matrix(c("赤","黒","白","青")[mat2],ncol=10) |> noquote()
L2=cbind(M2[,1],'|',M2[,2:3],'|',M2[,4:10]) |> noquote() ; L2
mat3=t(apply(ans3,1, \(x) c(x,fn_rest(v,x))))
省21
849: 05/25(日)06:42:27.34 ID:P4nhnL8B(3/6) AAS
>>847
このプロトタイプをAIに与えて描画機能やコメントをつけてもらった。
beta.parameter <- function(lower, upper, credMass = 0.95, verbose = FALSE) {
# Helper function to convert decimal numbers to fraction strings using MASS::fractions
fractionStr <- function(x) {
as.character(MASS::fractions(x))
}
省24
864: 06/03(火)23:40:25.34 ID:CfA5PBxZ(2/2) AAS
k=10
m=400
Nmax=1000
sim = \(){
N=sample(m:Nmax,1)
if(max(sample(1:N,k))==m) return(N)
}
省4
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.032s