高校数学の質問スレ Part437 YouTube動画>2本 ニコニコ動画>1本 ->画像>72枚

[5]
～このスレの皆さんへ～
http://2chb.net/r/hosp/1607687111/
現在、無意味なプログラムを書き込む悪質な荒らしが常駐しています
通称｢プログラムキチガイ｣｢害悪プログラムおじさん｣は医療・医者板にいる通称ウリュウという荒らしです


数学Iの三角比の問題や中学数学の平面図形の問題でさえ手計算では解けずに
わざわざプログラムで解くような人物です
二項分布の期待値npすら知らないレベルです
すぐにマウントを取りに来ます
下ネタが大好きです
発達障害があると思われ説得しても無駄だと思われます
会話されることで喜びます
皆さん、一切関わらずに無視を貫きましょう
ワッチョイをNGし、一切触れないようにしましょう
またプログラミング言語の一部をNGすることも数単語でほとんど消えるのでおすすめ
触れる人も荒らしです　NGしましょう

以上テンプレ

a,b,c,d,nは正整数としa<b<c<dで 1/a + 1/b + 1/c + 1/d = 1/nである。
n=1のときdの最大値は1/2 + 1/3 + 1/7 + 1/42 = 1 なので42である。
n=2のときdの最大値は1/3 + 1/7 + 1/43 + 1/1806= 1/2 なので1806である。
d の 最大値を n の式で表せ。

問題
正11角形の10点が与えられているときに残りの頂点を定規のみで作図する方法を動画にて示せ。
（定規には目盛りはなく２点を直線で結ぶ機能しかない。）
に対する
下記の解は近似解か厳密解かを根拠とともに答えよ。

10^1.2024の整数部分を答えよ。
（関数電卓使用不可）

>>8
早速出題スレと質問スレの違いが分からないバカ発見

>>9
6/5 < 1.2024 < 59/49,

15^5 = 759375 < 10^6,
10^1.2024 > 10^{6/5} > 15,

16^49 > 10^59,
10^1.2024 < 10^{59/49} < 16,

∴　10^1.2024 の整数部分は 15.

>>10
早速、答を出せばいいのに。

>>9
　log_10(2) > 0.3010
　log_10(3) < 0.4772
を使えるとき
　15 = 10 * (3/2) < 10^{1+0.4772−0.3010} = 10^1.1762
　16 = 2^4 > (10^0.3010)^4 = 10^1.2040
∴　15 < 10^1.2024 < 16

もう出てるぞ認知症

>>12
スレタイも理解できないならさっさと日本語勉強してこいよゴミジジイ

>>12あ、ごめんごめん
アンタのチンパン数学()は見事にスルーされてたわww
まあスレタイ読めないし相手にされなくて当然だわな

>>12
本当の医者に何も言い返せない偽医者の癖に偉そう

>>16
>7は難しすぎるからだろう。
プログラムで数値計算して答を予測まではできた。
その予測式でnの値を変えて正しいらしいことの確認まではできた。

>>14
どこに出てる？幻視じゃないのか？
自分の解と照合したいのだが。

>>18
スレチな上に自分から出しておいて答え出せなんて誰が相手するんだよタコ
難しいんじゃなくて相手にされてないだけなのが分からんのかアホだから

>>19
>>16読めないみたいだね、そんな知能のやつがどうして数学やろうと思ったのかw

(1)閏年は４年に１年とする。
無作為に選んだ人に何月生まれかを質問する。答が12ヶ月すべて集まったら質問を終了する。
終了までの質問された人数の期待値を分数で求めよ。

(1)閏年は４00年に97年とする現行歴での期待値を求めよ。

aはa>√2を満たす実数とする。
a[1]=(a/2)+(1/a)
a[n+1]=(a[n]/2)+(1/a[n])
とするとき、a[n]とaと√2の大小を比較せよ。

題意から　a>√2,
漸化式は、coth の倍角公式の形である。
　a = (√2) coth(θ)　をみたす θ>0 がある：
　θ = (1/2) log((a+√2)/(a-√2)),
∴　a[n] = (√2) coth(θ･2^n) > √2.

coth は単調減少だから
　a > a[n] > √2,

あるいは
　a[n] = (√2) ((a+√2)^{2^n} + (a-√2)^{2^n})／((a+√2)^{2^n}−(a-√2)^{2^n}),

>>7
方程式f(x,y)=0の解(x,y)=(x_i,y_i),i=1,2,3,...において、
h_i=max(|x_i|,|y_i|)を、解(x_i,y_i)の「高さ」と呼ぶことにする。
そして、H=max(h_1,h_2,h_3,...)を方程式f(x,y)=0の「標高」と呼ぶことにする。

この用語を使用すると、この問題は、
「nを自然数とする。正整数上の方程式1/x+1/y+1/z+1/w = 1/nの標高を求めよ
　なお、n=1,2の時の標高はそれぞれ、42,1806である。」
となる。

準備
1/z+1/w=1/n,0<z<w∈N の標高は　f(n)=n(n+1)
∵w=(1/n-1/z)^(-1)は、z=n+1の時、最大値n(n+1)を取るのは明らか

また、標高はnの増加関数であることに注意

準備2
1/y+1/z+1/w=1/n,0<y<z<w∈N の標高はn(n+1){n(n+1)+1}=f(n){f(n)+1}=f(n)^2+f(n)=f(f(n))
∵1/z+1/w=1/n-1/y　右辺を1/m と置き、mが最大になるようなyは、1/y+1/m=1/nの標高を求める問題なので、y=n+1のとき、m=n(n+1)が標高
　1/z+1/w=1/m=1/{n(n+1)}の標高は、準備より、m(m+1)=n(n+1){n(n+1)+1}=f(f(n))

1/x+1/y+1/z+1/w=1/n,0<x<y<z<w∈N の標高はn(n+1)(n^2+n+1){n(n+1)(n^2+n+1)+1}=f(f(f(n)))
∵1/y+1/z+1/w=1/n-1/x　において、右辺を最小にするのは、x=n+1で、この時、右辺=1/n-1/(n+1)=1/{n(n+1)}
　1/y+1/z+1/w=1/{n(n+1)}の標高は、準備2よりf(f(n(n+1)))=f(f(f(n)))


f[n_]:=n^2+n;Table[Nest[f,n,3],{n,1,10}]
{42, 1806, 24492, 176820, 865830, 3263442, 10192056, 27630792, 67084290, 149096310}

>>23
f(x)=x^2-2とする。
y=f(x)上の点(a,a^2-2)において接線を求め、その接線とx軸との交点を求め、それを(a[1],0)とする
さらに、y=f(x)上の点(a[1],a[1]^2-2)において接線を求め、その接線とx軸との交点を求め、それを(a[2],0)とする
...
として求められるものが、{a[n]}
∵　f'(x)=2x　→　0=2a[n](a[n+1]-a[n])+a[n]^2-2　→　a[n+1]=a[n]-(a[n]^2-2)/(2a[n])=a[n]/2+1/a[n]+

ニュートン法によって、√2の近似値を求める手段。aの取り方から、明らかに、√2<a[n]<a

>>7
この予想 (小柴予想?) は熊野氏により解決されているようです。
　数学セミナー、vol.31　エレ解　(1992/July,Oct)
　数学セミナー、vol.50　no.3　p.67-69　NOTE　(2011/Mar)
{e_m} をシルヴェスターの数列と呼ぶらしい。。。

>7の想定解

fn[n_] = (n^4+2n^3+2n^2+n+1)(n^2+n+1)(n+1)n

検証
In[2]:= Table[fn[n],{n,1,50}]

Out[2]= {42, 1806, 24492, 176820, 865830, 3263442, 10192056, 27630792, 67084290, 149096310, 308230692,

> 599882556, 1109322942, 1963420410, 3345523440, 5514027792, 8825193306, 13760814942, 20961393180,

> 31265489220, 45755990742, 65814054306, 93181530792, 130032720600, 179056345650, 243548665542,

> 327518705556, 435806604492, 574216130670, 749662454730, 970336308192, 1245885697056,

> 1587616380042, 2008712361390, 2524477688460, 3152600884692, 3913443388806, 4830353411442,

> 5930006660760, 7242775428840, 8803127571042, 10650056950806, 12827546962692, 15385068786780,

> 18378116067870, 21868777753242, 25926350863056, 30627995007792, 36059430507450, 42315682007550}

>>27
想定解どおりです。

>>22
ある月に生まれる確率はその月の日数に比例するという前提での問題。

質問と出題の違いが分からないアホ大量発生

>>32の脳内医療w

465：卵の名無しさん (ﾜｯﾁｮｲ 0324-cl90 [149.50.210.2 [上級国民]])：[sage]：2024/07/16(火) 07:49:52.97 ID:F4f2ML0u0
＞心臓麻酔以外なら普通に出来るよ
これもダウトだな、多分、嘘だね。

産科の麻酔や乳児の麻酔ができるとは思えん。
ショックバイタルの緊急帝王切開や乳児の鼠径ヘルニアの麻酔したことあんの？
心臓麻酔ではないけどね。
成人の心外の麻酔は俺はやってた。研修医にも監視下でやらせるような病院だった。
ポンプマンとのコミュニケーションがきちんととれていれば別に困難な麻酔でもなかったな。

478：卵の名無しさん (ﾜｯﾁｮｲ b579-kB53 [240b:253:1000:dd10:* [上級国民]])：[sage]：2024/07/17(水) 06:40:53.79 ID:iTB5x1gs0
一人でやるに決まってんじゃん。
あんたは出張麻酔したこともないのか？

