高校数学の質問スレ Part437

偽医者さんはWolframだRだ言う前に、
中受の問題や三角関数使った幾何問題解けるようになるべきだと思うよ

偽医者さんは数学が出来なくて医学部落ちちゃったんだろうな
それでWolflamで数学解けると自分の中で勘違いさせようとしてるんだよ

あとは芋づる式に立式すればいいので次のような計算も可能になる。
まあ、プログラムが正しければだが。

1年を365日としてどの月日に生まれる確率も等しいとする。
何人かを集めて、同じ月日に生まれた人が5人以上いる確率を95%以上にしたい。
（１）何人以上集めればよいか。
（２）条件をみたす最小人数のときの確率を分数で示せ。

>>93
偽医者さんそれ解いて何か意味あるの？
そんなことする暇あったら医学部再受験して本当の医者になった方が良いんじゃない？

ID:1inNDuDx
医者板でも数学板でもバカにされるのがそんなに楽しいか？ww

>>94
正論だな

尿瓶ジジイの妄想の中では医者だからそんなことするはずないだろうしそもそもできっこないww

家庭の事情かなんかで国公立の医学部しか受けられず全滅して私立医学部出身を目の敵にしてるようだけど、コイツの学力じゃ私立でも受かるとこないんだけどな

自称は医者と補助スタッフ
実際は補助スタッフ一員と他スタッフと別にいる医者

よって爺さんの日頃の医療活動語りは成り済まし盗用

>>89
レスありがとうございます。
186と187で確率を計算すると
https://i.imgur.com/Nq4Xc6O.png
となり、187で0.5を越えます。

>>93
これを近似式で計算させるqbirthdayという関数があるが、これは誤答を返してくる。

>>101
qbirthdayはRの関数。

次なる課題

閏年は400年に97回の現行歴とし、どの月日に生まれるかの確率は同じとする。
無作為に50人集めたときに誕生日が同じ月日の人が3人以上いる確率を求めよ。
（同じ誕生月日の人が３人以上いてもよい、それが複数組いてもよい）。

臨床応用問題

血液型A,O,B,ABの頻度比を4:3:2:1とする。
１クラス40人に同じ血液型の人が過半数いる確率を求めよ。

臨床問題なので近似数値解でよい。
計算できるスキルがあれば分数解でもよい。

>>104
確率計算での同様に確からしいというのが空想だから、
シミュレーション解で十分実用的。

