高校数学の質問スレ Part437

[過去ﾛｸﾞ] 高校数学の質問スレ Part437 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

153: 2024/07/21(日)11:04 ID:7gLehhCn(2/3) AAS
>>151
何で医者板ではダンマリ決め込んでるの？
本物の医者相手だと太刀打ち出来ないから？

154: 2024/07/21(日)11:24 ID:3skoHSGy(3/17) AAS
>>133
分数解を計算する自作ソルバーが完成したのでグラフ化
画像ﾘﾝｸ

155: 2024/07/21(日)11:51 ID:3skoHSGy(4/17) AAS
Wolframのデフォルトのソルバーは遅いなぁ。
自作ソルバーとの速度比較

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= n=40;

In[2]:= x={x1,x2,x3,x4} /. Solve[x1+x2+x3+x4==n && x1>=1 && x2>=1 && x3>=1 && x4>=1,{x1,x2,x3,x4},Integers] // Timing // Short

Out[2]//Short= {0.1875, {{1, 1, 1, 37}, {1, 1, 2, 36}, {1, <<2 35}, <<9135 {37, 1, 1, 1}}}

In[3]:= x=Select[Partition[Flatten@Table[{x1,x2,x3,n-x1-x2-x3},{x1,Range[n]},{x2,Range[n]},{x3,Range[n]}],4],#[[4]]>0&] // Timing // Short

Out[3]//Short= {0.015625, {{1, 1, 1, 37}, {1, 1, 2, 36}, {1, <<3>>}, <<9135 {37, 1, 1, 1}}}

156(2): 2024/07/21(日)13:21 ID:3skoHSGy(5/17) AAS
>>133
応用問題

血液型頻度比はA:O:B:AB＝4:3:2:1とする。
40人検査したときに３種類の血液型のみが検出される確率を分数で求めよ。

157: 2024/07/21(日)15:50 ID:Bd8wibbu(1/2) AAS
>>129
つまりスレ違いの書き込みに対し、
スレ違いを承知の上で返答したってこと？
悪質だな

158: 2024/07/21(日)15:51 ID:Bd8wibbu(2/2) AAS
>>142
Wolfram使えても中学受験の問題は解けませんよ

159: 2024/07/21(日)16:13 ID:yNeLjgJ4(3/8) AAS
>>151
日本語読めないチンパン数学()に答えとかw

160: 2024/07/21(日)16:49 ID:7gLehhCn(3/3) AAS
何で偽医者さんって頑なに医者のフリするんだろうね
数学も英語も国語も出来ない精神疾患持ちの人が医者なわけないじゃん
二期校最後の年に受験に失敗して医者コンプになったんでしょ？

161: 2024/07/21(日)16:57 ID:3skoHSGy(6/17) AAS
>>156
想定解

In[3]:= calc[40,3]

4660364912515525380760230058213856169
Out[3]= ---------------------------------------
312500000000000000000000000000000000000

In[4]:= N[%,50]

Out[4]= 0.01491316772004968121843273618628433974080

162(3): 2024/07/21(日)16:59 ID:3skoHSGy(7/17) AAS
病棟がコロナクラスタ化したので新入院を受けられなくなった。
職員へのベクルリーは外来投与にした。

163(1): 2024/07/21(日)19:35 ID:quiimUEg(1/2) AAS
n=40　(人)
　A　　4/10
　O　　3/10
　B　　2/10
　AB　 1/10

　{A, O, B} = (9^n - 7^n - 6^n - 5^n + 4^n + 3^n + 2^n) / 10^n
　　 = 1478 02449 23199 67373 64611 39974 09909 69152 / 10^n,

　{A, O, AB} = (8^n - 7^n - 5^n + 3^n + 1) / 10^n
　　　= 13 22861 18092 90598 39346 44870 50476 58752 / 10^n,

　{A, B, AB} = (7^n - 6^n - 5^n - 3^n + 4^n + 2^n + 1) / 10^n
　　　 = 6353 42917 26320 80184 34148 67722 61952 / 10^n,

　{O, B, AB} = (6^n - 5^n - 4^n + 2^n + 1) / 10^n
　　　= 13 35839 83829 00185 17193 00325 07552 / 10^n,

　合計　　1491 31677 20049 68121 84327 36186 28433 97408 / 10^n
　　= 0.01491 31677 20049 68121 84327 36186 28433 97408

164(1): 2024/07/21(日)19:38 ID:quiimUEg(2/2) AAS
｛A, O, B, AB}
4種 0.98508 61942 60805 90548 46471 54639 21255 11296
3種　　0.01491 31677 20049 68121 84327 36186 28433 97408
2種　　0.00000 06380 19144 29240 31223 81055 72878 28542
1種　　0.00000 00000 00000 12089 37977 28118 77432 62754

165: 2024/07/21(日)20:17 ID:MAlNFasp(1/4) AAS
>>162
医者のフリしないでよ偽医者さん

166(1): 2024/07/21(日)20:24 ID:3skoHSGy(8/17) AAS
血液型の頻度比はA:O:B:AB＝4:3:2:1とする。

