高校数学の質問スレ（医者・東大卒専用） Part438 (752ﾚｽ)
上下前次1-新
338: 2024/11/23(土)16:01 ID:qyJPztJt(3/4) AAS
年賀状の３等は１００枚に３枚が当たる確率である。
(1) １００枚の年賀状を無作為に購入したときの当たりの枚数の期待値を求めよ。
(2) ３等が当たっている年賀状の枚数が奇数の確率をＰとする。Pは0.5より大きいか小さいか、直感で即答せよ。
(3) (2)の確率を分数で求めよ。
(4) (3)をシミュレーションで検証してみよ。
p=3/100;
Table[Binomial[100,2n-1] p^(2n-1) (1-p)^(100-(2n-1)),{n,1,50}] // Total
% // N
Table[Boole@OddQ@RandomVariate[BinomialDistribution[100,3/100]],10^6] // Mean
339(1): 2024/11/23(土)16:02 ID:qyJPztJt(4/4) AAS
意味のある問題（シリツ卒には解けないようだ）
採決スピッツや試薬をどれだけ準備すべきかが算出できる。
日本人の血液型はAB:B:O:A＝1：2：3：4であるという。
無作為に何人かの血液型を調べて、 調べた人にすべての血液型が含まれる確率を99%以上にしたい。
(1) 何人以上調べればよいか？
(2) 99％を越えたときの確率を分数で算出せよ。
340: 2024/11/23(土)16:15 ID:IPIzs9Xw(1) AAS
>>339
ここでいくら発狂しても相手にされないみたいだねw
実に哀れ
自分でも解けないんだろ？というか問題として成立してないw
341: 2024/11/26(火)20:42 ID:HQUgcf8k(1) AAS
意味のある問題と思い込めるってwww
並外れた低脳アピールwww
342: 2024/11/29(金)06:08 ID:d3rJHsIX(1) AAS
# 10桁のカプレカー数を列挙するプログラムを作り実行せよ
n=10
library(RcppAlgos)
is.kaprekar=\(m){
IntegerDigits=\(n) as.integer(unlist(strsplit(as.character(n),'')))
le=length(m)
mu=10^((le-1):0)
min=sum(sort(m)*mu)
max=sum(sort(m,decreasing = TRUE)*mu)
n=sum(m*mu)
省14
343: 2024/11/29(金)16:54 ID:a8qsJeEV(1) AAS
画像ﾘﾝｸ[png]:i.imgur.com
344: 2024/11/30(土)07:28 ID:L4mkprla(1/6) AAS
hex[x_]:=ResourceFunction["HexConvert"][x];
start="100";
end="fff";
d=hex /@ Range[hex[start],hex[end]];
s=StringSplit[#,""]& /@ d;
KaprekarHexQ[x_] := hex[hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x] == StringJoin@x;
StringJoin /@ Select[s,KaprekarHexQ]
345: 2024/11/30(土)10:21 ID:L4mkprla(2/6) AAS
(* 16進法でｎ桁のカプレカ数を求める *)
n=6
hex[x_]:=ResourceFunction["HexConvert"][x];
s=ResourceFunction["OrderlessCombinations"][hex /@ Range[0,15],{n}];
KaprekarHexQ[x_] := (
d=hex@StringJoin@ReverseSort@x - hex@StringJoin@Sort@x;
lid=StringSplit[hex@d,""];
hex[hex@StringJoin@ReverseSort@lid - hex@StringJoin@Sort@lid]==StringJoin@lid && d!=0
)
re=Select[s,KaprekarHexQ];
省1
346: 2024/11/30(土)14:45 ID:L4mkprla(3/6) AAS
ｂ進法、ｎ桁のカプレカ数を求めるように拡張
(* ｂ進法でｎ桁のカプレカ数を返す b <= 36 *)
solve[b_,n_]:=(
dec2n[x_] :=(
r=List@Mod[x,b];
q=Floor[x/b];
While[q > 0,PrependTo[r,Mod[q,b]];q=Floor[q/b]];
r
);
DigitsInteger[x_] :=(
省19
347: 2024/11/30(土)16:16 ID:BMBeqwqc(1/2) AAS
(*
疑似ヴァンパイア数（Pseudovampire numbers）は、「数字を2等分」という縛りを無くした数である。
例えば126 = 6×21など。
外部ﾘﾝｸ:ja.wikipedia.orgヴァンパイア数
問題 ３桁の疑似ヴァンパイア数を列挙せよ。
*)
f[n_]:=(
p=Permutations[IntegerDigits[n],{3}];
prd=(10 #[[1]]+#[[2]])#[[3]]& /@ p;
ContainsAny[prd,{n}]
省9
348: 2024/11/30(土)17:54 ID:L4mkprla(4/6) AAS
(*
問題 5桁の疑似ヴァンパイア数を列挙せよ。
*)
f14[n_]:=(
d=IntegerDigits[n];
p=Permutations[d,{5}];
prd=#[[1]]*(1000 #[[2]]+100 #[[3]]+10 #[[4]]+#[[5]])& /@p;
i=Position[prd,n];
ans={};
If[i!={},
省8
349: 2024/11/30(土)17:55 ID:L4mkprla(5/6) AAS
{{5, 2051, 10255}, {5, 2105, 10525}, {9, 1251, 11259}, {8, 1481, 11848},
> {6, 2001, 12006}, {6, 2010, 12060}, {3, 4128, 12384}, {5, 2501, 12505},
> {5, 2510, 12550}, {5, 2519, 12595}, {6, 2100, 12600}, {6, 2127, 12762},
> {3, 4281, 12843}, {5, 2591, 12955}, {3, 4515, 13545}, {3, 5001, 15003},
> {3, 5010, 15030}, {6, 2541, 15246}, {3, 5100, 15300}, {3, 5145, 15435},
省5
350(1): 2024/11/30(土)17:55 ID:L4mkprla(6/6) AAS
f23[n_]:=(
d=IntegerDigits[n];
p=Permutations[d,{5}];
prd=(10 #[[1]]+#[[2]])(100 #[[3]]+10 #[[4]]+#[[5]])& /@p;
i=Position[prd,n];
ans={};
If[i!={},
idx=i[[1]][[1]];
re=p[[idx]];
AppendTo[ans,{10 re[[1]]+re[[2]],100re[[3]]+10re[[4]]+re[[5]]}]
省18
351(1): 2024/11/30(土)19:19 ID:xA0BaYQb(1/3) AAS
>>350これには完全ダンマリで草
954：卵の名無しさん：2024/11/30(土) 10:54:08.14 ID:Wtu16ESx
>>951
まあお前と違って俺は一回200万ぐらい病院に入る治療出来るからそういうのなら病院にとって呼ぶ価値あるけどな
車で行ってるから交通費も貰ってないけど
一回10万でやってあげてるよ
んで、お前は？GFで数件覗くだけ？
1件11400円を数件やるだけなのにわざわざ新幹線とタクシー使ってで来てもらうの？
生検やっても＋3000円だぞ
採算取れるわけねーだろ
省1
352(4): 2024/11/30(土)20:02 ID:BMBeqwqc(2/2) AAS
>>351
1日15件くらいやってますが？
昔は20件を超えることもあったな。
353: 2024/11/30(土)20:20 ID:xA0BaYQb(2/3) AAS
>>352
一日15件やってもせいぜい十数万だからそんなコストかけて雇う価値ないだろうなww
354: 2024/11/30(土)20:53 ID:xA0BaYQb(3/3) AAS
>>352
なんで医者板で直接言えないのかな？
脳内医者ってまたボコボコにされるのが目に見えてるからかな？ww
355: 2024/11/30(土)22:09 ID:7d0ZfVfE(1) AAS
>>352
967：卵の名無しさん：[sage]：2024/11/30(土) 21:57:37.31 ID:7TzF2IEd
湘南鎌倉総合病院には元旭川医科大学勤務で国立大の弘前大学卒の元AV女優浅丘りなこと田中茉里子（旧姓古郡）がいるもんね
外部ﾘﾝｸ:www.skgh.jp
外部ﾘﾝｸ:www.suruga-ya.jp
外部ﾘﾝｸ[html]:www.oma-aozora.jp
はい、いつものコピペダンマリきたw
356: 2024/12/01(日)08:47 ID:h0Y8DNCF(1) AAS
>>352
この、偽医者なんか必死だな
何故か逆鱗に触れてしまったようだ
357(1): 2024/12/01(日)10:07 ID:URtmhVxU(1/7) AAS
f(x,y)= x^y+y^x
0 <= x <= 1 かつ 0 <= y <= 1
とする
(1) z=f(x,y)を図示せよ
例 画像ﾘﾝｸ[gif]:i.imgur.com
(2) z=f(x,y)とx-y平面で囲まれた図形の体積を求めよ
(3) z=f(x,y)の面積を求めよ（有効数字3桁の近似値でよい）
上下前次1-新書関写板覧索設栞歴
あと 395 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.010s