高校数学の質問スレ（医者・東大卒専用） Part438 (752ﾚｽ)
上下前次1-新
318(1): 2024/11/18(月)08:34 ID:6QQp5ohs(1/2) AAS
>>317
なんだよ図星か
出題にしろスキルにしろ色々偏ってるな
大学で数学履修してないんだな
319(1): 2024/11/18(月)12:07 ID:sriHacXi(1) AAS
>>318
医学部だと必要なのは統計処理だな。
Rが使えれば事足りる。
320: 2024/11/18(月)12:27 ID:zvfCaBME(1) AAS
Rなんぞ使えなくても医者が論文書くのに大概困らんやろ
Rのコードが書けても統計の意味わからないならゴミ生産機にしかなれない
321: 2024/11/18(月)13:24 ID:EFXQWzbV(1/2) AAS
Let's approach this step-by-step:
Let's make a substitution: t=−1nt=−n1
As n→∞n→∞, t→0−t→0− (approaching 0 from the negative side)
With this substitution, our limit becomes: limt→0−(1+t)−1tlimt→0−(1+t)−t1
Now, we can rewrite this as: limt→0−((1+t)1t)−1limt→0−((1+t)t1)−1
We recognize that limt→0(1+t)1t=elimt→0(1+t)t1=e, which is the definition of Euler's number. This holds true whether t approaches 0 from the positive or negative side.
Therefore, our limit becomes: (e)−1=1e(e)−1=e1
322: 2024/11/18(月)13:29 ID:qEGNxEm5(1/2) AAS
>>319
いくら能書き垂れようがここで無能扱いされてることに違いはないw
323(2): 2024/11/18(月)13:33 ID:EFXQWzbV(2/2) AAS
底辺シリツ医でRが使える医師をみたことがないな。
R（PythonでもWolframでもいいけど）が使えると、こういう計算ができるので
必要なスピッツや試薬の数を準備できる。
日本人の血液型はAB:B:O:A＝1：2：3：4であるという。
無作為に何人の血液型を調べて 調べた人にすべての血液型が含まれる確率を99%以上にしたい。
何人以上調べればよいか？
99％を越えたときの確率を分数で算出せよ。
324: 2024/11/18(月)14:02 ID:6QQp5ohs(2/2) AAS
>>323
それを雇われ医師がやる必要はないけどな
325: 2024/11/18(月)20:41 ID:qEGNxEm5(2/2) AAS
>>323
数学スレでも脳内医者バレバレみたいだねw
326: 2024/11/18(月)23:30 ID:F0+pha6b(1) AAS
自分の設定と矛盾した事言ってても全く気づけないポンコツ
327: 2024/11/19(火)03:57 ID:V8CHGcRI(1/2) AAS
To evaluate the limit
limn→∞(1−1n)n,\lim_{n \to \infty} \left(1 - \frac{1}{n}\right)^n,limn→∞(1−n1)n,
we can recognize that this expression is related to the definition of the number eee. Specifically, we can rewrite the expression in a more convenient form.
First, we can use the fact that
(1−1n)n=((1−1n)−n)−1.\left(1 - \frac{1}{n}\right)^n = \left(\left(1 - \frac{1}{n}\right)^{-n}\right)^{-1}.(1−n1)n=((1−n1)−n)−1.
Now, we can take the natural logarithm of the expression to simplify the limit:
ln((1−1n)n)=nln(1−1n).\ln\left(\left(1 - \frac{1}{n}\right)^n\right) = n \ln\left(1 - \frac{1}{n}\right).ln((1−n1)n)=nln(1−n1).
Next, we can use the Taylor expansion of ln(1−x)\ln(1 - x)ln(1−x) around x=0x = 0x=0:
ln(1−x)≈−x−x22−x33−…\ln(1 - x) \approx -x - \frac{x^2}{2} - \frac{x^3}{3} - \ldotsln(1−x)≈−x−2x2−3x3−…
For small xxx, we can approximate ln(1−1n)\ln\left(1 - \frac{1}{n}\right)ln(1−n1):
省9
328: 2024/11/19(火)05:02 ID:V8CHGcRI(2/2) AAS
Texコードを投稿しても表示されないなぁ。
329: 2024/11/20(水)08:10 ID:KnDPFD/I(1/2) AAS
pick=\(x,one=1){
y=sample(x)
picked=y[1:one]
rest=y[-c(1:one)]
list(picked=picked,rest=rest)
}
f=\(){
x=c('太郎','次郎','車','山羊')
p='三郎' # p:picked item or player
y=pick(x)
省19
330(1): 2024/11/20(水)08:10 ID:KnDPFD/I(2/2) AAS
4つのドアがあり、それぞれのドアの向こうには車、ヤギ、太郎くん、次郎くんががいます。
三郎くんはどれか1つドアを選び、それを開けて車が出たら当たりで、車をもらうことができます。
ヤギが出たらその時点でゲーム終了です。
人物（Xとする）が出たら、Xが新たな挑戦者となり、三郎くんは選んだドアに入り、ドアを閉め、
ドアの向こうで車、ヤギ、人物２人の位置をランダムにシャッフルします。
ここまでを１ターンとします。
その後はXが挑戦者となり、ゲームを続行します。
以上の手順で車かヤギを誰かが当てるまで続けます。
太郎くんが８ターン以内に車を獲得する確率を求めなさい。
同様に確からしいというのは仮想なので概算（有効数字２桁）でよい。
331: 2024/11/20(水)18:44 ID:KZHv+5ER(1) AAS
>>330
尿瓶ジジイまだ生き恥晒してたのかよ？
332: 2024/11/21(木)18:36 ID:Ci8ztJhi(1) AAS
尿瓶ジジイって論破されて発狂してそれもまた論破されてダンマリ決め込んでまた復活の繰り返しだな
333(2): 2024/11/22(金)16:33 ID:2M9XV7Pv(1) AAS
"
西暦２０２５年から西暦１００００年まで２月２９日が日曜日になることは何回あるか？
現行のグレゴリオ暦を用いて計算せよ。
"
library(lubridate)
wday(ymd("2016-2-29"),label=TRUE)
wday(ymd("2015-2-29"),label=TRUE)
str=as.character(2025:10000)
f=\(s) wday(ymd(paste0(s,"-2-29")))
re=sapply(str,f)
省1
334: 2024/11/22(金)17:18 ID:KGSQyV3C(1) AAS
>>333
スレタイすら読めない医者でも東大卒でもないアホチンパンは消えてどうぞ
335: 2024/11/23(土)03:28 ID:qyJPztJt(1/4) AAS
WolframのDayName関数に
存在しない閏年の2月29日を引数として与えるとその年の3月1日の曜日を返す仕様のようである。俺にはバクに思えるのだが。
DayName[{2025,2,29}]
DayName[{2025,3,1}]
を実行してみるとよい。
問題
この仕様を利用して
西暦２０２５年から西暦１００００年まで２月２９日が日曜日になることは何回あるか？現行のグレゴリオ暦を用いて計算せよ。
を答を算出して、R言語での結果259回と合致するかを検証せよ。
f[x_,y_:Sunday] := DayName[{x,2,29}]!=DayName[{x,3,1}] && DayName[{x,2,29}]==y
省1
336: 2024/11/23(土)10:08 ID:qyJPztJt(2/4) AAS
(1) 九九に現れる数字は1から81までである。何種類あるか？
(2) 1から99までの数字を２つかけてできる数は何種類あるか?
(3) 1から999までの数字を２つかけてできる数は何種類あるか?
(4) 1から9999までの数字を２つかけてできる数は何種類あるか?
R
calc=\(n) outer(1:n,1:n)|>as.vector()|>unique()|>length()
sapply(c(9,99,999,9999),calc)
Wolfram
solve[n_]:= Table[x y,{x,Range[n]},{y,Range[n]}] // Flatten // Union // Length
Table[solve[n],{n,{9,99,999,9999}}]
337: 2024/11/23(土)14:11 ID:3sUy/oAC(1) AAS
>>333
意味のない問題を出題して無知と恥をアピールwww
上下前次1-新書関写板覧索設栞歴
あと 415 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.010s