(中略)

外科医の自家麻酔がデフォの病院で３０年くらい働いてきたよ。
ハロセンの時代から。乳児の鼠径ヘルニアも麻酔含めて外科チームで完遂。硬膜外も外科医が入れる。麻酔科標榜医の内科医は何人か知っているけどヘルペスの鎮痛に硬膜外カテ留置を内科医から依頼されたな。
帝王切開の麻酔や助手も外科医の仕事だった。
TAEや血栓除去も外科医の仕事だった。

最近じゃ以前の勤務先の常勤麻酔医が退職して次がみつかるまでのつなぎに１年ほど麻酔をやってた。硬膜外は前日に外科医が入れてくれてた。留置に時間がかかると全員にストレス。

離島派遣中はフォガティーの代用に胆管結石用のリトリーバルバルーンで血栓除去した。
半身麻痺患者の健側だった。こっちの脚も使えなくなると思っていたらしくサルベージできたのでお礼にヤギをあげると言われた。

484：卵の名無しさん (ﾜｯﾁｮｲ 0b53-erS5 [240a:61:3143:206f:*])：2024/07/17(水) 07:44:41.78 ID:PHYvXJYM0
>>478
外科医の自家麻酔がデフォの病院に30年働いてる設定なのに>>465の設定の病院にいる
（研修医がいるので2004年以降）
自家麻酔を外科がディフォルトレベルに麻酔科いないのに心臓血管外科で人工心肺回す規模の病院
しかも、心臓血管外科や小児科、産科
の麻酔を何故か外科医が麻酔をかける

もう色々おかしすぎて草生えるwww

↑　
漸化式は
　b[n+1] = b[n] (b[n]^2 +6) / (3b[n]^2 +2),
b[n]/√2 に対しては　coth の 3倍角公式の形。。。

↑
b[n] = (√2) coth(θ･3^n)
θ は　b[0] = (√2) coth(θ) = a をみたす。

1年を365日として、どの月日に生まれるかの確率は同じとする。
無作為に10人集めたときに誕生日が同じ月日の人がいる確率は
2689423743942044098153 / 22996713557917153515625　である。
（同じ誕生月日の人が2人以上いる、2組以上いる場合も含む）
（１）4年に1年閏年があるとして、無作為に10人集めたときに誕生日が同じ月日の人がいる確率を分数で求めよ。
（２）400年に97年閏年があるとして無作為に10人（故人でもよい）集めたときに誕生日が同じ月日の人がいる確率を分数で求めよ。

脳内医療には発狂すらできずここでもダンマリ決め込むしかないみたいだねw

>>22
12Sum[1/i,{i,1,12}]
86021/2310

b=Table[1,12];
p=b/Total[b];Sum[-(-1)^i Total[1/Total/@Subsets[p,{i}]],{i,1,Length[p]}]
86021/2310

a={31,28,31,30,31,30,31,31,30,31,30,31};b=4a;b[[2]]++;
p=b/Total[b];Sum[-(-1)^i Total[1/Total/@Subsets[p,{i}]],{i,1,Length[p]}]
26365471265193736856469417177253117577210996101602242798317734568788770322364718854541253252415521223542493
/707029362489712664129528906355283102325811557995784708506463575533631651966262215455928795644621961528800

b=400a;b[[2]]+=97;
p=b/Total[b];Sum[-(-1)^i Total[1/Total/@Subsets[p,{i}]],{i,1,Length[p]}]
86559879735388651370298371805990483264939788757779293446866731836137604174572606575723512448828705133514065755838631757805582169534025853315251713851144664600085624576759919347064088552083
/2321217069847807877846884531799323163063795031497543876203313488998403028112968708692867182702839216148692806182299699699155011100391713000652066409162572578603280534165192458406772240000

N[{%1,%3,%5,%7},10]
{37.23852814, 37.23852814, 37.29048985, 37.29073031}

>>22
(1)
ちょうどn人目で終了する確率p(n)は
　p(n) ≒ Σ[L=0,11] (-1)^{L+1} C[11,L] (L/12)^{n-1}

>>36
　1.585倍 早い。
　log(3)/log(2) ≒ 1.585
　2^1.585 ≒ 3

>>41
レスありがとうございます。
1行に纏められているのが素晴らしい。

想定解の結果と合致しました。

>>39
（２）の設定で集めた人数と誕生日が同じ月日の人がいる確率をグラフ化。

＞45のグラフであたりをつけて計算する問題。

400年に97年閏年があるとして無作為に何人か（故人でもよい）を集めたときに誕生日が同じ月日の人がいる確率を95％以上にしたい。
何人以上集めればよいか？そのときの確率を分数で表せ。

>>35
何か素人がネットで調べた知識を無理矢理難しい言葉使ってさも知ってる感を出してるみたいな雰囲気を感じる

>>46
なんで尿瓶とそれにレスするアホが毎回同時に現れて同時に消えるんでしょうね？ww

不等式の面白い問題ありませんか？

この分数解をだそうとしたら
too large; it must be a machine integer.
というメッセージがでて算出できなかった。

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