無作為に3人の血液を集めたら2種類の血液型が存在する確率が最も高い。
無作為に4人の血液を集めたら3種類の血液型が存在する確率が最も高い。

(1) 何人以上の血液を集めれば4種類の血液型が存在する確率を最も高くできるか?
(2) 何人以上の血液を集めれば4種類の血液型が存在する確率が0.5を超えるか?
(3) (1)(2)を満たす最小人数で4種類の血液型が存在する確率を分数で求めよ。

167(2): 2024/07/21(日)20:29 ID:yNeLjgJ4(4/8) AAS
>>162

539：卵の名無しさん (ﾜｯﾁｮｲ 4f22-kylL [240b:11:241:7900:*])：2024/07/21(日) 20:26:13.29 ID:twk2iaT40
>>538
ベクルリーは5日間投与が基本だから通常外来で投与しないけどな
何でここまで脳内医療を展開出来るのか
もしかして俺等を笑わせようとしてわざとしてる？www

168(1): 2024/07/21(日)20:29 ID:3skoHSGy(9/17) AAS
医師が羨ましければ再受験すればいいのに
俺の同期は２割以上は再受験組だったぞ。
歯学部には東大数学科卒もいた。
東大卒の獣医免許持ちもいた。

169: 2024/07/21(日)20:30 ID:yNeLjgJ4(5/8) AAS
>>168
それも自己紹介だね
脳内医者なのはとっくにバレてるぞマヌケww

170(2): 2024/07/21(日)20:35 ID:3skoHSGy(10/17) AAS
>>167
3日投与だよ。
初日２バイアル、あと2日は1バイアルで４バイアルが１人分としてセットされている。生食で直接溶解できないので注射用と一緒にセットになっている。
ハンプも生食で直接溶解は不可。サイレースは注射用水で溶解と規定されているが前の勤務先では生食で溶解して問題なかったな。

171(1): 2024/07/21(日)20:41 ID:3skoHSGy(11/17) AAS
>>167
>ベクルリーは5日間投与が基本
まさに薬漬け病院だな。
まぁ、薬屋の売り子しかならではの記述だね。

172: 2024/07/21(日)20:45 ID:3skoHSGy(12/17) AAS
薬屋の売り子しかできない医者ならではの記述だね

173: 2024/07/21(日)20:49 ID:yNeLjgJ4(6/8) AAS
>>170
また脳内医療丸出しみたいだな
どうせまたネットで拾ってきた知識だろ？
素人なら騙せると思ったら大間違いだぞww

174(1): 2024/07/21(日)20:59 ID:3skoHSGy(13/17) AAS
麻酔のバイトをやっていた病院でもベクルリーは早期に始めて３日投与のプロトコールだった。
１バイアルの薬価４６４９８円。肺炎まで悪化させて５日使うのは悪徳病院。

175(1): 2024/07/21(日)21:06 ID:3skoHSGy(14/17) AAS
>>163
面倒な計算、ありがとうございます。
想定解と合致していて安堵。

Wolfram言語のトレーニングに　n 人に m 種類の血液型が存在する確率を計算する小道具（場合分けして集計しているだけ）を作成

