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

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

238: 2024/10/25(金)19:11 ID:AKAjfr56(2/2) AAS
１月から内視鏡バイトの勤務日をもう1日増やしてくれと打診された。
スタッフが優秀でストレスのない職場なので、次の医師がみつかるまで
という条件で引き受けた。
まあ、次の医師がみつかるのは新年度だろうな。
仕事をふやしても年金支給停止額が増えるだけ。

239: 2024/10/25(金)19:27 ID:tA8uN3sd(1) AAS
年金支給停止額が増えるなら喜んでやるだろ
やらない理由がなくなるんだから日本語くらい正しく使えよ
数学もまともにできないんだからさ

240: 2024/10/26(土)09:11 ID:DYbBtbTY(1/2) AAS
"
ある政党に100人の議員がいる。
個々の議員が裏金議員である可能性には何の情報もないためその確率を一様分布と仮定する。
無作為に10人を選んで調べたところ9人が裏金議員であった。
100人中の裏金議員の数の期待値と95%信頼区間を算出せよ。
算出法は好みの手法でよい。

"
rm(list=ls())
n100=100
n10=10
省14

241: 2024/10/26(土)11:11 ID:DYbBtbTY(2/2) AAS
中心極限定理を使わずに算出

rm(list=ls())

n100=100
n10=10
n9=9
sim=\(){
u=sum(runif(n100))
u10=sum(sample(0:1,n10,replace=TRUE,prob = c(n100-u,u)))
c(u,u10)
}
省7

242(1): 2024/10/26(土)18:10 ID:QUufrNke(1) AAS
n100=100;
n10=10;
n9=9;
sim[] :=(
u=Total@RandomVariate[UniformDistribution[{0,1}],100];
u10=Total@RandomChoice[{u,100-u}->{1,0},10];
{u,u10}
)
k=1*^7;
res=Select[Table[sim[],k],#[[2]]==n9&];
省4

243: 2024/10/26(土)18:22 ID:V7l7LhBL(1/2) AAS
>>242
高校生にすら相手にされてなくて哀れだね

245: 2024/10/26(土)21:34 ID:dZVTecny(2/3) AAS
n100=100
n10=10
n9=9

sim=\(){
u=sample(0:n100,1)
u10=sum(sample(1:0,n10,replace=TRUE,prob=c(u,n100-u)))
c(u,u10)
}

k=1e5
res=t(replicate(k,sim()))
省3

246(2): 2024/10/26(土)22:09 ID:0cRJo0MK(1) AAS
あ、プログラミング出来る人だ丁度良かった。
これの解説できません？

プログラムを組むのに数学の勉強は必要か？数学板住民の意見は
2chｽﾚ:math
14: １３２人目の素数さん 2024/10/26(土) 20:14:07.62 ID:0cRJo0MK
でも数学の知識があるとコードを短くできる場面もあるっぽい。
自分が見たのはじゃんけんの手が群をなす？とかで条件分岐を無くしてた。

誰か理解できる人は解説頼む。

247(1): 2024/10/26(土)22:38 ID:dZVTecny(3/3) AAS
"
ある政党に100人の議員がいる。
何人が裏金議員であるには何の情報もないため
0〜100人である確率は同じと家庭する。
即ち、0人である確率も99人である確率も1/101とする。
無作為に10人を選んで調べたところ9人が裏金議員であった。
100人中の裏金議員の数の期待値と95%信頼区間を算出せよ。

算出法は好みの手法でよい。
"

rm(list=ls())
省28

248: 2024/10/26(土)22:39 ID:V7l7LhBL(2/2) AAS
>>247

>>246には答えられないみたいだね統計もどきだからw

249(1): 2024/10/27(日)05:57 ID:SNtImSnv(1/2) AAS
(*
ある政党に100人の議員がいる。
何人が裏金議員であるには何の情報もないため
0〜100人である確率は同じと家庭する。
即ち、0人である確率も99人である確率も1/101とする。
無作為に10人を選んで調べたところ9人が裏金議員であった。
100人中の裏金議員の数の期待値と95%信頼区間を算出せよ。
*)

n100=100;
n10=10;
省20

250: 2024/10/27(日)07:06 ID:SNtImSnv(2/2) AAS
(*
あるシリツ医大にｘ人が入学したとする。
何人が裏口入学であるには何の情報もないため一様分布とする。
即ち0〜x人である確率はどれも同じと仮定する。
無作為にy人を選んで調べたところz人が裏口入学であった。
x人中の裏口入学者の数の期待値とその95%信頼区間、最頻値、中央値を算出するソルバーをWolfram言語で作成せよ。
*)

solve[x_,y_,z_] :=(
n100=x;
n10=y;
省23

251(2): 2024/10/27(日)08:42 ID:Ll/mJg+e(1/5) AAS
>>249
死に損ないいつになったら高校生に相手にされるんだ？

252: 2024/10/27(日)09:42 ID:HIz5euo6(1/3) AAS
# 一峰性非対称分布する離散量t1の95% highest probability intervalを返す

t2=sort(table(t1),decreasing=TRUE)
t3=as.numeric(names(t2))
t4=t2/sum(t2)
t5=sum(cumsum(t4)<0.95)
range(t3[1:t5])
sum(t2[1:t5]/sum(t2))
range(t3[1:(t5+1)])
sum(t2[1:(t5+1)]/sum(t2))

253(1): 2024/10/27(日)09:51 ID:HIz5euo6(2/3) AAS
>>246
例

複素平面上の点A,B,Cの作る三角形の面積を求める関数をプログラムせよ

行列式を使って1行で完成する

ABCS <- function(A,B,C) abs(det(rbind(c(Re(A-C),Im(A-C)),c(Re(B-C),Im(B-C)))))/2

254: 2024/10/27(日)09:55 ID:HIz5euo6(3/3) AAS
数学の知識がプログラム短縮できる例（R言語）

四面体の頂点を与えて四面体の体積を行列式を使って計算

ABCD2V <- function(A,B,C,D){ # 四面体ABCDの体積
v=rbind(A,B,C,D)
abs(det(rbind(v[1,]-v[4,],v[2,]-v[4,],v[3,]-v[4,])))/6
}

255(1): 2024/10/27(日)11:03 ID:1ynMj6oQ(1/5) AAS
>>251
こういう言葉遣いをする人って祖父母や両親から愛情を注がれなかった気の毒な人間なんだろうなぁ。

256(1): 2024/10/27(日)11:07 ID:1ynMj6oQ(2/5) AAS
>>251
女子大生や看護学生と嵌めたことはあるけど、女子高生とは嵌めたことがないなぁ。
ちなみに、女子医大の学生には在京中は息子が大変お世話になりました。

257: 2024/10/27(日)11:22 ID:6A9938yt(1) AAS
人格上もクズ

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

あと 495 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.011s