【質問者必読!!】
まず>>1-5をよく読んでね
数学@5ch掲示板用 掲示板での数学記号の書き方例と一般的な記号の使用例
http://mathmathmath.dotera.net/
・まずは教科書、参考書、web検索などで調べるようにしましょう。(特に基本的な公式など)
・問題の写し間違いには気をつけましょう。
・長い分母分子を含む分数はきちんと括弧でくくりましょう。
(× x+1/x+2 ; ○((x+1)/(x+2)) )
・丸文字、顔文字、その他は環境やブラウザによりうまく表示できない場合があります。
どうしても画像を貼る場合はPCから直接見られるところに見やすい画像を貼ってください。
ピクトはPCから見られないことがあるので避けてください。
・質問者は名前を騙られたくない場合、トリップを付けましょう。
(トリップの付け方は 名前(N)に 俺!#oretrip ←適当なトリ)
・質問者は回答者がわかるように問題を書くようにしましょう。
でないと放置されることがあります。
(変に省略するより全文書いた方がいい、また説明なく習慣的でない記号を使わないように)
・質問者は何が分からないのか、どこまで考えたのかを明記しましょう。
それがない場合、放置されることがあります。
(特に、自分でやってみたのに合わないので教えてほしい、みたいなときは必ず書くように)
・回答者も節度ある回答を心がけてください。
・出題スレではありません。出題は該当スレにお願いします。
・970くらいになったら次スレを立ててください。
※前スレ
高校数学の質問スレ Part436
https://rio2016.5ch.net/test/read.cgi/math/1718662026/
高校数学の質問スレ Part437
■ このスレッドは過去ログ倉庫に格納されています
2024/07/16(火) 04:16:47.48ID:STV46lUb
151132人目の素数さん
2024/07/21(日) 10:23:54.57ID:3skoHSGy152132人目の素数さん
2024/07/21(日) 11:02:16.80ID:7gLehhCn >>148
図星といえば、偽医者さんはニートだろう
その理由を推測せよ。
(1)朝から何の有益性も無い書き込みをしているから
(2)医者板では医者のフリをする発言をしても全部論破されるから
(3)罵倒を悦びとするような糞スレを立てているから
複数回答可。
図星といえば、偽医者さんはニートだろう
その理由を推測せよ。
(1)朝から何の有益性も無い書き込みをしているから
(2)医者板では医者のフリをする発言をしても全部論破されるから
(3)罵倒を悦びとするような糞スレを立てているから
複数回答可。
153132人目の素数さん
2024/07/21(日) 11:04:12.06ID:7gLehhCn154132人目の素数さん
2024/07/21(日) 11:24:09.98ID:3skoHSGy155132人目の素数さん
2024/07/21(日) 11:51:38.09ID:3skoHSGy 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}}}
自作ソルバーとの速度比較
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}}}
156132人目の素数さん
2024/07/21(日) 13:21:18.86ID:3skoHSGy157132人目の素数さん
2024/07/21(日) 15:50:32.94ID:Bd8wibbu158132人目の素数さん
2024/07/21(日) 15:51:49.71ID:Bd8wibbu >>142
Wolfram使えても中学受験の問題は解けませんよ
Wolfram使えても中学受験の問題は解けませんよ
159132人目の素数さん
2024/07/21(日) 16:13:17.38ID:yNeLjgJ4 >>151
日本語読めないチンパン数学()に答えとかw
日本語読めないチンパン数学()に答えとかw
160132人目の素数さん
2024/07/21(日) 16:49:28.07ID:7gLehhCn 何で偽医者さんって頑なに医者のフリするんだろうね
数学も英語も国語も出来ない精神疾患持ちの人が医者なわけないじゃん
二期校最後の年に受験に失敗して医者コンプになったんでしょ?
数学も英語も国語も出来ない精神疾患持ちの人が医者なわけないじゃん
二期校最後の年に受験に失敗して医者コンプになったんでしょ?
161132人目の素数さん
2024/07/21(日) 16:57:47.02ID:3skoHSGy >>156
想定解
In[3]:= calc[40,3]
4660364912515525380760230058213856169
Out[3]= ---------------------------------------
312500000000000000000000000000000000000
In[4]:= N[%,50]
Out[4]= 0.01491316772004968121843273618628433974080
想定解
In[3]:= calc[40,3]
4660364912515525380760230058213856169
Out[3]= ---------------------------------------
312500000000000000000000000000000000000
In[4]:= N[%,50]
Out[4]= 0.01491316772004968121843273618628433974080
162132人目の素数さん
2024/07/21(日) 16:59:17.72ID:3skoHSGy 病棟がコロナクラスタ化したので新入院を受けられなくなった。
職員へのベクルリーは外来投与にした。
職員へのベクルリーは外来投与にした。
163132人目の素数さん
2024/07/21(日) 19:35:40.52ID:quiimUEg 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
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
164132人目の素数さん
2024/07/21(日) 19:38:05.56ID:quiimUEg {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
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
165132人目の素数さん
2024/07/21(日) 20:17:14.76ID:MAlNFasp >>162
医者のフリしないでよ偽医者さん
医者のフリしないでよ偽医者さん
166132人目の素数さん
2024/07/21(日) 20:24:03.71ID:3skoHSGy 血液型の頻度比はA:O:B:AB=4:3:2:1とする。
無作為に3人の血液を集めたら2種類の血液型が存在する確率が最も高い。
無作為に4人の血液を集めたら3種類の血液型が存在する確率が最も高い。
(1) 何人以上の血液を集めれば4種類の血液型が存在する確率を最も高くできるか?
(2) 何人以上の血液を集めれば4種類の血液型が存在する確率が0.5を超えるか?
(3) (1)(2)を満たす最小人数で4種類の血液型が存在する確率を分数で求めよ。
無作為に3人の血液を集めたら2種類の血液型が存在する確率が最も高い。
無作為に4人の血液を集めたら3種類の血液型が存在する確率が最も高い。
(1) 何人以上の血液を集めれば4種類の血液型が存在する確率を最も高くできるか?
(2) 何人以上の血液を集めれば4種類の血液型が存在する確率が0.5を超えるか?
(3) (1)(2)を満たす最小人数で4種類の血液型が存在する確率を分数で求めよ。
167132人目の素数さん
2024/07/21(日) 20:29:03.82ID:yNeLjgJ4168132人目の素数さん
2024/07/21(日) 20:29:24.46ID:3skoHSGy 医師が羨ましければ再受験すればいいのに
俺の同期は2割以上は再受験組だったぞ。
歯学部には東大数学科卒もいた。
東大卒の獣医免許持ちもいた。
俺の同期は2割以上は再受験組だったぞ。
歯学部には東大数学科卒もいた。
東大卒の獣医免許持ちもいた。
169132人目の素数さん
2024/07/21(日) 20:30:01.56ID:yNeLjgJ4170132人目の素数さん
2024/07/21(日) 20:35:59.93ID:3skoHSGy >>167
3日投与だよ。
初日2バイアル、あと2日は1バイアルで4バイアルが1人分としてセットされている。生食で直接溶解できないので注射用と一緒にセットになっている。
ハンプも生食で直接溶解は不可。サイレースは注射用水で溶解と規定されているが前の勤務先では生食で溶解して問題なかったな。
3日投与だよ。
初日2バイアル、あと2日は1バイアルで4バイアルが1人分としてセットされている。生食で直接溶解できないので注射用と一緒にセットになっている。
ハンプも生食で直接溶解は不可。サイレースは注射用水で溶解と規定されているが前の勤務先では生食で溶解して問題なかったな。
171132人目の素数さん
2024/07/21(日) 20:41:21.18ID:3skoHSGy172132人目の素数さん
2024/07/21(日) 20:45:28.54ID:3skoHSGy 薬屋の売り子しかできない医者ならではの記述だね
173132人目の素数さん
2024/07/21(日) 20:49:29.57ID:yNeLjgJ4174132人目の素数さん
2024/07/21(日) 20:59:06.31ID:3skoHSGy 麻酔のバイトをやっていた病院でもベクルリーは早期に始めて3日投与のプロトコールだった。
1バイアルの薬価46498円。肺炎まで悪化させて5日使うのは悪徳病院。
1バイアルの薬価46498円。肺炎まで悪化させて5日使うのは悪徳病院。
175132人目の素数さん
2024/07/21(日) 21:06:57.47ID:3skoHSGy >>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
面倒な計算、ありがとうございます。
想定解と合致していて安堵。
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
176132人目の素数さん
2024/07/21(日) 21:16:33.51ID:MAlNFasp >>170
3日でも外来投与するならおかしいじゃないですか?偽医者さん
3日でも外来投与するならおかしいじゃないですか?偽医者さん
177132人目の素数さん
2024/07/21(日) 21:34:30.71ID:3skoHSGy >>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人以上。
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人以上。
178132人目の素数さん
2024/07/21(日) 21:41:12.17ID:aY80opx9 外来投与とは書かれていない
暗に正規の3日投与で効果が出ないのに、5日投与は保険点数稼ぐ以外の何物でもない
というお話で普通は様子見 素人目でも
暗に正規の3日投与で効果が出ないのに、5日投与は保険点数稼ぐ以外の何物でもない
というお話で普通は様子見 素人目でも
179132人目の素数さん
2024/07/21(日) 22:35:12.09ID:MAlNFasp181132人目の素数さん
2024/07/21(日) 23:03:56.51ID:yNeLjgJ4 また脳内医療で適当に押し切ろうとしてるけどやっぱり素人を騙す知能なんかなかったみたいw
182132人目の素数さん
2024/07/21(日) 23:23:25.56ID:3skoHSGy >>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行に纏めた。自分でも解読するのに難渋しそう。
* 血液型頻度比は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くんが自演認定厨であることは度々、識者より指摘されている。
俺の想定解よりエレガントな解が投稿されていることを理解できないようだ。
183132人目の素数さん
2024/07/21(日) 23:27:39.87ID:3skoHSGy BruteForceでの自作ソルバーがデフォルトのソルバーより高速なのは意外だった。
まあ、デフォルトのSolveが万能なゆえに、特化した自作ソルバーより時間がかかるのだろう。
ブラックボックスに算出させているのは気持ち悪いのでなるべく自作する。
まあ、デフォルトのSolveが万能なゆえに、特化した自作ソルバーより時間がかかるのだろう。
ブラックボックスに算出させているのは気持ち悪いのでなるべく自作する。
184132人目の素数さん
2024/07/21(日) 23:43:56.23ID:yNeLjgJ4 >>182
素人なら騙せると思ってる浅はかなチンパン脳内医療()とチンパン数学()
素人なら騙せると思ってる浅はかなチンパン脳内医療()とチンパン数学()
185132人目の素数さん
2024/07/22(月) 00:02:06.70ID:jzQg3t9F >>164
A,B,C,D となる確率を a,b,c,d とする。
a+b+c+d = 1
ド・モルガンより
1種類: a^n + b^n + c^n + d^n,
2種類: (a+b)^n + (a+c)^n + (a+d)^n + (b+c)^n + (b+d)^n + (c+d)^n
- 3a^n - 3b^n - 3c^n - 3d^n,
3種類: (a+b+c)^n + (b+c+d)^n + (c+d+a)^n + (d+a+b)^n
-2(a+b)^n -2(a+c)^n -2(a+d)^n -2(b+c)^n -2(b+d)^n -2(c+d)^n
+ 3a^n + 3b^n + 3c^n + 3d^n,
4種類: 1 - (a+b+c)^n - (b+c+d)^n - (c+d+a)^n - (d+a+b)^n
+ (a+b)^n + (a+c)^n + (a+d)^n + (b+c)^n + (b+d)^n + (c+d)^n
- a^n - b^n - c^n - d^n,
4種類の確率が 0.5 となるのは n=9.2652 のとき。
A,B,C,D となる確率を a,b,c,d とする。
a+b+c+d = 1
ド・モルガンより
1種類: a^n + b^n + c^n + d^n,
2種類: (a+b)^n + (a+c)^n + (a+d)^n + (b+c)^n + (b+d)^n + (c+d)^n
- 3a^n - 3b^n - 3c^n - 3d^n,
3種類: (a+b+c)^n + (b+c+d)^n + (c+d+a)^n + (d+a+b)^n
-2(a+b)^n -2(a+c)^n -2(a+d)^n -2(b+c)^n -2(b+d)^n -2(c+d)^n
+ 3a^n + 3b^n + 3c^n + 3d^n,
4種類: 1 - (a+b+c)^n - (b+c+d)^n - (c+d+a)^n - (d+a+b)^n
+ (a+b)^n + (a+c)^n + (a+d)^n + (b+c)^n + (b+d)^n + (c+d)^n
- a^n - b^n - c^n - d^n,
4種類の確率が 0.5 となるのは n=9.2652 のとき。
186132人目の素数さん
2024/07/22(月) 00:20:48.63ID:XNyK2Lk/187132人目の素数さん
2024/07/22(月) 00:41:00.38ID:XNyK2Lk/ どの道尿瓶ジジイのスレ違いのチンパン数学()にまともに答えようとしているアホも尿瓶と同レベルなのは言うまでもないけどな
自演認定厨って発狂してるってやっぱ図星みたいねw
自演認定厨って発狂してるってやっぱ図星みたいねw
188132人目の素数さん
2024/07/22(月) 07:38:02.37ID:iJH8MVBw189132人目の素数さん
2024/07/22(月) 08:31:02.99ID:2lxQVdPp だとしても話が全部古いから随分前にクビになったみたいだがw
190132人目の素数さん
2024/07/22(月) 08:31:53.23ID:jQ5nyGjT 車輪の再発明するやつの常套句
いつまでもいつまでも同じレベルのところで足踏みするクズ
いつまでもいつまでも同じレベルのところで足踏みするクズ
191132人目の素数さん
2024/07/22(月) 11:40:13.83ID:iepWT9On 内視鏡バイトの帰りにスマホで計算する問題
血液型の頻度比はA:O:B:AB=4:3:2:1とする。
40人を採血したときにどの血液型も複数人いる確率を分数で求めよ。
血液型の頻度比はA:O:B:AB=4:3:2:1とする。
40人を採血したときにどの血液型も複数人いる確率を分数で求めよ。
192132人目の素数さん
2024/07/22(月) 11:43:32.97ID:iepWT9On193132人目の素数さん
2024/07/22(月) 11:46:51.03ID:iepWT9On ベクルリーは1日1回投与だから外来投薬は容易。
セフトリアキソン外来で点滴とか普通にするが、
ゾシンだとそうはいかない。最近はゾロのタゾピペだが。
セフトリアキソン外来で点滴とか普通にするが、
ゾシンだとそうはいかない。最近はゾロのタゾピペだが。
194132人目の素数さん
2024/07/22(月) 11:48:35.26ID:iepWT9On195132人目の素数さん
2024/07/22(月) 11:54:05.10ID:iepWT9On ザルティアでシアリスの代用してはいけない(業界ネタ)
196132人目の素数さん
2024/07/22(月) 12:00:29.96ID:iepWT9On >>191
場合分けして集計するだけ。
筆算でも可能だろうがどうやって効率的にするかの問題。
電卓だと表示桁数が足りなくなると思う。
東大卒やエリート高校生には容易だろう。
嫁なしPhimoseくんのキーキー電卓では集計できないようだが。
場合分けして集計するだけ。
筆算でも可能だろうがどうやって効率的にするかの問題。
電卓だと表示桁数が足りなくなると思う。
東大卒やエリート高校生には容易だろう。
嫁なしPhimoseくんのキーキー電卓では集計できないようだが。
197132人目の素数さん
2024/07/22(月) 12:38:54.68ID:Y93q6nhZ 正の整数nと有理数pの組(n,p)で、n+(1/n)=p^2を満たすものが存在するならば、すべて求めよ。
198132人目の素数さん
2024/07/22(月) 12:58:18.24ID:ULPBznRV >>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に使えるが、牛刀
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に使えるが、牛刀
199132人目の素数さん
2024/07/22(月) 13:19:20.11ID:pn0wO9Tj >>196
高校数学スレで配偶者がいないことが罵倒になると考える程度の頭の持ち主
そりゃスレタイもテンプレも読まないし読めないし延々とスレ違い行為続けるわけだ
事実を元にこうした指摘をしても、
妄想による嫁無しPhioseで論破したつもりになっちゃうのも最高にダサい
高校数学スレで配偶者がいないことが罵倒になると考える程度の頭の持ち主
そりゃスレタイもテンプレも読まないし読めないし延々とスレ違い行為続けるわけだ
事実を元にこうした指摘をしても、
妄想による嫁無しPhioseで論破したつもりになっちゃうのも最高にダサい
200132人目の素数さん
2024/07/22(月) 13:28:26.45ID:ofTD9Unl tan1°は有理数か
この問題の証明の仕方を教えてください
この問題の証明の仕方を教えてください
201132人目の素数さん
2024/07/22(月) 13:57:03.02ID:o5k1+uIe 高校の範囲ならば
以下の通り背理法で示す
tanα, tanβ がともに有理数ならば
tan(α+β)=(tanα+tanβ)(1+tanα・tanβ)
もまた有理数である
tan1° が有理数と仮定すると
これを足し合わせた tan30° も有理数である
しかし tan30°=1/√3 は無理数で矛盾する
よって tan1° は無理数である
以下の通り背理法で示す
tanα, tanβ がともに有理数ならば
tan(α+β)=(tanα+tanβ)(1+tanα・tanβ)
もまた有理数である
tan1° が有理数と仮定すると
これを足し合わせた tan30° も有理数である
しかし tan30°=1/√3 は無理数で矛盾する
よって tan1° は無理数である
202132人目の素数さん
2024/07/22(月) 13:58:10.72ID:o5k1+uIe 分数の線が抜けてた
tan(α+β)=(tanα+tanβ)/(1+tanα・tanβ)
まいっか
tan(α+β)=(tanα+tanβ)/(1+tanα・tanβ)
まいっか
203132人目の素数さん
2024/07/22(月) 14:16:11.69ID:nCTwCtt3 >>193
そもそも入院してない軽症の人なのにベクルリーって高い薬をわざわざ毎日来てもらって打つの?3日間連続で来てもらうってこと
?本当にみんなそんな事やってるの?
何かおかしくないか?
俺コロナかかってもカロナール出されて普通に帰されたけど
そもそも入院してない軽症の人なのにベクルリーって高い薬をわざわざ毎日来てもらって打つの?3日間連続で来てもらうってこと
?本当にみんなそんな事やってるの?
何かおかしくないか?
俺コロナかかってもカロナール出されて普通に帰されたけど
204132人目の素数さん
2024/07/22(月) 14:50:51.60ID:/ZCZ+FDq >>203
もちろん脳内医療です
もちろん脳内医療です
205132人目の素数さん
2024/07/22(月) 15:13:14.11ID:hi/KRuYG >>198
Multinomialって関数があるのか、他の人のコードを読むのは勉強になるなぁ。
Multinomialって関数があるのか、他の人のコードを読むのは勉強になるなぁ。
206132人目の素数さん
2024/07/22(月) 15:13:24.57ID:hi/KRuYG207132人目の素数さん
2024/07/22(月) 15:17:30.59ID:/ZCZ+FDq208132人目の素数さん
2024/07/22(月) 15:24:44.40ID:hi/KRuYG >>198
想定解に同じ。
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= calc[n_,j_]:=(
{p1,p2,p3,p4}={1/10,2/10,3/10,4/10};
y=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&];
fn[x_] :=(
{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
);
f1[x_]:= AllTrue[x,#>=j&];
Total[fn /@ Select[y,f1]]
)
In[2]:= calc[40,2]
17931735688870232246983662877718870163
Out[2]= --------------------------------------
19531250000000000000000000000000000000
想定解に同じ。
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= calc[n_,j_]:=(
{p1,p2,p3,p4}={1/10,2/10,3/10,4/10};
y=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&];
fn[x_] :=(
{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
);
f1[x_]:= AllTrue[x,#>=j&];
Total[fn /@ Select[y,f1]]
)
In[2]:= calc[40,2]
17931735688870232246983662877718870163
Out[2]= --------------------------------------
19531250000000000000000000000000000000
209132人目の素数さん
2024/07/22(月) 15:27:44.30ID:hi/KRuYG210132人目の素数さん
2024/07/22(月) 15:29:14.46ID:hi/KRuYG 2類の頃は死亡退院例は搬送してくれる葬儀屋がなくて他市の業者に依頼していた。
朝なくなっても搬送は夕方とか。
朝なくなっても搬送は夕方とか。
211132人目の素数さん
2024/07/22(月) 15:37:55.67ID:Y93q6nhZ xy+yz+zx=πのとき、
sin(x)+sin(y)+sin(z)
の取りうる値の範囲を求めよ。
sin(x)+sin(y)+sin(z)
の取りうる値の範囲を求めよ。
212132人目の素数さん
2024/07/22(月) 15:50:56.93ID:+mzNZEA7 >>209
だったらなおのこと入院させて連続投与のほうがいいだろマヌケ
というかアンタずっとスレタイと関係ないことしかほざけなくて目障りなんだけど
日本語理解できないレベルのアホがなんで医療できるんだよ
だったらなおのこと入院させて連続投与のほうがいいだろマヌケ
というかアンタずっとスレタイと関係ないことしかほざけなくて目障りなんだけど
日本語理解できないレベルのアホがなんで医療できるんだよ
213132人目の素数さん
2024/07/22(月) 16:16:30.89ID:eOH2EXqH >>201,202
ありがとうございます
tan30°が無理数であるとし背理法を使う場合、
tan30°が1/√3であることは自明であるとして良いのでしょうか
どこまでを自明として良いのかの判断にいつも悩まされます
ありがとうございます
tan30°が無理数であるとし背理法を使う場合、
tan30°が1/√3であることは自明であるとして良いのでしょうか
どこまでを自明として良いのかの判断にいつも悩まされます
214132人目の素数さん
2024/07/22(月) 17:04:34.06ID:eJi15y7x それが自明かどうか迷うなら正三角形を半分に切った絵を描いておけばいい
というか悩むのはそこか?
というか悩むのはそこか?
215132人目の素数さん
2024/07/22(月) 18:02:55.11ID:nCTwCtt3 >>209
んっ?職員に外来投与って言ってなかった?
職員が90歳の喘息持ちってこと?そもそもそんな人を入院出来ないにしても転院させないの?何か色々意味不明なのは俺が素人だから?素人だからって適当言ってないですかあなた
んっ?職員に外来投与って言ってなかった?
職員が90歳の喘息持ちってこと?そもそもそんな人を入院出来ないにしても転院させないの?何か色々意味不明なのは俺が素人だから?素人だからって適当言ってないですかあなた
216132人目の素数さん
2024/07/22(月) 18:46:58.39ID:+mzNZEA7 >>210
544:卵の名無しさん (JP 0Hcb-kylL [202.253.111.210]):2024/07/22(月) 18:08:56.38 ID:l4OO+QdhH
>>543
ワロタ
流石にそれは入院させるだろ
高校生でも尿瓶ジジイの発言が怪しいって思ってんじゃねーかwww
咽頭喉頭の炎症が嚥下機能不全を起こすっていうのも意味不明過ぎるどういう機序だよwww
普通にコロナでレベル下がって誤嚥しただけだろ
あと誤嚥性の細菌性肺炎ってなんだよwww
そういうの誤嚥性肺炎って普通の医者は表現するんだけど
医者じゃないからそこらへんわかんないんだろうな
545:卵の名無しさん (JP 0Hcb-kylL [202.253.111.210]):2024/07/22(月) 18:13:01.43 ID:l4OO+QdhH
>>543
葬儀屋の話って基本医者関与しないけど
やっぱコイツ事務員だよね
「依頼していた」キリッ
じゃねーよwww
医者が葬儀屋に依頼するわけないだろ
どう見ても医療事務の発言ですわw
コイツアホだなバレバレじゃん
544:卵の名無しさん (JP 0Hcb-kylL [202.253.111.210]):2024/07/22(月) 18:08:56.38 ID:l4OO+QdhH
>>543
ワロタ
流石にそれは入院させるだろ
高校生でも尿瓶ジジイの発言が怪しいって思ってんじゃねーかwww
咽頭喉頭の炎症が嚥下機能不全を起こすっていうのも意味不明過ぎるどういう機序だよwww
普通にコロナでレベル下がって誤嚥しただけだろ
あと誤嚥性の細菌性肺炎ってなんだよwww
そういうの誤嚥性肺炎って普通の医者は表現するんだけど
医者じゃないからそこらへんわかんないんだろうな
545:卵の名無しさん (JP 0Hcb-kylL [202.253.111.210]):2024/07/22(月) 18:13:01.43 ID:l4OO+QdhH
>>543
葬儀屋の話って基本医者関与しないけど
やっぱコイツ事務員だよね
「依頼していた」キリッ
じゃねーよwww
医者が葬儀屋に依頼するわけないだろ
どう見ても医療事務の発言ですわw
コイツアホだなバレバレじゃん
217132人目の素数さん
2024/07/22(月) 19:34:00.55ID:NjtPOL8c218132人目の素数さん
2024/07/22(月) 19:37:40.84ID:NjtPOL8c219132人目の素数さん
2024/07/22(月) 19:39:44.70ID:NjtPOL8c >>216
Covid-19後遺症としての嚥下障害も知らんのかよ。
Covid-19後遺症としての嚥下障害も知らんのかよ。
220132人目の素数さん
2024/07/22(月) 19:49:08.88ID:DDMuXW2j ある数列{an}が次の漸化式を満たすとする。
an+2−5an+1+6an=2n(n=1,2,3,⋯)
a1=1,a2=3のとき、一般項anを求めよ。
an+2−5an+1+6an=2n(n=1,2,3,⋯)
a1=1,a2=3のとき、一般項anを求めよ。
221132人目の素数さん
2024/07/22(月) 19:49:50.62ID:DDMuXW2j 正四面体ABCDにおいて、辺ABの中点をMとする。このとき、次の問いに答えよ。
(1) 線分CMの長さを求めよ。
(2) 平面CDMと平面ABCのなす角を求めよ。
(1) 線分CMの長さを求めよ。
(2) 平面CDMと平面ABCのなす角を求めよ。
222132人目の素数さん
2024/07/22(月) 19:50:26.14ID:DDMuXW2j 関数f(x)=x3−3x2+2xについて、次の問いに答えよ。
(1) f(x)の増減表を作成し、極値を求めよ。
(2) 曲線y=f(x)とx軸で囲まれた図形の面積を求めよ。
(3) 曲線y=f(x)上の点(t,f(t))における接線の傾きの最小値を求めよ。
(1) f(x)の増減表を作成し、極値を求めよ。
(2) 曲線y=f(x)とx軸で囲まれた図形の面積を求めよ。
(3) 曲線y=f(x)上の点(t,f(t))における接線の傾きの最小値を求めよ。
223132人目の素数さん
2024/07/22(月) 19:51:11.96ID:DDMuXW2j 1から5までの数字が一つずつ書かれた5枚のカードがある。このカードから3枚を同時に取り出すとき、次の確率を求めよ。
(1) 取り出した3枚のカードの数字がすべて異なる確率。
(2) 取り出した3枚のカードの数字の積が偶数となる確率。
(1) 取り出した3枚のカードの数字がすべて異なる確率。
(2) 取り出した3枚のカードの数字の積が偶数となる確率。
224132人目の素数さん
2024/07/22(月) 19:56:11.64ID:/ZCZ+FDq225132人目の素数さん
2024/07/22(月) 20:39:26.09ID:rZP1jPhi >>218
何で転院させないの?ってレスは無視するんですか?結局投与したのは職員?90歳喘息持ちの?解説お願い致します
何で転院させないの?ってレスは無視するんですか?結局投与したのは職員?90歳喘息持ちの?解説お願い致します
226132人目の素数さん
2024/07/22(月) 20:41:34.05ID:kdEM+lKB 現在軒並み老齢者有病者が多く、病床はパンク気味なのはいいよね
病院には介護職員がいて死亡→葬儀場の安置所に連絡取ることで、
即、葬儀屋さんが動くのもいいよね
誤嚥性肺炎は細菌が仲立ちしないと肺炎にならないのもいいよね
あのね、もう反発心しかないかもしんないけど>>218氏はすべて真実を言ってるわけ
病院には介護職員がいて死亡→葬儀場の安置所に連絡取ることで、
即、葬儀屋さんが動くのもいいよね
誤嚥性肺炎は細菌が仲立ちしないと肺炎にならないのもいいよね
あのね、もう反発心しかないかもしんないけど>>218氏はすべて真実を言ってるわけ
227132人目の素数さん
2024/07/22(月) 20:43:07.51ID:jzQg3t9F >>220
特性多項式 tt-5t+6 = (t-2)(t-3),
特性値 2, 3
一般項 a[n] = b・2^n + c・3^n + n + 3/2,
b = (3a[1] - a[2] - 4)/2 =−2,
c = (a[2] - 2a[1])/3 + 1/2 = 5/6,
特性多項式 tt-5t+6 = (t-2)(t-3),
特性値 2, 3
一般項 a[n] = b・2^n + c・3^n + n + 3/2,
b = (3a[1] - a[2] - 4)/2 =−2,
c = (a[2] - 2a[1])/3 + 1/2 = 5/6,
228132人目の素数さん
2024/07/22(月) 20:54:22.31ID:/ZCZ+FDq229132人目の素数さん
2024/07/22(月) 20:54:26.56ID:rZP1jPhi230132人目の素数さん
2024/07/22(月) 20:56:21.89ID:rZP1jPhi231132人目の素数さん
2024/07/22(月) 21:05:10.08ID:rZP1jPhi >>226
言ってる事が支離滅裂です
病院なのに介護職がいて即連絡とか言ってますが病院なので介護職じゃなくているのは医者と看護師ですよね?何で介護士が連絡するんですか?病床がパンクして良いよねって倫理的におかしくないですか?このレスが偽医者さんだとしたらこの人が医者だとは到底思えません。僕も来年医学部受けようと考えてますがこんなクズが医者とは思いたくありません
言ってる事が支離滅裂です
病院なのに介護職がいて即連絡とか言ってますが病院なので介護職じゃなくているのは医者と看護師ですよね?何で介護士が連絡するんですか?病床がパンクして良いよねって倫理的におかしくないですか?このレスが偽医者さんだとしたらこの人が医者だとは到底思えません。僕も来年医学部受けようと考えてますがこんなクズが医者とは思いたくありません
232132人目の素数さん
2024/07/22(月) 21:07:34.96ID:/ZCZ+FDq >>226がID:DDMuXW2jの自演じゃないと思う人レスして下さい
233132人目の素数さん
2024/07/22(月) 21:15:20.49ID:jzQg3t9F >>223
全部で C[5,3] = 10 とおりある。
(1) 1
(2) 0.9 … {1,3,5} 以外はすべて偶数。
全部で C[5,3] = 10 とおりある。
(1) 1
(2) 0.9 … {1,3,5} 以外はすべて偶数。
234132人目の素数さん
2024/07/22(月) 21:23:09.67ID:jzQg3t9F235132人目の素数さん
2024/07/22(月) 21:32:27.27ID:jzQg3t9F236132人目の素数さん
2024/07/22(月) 22:17:08.60ID:kdEM+lKB >>230,231
誤嚥性肺炎は誤嚥による細菌肺炎なのでそのまんまという気が
病院には看護士さん、薬剤師さん、理学療法士さん、作業療法士さん等多々いますが
その中で介護福祉士の免許持ってる人が普通にいますよ
今の病院で病床に余裕があると思ってますか
高校生の方だと思いますが、志しを持った勉強をし悪徳医者を駆逐するような
人の気持ちのわかる優しいお医者さんになってください
誤嚥性肺炎は誤嚥による細菌肺炎なのでそのまんまという気が
病院には看護士さん、薬剤師さん、理学療法士さん、作業療法士さん等多々いますが
その中で介護福祉士の免許持ってる人が普通にいますよ
今の病院で病床に余裕があると思ってますか
高校生の方だと思いますが、志しを持った勉強をし悪徳医者を駆逐するような
人の気持ちのわかる優しいお医者さんになってください
237132人目の素数さん
2024/07/22(月) 23:21:13.11ID:/ZCZ+FDq238132人目の素数さん
2024/07/23(火) 00:16:47.70ID:ma6NAjIg >>222
(1)
f(x) = x(x-1)(x-2),
f '(x) = 3xx -6x +2 = 3(x-1)^2−1,
極値 (f '=0) は x = 1±1/√3 にある。
x -∞ … 0 … 1-1/√3 … 1 … 1+1/√3 … 2 … ∞
f(x) -∞ / 0 / 2/(3√3) \ 0 \ -2/(3√3) / 0 / ∞
極大 極小
(2)
∫[0,1] f(x) dx = [ (1/4)x^4 −x^3 +x^2 ](x=0→1) = 1/4,
ー∫[1,2] f(x) dx = 1/4,
両方合わせて 1/2.
(3)
f "(x) = 6(x-1),
f '(x) は x=1 で極小となり
極小値 f '(1) = -1.
(1)
f(x) = x(x-1)(x-2),
f '(x) = 3xx -6x +2 = 3(x-1)^2−1,
極値 (f '=0) は x = 1±1/√3 にある。
x -∞ … 0 … 1-1/√3 … 1 … 1+1/√3 … 2 … ∞
f(x) -∞ / 0 / 2/(3√3) \ 0 \ -2/(3√3) / 0 / ∞
極大 極小
(2)
∫[0,1] f(x) dx = [ (1/4)x^4 −x^3 +x^2 ](x=0→1) = 1/4,
ー∫[1,2] f(x) dx = 1/4,
両方合わせて 1/2.
(3)
f "(x) = 6(x-1),
f '(x) は x=1 で極小となり
極小値 f '(1) = -1.
239132人目の素数さん
2024/07/23(火) 02:36:32.97ID:ma6NAjIg240132人目の素数さん
2024/07/23(火) 05:41:30.22ID:zgXoQxul >>236
医者に恨みを持った統失の文章みたい
医者に恨みを持った統失の文章みたい
241132人目の素数さん
2024/07/23(火) 05:53:55.20ID:0rqVmjqo 嫁と一緒に料理をしながら考えた問題
血液型頻度比はA:O:B:AB=4:3:2:1とする。
献血で一人ずつ採血していきすべての血液型が集まったら終了する。
頻度比を変えても算出できるように、
終了するまでに採血された人数の期待値を求めるソルバーを積分を用いて作製せよ。
使用言語はなんでもよい。
あらゆるリソースを用いてよいが、嫁なしPhilmoseくんに照会しても罵倒もしくは自演認定が返ってくるだけのようである。
おまけ:Rでの計算例
calc=\(p=c(1/10,2/10,3/10,4/10)) integrate(Vectorize(\(x) 1 - prod(1-exp(-p[1:length(p)]*x))),0,Inf)$value |> MASS::fractions()
血液型頻度比はA:O:B:AB=4:3:2:1とする。
献血で一人ずつ採血していきすべての血液型が集まったら終了する。
頻度比を変えても算出できるように、
終了するまでに採血された人数の期待値を求めるソルバーを積分を用いて作製せよ。
使用言語はなんでもよい。
あらゆるリソースを用いてよいが、嫁なしPhilmoseくんに照会しても罵倒もしくは自演認定が返ってくるだけのようである。
おまけ:Rでの計算例
calc=\(p=c(1/10,2/10,3/10,4/10)) integrate(Vectorize(\(x) 1 - prod(1-exp(-p[1:length(p)]*x))),0,Inf)$value |> MASS::fractions()
242132人目の素数さん
2024/07/23(火) 05:54:35.30ID:0rqVmjqo 実行結果
> calc=\(p=c(1/10,2/10,3/10,4/10)) integrate(Vectorize(\(x) 1 - prod(1-exp(-p[1:length(p)]*x))),0,Inf)$value |> MASS::fractions()
> calc()
[1] 445/36
答が間違っているかもしれないので
東大卒やエリート高校生による検算を希望します。
> calc=\(p=c(1/10,2/10,3/10,4/10)) integrate(Vectorize(\(x) 1 - prod(1-exp(-p[1:length(p)]*x))),0,Inf)$value |> MASS::fractions()
> calc()
[1] 445/36
答が間違っているかもしれないので
東大卒やエリート高校生による検算を希望します。
243132人目の素数さん
2024/07/23(火) 06:02:19.51ID:0rqVmjqo244132人目の素数さん
2024/07/23(火) 06:10:26.66ID:0rqVmjqo 業界ネタ
コロナウイルスが味の神経に関わる「顔面神経」や「迷走神経」「舌咽神経」の末梢神経にダメージを与えるためとされる。
舌咽神経の機能低下により咽頭反射に問題が生じて誤嚥につながる。
武漢株の頃はCOVID−19はウイルスだから抗菌剤投与は不要とされていたが、
ウイルス性肺炎を起こしにくいオミクロン株以降は誤嚥性肺炎合併が多いので抗菌剤も使用すべきとされた。
コロナウイルスが味の神経に関わる「顔面神経」や「迷走神経」「舌咽神経」の末梢神経にダメージを与えるためとされる。
舌咽神経の機能低下により咽頭反射に問題が生じて誤嚥につながる。
武漢株の頃はCOVID−19はウイルスだから抗菌剤投与は不要とされていたが、
ウイルス性肺炎を起こしにくいオミクロン株以降は誤嚥性肺炎合併が多いので抗菌剤も使用すべきとされた。
245132人目の素数さん
2024/07/23(火) 06:20:10.45ID:0rqVmjqo 業界ネタ
高齢のコロナ患者だとCRP高値、WBC増多があればX線で肺炎像がなくてもベクルリーに抗菌剤を併用している。
喉の痛みで十分な水分もとれていない脱水状態だと肺炎像が検出しにくいのもある。
基礎疾患のある患者や高齢者には速やかにベクルリー投与開始。空床がなければ外来で投与開始する。
夫婦で感染した症例は院長から同室に男女混合入院の許可がでた。
肺炎起こしてSpO2低下したらデカドロンを併用するが、当然、投与期間は3日を越える
ステロイドの寄与で軽快している印象。ちなみにステロイド単独投与は逆効果とされている。
肺炎球菌性の髄膜炎にステロイド併用するようなものと思っている。
高齢のコロナ患者だとCRP高値、WBC増多があればX線で肺炎像がなくてもベクルリーに抗菌剤を併用している。
喉の痛みで十分な水分もとれていない脱水状態だと肺炎像が検出しにくいのもある。
基礎疾患のある患者や高齢者には速やかにベクルリー投与開始。空床がなければ外来で投与開始する。
夫婦で感染した症例は院長から同室に男女混合入院の許可がでた。
肺炎起こしてSpO2低下したらデカドロンを併用するが、当然、投与期間は3日を越える
ステロイドの寄与で軽快している印象。ちなみにステロイド単独投与は逆効果とされている。
肺炎球菌性の髄膜炎にステロイド併用するようなものと思っている。
246132人目の素数さん
2024/07/23(火) 06:34:14.13ID:zgXoQxul >>245
スレ違い
スレ違い
247132人目の素数さん
2024/07/23(火) 06:46:21.94ID:Uu8HBBUb 独り身だとこういうのを作るのは億劫だが、嫁と一緒だと楽しいし作業が捗る。
まあ、Philipseくんだと連れ合いを罵倒すると予測される。
三色ウールロールパン
https://i.imgur.com/EKTdEKT.jpeg
娘は遠方なので実物を送るのは無理なので画像を送った。
グーグルのChromeのアイコンに似ていると。
まあ、Philipseくんだと連れ合いを罵倒すると予測される。
三色ウールロールパン
https://i.imgur.com/EKTdEKT.jpeg
娘は遠方なので実物を送るのは無理なので画像を送った。
グーグルのChromeのアイコンに似ていると。
248132人目の素数さん
2024/07/23(火) 06:52:37.72ID:Uu8HBBUb 独り身だとこういうのを作るのは億劫だが、嫁と一緒だと楽しいし作業が捗る。
まあ、尿瓶チンパポンコツフェチの嫁なしPhimoseくんだと連れ合いを罵倒すると予測される。
三色ウールロールパン
https://i.imgur.com/EKTdEKT.jpeg
娘は遠方なので実物を送るのは無理なので画像を送った。
グーグルのChromeのアイコンに似ていると。
まあ、尿瓶チンパポンコツフェチの嫁なしPhimoseくんだと連れ合いを罵倒すると予測される。
三色ウールロールパン
https://i.imgur.com/EKTdEKT.jpeg
娘は遠方なので実物を送るのは無理なので画像を送った。
グーグルのChromeのアイコンに似ていると。
249132人目の素数さん
2024/07/23(火) 06:57:10.86ID:zgXoQxul250132人目の素数さん
2024/07/23(火) 06:58:13.56ID:zgXoQxul >>244
よく見たらこれ咽頭喉頭の炎症が誤嚥を引き起こすって話だったのに何で急に神経の話にすり替わってるの?
よく見たらこれ咽頭喉頭の炎症が誤嚥を引き起こすって話だったのに何で急に神経の話にすり替わってるの?
251132人目の素数さん
2024/07/23(火) 07:04:09.72ID:Uu8HBBUb 還暦すぎたら好きな仕事しかしない選択ができると( ・∀・)イイ!!
あの先生の内視鏡は楽でいいとか、あの先生が麻酔すると安心できるとか
患者やスタッフの信頼を確立していると定年後も職があるね。
まあ、働き過ぎると年金支給停止額が増えるだけだから金がすべてというのもなくなる。
数学が好きで出題したりそれに解答している人に罵倒しかできないようなのは将来真っ暗だな。
そもそもジジイと呼ぶ人間って両親や祖父母から愛情を注がれなかった不幸な人間なんだろうな、とつくづく思う。
嫁の祖母は認知症になってからも家族から大切にされていた。
まあ、罵倒型の認知症じゃなくてニコニコ型の認知症だったのが大きいけど。そうなったのもそれまでの生き方によるのだろうと思う。
あの先生の内視鏡は楽でいいとか、あの先生が麻酔すると安心できるとか
患者やスタッフの信頼を確立していると定年後も職があるね。
まあ、働き過ぎると年金支給停止額が増えるだけだから金がすべてというのもなくなる。
数学が好きで出題したりそれに解答している人に罵倒しかできないようなのは将来真っ暗だな。
そもそもジジイと呼ぶ人間って両親や祖父母から愛情を注がれなかった不幸な人間なんだろうな、とつくづく思う。
嫁の祖母は認知症になってからも家族から大切にされていた。
まあ、罵倒型の認知症じゃなくてニコニコ型の認知症だったのが大きいけど。そうなったのもそれまでの生き方によるのだろうと思う。
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- カルビー白黒化で87%が「ポテチ」離れ👋👴高齢層ほど顕著な影響 [パンナ・コッタ★]
- ドコモ、34万人の情報をAmazonに無断提供 総務省が行政指導… [BFU★]
- 【トランプ氏「大惨事になる」】米主要都市で左派市長の誕生相次ぐ、中間選挙で「富の偏り是正」掲げ8人当選… [BFU★]
- 「結婚できない趣味ランキング」女性部門ワースト5 (恋愛・婚活アドバイザーがランク付け) [少考さん★]
- 松山千春、日本国民の労働意識の低さ指摘「働かないから、日本は中国にもインドにも負けてしまいそうな水準になってきてしまった」 [muffin★]
- 「共産党に尊敬の念」 参政・神谷宗幣氏、消費税減税で異例の共同歩調 野党連携にも意欲 [煮卵★]
- 【高市事件】恐怖、突然、知らない男がもえながら家に入ってきて全焼! [219241683]
- 【高市悲報】5日間のレス数推移 嫌儲『68,627→76,735→96,056→101,600→57,702』 オル儲『15,389→23,486→30,004→27,840→33,856』 [679838877]
- 【宣言】全ての女をレイプする!!!!
- 【実況】博衣こよりのえちえちARK🧪★8
- トランプってどんな老後を過ごすの? [377482965]
- トランプ聖帝 「負けたのは共和党、私ではない」 [241672384]