calc[n_,m_] :=(
If[m<1||m>4Return[0]];
f[x_] :=(
{p1,p2,p3,p4}={1/10,2/10,3/10,4/10};
{b1,b2,b3,b4}=x;
Binomial[n,b1] p1^b1 Binomial[n-b1,b2] p2^b2 Binomial[n-b1-b2,b3] p3^b3 p4^b4
);
x=Select[Partition[Flatten@Table[{x1,x2,x3,n-x1-x2-x3},{x1,Range[0,n]},{x2,Range[0,n]},{x3,Range[0,n]}],4],#[[4]]>=0&];
Total[f /@ Select[x,Total@Boole@Table[#[[i]]>0{i,Range[4]}]==m&]]
)

別法で計算してくれた値と合致しているので、正しい計算をしている予感。
乱数発生させてのシミュレーションである程度、正答の確信がもてるが、
確率が0.014913程度だとシミュレーションでの確認が回数を増やさないと近似が悪い。

1000万回やって
n=40;
m=3;
k=10^7;
N@Mean@Table[Boole[Length@Union@RandomChoice[Range[4]/10->Range[4],n]==m],k]
0.0149423

176: 2024/07/21(日)21:16 ID:MAlNFasp(2/4) AAS
>>170
3日でも外来投与するならおかしいじゃないですか？偽医者さん

177(1): 2024/07/21(日)21:34 ID:3skoHSGy(15/17) AAS
>>166（Wolfram言語での想定解）
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= calc[n_,m_] :=(
If[m<1||m>4Return[0]];
f[x_] :=(
{p1,p2,p3,p4}={1/10,2/10,3/10,4/10};
{b1,b2,b3,b4}=x;
Binomial[n,b1] p1^b1 Binomial[n-b1,b2] p2^b2 Binomial[n-b1-b2,b3] p3^b3 p4^b4
);
x=Select[Partition[Flatten@Table[{x1,x2,x3,n-x1-x2-x3},{x1,Range[0,n]},{x2,Range[0,n]},{x3,Range[0,n]}],4],#[[4]]>=0&];
Total[f /@ Select[x,Total@Boole@Table[#[[i]]>0{i,Range[4]}]==m&]]
)
In[2]:= Table[calc[2,i],{i,1,4}]
3 7
Out[2]= {--, --, 0, 0}
10 10
In[3]:= Table[calc[3,i],{i,1,4}]
1 3 3
Out[3]= {--, -, --, 0}
10 5 10
In[4]:= Table[calc[4,i],{i,1,4}]
177 2111 303 36
Out[4]= {----, ----, ---, ---}
5000 5000 625 625
In[5]:= Table[calc[5,i],{i,1,4}]
13 141 561 18
Out[5]= {----, ---, ----, ---}
1000 500 1000 125
In[6]:= Table[calc[6,i],{i,1,4}]
489 18571 2859 297
Out[6]= {------, ------, ----, ----}
100000 100000 5000 1250
In[7]:= Table[calc[7,i],{i,1,4}]
187 6111 54831 819
Out[7]= {------, -----, ------, ----}
100000 50000 100000 2500
In[8]:= Table[calc[8,i],{i,1,4}]
36177 4040351 1590309 319977
Out[8]= {--------, --------, -------, ------}
50000000 50000000 3125000 781250
In[9]:= Table[calc[9,i],{i,1,4}]
14117 1344309 23183889 753543
Out[9]= {--------, --------, --------, -------}
50000000 25000000 50000000 1562500
In[10]:= Table[calc[10,i],{i,1,4}]
22173 7205087 4179633 1364751
Out[10]= {---------, ---------, --------, -------}
200000000 200000000 10000000 2500000

小数表示
{0.3, 0.7, 0., 0.}

{0.1, 0.6, 0.3, 0.}

{0.0354, 0.4222, 0.4848, 0.0576}

{0.013, 0.282, 0.561, 0.144}

{0.00489, 0.18571, 0.5718, 0.2376}

{0.00187, 0.12222, 0.54831, 0.3276}

{0.00072354, 0.080807, 0.508899, 0.409571}

{0.00028234, 0.0537724, 0.463678, 0.482268}

{0.000110865, 0.0360254, 0.417963, 0.5459}

0.5を超えるのは10人以上。

178(1): 2024/07/21(日)21:41 ID:aY80opx9(1) AAS
外来投与とは書かれていない
暗に正規の３日投与で効果が出ないのに、５日投与は保険点数稼ぐ以外の何物でもない
というお話で普通は様子見　素人目でも

179: 2024/07/21(日)22:35 ID:MAlNFasp(3/4) AAS
>>177
3日間投与なのに外来投与してるのは何故？
何でそこを医者なのに解説出来ないの？

180: 2024/07/21(日)22:36 ID:MAlNFasp(4/4) AAS
>>178
>>162にめっちゃ外来投与って書いてる

181(1): 2024/07/21(日)23:03 ID:yNeLjgJ4(7/8) AAS
また脳内医療で適当に押し切ろうとしてるけどやっぱり素人を騙す知能なんかなかったみたいw

182(1): 2024/07/21(日)23:23 ID:3skoHSGy(16/17) AAS
>>175
可読性を度外視して1行に纏めた。自分でも解読するのに難渋しそう。

* 血液型頻度比はA:O:B:AB＝4:3:2:1, n 人に m 種類の血液型が存在する確率 *)
solve[n_,m_] := Total[Binomial[n,#[[1]]] (1/10)^#[[1]] Binomial[n-#[[1]],#[[2]]] (2/10)^#[[2]] Binomial[n-#[[1]]-#[[2]],#[[3]]] (3/10)^#[[3]] (4/10)^#[[4]]& /@ (Select[Select[Partition[Flatten@Table[{x1,x2,x3,n-x1-x2-x3},{x1,Range[0,n]},{x2,Range[0,n]},{x3,Range[0,n]}],4],#[[4]]>=0&],Total@Boole@Table[#[[i]]>0{i,Range[4]}] == m &])]

実行結果

In[1]:= solve[n_,m_] := Total[Binomial[n,#[[1]]] (1/10)^#[[1]] Binomial[n-#[[1]],#[[2]]] (2/10)^#[[2]] Binomial[n-#[[1]]-#[[2]],#[[3]]] (3/10)^#[[3]] (4/10)^#[[4]]& /@ (Select[Select[Partition[Flatten@Table[{x1,x2,x3,n-x1-x2-x3},{x1,Range[0,n]},{x2,Range[0,n]},{x3,Range[0,n]}],4],#[[4]]>=0&],Total@Boole@Table[#[[i]]>0{i,Range[4]}] == m &])]

In[2]:= solve[40,3]

4660364912515525380760230058213856169
Out[2]= ---------------------------------------
312500000000000000000000000000000000000

尿瓶チンパフェチの嫁なしPhimoseくん（別名、自演認定厨）はWolfram言語はわからないみたいだな。
初学の俺と達人のコードが区別できないみたいだし。
嫁なしPhimoseくんが自演認定厨であることは度々、識者より指摘されている。
俺の想定解よりエレガントな解が投稿されていることを理解できないようだ。

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

あと 820 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.020s