[過去ﾛｸﾞ] 高校数学の質問スレ Part437 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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くんが自演認定厨であることは度々、識者より指摘されている。
俺の想定解よりエレガントな解が投稿されていることを理解できないようだ。
183: 2024/07/21(日)23:27 ID:3skoHSGy(17/17) AAS
BruteForceでの自作ソルバーがデフォルトのソルバーより高速なのは意外だった。
まあ、デフォルトのSolveが万能なゆえに、特化した自作ソルバーより時間がかかるのだろう。
ブラックボックスに算出させているのは気持ち悪いのでなるべく自作する。
184: 2024/07/21(日)23:43 ID:yNeLjgJ4(8/8) AAS
>>182
素人なら騙せると思ってる浅はかなチンパン脳内医療()とチンパン数学()
185(1): 2024/07/22(月)00:02 ID:jzQg3t9F(1/5) AA×
>>164
186: 2024/07/22(月)00:20 ID:XNyK2Lk/(1/2) AAS
>>185
541：卵の名無しさん (ﾜｯﾁｮｲ 4f22-kylL [240b:11:241:7900:*])：2024/07/21(日) 22:42:44.78 ID:twk2iaT40
>>540
この如何にも医者でわかってます感www
入院してるのは基本中等症以上なんだから5日間で合ってるよ
そもそもベクルリー外来で投与しない
（出来ないことは無いがしない）
ここに書き込まないでわざわざ数学板で書いてるのはネットで調べた知識で自信が無かったからだろうなwww
直接こっちに書き込めば良いのに
素人の尿瓶ジジイなぞボコボコにしてやるが
187: 2024/07/22(月)00:41 ID:XNyK2Lk/(2/2) AAS
どの道尿瓶ジジイのスレ違いのチンパン数学()にまともに答えようとしているアホも尿瓶と同レベルなのは言うまでもないけどな
自演認定厨って発狂してるってやっぱ図星みたいねw
188(1): 2024/07/22(月)07:38 ID:iJH8MVBw(1) AAS
>>174
医者がわざわざ薬の細かい値段まで気にする？開業医ならまだしも
この人医者じゃなくて会計する人でしょ
189: 2024/07/22(月)08:31 ID:2lxQVdPp(1) AAS
だとしても話が全部古いから随分前にクビになったみたいだがw
190(1): 2024/07/22(月)08:31 ID:jQ5nyGjT(1) AAS
車輪の再発明するやつの常套句
いつまでもいつまでも同じレベルのところで足踏みするクズ
191(2): 2024/07/22(月)11:40 ID:iepWT9On(1/6) AAS
内視鏡バイトの帰りにスマホで計算する問題
血液型の頻度比はA:O:B:AB＝4:3:2:1とする。
40人を採血したときにどの血液型も複数人いる確率を分数で求めよ。
192: 2024/07/22(月)11:43 ID:iepWT9On(2/6) AAS
>>188
気にするに決まっている。
特にマルメの病棟だと高い薬を出すなと事務から言われる。
トレリーフはエクセグランで代用とか。
193(1): 2024/07/22(月)11:46 ID:iepWT9On(3/6) AAS
ベクルリーは1日1回投与だから外来投薬は容易。
セフトリアキソン外来で点滴とか普通にするが、
ゾシンだとそうはいかない。最近はゾロのタゾピペだが。
194: 2024/07/22(月)11:48 ID:iepWT9On(4/6) AAS
>>190
Wolframで分数解がだせるようにはなったが動画は無理だな。
あなたはできるの?
195(1): 2024/07/22(月)11:54 ID:iepWT9On(5/6) AAS
ザルティアでシアリスの代用してはいけない（業界ネタ）
196(1): 2024/07/22(月)12:00 ID:iepWT9On(6/6) AAS
>>191
場合分けして集計するだけ。
筆算でも可能だろうがどうやって効率的にするかの問題。
電卓だと表示桁数が足りなくなると思う。
東大卒やエリート高校生には容易だろう。
嫁なしPhimoseくんのキーキー電卓では集計できないようだが。
197: 2024/07/22(月)12:38 ID:Y93q6nhZ(1/2) AAS
正の整数nと有理数pの組(n,p)で、n+(1/n)=p^2を満たすものが存在するならば、すべて求めよ。
198(2): 2024/07/22(月)12:58 ID:ULPBznRV(1) AAS
>>191
Sum[n4=40-n1-n2-n3;Boole[n1>1] Boole[n2>1] Boole[n3>1] Boole[n4>1] Multinomial[n1,n2,n3,n4] (4/10)^n1 (3/10)^n2 (2/10)^n3 (1/10)^n4,{n1,0,40},{n2,0,40-n1},{n3,0,40-n1-n2}]
= 17931735688870232246983662877718870163/19531250000000000000000000000000000000
= 0.918104867270156...
Booleの積を Boole[Boole[n1>0]+Boole[n2>0]+Boole[n3>0]+Boole[n4>0]==3] に置き換えると>>156に使えるが、牛刀
199(1): 2024/07/22(月)13:19 ID:pn0wO9Tj(1) AAS
>>196
高校数学スレで配偶者がいないことが罵倒になると考える程度の頭の持ち主
そりゃスレタイもテンプレも読まないし読めないし延々とスレ違い行為続けるわけだ
事実を元にこうした指摘をしても、
妄想による嫁無しPhioseで論破したつもりになっちゃうのも最高にダサい
200(3): 2024/07/22(月)13:28 ID:ofTD9Unl(1) AAS
tan1°は有理数か
この問題の証明の仕方を教えてください
201(1): 2024/07/22(月)13:57 ID:o5k1+uIe(1/2) AAS
高校の範囲ならば
以下の通り背理法で示す
tanα, tanβ がともに有理数ならば
tan(α＋β)＝(tanα＋tanβ)(1＋tanα・tanβ)
もまた有理数である
tan1° が有理数と仮定すると
これを足し合わせた tan30° も有理数である
しかし tan30°＝1/√3 は無理数で矛盾する
よって tan1° は無理数である
202(1): 2024/07/22(月)13:58 ID:o5k1+uIe(2/2) AAS
分数の線が抜けてた
tan(α＋β)＝(tanα＋tanβ)/(1＋tanα・tanβ)
まいっか
203(2): 2024/07/22(月)14:16 ID:nCTwCtt3(1/2) AAS
>>193
そもそも入院してない軽症の人なのにベクルリーって高い薬をわざわざ毎日来てもらって打つの？3日間連続で来てもらうってこと
？本当にみんなそんな事やってるの？
何かおかしくないか？
俺コロナかかってもカロナール出されて普通に帰されたけど
204: 2024/07/22(月)14:50 ID:/ZCZ+FDq(1/6) AAS
>>203
もちろん脳内医療です
205: 2024/07/22(月)15:13 ID:hi/KRuYG(1/5) AAS
>>198
Multinomialって関数があるのか、他の人のコードを読むのは勉強になるなぁ。
206(1): 2024/07/22(月)15:13 ID:hi/KRuYG(2/5) AAS
>>199
やはり、嫁なしのようだな。
原因は、稼ぎ少な杉 Phimose草杉 罵倒・自演認定とか性格悪杉。
自演認定厨は識者の方々から屡々指摘されている。
上下前次1-新書関写板覧索設栞歴
あと 796 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.023s