シミュレーションでの近似解
n=50
m=3
k=10^6;
N@Mean@Table[Boole@AnyTrue[Counts@RandomChoice[1;;365,n],#>=m&],k]

すみません。
スレの数式の記載方法についての質問です。
偶数の数列は
Σ[k=1,n] 2k
という表記でいいんですか？
Σ[k=1, n, 2k]
でもいいと思うんですがだめですか？

数列を表すのにΣを使われて分かる人はいないんじゃないかな

k=1, 2, 3,……, n　についての f(2k) の和：
　Σ[k=1,n] f(2k)
ぢゃね？

>>51
Σはギリシャ語でいうSの文字で、sum(和)のこと

>>50

494：卵の名無しさん (ﾜｯﾁｮｲ 0324-cl90 [149.50.210.2 [上級国民]])：[sage]：2024/07/18(木) 09:29:30.15 ID:cvg8jaFB0
最近の医者って環境の整ったところでないと医療ができないみたいだな。
俺等の時代は一般外科は小児屋産科麻酔や血管造影（TAE等も含む）、ERCP（EST等を含む）とかできるのが当たり前だったな。
それができないのが脳内医療とかブラックジャックの世界とかにみえるらしい。
先輩外科医にはfrozen pelvisが予想だれる患者の執刀前に膀胱鏡下にステント留置までできる多彩な外科医がいた。

496：卵の名無しさん (JP 0Hb1-erS5 [202.253.111.210])：2024/07/18(木) 10:41:48.03 ID:LModBCxbH
>>494
出来る出来ないの話じゃなくてお前の話は矛盾だらけだって話なんだけどwww

昔のレスだとお前は大学の医局には残っていないと言っていたよな
新研修医制度が始まる前は、研修医になる場合は自大学に残るのがデイフォで
お前が研修医と遭遇するのは少なくとも2004年以降のはずなんだが
で、何故かその規模の病院で外科（しかも20年目ぐらい）のお前が小児、産科の麻酔をしてただって？
これが矛盾じゃないと理解出来ないなら少なくともお前は医者では無いよ

497：卵の名無しさん (ﾜｯﾁｮｲ 9d03-Ybd3 [240a:61:50e2:a022:*])：[sage]：2024/07/18(木) 12:11:26.95 ID:6S9pqxs30
どう取り繕おうかスレッドに則った話をできない時点で頭が悪いよ
高校数学スレは出題スレじゃないと再三指摘されても辞めない時点で非常に頭が悪い
もしくは脳内に異常があるので心療内科を受診した方が良い

ああ！総和なんですね。
基本的なところから失礼しました。

Σの初期値？と終端値？と関数？は省略することはあるのでしょうか？
たとえば
k = 1, 2, 3 ... のf(2k)の和で
Σ[k=1] f(2k)
あるいは
Σ[k=1, n]
という風に。

>>53
　Σ[k=1,2n] {1+(-1)^k}/2・f(k)
　Σ[k=1,2n] (1−mod(k,2))・f(k)
　Σ[k=1,2n] {k+1−2･floor((k+1)/2)} f(k)
かな？

>>50
Rで1000万回シミュレーション
> mean(replicate(10^7,any(table(sample(365,50,replace=TRUE))>=3)))
[1] 0.1264372

>>52
一般項に狽�使うのはありだと思う。
素数の一般項とか

超難問。天才の皆様助けて！
体積630mlの高さ10cmの円柱の円の直径を教えてください。

中学生レベルの問題かな

円周率をπとするか、3.14とするか
を問題文から確認して、以下を計算する

求める直径(cm)
＝√((630÷10)÷(3.14÷4))
＝

尿瓶ジジイ、脳内医療に対するツッコミはダンマリを決め込むしかない模様
話題逸らしに必死ww

>>50＝尿瓶ジジイ、ネットにないことには一切ダンマリw

501：卵の名無しさん (ﾜｯﾁｮｲ dd58-cl90 [14.13.16.0 [上級国民]])：[sage]：2024/07/18(木) 14:40:41.06 ID:YnjsAhSJ0
>>496
大学に残るのは別に義務じゃないぞ。
俺は１年目から内視鏡・麻酔。アンギオもやったぞ。
1年目で胃切除もやったな。
あんたはどれもできんだろうけど。
心臓麻酔以外できるというけど、硬膜外カテすらろくに入れられないんじゃないの？

503：卵の名無しさん (ｽｯﾌﾟ Sd03-erS5 [49.97.12.193])：2024/07/18(木) 16:17:23.20 ID:C9//IQSNd
>>501
じゃあ聞くが
PCPSは入れれますか？
心肺停止した人を救命するには必須だと思うんだけど
V-Vエクモは入れれますか？コロナ肺炎で挿管しても酸素化保てれない人には必須だと思うんだけど
外科なら何でもできるんだよな？ハイボリュームセンターで救急やってんなら余裕だよね？何の事言ってるか理解出来てるなら答えてみろよ

505：卵の名無しさん (JP 0Hb1-erS5 [202.253.111.210])：2024/07/18(木) 20:20:20.49 ID:LModBCxbH
>>504
>>503の内容は一切わからないので尿瓶ジジイは答えられないと
ネットで調べてる内容しかわからない
つまり脳内医者確定ね

>>50
分数解算出

シミュレーションでの結果に近似しているが、
正しいかどうかに自信がもてないので、東大卒もしくはエリート高校生による検算を希望します。

さて、次の課題
1年を365日として、どの月日に生まれるかの確率は同じとする。
無作為に100人集めたときに誕生日が同じ月日の人が4人以上いる確率を求めよ。
（同じ誕生月日の人が4人以上いてもよい、それが複数組いてもよい）。

検証のための演習問題

1年を365日として、どの月日に生まれるかの確率は同じとする。
（１）無作為に100人集めたときに誕生日が同じ月日の人が3人以上いる確率を分数でもとめよ。
（同じ誕生月日の人が３人以上いてもよい、それが複数組いてもよい）。
（２）（１）の値をシミュレーションにて検証せよ。

>>67
朝めし前に実験

記載した関数でよさげ。

脳内ブラックジャックはどんな手技でも自由自在w
平成から令和時代の医療ドラマを引き合いに出せないあたりまさしく世間から置いていけぼりのID:1inNDuDx尿瓶ジジイw

>>68
また懲りずに朝から発狂かよ
スレタイいつになったら読めるんだよチンパン

偽医者さん朝早いね6時起きかよニート？

ジジイだからいつも早起きだよw

早朝ライブ配信を視聴するのが日課。
今日は内視鏡バイトの日。月曜が祝日だったから予約満杯。

>>73
もうそういうのいいよ

>>73
スレも板も間違ってるぞ認知症

http://2chb.net/r/hosp/1718544450/


514：卵の名無しさん (ﾌﾞｰｲﾓ MM6b-L44c [133.159.148.194 [上級国民]])：[sage]：2024/07/19(金) 08:23:59.49 ID:1dy92f2iM
f2p[n_,c_:365] := 1 - Product[x/c,{x,Range[c-n+1,c]}];
f2p[23] // N


f3p[n_,c_:365] := f2p[n,c] - Sum[Binomial[c,j] Binomial[c-j,n-2j]50!/2^j/c^n,{j,1,n/2}];

f3p[50] //N

>>75
もしかして数学板と医者板を間違えてレスしてるのかな偽医者さんは

内視鏡バイト滞りなく終了。スタッフが慣れていて( ・∀・)ｲｲ!!。

昼の演習問題

1年を365日として、どの月日に生まれるかの確率は同じとする。
何人以上集めたときに誕生日が同じ月日の人が3人以上いる確率が0.5を超えるかを計算せよ。

>>77
偽医者さんはhttp://2chb.net/r/math/1721071007/75にはもう書き込まないんですか？

>>79
脳内医療を書き込むと速攻で論破されて何も言えなくなるからここで脳内医者やるしかないみたいw散々晒されて誰も信じるバカなんかいないのに実に哀れ

>>77
今更誰が信じるんだよマヌケ

>>66
(*
1年を365日として、どの月日に生まれるかの確率は同じとする。
無作為に100人集めたときに誕生日が同じ月日の人が4人以上いる確率を分数で求めよ。
（同じ誕生月日の人が4人以上いてもよい、それが複数組いてもよい）。
*)

まず、シミュレーションで近似値を算出
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= n=100;

In[2]:= c=365;

In[3]:= m=4;

In[4]:= k=10^6;

In[5]:=
In[5]:= N@Mean@Table[Boole@AnyTrue[Counts@RandomChoice[Range[c],n],#>=m&],k]

Out[5]= 0.063564

>>67
(*
1年を365日として、どの月日に生まれるかの確率は同じとする。
無作為に100人集めたときに誕生日が同じ月日の人が4人以上いる確率を求めよ。
（同じ誕生月日の人が4人以上いてもよい、それが複数組いてもよい）。
*)

分数解算出（東大卒やエリート高校生による検算を希望します。）

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

In[1]:= n=100;

In[2]:= c=365;

In[3]:= f2p[n_] := 1- Product[i/c,{i,c-n+1,c}]

In[4]:= fp3[n_] := f2p[n] - Sum[Binomial[c,j]Binomial[c-j,n-2j]n!/2!^j/c^n,{j,1,n/2}]

In[5]:= xyz={x,y,z} /. Solve[3x+2y+z==n && x>0 && y>=0 && z>=0,{x,y,z},Integers];

In[6]:= f[xyz_]:=(
{x,y,z}=xyz;
Binomial[c,x]Binomial[c-x,y]Binomial[c-x-y,z]n!/(3!^x 2!^y c^n)
)

In[7]:= fp3[n] - Total[f/@ xyz]

Out[7]= 67870466312626446713747697727978191774447916852065608350428117602214935104994907122948596990009\

> 6036895257893377921789273072154888497062568193349810394771314033470450505573121696667515422272436\

> 885892826025288870770744858052115188710509 /

> 10675558801540490113614505568967757056000643599161580678983105009840387607783626125880337139632164\

> 9760968554169551574837825872579970886526463636741252576368864064734050742178787272777248875435225\

> 98598588757567995344288647174835205078125

In[8]:=
In[8]:=
In[8]:= % // N

Out[8]= 0.0635756

>>83
偽医者さんは自力で問題を解けないんですか？近似値求めて何の意味があるんですか？

100万回シミュレーションして検証
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= n=100;

In[2]:= c=365;

In[3]:= m=4;

In[4]:= k=10^6;

In[5]:=
In[5]:= N@Mean@Table[Boole@AnyTrue[Counts@RandomChoice[Range[c],n],#>=m&],k]

Out[5]= 0.063569

In[6]:=
よさげ。

>>80
想定解合致。

f2p[n_,c_:365] := 1- Product[i/c,{i,c-n+1,c}]
fp3[n_,c_:365] := f2p[n,c] - Sum[Binomial[c,j]Binomial[c-j,n-2j]n!/2^j/c^n,{j,1,n/2}]
N[fp3 /@ {87,88},10]

{0.4994548506, 0.5110651106}
88で0.5を越えます。

>84が完成したので次の課題。

1年を365日として、どの月日に生まれるかの確率は同じとする。
何人以上集めたときに誕生日が同じ月日の人が4人以上いる確率が0.5を超えるかを計算せよ。

また尿瓶劇場かよ
もう飽きたw

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

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

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

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

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

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

>>94
正論だな

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

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

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

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

>>89
レスありがとうございます。
186と187で確率を計算すると

となり、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
http://2chb.net/r/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　や、
http://2chb.net/r/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
移動中なのでスマホで計算。


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

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

複数回答可。

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

>>147
built-inのSolveを使わずに自作ソルバーで計算。

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

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

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

複数回答可。

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

>>133
分数解を計算する自作ソルバーが完成したのでグラフ化

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

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

内視鏡バイトの帰りにスマホで計算する問題

血液型の頻度比はA:O:B:AB＝4:3:2:1とする。
40人を採血したときにどの血液型も複数人いる確率を分数で求めよ。

>>188
気にするに決まっている。
特にマルメの病棟だと高い薬を出すなと事務から言われる。
トレリーフはエクセグランで代用とか。

ベクルリーは1日1回投与だから外来投薬は容易。
セフトリアキソン外来で点滴とか普通にするが、
ゾシンだとそうはいかない。最近はゾロのタゾピペだが。

>>190
Wolframで分数解がだせるようにはなったが動画は無理だな。
あなたはできるの?

ザルティアでシアリスの代用してはいけない（業界ネタ）

>>191
場合分けして集計するだけ。
筆算でも可能だろうがどうやって効率的にするかの問題。
電卓だと表示桁数が足りなくなると思う。

東大卒やエリート高校生には容易だろう。
嫁なしPhimoseくんのキーキー電卓では集計できないようだが。

正の整数nと有理数pの組(n,p)で、n+(1/n)=p^2を満たすものが存在するならば、すべて求めよ。

>>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に使えるが、牛刀

>>196
高校数学スレで配偶者がいないことが罵倒になると考える程度の頭の持ち主
そりゃスレタイもテンプレも読まないし読めないし延々とスレ違い行為続けるわけだ
事実を元にこうした指摘をしても、
妄想による嫁無しPhioseで論破したつもりになっちゃうのも最高にダサい

tan1°は有理数か
この問題の証明の仕方を教えてください

高校の範囲ならば
以下の通り背理法で示す

tanα, tanβ がともに有理数ならば
tan(α＋β)＝(tanα＋tanβ)(1＋tanα・tanβ)
もまた有理数である

tan1° が有理数と仮定すると
これを足し合わせた tan30° も有理数である
しかし tan30°＝1/√3 は無理数で矛盾する
よって tan1° は無理数である

分数の線が抜けてた
tan(α＋β)＝(tanα＋tanβ)/(1＋tanα・tanβ)
まいっか

>>193
そもそも入院してない軽症の人なのにベクルリーって高い薬をわざわざ毎日来てもらって打つの？3日間連続で来てもらうってこと
？本当にみんなそんな事やってるの？
何かおかしくないか？
俺コロナかかってもカロナール出されて普通に帰されたけど

>>203
もちろん脳内医療です

>>198
Multinomialって関数があるのか、他の人のコードを読むのは勉強になるなぁ。

>>199
やはり、嫁なしのようだな。
原因は、稼ぎ少な杉　Phimose草杉　罵倒・自演認定とか性格悪杉。
自演認定厨は識者の方々から屡々指摘されている。

>>206
実に頭の悪そうな文章だね
全部自己紹介かな？
脳内医療が素人にすらバレバレで何も言い返せないから発狂してんのか？w

>>203
喘息持ちとか90越える高齢者とかだからね。
昨日はコロナでの死亡退院の死亡診断書を作製。
コロナの咽頭喉頭の炎症が嚥下機能不全を惹起して誤嚥性の細菌性肺炎を併発して死亡。

２類の頃は死亡退院例は搬送してくれる葬儀屋がなくて他市の業者に依頼していた。
朝なくなっても搬送は夕方とか。

xy+yz+zx=πのとき、
sin(x)+sin(y)+sin(z)
の取りうる値の範囲を求めよ。

>>209
だったらなおのこと入院させて連続投与のほうがいいだろマヌケ
というかアンタずっとスレタイと関係ないことしかほざけなくて目障りなんだけど

日本語理解できないレベルのアホがなんで医療できるんだよ

>>201,202
ありがとうございます
tan30°が無理数であるとし背理法を使う場合、
tan30°が1/√3であることは自明であるとして良いのでしょうか
どこまでを自明として良いのかの判断にいつも悩まされます

それが自明かどうか迷うなら正三角形を半分に切った絵を描いておけばいい
というか悩むのはそこか？

>>209
んっ？職員に外来投与って言ってなかった？
職員が90歳の喘息持ちってこと？そもそもそんな人を入院出来ないにしても転院させないの？何か色々意味不明なのは俺が素人だから？素人だからって適当言ってないですかあなた

>>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
コイツアホだなバレバレじゃん

>>216
お看取りしたらお見送りするから、葬儀屋が来たら事務から連絡がある。
死亡診断書は医師が遺族に手交するのが俺の勤務先のルールである。

>>212
対応できる空床がないのに入院させられわけがない。
夜間休日は男女混合を許可してほしいと上申したが許可が下りなかったな。

>>216
Covid-19後遺症としての嚥下障害も知らんのかよ。

ある数列{an​}が次の漸化式を満たすとする。

an+2​−5an+1​+6an​=2n(n=1,2,3,⋯)

a1​=1,a2​=3のとき、一般項an​を求めよ。

正四面体ABCDにおいて、辺ABの中点をMとする。このとき、次の問いに答えよ。

(1) 線分CMの長さを求めよ。
(2) 平面CDMと平面ABCのなす角を求めよ。

関数f(x)=x3−3x2+2xについて、次の問いに答えよ。

(1) f(x)の増減表を作成し、極値を求めよ。
(2) 曲線y=f(x)とx軸で囲まれた図形の面積を求めよ。
(3) 曲線y=f(x)上の点(t,f(t))における接線の傾きの最小値を求めよ。

1から5までの数字が一つずつ書かれた5枚のカードがある。このカードから3枚を同時に取り出すとき、次の確率を求めよ。

(1) 取り出した3枚のカードの数字がすべて異なる確率。
(2) 取り出した3枚のカードの数字の積が偶数となる確率。

>>218
じゃあアンタのクソスレで直接反論しろよ
逆に何のために入院させるんだ？w

>>218
何で転院させないの？ってレスは無視するんですか？結局投与したのは職員？90歳喘息持ちの？解説お願い致します

現在軒並み老齢者有病者が多く、病床はパンク気味なのはいいよね
病院には介護職員がいて死亡→葬儀場の安置所に連絡取ることで、
即、葬儀屋さんが動くのもいいよね
誤嚥性肺炎は細菌が仲立ちしないと肺炎にならないのもいいよね
あのね、もう反発心しかないかもしんないけど>>218氏はすべて真実を言ってるわけ

>>226
誤嚥性肺炎だけでいいだろマヌケ
そもそもスレチのアホチンパンの妄言だし

>>217
他市の業者が依頼したとかどうとかそこの細かい話って医者にわざわざ言うんですか？
そこらへん少し違和感あります
>>218
これも転院させないか聞いてるのに話はぐらかしてないですか？
>>219
これもコロナの嚥下障害の後遺症はあるって話だと思うんですが、何故起きたの説明がおかしいという話なのに話ずらして反論してるしあまり論理的な施行とは言えないと思います。論点ずらしですよね？
説明をもう少し論理的お願い致します
数学板ですし

>>226
何で自演してるんですか？
しかもわざわざ誤嚥性肺炎って言い直してIDまで変えて他人のフリして・・・
恥ずかしくないんですか？

>>226
言ってる事が支離滅裂です
病院なのに介護職がいて即連絡とか言ってますが病院なので介護職じゃなくているのは医者と看護師ですよね？何で介護士が連絡するんですか？病床がパンクして良いよねって倫理的におかしくないですか？このレスが偽医者さんだとしたらこの人が医者だとは到底思えません。僕も来年医学部受けようと考えてますがこんなクズが医者とは思いたくありません

>>226がID:DDMuXW2jの自演じゃないと思う人レスして下さい

>>200
京都大学 2006年後期　らしい。

8:48 鈴木貫太郎

>>200
1分でわかる ?
https://www.youtube.com/shorts/YVVoOzTzaQE 河野玄人

>>230,231
誤嚥性肺炎は誤嚥による細菌肺炎なのでそのまんまという気が
病院には看護士さん、薬剤師さん、理学療法士さん、作業療法士さん等多々いますが
その中で介護福祉士の免許持ってる人が普通にいますよ
今の病院で病床に余裕があると思ってますか
高校生の方だと思いますが、志しを持った勉強をし悪徳医者を駆逐するような
人の気持ちのわかる優しいお医者さんになってください

>>236
悪徳医者を駆逐するのが優しい医者って日本語不自由すぎない？
やっぱ尿瓶かよw

>>221
(1)　四面体の大きさによる。
(2)　90°

>>236
医者に恨みを持った統失の文章みたい

嫁と一緒に料理をしながら考えた問題

血液型頻度比は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()

実行結果
> 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

答が間違っているかもしれないので
東大卒やエリート高校生による検算を希望します。

>>220
御神託により
aｎ = 1/6 (6 n + 5 3^n - 3 2^(n + 2) + 9)

業界ネタ

コロナウイルスが味の神経に関わる「顔面神経」や「迷走神経」「舌咽神経」の末梢神経にダメージを与えるためとされる。
舌咽神経の機能低下により咽頭反射に問題が生じて誤嚥につながる。
武漢株の頃はCOVID−19はウイルスだから抗菌剤投与は不要とされていたが、
ウイルス性肺炎を起こしにくいオミクロン株以降は誤嚥性肺炎合併が多いので抗菌剤も使用すべきとされた。

業界ネタ

高齢のコロナ患者だとCRP高値、WBC増多があればX線で肺炎像がなくてもベクルリーに抗菌剤を併用している。
喉の痛みで十分な水分もとれていない脱水状態だと肺炎像が検出しにくいのもある。
基礎疾患のある患者や高齢者には速やかにベクルリー投与開始。空床がなければ外来で投与開始する。
夫婦で感染した症例は院長から同室に男女混合入院の許可がでた。
肺炎起こしてSpO2低下したらデカドロンを併用するが、当然、投与期間は３日を越える
ステロイドの寄与で軽快している印象。ちなみにステロイド単独投与は逆効果とされている。
肺炎球菌性の髄膜炎にステロイド併用するようなものと思っている。

>>245
スレ違い

独り身だとこういうのを作るのは億劫だが、嫁と一緒だと楽しいし作業が捗る。
まあ、Philipseくんだと連れ合いを罵倒すると予測される。

三色ウールロールパン

娘は遠方なので実物を送るのは無理なので画像を送った。
グーグルのChromeのアイコンに似ていると。

独り身だとこういうのを作るのは億劫だが、嫁と一緒だと楽しいし作業が捗る。
まあ、尿瓶チンパポンコツフェチの嫁なしPhimoseくんだと連れ合いを罵倒すると予測される。

三色ウールロールパン


娘は遠方なので実物を送るのは無理なので画像を送った。
グーグルのChromeのアイコンに似ていると。

>>248
スレ違いだっての
しかも連投すんな素人かよ

>>244
よく見たらこれ咽頭喉頭の炎症が誤嚥を引き起こすって話だったのに何で急に神経の話にすり替わってるの？

還暦すぎたら好きな仕事しかしない選択ができると( ・∀・)ｲｲ!!

あの先生の内視鏡は楽でいいとか、あの先生が麻酔すると安心できるとか
患者やスタッフの信頼を確立していると定年後も職があるね。

まあ、働き過ぎると年金支給停止額が増えるだけだから金がすべてというのもなくなる。

数学が好きで出題したりそれに解答している人に罵倒しかできないようなのは将来真っ暗だな。

そもそもジジイと呼ぶ人間って両親や祖父母から愛情を注がれなかった不幸な人間なんだろうな、とつくづく思う。
嫁の祖母は認知症になってからも家族から大切にされていた。
まあ、罵倒型の認知症じゃなくてニコニコ型の認知症だったのが大きいけど。そうなったのもそれまでの生き方によるのだろうと思う。

>>250
咽頭神経への炎症が機能不全につながるからだよ。
肺への親和性が変わったから治療も変わる。
すなわち、
武漢株の頃はCOVID−19はウイルスだから抗菌剤投与は不要とされていたが、
ウイルス性肺炎を起こしにくいオミクロン株以降は誤嚥性肺炎合併が多いので抗菌剤も使用すべきとされた。

門外漢の雑誌でも
新型コロナ後遺症、主因は「迷走神経」の損傷か　研究結果
https://forbesjapan.com/articles/detail/64717
とかの記事がある。
学説と臨床経験は常にupdateが必要。

>>252
本当にその知識あったら昨日そう言ってましたよね？どう見ても後付でしょ

>>254
ウイルス性肺炎を起こしにくいオミクロン株以降は誤嚥性肺炎合併が多いので抗菌剤も使用すべき
というのは埼玉医大の岡教授が随分前に主張していたぞ。
自験例でも、さほど高齢者でもないコロナ患者が誤嚥するから入院させてくれと受診した。
運良く空床があったので個室入院となった。
オミクロン株以降は誤嚥性肺炎合併が多いというのは、うちのナースでも知っている知識。

ベクルリーは高価なので持ち出しになるからと老健でデカドロンだけ投与していたのが
シリツ医の理事長ｗ

>>256
罵倒を悦びとしてる人のレス

ベクルリーは高価なので不良在庫を抱えないように用事発注になっていたのだが、
それだと夜間や休日受診した患者に対応できないからと上申したら
診療部長（呼吸器内科医）の采配で3人分備蓄されるようになった。
こじれてから長期投与しても効果が薄いと実感したと言ってた。

>>257
金がすべてという理事長が泥を被っているお陰で俺の時給＝1万＋インセンティブが確保されている。
ワクチン接種業務のような汚れ仕事に携わなくてすむのもありがたい。

>>257
シリツ医というのは罵倒なんだな。
東京医大を始めとする不正入学でも除籍者は０なので
シリツ医＝裏口容疑者であるのは否めないよな？

>>255
今更誤嚥性肺炎とか言っても遅いんだよ脳内医者w

>>255　追記
＞自験例でも、さほど高齢者でもないコロナ患者が誤嚥するから入院させてくれと受診。
CRP高値とWBC増多があったのを確認してから抗菌剤を開始。入院しているので１日３回投与の薬剤が選択できた。
まぁ、アデノウイルスでもCRP上昇するのはよく知られているから確実な判断基準ではないけどね。

>>261
ナース以下の知識のあんたはシリツ医なの？

まぁ、マスコミが取り上げている医師って製薬会社の太鼓持ちが多いから
話半分に聞いているが、何を主張しているかは知っておかないとなぁ。
発売後に意識消失の副作用で発売中止になった抗菌薬とかヨイショしていたのを思い出す。

重症のコロナで基幹病院に転院させた患者が
自己免疫性肺炎でステロイド継続投与してくれと再紹介されるケースが散見されるようになったという。
そのうち誰かが纏めて報告するだろうと語っていた。
long Covidは慢性上咽頭炎の症状という話とはまた違う知見だな。

>>263
ナース以外の知識はアンタだろw
医療従事者が誤嚥性の細菌性肺炎なんて言わないってw
ここで指摘されて覚えることができてよかったね

>>264
治験でみつからなかった副作用が発売後にみつかるというのは不思議ではないが、
こういう計算もできなアホが入学できる大学があることの方が恐ろしい。

ある新薬の治験に2024人参加したとする。
この治験でn人にひとりの割合で起こる副作用を99%以上の確率で見いだすことができる。
nの最大値を求めよ。

>>267
スレタイとテンプレを声に出して読める？

>>253（考察）
迷走神経と反回神経の走行を考えたら、
迷走神経損傷が主因なら経鼻胃管症候群のような機序での呼吸不全があるかもしれんなぁ。

スレ違いの上に人には罵倒するなと言いつつ自分は他人を罵倒
昨日は何も言えず黙ってたのにネットで調べたのか急に知識を必死に披露
この偽医者さんが祖父母や両親から愛情を注がれなかったのがよくわかりますね

正の整数nと有理数pの組(n,p)で、n+(1/n)=p^2を満たすものが存在するならば、すべて求めよ。

>>267
日本語もろくに理解できないのにチンパン数学垂れ流してるアンタのほうが頭おかしいよ？わかる？w

554：卵の名無しさん (JP 0Hcb-6Vyn [202.253.111.210])：2024/07/23(火) 09:43:29.01 ID:ITXTuHVdH
尿瓶ジジイが素人相手にイキっててワロタw
ちなみに医者は「咽頭神経」何て使わない
咽頭喉頭部は迷走神経（の反回神経）と舌咽神経で運動をまかなっている
医者じゃないからそこらへんの細かい知識はわからんのだろうな適当にネットで調べたの丸わかりだわwww

尿瓶ジジイ素人の高校生に論破されて発狂w

実数x,yが
x^2+xy+y^2≦1
を満たすとき、
sin(πx)+cos(πy)+sin(π(x+y))
の最大値を求めよ。

尿瓶って学生社会人が忙しいであろう早朝しか発狂できないの？w
昼間とか夜だったらその場でボコされるから？w

＞＞273
　-1<q<1 のとき
　Σ[n=1,∞] n*(q^n−q^{n-1}) = −1/(1-q),
を使う

>>271
解なし．
解があると仮定すると，式変形より
√(n^2+1) は整数となるが，これは成り立たない．

>>276
x＝1/2, y＝0
のとき，3項がすべて最大値の1となり
与式＝3で最大．

>>273
問題は全ての血液型が複数、つまり、２人以上みつかる確率！

12.36は1人以上みつかる確率。

自分の能力では厳密解が算出できないので
Wolfram言語で乱数発生させてシミュレーションすると

という結果になった。

>>282
だったらしゃしゃつてくんなスレタイすら理解できない無能は

コイツの言う厳密解ってマジでやる価値ないよな
>>273だって445/36でいいのに、より不正確な値出して喜んでる
まあそうか、スレタイも読めない奴に数学の本質なんて理解できようはずもないな

>>280-281

273 は 139,141,241 へのレスだが…

数学の前に日本語勉強してこいよマヌケw

↑
Median (Q_n=0.5) は　n=9.2652　のあたりか

AB型（とB型）がいつ出るか、それで大勢が決まる。
ポアッソン的な偏った分布になる

↓尿瓶ジジイまた朝から発狂w

>>288
＞ポアッソン的な偏った分布になる

各血液型がどれも2人以上集まったら終了する回数のシミュレーションデータは
左右非対称で対数正規分布みたいな形状だなと思っていたのだが、離散量なのでポアソン分布や負の二項分布の方がいいか。

シミュレーションデータのヒストグラムに重ねて描画（分布のパラメータはR言語のfitdistrplusで算出）


対数正規分布の方が近似しているように見える。
AICやBICも対数正規分布が最小になった。

>>290
医者どころか素人にすら脳内医療の矛盾点を指摘されてダンマリ決め込んで話逸らすしかできないんだね
そんな無能、今日も朝から発狂w

Rのfitdistrplus::fitdist相当の関数をWolframに求めたら
こういう便利が関数が標準装備してあるのを発見。



φ(..)メモメモ

車輪の再発見は初学者には役に立つ。

そういえば感染研に新型コロナの潜伏期間はどんな分布に従うかを検討した論文があったなぁ
うろ覚えだが、NEJMの古いデータだとlognormalだった、8割おじさんはWeibull分布のパラメータを出していたようだった。

Pythonでのシミュレーション

import numpy as np

# 血液型の頻度比
probabilities = [0.4, 0.3, 0.2, 0.1]

# シミュレーション回数
num_simulations = 100000

# 全ての血液型が2人以上集まるまでの採血人数を記録するリスト
sampling_counts = []

# シミュレーション
for _ in range(num_simulations):
counts = np.zeros(4) # 各血液型のカウント
total_samples = 0
while not all(counts >= 2):
blood_type = np.random.choice(4, p=probabilities)
counts[blood_type] += 1
total_samples += 1
sampling_counts.append(total_samples)

# 平均を計算
average_samples = np.mean(sampling_counts)
print(average_samples)

>>292
日本語読めないチンパンが論文？w

>>292
車輪の再発明は知ってるけど車輪の再発見って何？

電卓叩いて車輪を再発見してキーキー喜んでるID:zSmW/lqc尿瓶チンパンジジイw

不思議ハケーン

ぐーぐる先生に尋ねると、ある会社名ばっかり引っかかる

>>292
この中に負の二項分布が入ってないのが不思議。
パスカル分布より知られた分布だと思うのだが。

↓素人高校生にも脳内医療ネタ()を論破されてダンマリ決め込んで必死に話題を変えたがっている尿瓶ジジイさんまたまた朝から発狂中w

厳密解(分数解）が算出できないので質問します。

100人の集団がいて血液型A,O,B,ABがそれぞれ40,30,20,10人いることがわかっている。
一人ずつ無作為に採血して血液型を調べて全血液型の人が1人以上みつかったら調査を終了する。
採血は一人1回である。

調査終了までに採血された人数の期待値を求めよ

>>301
厳密解どころか日本語理解できないチンパンは車輪の再発見でもしたらアホw

>>301
同一人物に複数回の採血してもよいときの期待値は
445/36= 12.36111
と厳密解（分数解）が算出できるのだが、
採血毎に次に各血液型が検出される確率が変動するので
どうやればよいものやら。
シミュレーションで概算したら当然ながら上の値より小さくなった。

メンデルの法則の再発見というのもあるなぁ。
あのデータは正確すぎて捏造だという主張もあったのを思い出した。

>301のシミュレーションコード（Wolfram言語の練習）
WhileよりUntilを使う方が短くかける。Oが予約語なので血液型は小文字にした。数字で代用してもいいんだが。

東大卒やエリート高校生による最適化・高速化を希望します。

sim[]:=(
rest=Flatten@(Table[#[[1]],#[[2]]]& /@ {{a,40},{o,30},{b,20},{ab,10}});
drawn={};
count=0;
Until[AllTrue[{a,o,b,ab},MemberQ[drawn,#]& ],
count++;
i=RandomSample[Range[Length[rest]],1];
drawn=Flatten@{drawn,rest[[i]]};
rest=Delete[rest,i]
];
count
)

応用問題

100人の集団がいて血液型A,O,B,ABがそれぞれ40,30,20,10人いることがわかっている。
一人ずつ無作為に採血して血液型を調べて全血液型の人が1人以上みつかったら調査を終了する。
採血は一人1回である。

調査終了までに採血された人数の最頻値と中央値を求めよ。

>>304
自分のクソスレでやってろよ尿瓶ジジイ
自分で立てたのにダンマリ決め込んでるみたいだがw

http://2chb.net/r/hosp/1718544450/

3辺の長さがa,b,cである三角形について、以下の量は何を表すか。

|-b±√(b^2-4ac)|/2a

数を減らすとなんとかWolframで分数解が出せた。

簡単にした問題

10人の集団がいて血液型A,O,B,ABがそれぞれ4,3,2,1人いることがわかっている。
一人ずつ無作為に採血して血液型を調べて全血液型の人が1人以上みつかったら調査を終了する。
同一人物への複数回の採血はなしとする。
調査終了までに採血された人数の期待値を求めよ 。

想定解　437/63

スキルのある東大卒やエリート高校生による検証を希望します。
尚、スキルには自演認定スキルは含まない。

>304の数値を変えればシミュレーションでの近似解が出せる。

>>306
3辺の長さは正の実数なんだから
-b を b にすれば絶対値記号は要らない

思いつきで想定解のない問題を出しても
誰も解いてくれないよ

>>307
慣れたRで計算すると
> mean(re) |> fractions()
[1] 307/45
になった。
こっちの方がシミュレーションに近いなぁ。

>>307
Wolframの方のデバッグ完了
307/45
になったので訂正

10人の集団がいて血液型A,O,B,ABがそれぞれ4,3,2,1人いることがわかっている。
一人ずつ無作為に採血して血液型を調べて全血液型の人が1人以上みつかったら調査を終了する。
同一人物への複数回の採血はなしとする。
調査終了までに採血された人数の期待値を求めよ 。

想定解　307/45
おまけ、最頻値６　中央値7

暑さのせいだと思いますが、めっちゃ基本的なことを忘れてしまいました。
恥ずかしながら質問させてください。
-7 / 2 = -3 あまり-１となるんでしょうか？
それとも、
-7 / 2 = -4 あまり1となるんでしょうか？

>>311
ふたつ目が正解

わり算の答え（商）は
わり算の式を分数にしたときの
（わられる数）／（わる数）
の値以下で最大の整数

(-7)/2=-3.5
↓
(-7)÷2の商は-3.5以下の整数で、-4

どちらかが負の数で、わりきれないときは
正の数にしたときと
絶対値（符号をはずした値）が異なる

あまりの値は
（わられる数）－（商）×（わる数）
値は負の数にはならず、0か正の数になる


家庭教師のトライによる解説
高校数学A 負の数の「商と余り」
https://www.try-it.jp/chapters-4962/sections-4963/lessons-5036/

>>312
ありがとうございます！

>>301
Total[
Sum[(n1+n2+n3+n4)Multinomial[n1,n2,n3,n4-1] Multinomial[40-n1,30-n2,20-n3,10-n4],{n1,1,40},{n2,1,30},{n3,1,20},{n4,1, 1}]+
Sum[(n1+n2+n3+n4)Multinomial[n1,n2,n3-1,n4] Multinomial[40-n1,30-n2,20-n3,10-n4],{n1,1,40},{n2,1,30},{n3,1, 1},{n4,1,10}]+
Sum[(n1+n2+n3+n4)Multinomial[n1,n2-1,n3,n4] Multinomial[40-n1,30-n2,20-n3,10-n4],{n1,1,40},{n2,1, 1},{n3,1,20},{n4,1,10}]+
Sum[(n1+n2+n3+n4)Multinomial[n1-1,n2,n3,n4] Multinomial[40-n1,30-n2,20-n3,10-n4],{n1,1, 1},{n2,1,30},{n3,1,20},{n4,1,10}]
]/Multinomial[40,30,20,10]
=15696077/1378377=11.3873613677535...

これの途中の式がわからなくて…

ようやく分数解が出せた。

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

御神託に従ってWolfram言語を使って計算させた結果
6264353125811/280052640000
という厳密解（分数解）得られた。
>282のシミュレーション結果とほぼ同じなので正しいと思われる。
東大卒やエリート高校生による検証を希望します。

>>317
全血液型が２セット集まるまでの採血数の期待が計算できたみたいなので
次に考える問題。

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

想定分数解
4003373404972759107041/124491239953920000000
シミュレーションでの近似値
32.17

東大卒やエリート高校生による検証を期待します。

>>318
全血液型がそろうのは頻度1/10のAB型の出現に左右されるだろうから、全血液型が10セット揃うまでの採血人数の期待値は約100人と予想される。

Wolframでの計算結果
88398967538963452998283293939683239877377991322957234693922969295131696994873759327991619
/
875493050504554451499670883205711900630279711955825459200000000000000000000000000000000
＝100.970...

予想通りの結果。

>>314
分数解のレスありがとうございます。
神コードを反芻してロジックを追います。

>>315
早速のエレガントなレスありがとうございます。
総当たりで重複順列を列挙させて採血人数
期待値（分数）
期待値（小数）
ヒストグラム
分位数（2.5％、50％、97.5％）
度数
を算出させた結果が
以下の通りです。

中央値は７
最頻値は６
だと思うのですが、如何なものでしょう？

本日の（自分への）課題

血液型の頻度比 A:O:B:AB=4:3:2:1とする。
無作為に採血していき
各血液型が少なくとも
A型が4検体、O型が3検体、B型が2検体、AB型が１検体
集まったら採血を終了する。

採血数の期待値、中央値、最頻値を算出せよ。

>>323
まず、検証用にモンテカルロ解を出すシミュレーション

あとは、内視鏡バイトが終わってから厳密解算出にチャレンジ。

WolframのCounts関数はバグがあるな。
引数に空集合を与えると誤答が返ってくる。

{1,2,3,4} /. Counts[{1,2,2,4,3,3}]
{1,2,3,4} /. Counts[{}]
後者は{0,0,0,0}を返さない。

また自演で発狂かよw

>>323
期待値を移動中にスマホで計算。
1181991429255578143/66691735689600000
=17.723206886635

シミュレーション結果と近似しているので良さげだな。

lim[n→∞] |1+(i/n)|^n
を求めよ。ただしiは虚数単位である。

（早稲田　教育）

内視鏡バイト終了。
帰路では>323をRに移植でもするかな。

p=c(1/10,2/10,3/10,4/10)
flg = function(x)　any(c(sum(x==1)<1,sum(x==2)<2,sum(x==3)<3,sum(x==4)<4))
sim=function(){
count=10
x=sample(4,10,replace=TRUE,prob=p)
while(flg(x)){
count=count+1
x=c(x,sample(4,1,replace=TRUE,prob=p))
}
count
}
res=replicate(10^5,sim())
mean(res)
quantile(res,p=c(0.025,0.5,0.975))
sort(table(res),decreasing=TRUE)[1:5]

結果
[1] 17.71985
2.5% 50% 97.5%
10 16 37
res
13 14 12 15 16
9664 9414 9055 8832 7777

>326の分数解で良さそう。

>>329
内視鏡室の清掃バイトですか
ご苦労さんです偽医者さん
いい年だからそんな仕事しか無いんですね

医者だの何だの言いながら年食ってからもバイト報告？奴隷階級自慢？

医者はジジイになっても働けるが尿瓶ジジイID:ihpHdytD＝ID:NLrXJ64M＝ID:rQOYlfHFはただの孤独貧困老人かと思われます

>>331
内視鏡の洗浄とかそれなりのスキルが必要。
消毒液の毒性にも配慮が必要。
洗浄と検査を同じ部屋でやっているような小規模病院だと働く気にならん。

>>333
麻酔のバイトは午後から２件かけて１６万と美味しいバイトだった。
仕事を増やすと年金支給停止が増えるだけだから社保の資格が維持できる範囲でしか
仕事をしないことにしている。

このジジイ他の数学板のスレも軒並み荒らしてるな
なんでどのスレでも東大東大やかましいのか
東大に対しよほどの劣等感でも持ってるのか

>>322
　いいと思います。
P_n = Q_n−Q_{n-1} から
　P_4 = 0.11429
　P_5 = 0.17143
　P_6 = 0.18095
　P_7 = 0.16667
　P_8 = 0.14444
　P_9 = 0.12222
　P_10 = 0.1

>>337
年金支給とか気にしなくちゃいけない程度なのかよwww
奴隷根性が染み付いてるんだね
やっぱり奴隷自慢なんだな

>>336
結局医者じゃなくて清掃バイトかよ底辺じゃん

>>337
また脳内バイト自慢かよ？そもそもアンタは妄想医だしどうせ使えないからどこのバイトもすぐクビになるんだろ

次の課題

100人の集団がいて血液型A,O,B,ABがそれぞれ40,30,20,10人いることがわかっている。
一人ずつ無作為に採血して血液型を調べて血液型A,O,B,ABがそれぞれ4,3,2,1人以上みつかったら調査を終了する。
採血は一人1回である。調査終了までに採血された人数の期待値、中央値、最頻値を求めよ

>>344
奴隷自慢は否定できないだな？
まあ頭おかしすぎて奴隷でも役立たずだけどなww

今現在、日本は帰化朝鮮人によって大韓民国と北朝鮮に侵略行為を受けている
彼らがやっていることは差別を盾にした隣国侵略行為である
『差別と言われたら隣国侵略』だと言い返そう
新聞、出版社、テレビ局、会社の起業家、大学教授は帰化系の人間ばかりでもはや合法的な侵略である
こういう組織やあらゆる会社で差別され排除されているのは日本人の方である
帰化人たちで徒党を組み、芸能界、スポーツ界、歌謡界、声優界を独占し日本人を排除し、
会社組織ではトップに居座らせたら日本人は閑職に追いやられ、
パワハラで辞職に追い込まれ、その会社の技術を半島に流出させられ、日本企業が競争力を失っていく
奴らがやっているのは差別を盾にした緩い民族虐殺、
帰化朝鮮人たちに日本人のふりをされてこのまま緩やかなホロコーストに向かうなら、戦った方がまし

「政治家に立候補する時、帰化朝鮮人の家系の人間か否かを公表する」を提出して過半の賛成を取って立法化しよう

そうなると帰化人に支配されたメディアによって差別だと糾弾し始め帰化人たちが暴動やら起こすだろう、
日本は荒廃の一途を辿る、内戦状態に近いものになる
だがそれは当然のこと、国内で隣国の人間に侵略行為を受けているのだから
時間はあまりない、やつらが過半数を確保してからでは遅い
法律を変え日本人を差別、虐待し、
日本人の人口を減らし、移民を受け入れさせることで過半数を超えたら侵略行為が完了してしまう
こちらは隣国侵略だと堂々と主張して戦おう

拡散希望

↓今日も今日とて何一つ正論には言い返せず朝からチンパン数学で尿瓶ジジイ＝ID:0LLGTZZA発狂中ww

質問いいでしょうか。
{b_n}は自然数の狭義単調増加数列とします。{a_n}は、a_1は自然数とし、a_1 + a_2 + ... + a_{n-1} に何かを足してその総和が b_n の倍数になるような最小非負整数を a_n とします。その割った商をc_nとしたときに、c_n < c_{n+1} とはならないだろうことは直感的には分かるのですが、厳密に証明ってできますか？
よろしくお願い致します。

20人選手がいるAチームと24人選手がいるBチームとで
1対1の格闘技試合を行う。
相手チームから対戦相手を3人の別人（即ち、同一人物は指名できない）を指名して
氏名が相互に合致した組み合わせのみ試合が行われる。
(1)無作為に対戦相手を選ぶとき何試合が行われる確率がもっとも高いか？
(2)対戦相手に同一人物を複数人指定してよいときは何試合が行われる確率がもっとも高いか？

>>337
本当に稼いでいる高齢者が年金支給停止気にするわけないだろタコ
まあそんなことも分からないバカだからこんなところに粘着して妄想と発狂を繰り返すような哀れなジジイなんだよねw

>>348
商 c_n の定義は
c_n=(b_n)/(a_n)
で合ってる？ もしそうなら
b_n=n, a_1=1
のとき
a_n=1, c_n=n, c_n<c_(n+1)
が反例

分母と分子が逆で
c_n=(a_n)/(b_n)
なら
b_n=n!, a_1=1
のとき
a_n=n!-(n-1)!, c_n=(n-1)/n, c_n<c_(n+1)
が反例

>>351
ありがとうございます。ごめんなさい書き方が悪かったです。
{b_n}は与えられた数列で、例えば3, 8, 10, ... とします。
a_1は与えられた自然数で、例えば49とします。a_2は、a_1 + a_2が b_2 = 8 の倍数になる最小の数、つまり7になります。商というのは56÷8のことで、つまり c_2 = 7 です。
次にa_3は、a_1 + a_2 + a_3 が b_3 = 10 の倍数になる最小の数なので、4です。このとき c_3 は、60 ÷ 10 = 6 になります。
お聞きしたいのは、c_n < c_{n+1} となることがあるだろうかということです。最小の数を足すので、商が大きくなることはないだろうなあというのはなんとなくは分かるんですが、ちゃんと証明ができないのでお力をお貸し頂きたいです。

b(n)c(n)+a(n+1)=b(n+1)c(n+1).
a(n+1)<b(n+1).
b(n+1)c(n+1)<b(n)c(n)+b(n+1).
b(n+1)(c(n+1)-1)<b(n)c(n)<=b(n+1)c(n).
c(n+1)-1<c(n).
c(n+1)<=c(n).

>>353
ありがとうございます。すいません、2行目の
a(n+1)<b(n+1)
はなんで言えるんでしょうか？まあ成り立つだろうとは思うんですが、自明としてしまうのはちょっと引っかかってしまいます…
それでその後の式もちょっとよく分からないんですが、もう少し詳しく解説して頂けませんか。すいません。
1行目は分かります。

学生(学生数 ns) が就職活動をする。
各々、a[1],a[2],,,, a[ns]社を希望する。
会社(会社数 nc）が採用活動をする。
各々b[1],b[2],,,b[nc]人の学生を指名する。
学生の希望と会社の指名が合致したときのみ就職する。
一人は一社にしか就職できない。


ns=40
a[1]=a[2]=...=a[20]=5
a[21]=a[22]=...=a[40]=10
nc=20
b[1]=b[2]=...=b[10]=3
b[11]=b[12]=...=b[20]=5
のとき、何人が就職する確率が最も高いかを試算せよ。

週末の寝当直の暇つぶしの問題

男性ｍ人、女性ｎ人が婚活をする。
男性は妻の候補をw人、女性は夫の候補をh人指名することができ、
相互の指名が合致したときに成婚となる。
指名はすべて別人で、重婚は認められない。
成婚数の期待値、中央値、最頻値を算出するシミュレーションプログラムをWolfram言語で作れ。

>>356
誰が昼間になったら書き込んでいいって言ったんだよ？

>>347がよっぽど効いたみたいだなww

>>356
先週は気に食わないレスにアンカつけまくって発狂してたのにまた急にダンマリ決め込む、そしてまた発狂の無限ループ
まさしく精神病のそれ

哀れ尿瓶ジジイ、自分で長年立て続けた私怨クソスレなのに毎回蜂の巣にされるのを理解しもはやコピペすらまともに書き込めないww

http://2chb.net/r/hosp/1718544450/

352、どなたか分かりやすく解説して頂けませんか

↓今日も性懲りも無く都合の悪いレスや正論にはダンマリ決め込んでチンパン数学()を垂れ流す尿瓶ジジイID:HlMZGdRD

血液型に1,2,3,4の番号を振ってプログラムしたらRとWolframで結果が違ったので
気付いたWolframのCounts関数のバグ

数列{2,0,2,4}に2 と4が各々何個含まれるかをカウントして返すプログラム
{2,4} /. Counts[{2,0,2,4}]

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

In[1]:= {2,4} /. Counts[{2,0,2,4}]

Out[1]= {2, 1}
と期待通りの結果。

数列{2,0,2,4}に１,2,3,4が各々何個含まれるかをカウントして返すプログラム
{1,2,3,4} /. Counts[{2,0,2,4}]
{2,0,0,1}という結果を期待したいが、

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

In[1]:= {1,2,3,4} /. Counts[{2,0,2,4}]

Out[1]= {1, 2, 3, 1}

という結果になる。

>>350
並列麻酔やったらその倍の給料になるのでやっている麻酔医もいるが、
俺はリスク高すぎてやれない（というより、自動記録もないような零細病院で
並列麻酔が求められることはない）。

リスクを冒して並列やっても年金支給停止額が増えて実入りが増えないなら
仕事をふやすことはしないね。

>>356
重婚を認めないという条件があるのでモンテカルロ法での算出は簡単だった。
プログラム例
mate[m_,f_,w_,h_,k_:10^4] :=(
sim[]:=(
wif=Table[RandomSample[Range[f],w],m];
hus=Table[RandomSample[Range[m],h],f];
Total@Boole@Table[MemberQ[Flatten@hus[[wif[[i]]]],i],{i,1,m}]
);
res=Table[sim[],k];
{N@Mean@res,Median@res,(Reverse@Sort@Counts@res)[[1;;1]]}
)

>>328
本来、統計用ソフトなのに虚数対応しているのでRで作図して１に収束を体感。


応用問題
lim[n→∞] （1+(i/n)）^n
を求めよ。ただしiは虚数単位である。
作図して答を推測せよ。

>>365
まーた適当言ってるよ
この偽医者さん

>>364
Countsのバグではない。仕様を知らないので、バグだと思っているだけ。

/.　は代入あるいは、置換。置換元と置換先が指定されなければならない。

Countsは、それぞれの要素が、いくつあるかを返す関数。
含まれない要素xについて、「xは0個あります」等とは返さない。
含まれない要素については、置換元がない以上、置換されない。当然、0への置換などしない。

CountsではなくCountを使い、例えば、
Table[Count[{a,b,b,c,a,b,d,d,x,x},i],{i,{a,b,c,d}}]
等の様な使い方をすれば、目的の要素がたとえ0個であっても、きちんと機能する。

プログラム言語ができる人はそれを使って投稿された問題に解答。
罵倒言語しかできない人は罵倒投稿を続けるのみ。得技は自演認定。
エリート高校生の諸君はどちらになりたいですか？

バグではなくて仕様ですと言われるだろうと思っていたが、
この仕様は不親切設計であると思う。
0個と返さないのなら空集合を返してほしいところ。

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

In[1]:= {1,2,3,4} /. Counts[{}]

Out[1]= {1, 2, 3, 4}

>>370
高校生の質問無視して言うことがそれかよ

>>371
おまけ

４類型にするだけなのでCounts類似のCountを使わずに自作関数を作成。
期待通りの値を返してくれる。

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

In[1]:= counts4[x_] := Table[Total@Boole[#==i& /@ x],{i,1,4}]

In[2]:= counts4[{2,0,2,4}]

Out[2]= {0, 2, 0, 1}

In[3]:= counts4[{}]

Out[3]= {0, 0, 0, 0}

>>372
何が自明かは各人により異なるので証明問題はスルーすることにしている。
プログラムネタにはしずらいので。
鳩の巣原理も量子物理の世界では自明ではないらしい。

複素平面上で(1+i/n)^nの軌跡をn=1,..,100まで描いてみた。
面白みもないので動画にはしなかった。

収束点はcos(1)+i sin(1) = 0.5403023+0.841471i

>>374
どうせ分からないだけだろw
なんで高校生の質問に答えないんだよ？スレタイもう一度読んでみろよ

>>365
年金停止額が増えるって日本語通じてないチンパンかよ？

他のスレならともかく、高校数学のスレなら自明といっていいのは検定教科書に定理、公理として扱われている命題、言葉の定義は検定教科書で採用されているそれ。

>>374
何が自明かは各々異なるから自明を使わずに証明するんだろ
証明問題ができないってことは演習問題しか解けない、
大学数学を理解できないって証拠だぞ

>>379
ID:IsVJ9/rgのやってることは高校数学でも大学数学でもなくチンパン数学だからねw
またの名を言葉のサラダ

近似解しか算出できないので質問します。
t を正の実数として複素平面上で(1+i/t)^iの描く軌跡の長さを求めよ。

訂正　t を正の実数として複素平面上で(1+i/t)^tの描く軌跡の長さを求めよ。


PhimoseくんってWolframのコードが読めないみたいだなぁ。
使用言語は罵倒言語、常套句は自演認定ｗ

>>378
中心極限定理は自明ではないし、
正規分布表の値も自力計算できないのに使っている。

嫁なしPhimoseくん用に婚活問題を考えたのだがWolfram言語は使えないみたいなので
具体的な数字の計算問題にした。

男性100人、女性50人が婚活をする。
男性は妻の候補を2人、女性は夫の候補を5人指名することができ、
相互の指名が合致したときに成婚となる。
指名はすべて別人で、重婚は認められない。
成婚数の期待値、中央値、最頻値をもとめよ。

実験してみると割と左右対称な分布になった。

>>381
求めよって指示・命令であって質問ではないことも理解できないのね

>>381
もう医者板ではコテンパンにされて言葉のサラダすら発狂できないみたいだな
どうせここでもフルボッコなんだからチンパワー数学の前に日本語勉強してこいよw

チンパン数学でしたw
まあどのみち人間の話す言語ではないしどっちでもいいけどwww

>>383
自明でないから教科書で定理として載っている
その範囲内でなければ高校数学と呼べない

>>383
コレも統計学の用語と確率論の用語を混同している
この違いを理解してもらうようにこの手の用語の乱用は高校数学ではありえない

t を非零の実数として複素平面上で(1+i/t)^tの描く軌跡を図示せよ。
軌跡の長さと軌跡に囲まれた図形の面積を算出せよ。近似解でもよい。

とりあえず、Rで図示。

>>389
確率は心の中にある。
同様に確からしいというのが仮想現実。
確率は確信の度合いを示す尺度である。
例：
降水確率は予報士の確信の度合いを反映する。
安倍晋三が仮病であった確率もアンケート調査すればよい。

問題　: 尿瓶チンパフェチのPhimoseくんに嫁がいる確率を推測せよ。
ヒント　稼ぎが悪そう、Phimose草杉、罵倒が生きがい

【意外と難しいです】

iを虚数単位、a,bを実数の定数とする。
複素数平面上の定点A(a)、B(bi)を通る直線に、原点O(0)から下ろした垂線の足をHとする。
直線OHの方程式を求めよ。

>>391
話通じてないねアホすぎて

確率は心の中にあるとかほざいてる統失がなんで高校数学(実際はチンパン数学だが)スレにいれるんだよ
話にならないよww

完全に社会から孤立してるからコミュニケーション力が消失してる

>>390
Rで作図して計測
軌跡長
> L
[1] 2.902528
軌跡の囲む面積
> S
[1] 0.653288

同面積の円を描いて妥当性を推測

Wolframで作図するスキルはない。

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

>>396
日本語のスキルはないの間違いだろ

>>396
おい尿瓶ジジイ
ここはいつまでダンマリ決め込んでんだよ？
医者板で何言ってもフルボッコだから自分で立て続けたスレなのにもう何も言えなくなったか？

http://2chb.net/r/hosp/1718544450/

罵倒が生きがいとか他人に言ってるが
>>263
とか思いっきり罵倒してるよね
ナース以下とか明らかに看護師馬鹿にしてるし親にどういう風に教育されたらこんな性格になるんだろうね親の顔が見たいわ

>>391全部自己紹介すぎるw

>>396
朝からあんなに発狂してたのに論破されたらもうご臨終かよ

http://2chb.net/r/hosp/1718544450/

課金してるのにあぼーんとか哀れすぎw

t→ ±∞ のとき　この軌跡は e^i に近づくけど、
この点は含まないから開曲線？
（ごJordanを…　って言うなよ）

>>396
アンタみたいなキチガイ、リアルじゃ誰にも相手にされないのにここではいくらでもバカにしてもらえるなんてネットがある時代でよかったなw

↓尿瓶チンパンジジイID:IsVJ9/rg昨日あれだけボコられて早々に退散した癖に今日も懲りずに朝から発狂w

極座標 r,θ で表わせば
　rr = 1 + 1/tt,
　θ = t・arctan(1/t),
　dθ = {arctan(1/t)−t/(1+tt)}dt
　S = (1/2) ∳ rr dθ = 0.656145
ぐらいか？

>>403
問題を軌跡に収束点のcos(1)+i sin(1)を含むとすべきでした。

>>406
Rで多角形（２万角形）で近似させて計算した面積とほぼ一致。

>>406
rr = (1 + 1/tt)^t
別表記では
r^2 = (1+1/t^2)^t
では
ないですか？

>>392
Rでの作図ツールとして昔、作ったのがコレ

# 直線ABにCからおろした垂線の足Hの座標を複素数で返す
# 0<t<1なら線分AB上の点
ABC2H <- function(A,B,C){ # from C to H on A-B
if(is.complex(c(A,B,C))){
a1=Re(A) ; a2=Im(A)
b1=Re(B) ; b2=Im(B)
c1=Re(C) ; c2=Im(C)

}else{
a1=A[1] ; a2=A[2]
b1=B[1] ; b2=B[2]
c1=C[1] ; c2=C[2]
}
a=c(a1,a2) ; b=c(b1,b2) ; c=c(c1,c2)
t=(-a1*b1+a1*c1-a2*b2+a2*c2+b1^2-b1*c1+b2^2-b2*c2)/(a1^2-2*a1*b1+a2^2-2*a2*b2+b1^2+b2^2)
H=t*c(a1,a2)+(1-t)*c(b1,b2)
if(is.complex(c(A,B,C))){
return(list(t=t,H=H[1]+1i*H[2]))
}else{
return(list(t=t,H=H))
}
}

こういう道具を作っているから、他言語での作図には食指が動かない。

作図はできたけど答が算出できないので質問します。

t を非零の実数として複素平面上で(1+i/t)^tの描く軌跡とt→ ±∞ のときの収束点で囲まれた図形の重心を求めよ。
t を一様分布させて多角形で近似図形を作図した頂点の平均だと収束点近傍での密度が高いから重心にならなかった。

極形式
r^2=(1 + 1/t^2)^t
theta=tan(Arg(1+1i/t))
で面積計算しようと思ったら後者の微分法がわからんのでやめた。

>>405
オミクロン株以降は誤嚥性肺炎合併が多いというナースでも知っている知識も
もっていないようなのとは議論する価値もないからね。

個室満床で寝当直予定だったが、
DNAR指示のない入院患者のCPAで呼ばれて心肺蘇生してベンチレータに繋げた。
休日なのに主治医が出てきてくれた。
まあ、主治医の電話依頼でCPRしたのだが、
当直医に丸投げにしない立派な医師であった。
当然、国立大学卒。

>>413
スレ違いな上に他人への罵倒と妄想が生き甲斐なの？誰もあなたが医者だなんて思ってないよ偽医者さん

>>413
誤嚥性肺炎を誤嚥性の細菌性肺炎とか言う奴と議論なんて出来ませんよね？しれっと修正してるってことは言葉知らなかったんですよね？素人の僕でもそれぐらいわかります

>>413
エビデンスは？

内視鏡バイト終了。寝当直と合わせて３０栄一ゲット。
年金支給停止額が増えるだけ。

>>411
直交座標での陰関数でも出せればモンテカルロ方角可能になるのだが。
方針が立たん。

スレチの医者コンプとかクズすぎるwww
いくら稼いだか自分で把握しなくちゃいけないとか底辺根性丸出しだろwwww