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

高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

76: 2024/08/17(土)15:09:03.74 ID:dkCzRgHk(3/4) AAS
>>75
で、尿瓶チンパンジジイはこれはいつになったら解けるの？

①√2は無理数であることを証明せよ。

②1+2+…+2024は何桁の整数か。

107(2): 2024/08/20(火)23:02:05.74 ID:3diBYk2P(1) AAS
冒頭、
>> このスレは医者・東大卒の人物専用スレです。
>> その他の人が書き込むことは許されません。
とあるので、許されないのかもしれませんが、向こうに書き込むよりはましかと思いこちらに投稿します。

>> 答に自信が持てないので質問します。
>>
>> 自民党総裁選は候補者11人という。
...
>> 　　　　　199602482890927685979724552820321419790
>> Out[14]= ----------------------------------------
>> 1330279464729113309844748891857449678409
>>
>> で合っているでしょうか？

私も自信があるわけではないが、コードと得た答えを記します。

p[a_,b_]:=p[a,b]=If[a==b,1-(2^a-2)/3^(a-1),Binomial[a,b]/3^(a-1)]

m=11;
f=Flatten[Table[{m,m-x1,m-x2,m-x3,m-x4,m-x5,m-x6,m-x7,m-x8,m-x9,1},
{x1,0,m-1},{x2,x1,m-1},{x3,x2,m-1},{x4,x3,m-1},{x5,x4,m-1},
{x6,x5,m-1},{x7,x6,m-1},{x8,x7,m-1},{x9,x8,m-1}],8];

Total[Product[p[#[[k]],#[[k+1]]],{k,1,10}] & /@f]//InputForm
449687340186660888579056289638229806808082/2909321189362570808630465826492242446680483

179: 2024/08/26(月)08:00:26.74 ID:eNo86RHt(1) AAS
>>167
そりゃいるよ
高校数学の質問スレで出題だのプログラミング言語だのやり始める奴すらいるんだから

212: 2024/08/31(土)09:48:54.74 ID:eB+VMmt6(1) AAS
>>211
gas chromatographic detectorのことなんだよな～
そんなんもわからないなんて私立文系？

375: 2024/12/05(木)12:36:37.74 ID:YJ2FHyON(1/2) AAS
(* 1から2024までの整数から12個を選び(同じ数があってもよい）その合計が5の倍数になる確率を求めなさい。 *)
solve[nn_,n_,m_]:=(
t1=Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1];
t2=Table[If[#==0,m,#]& /@ t1[[j]],{j,1,Length@t1}];
{q,r}=QuotientRemainder[nn,m];
c=Flatten@{Table[q+1,r],Table[q,m-r]};
Total@Table[n!/Times@@(Values@Counts@t2[[j]]!) Product[c[[i]],{i,t2[[j]]}],{j,1,Length@t2}]/nn^n
)

473: 2024/12/28(土)12:27:13.74 ID:ABHDoLY/(2/3) AAS
sim=\(){
h12=c(10,9) # bout3
h23=c(8,7) # bout1
h13=c(6,5) # bout2

bout=1
last_winner=0
flg= FALSE
count=0
while(!flg){
count=count+1
if(bout==1){
i=2-rbinom(1,1,h23[1]/sum(h23))
h23[i]=h23[i]+1
winner=c(2,3)[i]
bout=c(2,3)[-i]
}
if(bout==2){
i=2-rbinom(1,1,h13[1]/sum(h13))
h13[i]=h13[i]+1
winner=c(1,3)[i]
bout=c(1,3)[-i]
}
if(bout==3){
i=2-rbinom(1,1,h12[1]/sum(h12))
h12[i]=h12[i]+1
winner=c(1,2)[i]
bout=c(1,2)[-i]
}
flg <- winner==last_winner
last_winner=winner
}
c(winner=winner,count=count)
}

t(replicate(100,sim()))

499: 2024/12/31(火)23:12:32.74 ID:PjhLbT7v(1) AAS
>>497
さすが答えの意味分かってないwww

578: 01/16(木)13:07:49.74 ID:p/YB+Wu5(1) AAS
>>577
結局トルバブタンってなんの薬だよ？
やっぱり脳内医療なのか？ww
保育園すら卒業できないみたいだね

648: 02/02(日)11:25:18.74 ID:o56m1ZG3(1) AAS
>>647
キモッ！

767: 03/25(火)19:45:24.74 ID:JvJVqzfB(5/6) AAS
分け方の最後の30通りを列挙
[1,] 赤黒黒 | 赤黒青 | 赤赤白白
[2,] 赤赤黒 | 黒白白 | 赤赤黒青
[3,] 赤赤白 | 黒黒白 | 赤赤黒青
[4,] 赤黒黒 | 赤白白 | 赤赤黒青
[5,] 赤黒白 | 赤黒白 | 赤赤黒青
[6,] 赤赤黒 | 黒白青 | 赤赤黒白
[7,] 赤赤白 | 黒黒青 | 赤赤黒白
[8,] 赤赤青 | 黒黒白 | 赤赤黒白
[9,] 赤黒黒 | 赤白青 | 赤赤黒白
[10,] 赤黒白 | 赤黒青 | 赤赤黒白
[11,] 赤赤黒 | 白白青 | 赤赤黒黒
[12,] 赤赤白 | 黒白青 | 赤赤黒黒
[13,] 赤赤青 | 黒白白 | 赤赤黒黒
[14,] 赤黒白 | 赤白青 | 赤赤黒黒
[15,] 赤黒青 | 赤白白 | 赤赤黒黒
[16,] 赤黒黒 | 黒白白 | 赤赤赤青
[17,] 赤黒白 | 黒黒白 | 赤赤赤青
[18,] 赤白白 | 黒黒黒 | 赤赤赤青
[19,] 赤黒黒 | 黒白青 | 赤赤赤白
[20,] 赤黒白 | 黒黒青 | 赤赤赤白
[21,] 赤黒青 | 黒黒白 | 赤赤赤白
[22,] 赤白青 | 黒黒黒 | 赤赤赤白
[23,] 赤黒黒 | 白白青 | 赤赤赤黒
[24,] 赤黒白 | 黒白青 | 赤赤赤黒
[25,] 赤黒青 | 黒白白 | 赤赤赤黒
[26,] 赤白白 | 黒黒青 | 赤赤赤黒
[27,] 赤白青 | 黒黒白 | 赤赤赤黒
[28,] 黒黒黒 | 白白青 | 赤赤赤赤
[29,] 黒黒白 | 黒白青 | 赤赤赤赤
[30,] 黒黒青 | 黒白白 | 赤赤赤赤

792: 04/18(金)09:47:41.74 ID:zkzxbWl3(1) AAS
数学のやり方で参考になるブログ見つけた

外部ﾘﾝｸ:lasallelasalle.hatenablog.jp

804: 04/30(水)04:58:45.74 ID:wedVH8wl(2/10) AAS
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

887: 06/19(木)12:12:34.74 ID:7SdgEhPl(1/2) AAS
>>885
アンタ医者なんかじゃないだろ

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.031s