Wolramでのシミュレーションコード
N@Mean@Table[Boole@AnyTrue[Counts@RandomChoice[Range[4]/10->Range[4],40],#>20&],10^6]

以前はRでやっていたけど、4月にWolframは登録すれば無料で使えると教わってから
Wolframを使い始めた。思うように作図できるスキルはないのでRで動画作製したりしている。

偽医者さんは医者板では論破されてもう書き込まなくなったのに数学板ではまだ医者のフリして書き込んでるのは何故？バレてないと思ってるんでしょうか？

そもそも受験ではパソコンもスマホも使えないからWolflamもRも使えないから自力で解かないと意味無いのでは？偽医者さんの実力じゃ絶対に医学部受験とか無理ですよね？英語も国語も苦手みたいだし

>>103
想定解

Wolframの使える東大卒やエリート高校生による検証を希望します。

Out[5]= 64182691535523227126765728840352505194471220051108731228917718136956174047495873625432663493337\

> 2569260704323257084860120874043346457486114362213865806450012485123310362981345246041100099416319\

> 75707993898771049883247210594539 /

> 50847931612364583029792797889943152097308896338076946115001744077049355055327736157106263991664438\

> 8880203722551580200548941682838302227683678437787219786995764126995904881707961410209861850585937\

> 500000000000000000000000000000

In[6]:= N[%,100]

Out[6]= 0.126224783389057381009475755048587336910209072732695876187725839799904920460870715655356328918\

> 1761852

>>108
いい加減にスレ違いだから消えてくれませんか？偽医者さん

認知症だから徘徊癖が4ぬまで治らないみたい

>>108

520： 警備員[Lv.4][新芽] (ﾜｯﾁｮｲ 45ae-NcT0 [2001:268:9033:f230:*])：2024/07/20(土) 07:44:29.60 ID:+bTsRCIU0
https://rio2016.5ch.net/test/read.cgi/math/1721071007/

こちらでは朝から元気に発狂中w

521：卵の名無しさん (ﾜｯﾁｮｲ 0538-erS5 [240a:61:1196:1f84:*])：2024/07/20(土) 08:48:03.11 ID:aa59iwT50
>>520
www
やっぱ完全に、ここ避けてんじゃん
実質これ自分が医者じゃないって認めたようなもんだろ
しかも、このスレでもボロクソに言われてて草

>>101
誤答の前にいつになったらスレタイ読めるようになるんだよチンパン

>>113ですが変な書き方ですみません

要は、模範解答を見ればなるほどって分かるけど、もし自力で一から解く場合、-1/3、０，1を境界にすると思いつく自信がありません。どうやったらそう思いつくようになれますか？ということです

>>113ですが変な書き方ですみません

要は、模範解答を見ればなるほどって分かるけど、もし自力で一から解く場合、-1/3、０，1を境界にすると思いつく自信がありません。どうやったらそう思いつくようになれますか？ということです

>>113ですが変な書き方ですみません

要は、模範解答を見ればなるほどって分かるけど、もし自力で一から解く場合、-1/3、０，1を境界にすると思いつく自信がありません。どうやったらそう思いつくようになれますか？ということです

二つのグラフ　y=1/2 t^2 と y= a(t-1/2)　の交点の問題。
tは、t=sinθ,０≦θ≦２π　(０≦θ＜２πの間違い？)　となっているので、定義域は
-1≦t≦1　です。
すると放物線は、(-1,1/2)から、(1,1/2)までしかありませんｊ。
一方直線の方は、(1/2,0)を通り、傾きaの直線です。

放物線の左端(-1,1/2)と固定点(1/2,0)を通る時、直線の傾きが-1/3
放物線の右端(1,1/2)と固定点(1/2,0)を通る時、直線の傾きが1
放物線と直線が接するのは、原点か、(1,1/2)で接する時で、その時の傾きは0、1です。
これらの値が現れるのは、当然の流れです。

それからy=sinθ,(０≦θ＜２π)　とy=c(定数)は、
-1<c<1で2点、c=±1で1点で、|c|>1では0点交わります。
(もし、θの範囲が　０≦θ≦２π　であったら、c=0の時は、3点)
考えている範囲では、通常二点で交わるけど、t=±1の時だけは一点になります。

これを分離するという意味でも、端点で交わる場合は別扱いする必要はあります。

a=-1/3,0,1を境に考えるのは、極めて自然です。

>>104
Wolframを使って分数解を算出。


In[8]:= f /@ AOB // Total

38387971971993385761069267383300670743
Out[8]= ---------------------------------------
500000000000000000000000000000000000000

In[9]:= N[%,20]

Out[9]= 0.076775943943986771522

東大卒やエリート高校生による検算を希望します。

>>118
シミュレーションの結果と近似しているのでよさげ

N@Mean@Table[Boole@AnyTrue[Counts@RandomChoice[Range[4]/10->Range[4],40],#>20&],10^6]

0.076722

当たり確率40%のくじを40回引いて、21回以上当選する確率+
当たり確率30%のくじを40回引いて、21回以上当選する確率+
当たり確率20%のくじを40回引いて、21回以上当選する確率+
当たり確率10%のくじを40回引いて、21回以上当選する確率
=Σ[k=21,40]C[40,k]{(4/10)^k(6/10)^(40-k)+(3/10)^k(7/10)^(40-k)+(2/10)^k(8/10)^(40-k)+(1/10)^k(9/10)^(40-k)}
=Sum[Binomial[40,k]((4/10)^k(6/10)^(40-k)+(3/10)^k(7/10)^(40-k)+(2/10)^k(8/10)^(40-k)+(1/10)^k(9/10)^(40-k)),{k,21,40}]
=38387971971993385761069267383300670743/500000000000000000000000000000000000000

偽医者のやってるのってなんて無意味な行為なんだろう
厳密解と言いつつほとんどが倍精度浮動小数点に収まる程度の厳密さだし、
有理数を有理数として計算するのではなく、
近似で計算するから誤差も大きくなっていく
小学生が電卓叩いて喜んでるのと同じ
電卓の使い方覚える前に、数学的な物の見方や考え方を学んだ方がいいよ

>>120
レスありがとうございます。
結果が一致して納得。

>>122
自分に自分でレスして何がありがとうございますだよw
アンタみたいなマヌケ以外誰がどう見ても自演だろうがw

閏年は400年に97回の現行歴とし、どの月日に生まれるかの確率は同じとする。
無作為に365人集めたとき(故人でもよい）に誕生日が同じ月日の人が5人以上いる確率を求めよ。
（同じ誕生月日の人が5人以上いてもよい、それが複数組いてもよい）。

>>124
東大卒やエリート高校生による算出を希望します。
答が投稿されたら想定解と照合予定。

>>123
これが自演じゃないとするなら紛う事なき統失

>>125
いい加減スレ違いです

>>125
自演ということは否定しないんだww
とりあえず自演厨だの何だの前みたいに発狂してみたら？
それともどこで何言っても速攻論破されて叩きのめされるってことにいい加減気づいたからダンマリ決め込んでるのか？

>>123
私は、120の書き込み主であるが、122の書き込み主　ID:eUmx0uop　ではない。

あなた(方)の言うように、ID:eUmx0uop　=　ID:YPbD6I6z　であるなら、ID:eUmx0uop　氏は、

>>117　や、
https://rio2016.5ch.net/test/read.cgi/math/1684818116/l50
の126の書き込みも行ったことになるが、その場合、ID:eUmx0uop　氏への認識を改める必要があるのではないか？

私は、ID:eUmx0uop　ではないのだから、ID:eUmx0uop　氏が
「レスありがとうございます。結果が一致して納得。」
等という自演をしたのではないことを知っている。

明確に、ID:eUmx0uop　と　ID:YPbD6I6z　は別人であることを断言する。

なお、120の書き込みは、104の問題が、「過半数」という条件を加えた結果、それまでの問題と比べ、
極端に難易度が下がったことを理解して貰うために、行ったもの。
結果が一致すると言うより、この式でも正しい結果になることに気づいて欲しくて行ったもの。

>>129

文体と気色悪い句読点つけるあたりが尿瓶ジジイID:eUmx0uop＝ID:wedyNRu7＝ID:iQscE9srそっくりだねw

まあ別人だろうがどうでもいいかど、いくら言い訳しようが尿瓶ジジイにこんなレスをつけてる以上スレタイとテンプレが読めない数学以前のアホってことには変わりないからねw

話変わるけどID:iQscE9sr IQ9で草
まあ実際それくらいだろうなw

>>118
n=40 (人)
・A型の人が過半数いる確率　(p=0.4)
　67 62234 69389 82195 61576 03840 / 5^n
= 7435 15567 56913 72485 01671 50451 81482 59840 / 10^n
= 0.07435 15567 56913 72485 01671 50451 81482 5984

・O型の人が過半数いる確率 (p=0.3)
　241 93598 97133 59343 36999 27331 28654 55590 / 10^n
= 0.00241 93598 97133 59343 36999 27331 28654 5559

・B型の人が過半数いる確率 (p=0.2)
　457 22757 41209 43710 34465 / 5^n
= 50272 70342 85790 51125 43151 71472 99840 / 10^n
= 0.00000 50272 70342 85790 51125 43151 71472 9984

・AB型の人が過半数いる確率 (p=0.1)
　19596 59533 31589 13831 78523 99590 / 10^n
= 0.00000 00000 19596 59533 31589 13831 78523 9959

・同型の人が過半数いることは両立しない (互いに背反) から、合計して
　7677 59439 43986 77152 21385 34766 60134 14860 / 10^n
= 0.07677 59439 43986 77152 21385 34766 60134 1486

はいダンマリ来た、やっぱり自演は図星でしたかw

朝めし前の問題（問題の意味は小学生にわかる実践的な問題）

血液型頻度比はA:O:B:AB＝4:3:2:1とする。
(1) 9人の野球選手を調べたときに全血液型が存在する確率を分数で表せ。
(2) 11人のサッカー選手を調べたときに全血液型が存在する確率を分数で表せ。
(3) 15人のラグビー選手を調べたときに全血液型が存在する確率を分数で表せ。
(4) n人を調べたときに全血液型が存在する確率を分数で返すソルバーを作製せよ。

東大卒やエリート高校生による解答を希望します。
スレ違いとか言っているPhimoseくんらの集団は計算できるスキルがないのだろうなぁ。

>>133
板名すら理解できないアホ発見
自分がしつこく医者板に立て続けてるクソスレの今朝の書き込みw

533：卵の名無しさん (ﾜｯﾁｮｲ 2678-WAEN [2a02:6ea0:c12e:0:* [上級国民]])：[sage]：2024/07/21(日) 05:57:14.49 ID:xJE37WpB0
朝めし前の問題（問題の意味は小学生にわかる実践的な問題）

血液型頻度比はA:O:B:AB＝4:3:2:1とする。
(1) 9人の野球選手を調べたときに全血液型が存在する確率を分数で表せ。
(2) 11人のサッカー選手を調べたときに全血液型が存在する確率を分数で表せ。
(3) 15人のラグビー選手を調べたときに全血液型が存在する確率を分数で表せ。
(4) n人を調べたときに全血液型が存在する確率を分数で返すソルバーを作製せよ。

東大卒やエリート高校生による解答を希望します。

>>132
俺の問題にレスしている方は俺が解けない問題にも答が出せる優秀な人だよ。
俺と同一視するのは失礼である。

図星といえば、Phimoseくんは嫁なし　だろう。
その理由を推測せよ。
(1)稼ぎが悪いから　(2)Phimose草杉だから　(3)罵倒を悦びとするから

応用問題

血液型頻度比はA:O:B:AB＝4:3:2:1とする。
あるクラス40人の血液型を調べたところ全血液型存在することがわかった。
AB型が複数存在する確率を分数で表せ。

>>133
スレ違いというかここはアンタがチンパン数学()を出題して自問自答するスレじゃないから失せろって言ってるんだよ
アホすぎてこの日本語も理解できないんだろ？

>>135
今更反論かよ？昼間だと何人か見ていてボコされるから人があないであろう早朝しか発狂できないのか？
百歩譲って自演でないにしてとスレタイとテンプレを読めないアホ同士ってことに変わりはないんだけどww

人がいないであろう早朝の間違い

厳密解が出せないので質問します。

血液型頻度比はA:O:B:AB＝4:3:2:1とする。
献血で一人ずつ採血していきすべての血液型が複数集まったら終了する。
終了するまでに採血された人数の期待値を求めよ。

>>139
出題と質問の違いが分からないチンパン発見

厳密解が出せないので質問します。

血液型頻度比はA:O:B:AB＝4:3:2:1とする。
献血で一人ずつ採血していきすべての血液型が複数集まったら終了する。
終了するまでに採血された人数の期待値を求めよ。

>>134
Wolfram言語使えるように学習すればいいのに。
俺は4月に登録すればWolfram言語は無料で使えることを教わって
数値計算もシミュレーションもR言語並にできるようになった。
作図や動画はRが頼り。

そもそも尿瓶ジジイID:iGZdMXndが垂れ流してるのはそもそも高校数学じゃなくてチンパン数学()だし出題と質問の違いも分からないし話にならんねw
チンパン数学()にレスしてるのもどうせ自演だろうが百歩譲って別人でも尿瓶と同レベルのアホ

>>142
wolfram言語以前の問題だろそもそもアンタ日本語通じてないアホなんだからww

>>139
100万回乱数発生させてシミュレーションしてみた。

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

In[1]:= p={4/10,3/10,2/10,1/10};
In[2]:= sim[]:=(
For[li=RandomChoice[p->Range[4],8];cl=Counts@li;count=8,
Length[cl]<4 || AnyTrue[cl,#<2&],count++, AppendTo[li,RandomChoice[p->Range[4],1]];li=Flatten@li;cl=Counts@li];
count
)
In[3]:= N@Mean@Table[sim[],10^6]
Out[3]= 22.3857

>>145
結局何もかも図星で何も言えなくなったみたいだねw

>>135
移動中なのでスマホで計算。
https://i.imgur.com/3GNffkv.png

場合分けと集計をWolframにさせるだけ。
分数で答が出るのは気持ちいい。

図星といえば、尿瓶チンパフェチのPhimoseくんは嫁なし　だろう。
その理由を推測せよ。
(1)稼ぎが悪いから　(2)Phimose草杉だから　(3)罵倒を悦びとするから

複数回答可。

>>148
全部自己紹介？
ジジイがどこ行くんだよ？あの世？

>>147
built-inのSolveを使わずに自作ソルバーで計算。
https://i.imgur.com/aa30lYh.png
東大卒かエリート高校生による検算を希望します。

>>134
答が出せないアホ発見!
理工系ならWolframくらい使えるんじゃないの？
医系ならR言語だろうけど。

>>148
図星といえば、偽医者さんはニートだろう
その理由を推測せよ。
(1)朝から何の有益性も無い書き込みをしているから　
(2)医者板では医者のフリをする発言をしても全部論破されるから　
(3)罵倒を悦びとするような糞スレを立てているから

複数回答可。

>>151
何で医者板ではダンマリ決め込んでるの？
本物の医者相手だと太刀打ち出来ないから？

>>133
分数解を計算する自作ソルバーが完成したのでグラフ化
https://i.imgur.com/W5WaI5x.png

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}}}

>>133
応用問題

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

>>129
つまりスレ違いの書き込みに対し、
スレ違いを承知の上で返答したってこと？
悪質だな

>>142
Wolfram使えても中学受験の問題は解けませんよ

>>151
日本語読めないチンパン数学()に答えとかw

何で偽医者さんって頑なに医者のフリするんだろうね
数学も英語も国語も出来ない精神疾患持ちの人が医者なわけないじゃん
二期校最後の年に受験に失敗して医者コンプになったんでしょ？

>>156
想定解

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

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

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

Out[4]= 0.01491316772004968121843273618628433974080

病棟がコロナクラスタ化したので新入院を受けられなくなった。
職員へのベクルリーは外来投与にした。

>>162
医者のフリしないでよ偽医者さん

血液型の頻度比はA:O:B:AB＝4:3:2:1とする。

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

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

>>162

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

医師が羨ましければ再受験すればいいのに
俺の同期は２割以上は再受験組だったぞ。
歯学部には東大数学科卒もいた。
東大卒の獣医免許持ちもいた。

>>168
それも自己紹介だね
脳内医者なのはとっくにバレてるぞマヌケww

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

>>167
>ベクルリーは5日間投与が基本
まさに薬漬け病院だな。
まぁ、薬屋の売り子しかならではの記述だね。

薬屋の売り子しかできない医者ならではの記述だね

>>170
また脳内医療丸出しみたいだな
どうせまたネットで拾ってきた知識だろ？
素人なら騙せると思ったら大間違いだぞww

麻酔のバイトをやっていた病院でもベクルリーは早期に始めて３日投与のプロトコールだった。
１バイアルの薬価４６４９８円。肺炎まで悪化させて５日使うのは悪徳病院。

>>163
面倒な計算、ありがとうございます。
想定解と合致していて安堵。

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

calc[n_,m_] :=(
If[m<1||m>4,Return[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

>>170
3日でも外来投与するならおかしいじゃないですか？偽医者さん

>>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>4,Return[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人以上。

外来投与とは書かれていない
暗に正規の３日投与で効果が出ないのに、５日投与は保険点数稼ぐ以外の何物でもない
というお話で普通は様子見　素人目でも

>>177
3日間投与なのに外来投与してるのは何故？
何でそこを医者なのに解説出来ないの？

>>178
>>162にめっちゃ外来投与って書いてる

また脳内医療で適当に押し切ろうとしてるけどやっぱり素人を騙す知能なんかなかったみたいw

>>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くんが自演認定厨であることは度々、識者より指摘されている。
俺の想定解よりエレガントな解が投稿されていることを理解できないようだ。

BruteForceでの自作ソルバーがデフォルトのソルバーより高速なのは意外だった。
まあ、デフォルトのSolveが万能なゆえに、特化した自作ソルバーより時間がかかるのだろう。
ブラックボックスに算出させているのは気持ち悪いのでなるべく自作する。

>>182
素人なら騙せると思ってる浅はかなチンパン脳内医療()とチンパン数学()

>>185

541：卵の名無しさん (ﾜｯﾁｮｲ 4f22-kylL [240b:11:241:7900:*])：2024/07/21(日) 22:42:44.78 ID:twk2iaT40
>>540
この如何にも医者でわかってます感www
入院してるのは基本中等症以上なんだから5日間で合ってるよ
そもそもベクルリー外来で投与しない
（出来ないことは無いがしない）
ここに書き込まないでわざわざ数学板で書いてるのはネットで調べた知識で自信が無かったからだろうなwww
直接こっちに書き込めば良いのに
素人の尿瓶ジジイなぞボコボコにしてやるが

どの道尿瓶ジジイのスレ違いのチンパン数学()にまともに答えようとしているアホも尿瓶と同レベルなのは言うまでもないけどな
自演認定厨って発狂してるってやっぱ図星みたいねw

>>174
医者がわざわざ薬の細かい値段まで気にする？開業医ならまだしも
この人医者じゃなくて会計する人でしょ

だとしても話が全部古いから随分前にクビになったみたいだがw

車輪の再発明するやつの常套句
いつまでもいつまでも同じレベルのところで足踏みするクズ